鼠标拖动（急~~~~~~~~~~~~~~~~~）(50分)

1、怎么样动态创建10个image？
2、怎么样才能拖动我创建image中的任一个image？（最好有原码）

用一个TLIst来存储这10个image，让后遍历list，遍历时判断是否在image内(要自己写一个函数)，如果在image内，做相应的操作。

procedure ImageOnMouseMove(Sender: TObject; ..)
var
img: TImage;
begin
img:= TImage(Sender);
end;

procedure DynCreateImages;
var
aInt: Integer;
img: TImage;
begin
for aInt:=0 to 9 do
begin
img:= TImage.Create(nil);
img.OnMouseMove:= Self.ImageOnMouseMove;
FComponList.Add(img);
end;
end;