请帮我看一下这段程序，谢谢

Question

procedure TForm1.Button4Click(Sender: TObject);
var
  curX,curY:integer;
  step:integer;
begin
  image3.Picture.Bitmap:=image1.Picture.Bitmap;
  image3.Picture.Bitmap.Width:=image3.Picture.Bitmap.Width+20;
  image3.Picture.Bitmap.Height:=image3.Picture.Bitmap.Height+20;
  image3.AutoSize :=true;
  step:=2;
  curX:=curX-step;
  curY:=curY;
  BitBlt(image3.Canvas.Handle,curX,curY,image2.Width,image2.Height,image2.Canvas.Handle,0,0,SRCAND);
end;要求每按一次button4，image2就相对于image1向左移动一个step（暂且设为2），image2和image1是叠合在image3内的。请帮我看看问题出在哪里，谢谢。

Answer 1

请问一下这里如何对curX和curY设置初始化，可以写一段让我看看么？最近才开始学delphi，还是新手，谢谢了。

Answer 2

curX:=image1.Left;
curY:=image1.Top;