1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

//Backround zeichnen
  for ypos:= 0 to peakbufr.Width do
  begin
    //Linkerkanal
    peakbufl.Canvas.Pen.Color:= RGB( Trunc(102+ (255 - 102) / peakbufl.Height *ypos) ,
                   Trunc(113+ (255 - 113) / peakbufl.Height *ypos) ,
                   Trunc(126+ (255 - 126) / peakbufl.Height *ypos) );
    peakbufl.Canvas.MoveTo(0, ypos);
    peakbufl.Canvas.LineTo(peakbufl.Width, ypos);
    //rechterkanal
    peakbufr.Canvas.Pen.Color:= RGB( Trunc(102+ (255 - 102) / peakbufr.Height *ypos) ,
                   Trunc(113+ (255 - 113) / peakbufr.Height *ypos) ,
                   Trunc(126+ (255 - 126) / peakbufr.Height *ypos) );
    peakbufr.Canvas.MoveTo(0, peakbufr.Height - ypos);
    peakbufr.Canvas.LineTo(peakbufr.Width, peakbufr.Height - ypos);
  end;					

1:
2:

peakbufl:= TBitMap.Create;
peakbufr:= TBitMap.Create;					

1:
2:

leftcannelpb.Canvas.Draw(0, 0, peakbufl);//<---leftcannelpb sind die Paintboxen
rightcannelpb.Canvas.Draw(0, 0, peakbufr);//<---rightcannelpb					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

for ypos:= 0 to peakbufr.Height-1 do
begin
    r:= trunc(102+ (255 - 102) / peakbufl.Height *ypos);
    g:= trunc(113+ (255 - 113) / peakbufl.Height *ypos);
    b:= trunc(126+ (255 - 126) / peakbufl.Height *ypos);
    pl:= peakbufl.ScanLine[ypos];
    pr:= peakbufr.ScanLine[ypos];
    for x:= 0 to peakbufl.Width-1 do
    begin
        pl.rgbRed:= r;
        pl.rgbGreen:= g;
        pl.rgbBlue:= b;
        
        pr.rgbRed:=  r; //<---hier währe es toll wenn man die Farbe irgendwie invertieren könnte
        pr.rgbGreen:= g;//so bräucht man nur eine Forschleife für die beiden Bitmaps
        pr.rgbBlue:= b;//
        
        inc(pl);
        inc(pr);
    end;
end;					

1:

pr.rgbRed:=  pl.rgbRed xor r;//<--so hatte ich es versucht xor,or usw.					

1:

pr:= peakbufr.ScanLine[(peakbufr.Height-1) - ypos];					

1:
2:
3:
4:
5:
6:
7:

r := ...; g := ...; b := ...;

pl.r := r; pl.g := g; pl.b := b;
w := peakbufl.Width;
pl2 := pl; inc(pl2);
Move ( {Source} pl, {Destination} pl2, {Length} SizeOf(PixelRGB) * (w - 1) );
Move ( {Source} pl, {Destination} pr, {Length} SizeOf(PixelRGB) * w );					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

    pl:= peakbufl.ScanLine[0];
    pr:= peakbufr.ScanLine[0];
for ypos:= 0 to peakbufr.Height-1 do
begin
    r:= trunc(102+ (255 - 102) / peakbufl.Height *ypos);
    g:= trunc(113+ (255 - 113) / peakbufl.Height *ypos);
    b:= trunc(126+ (255 - 126) / peakbufl.Height *ypos);
    pRGB.rgbRed:=r;
    pRGB.rgb...
    for x:= 0 to peakbufl.Width-1 do
    begin
        pl:= pRGB;
        
        pr:=  pRGB
        
        inc(pl);
        inc(pr);
    end;
end;