пожалуйста помогите мне по графике

[felistrs]

Я делаю програму для редагирования изображений. У меня возникла проблема: как мне ускорить обработку еффекта (для болыших изображений)? Как мне достать адресс к масиву изображения и его палитре?

пример:
procedure TForm1.Button2Click(Sender: TObject);
var
x,y:word;
begin
for y:=0 to Image1.Picture.Bitmap.Height do
for x:=0 to Image1.Picture.Bitmap.Width do
Image1.Picture.Bitmap.Canvas.Pixels[x,y]:=
Image1.Picture.Bitmap.Canvas.Pixels[x,y] xor $00ffffff;
end;

Пожалуйста помогите!

[Virtson]

1) используй построчное сканирование: scanline

var
  x,y : Integer;
  BitMap : TBitMap;
  P : PByteArray; // только для <=256 цветов

begin
for y := 0 to BitMap.Height -1 do
    begin
      P := BitMap.ScanLine[y];

      for x := 0 to BitMap.Width -1 do
        P[x] := {значение};
    end;
...

2) указывай Canvas один раз, вне цикла:

with Image1.Picture.Bitmap.Canvas do
for y:=0 to H do
for x:=0 to W do ...

на самом деле при каждом обращении к Canvas происходит некоторая переинициализация, на первый взгляд невидимая