鼠标拖动的问题！？

Question

sendmessage(handle,wm_move,0,0)onbtnclick(sender:object);
with image.create do 
     parent:=self;
     top:=0;left:=0;
     width:=100;height:=100;
     show;
end;
     

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  image:array[0..maxsize] of timage;
begin
   image[i]:=timage.create(self);
   image[i].parent:=form1;
   image[i].picture.loadfromfile('C:\My Documents\Hong\157323.jpg');
   image[i].Top:=0;
   image[i].Width:=100;
   image[i].Height:=100;
   image[i].left:=100*i;
   image[i].stretch:=true;
   image[i].visible:=true;
   i:=i+1;
end;

Answer 2

i:integer
TForm1.FormCreate
  i:=0;