اظهار الصورة على الفورم بيكسل تلو الآخر

كود :
[FONT="Courier New"]
var 
c : TColor;
x : Integer = 0;
y : Integer = 0;

[FONT="Tahoma"][color=Blue]//------------------------------------Timer قبل بداية عمل [/color]
   image2.Height := image1.Picture.Graphic.Height;
   image2.Width :=  image1.Picture.Graphic.Width;
[FONT="Tahoma"][color=Blue]// نجعل لون خلفية الصورة  نفسه لون الأرضي[/color]
   image2.Canvas.Brush.Color := Form1.color;
   Image2.Canvas.FillRect(rect(0,0,Image2.Width, Image2.height)); 
[FONT="Tahoma"][color=Blue]//-------قد تستغني عن التالي إذا لم ترد صورة شفافة[/color]
   C := image1.Canvas.Pixels[0,0];
[color=Blue]//------------------------------------------------------------------[/color]

procedure TForm1.TimerPixelTimer(Sender: TObject);
begin

 if (image1.Canvas.Pixels[x,y]<> C) then [color=Blue] // لعدم إظهار لون معين[/color]
   image2.Canvas.Pixels[x,y] := image1.Canvas.Pixels[x,y];

 if x < image1.Picture.Width then
   x := x+1
  else
  begin
   x := 0;
   if y < image1.Picture.Height then
     y := y+1
     else
      TimerPixel.Enabled := false;
  end;
end;