Farbe eines TBitmap schnell durch eine andere ersetzen

[ferby]

Hallo,

Ich habe ein TBitmap das 200*200 Pixel groß ist.
Ich habe es Grafik gennant
(grafik: TBitmap

durch den folgenden code wird eine bestemmte farbe (farbe_alt) durch eine neue ersetzt.
Leider dauert das ewig. kennt ihr eine schnellere Methode?

Delphi-Quellcode:

      for i:=0 to Grafik.width do
      for i2:=0 to Grafik.height do
      if Grafik.Canvas.Pixels[i,i2]=alt_farbe then
      Grafik.Canvas.Pixels[i,i2]:=colordialog.color;