Bitmap Pixel-Farben tauschen

Mit dieser kleinen Funktion lassen sich die Farben einzelner Bitmap-Pixel einfach und schnell tauschen.

procedure TForm1.Button1Click(Sender: TObject);
var x, y : integer;
    BMP : TBitmap;
begin
  BMP := TBitmap.Create;
  try
  BMP.Assign(Image1.Picture.Bitmap);
  for x := 0 to Image1.Height do begin
    for y := 0 to Image1.Width do begin

      // HIER DIE ZU TAUSCHENDE FARBE ANGEBEN
      if BMP.Canvas.Pixels[y,x] = clBlack

      then

      // HIER DIE FARBE ANGEBEN DIE GETAUSCHT WERDEN SOLL
         BMP.Canvas.Pixels[y,x] := clWhite;
    end;
  end;
  finally
  BMP.Free;
  end;

  Image1.Picture.Bitmap.Assign(BMP);
end;