关于动态控件数组的问题

Question

FindComponent(Format('Image%d' ,[I]))

Answer 1

Procedure Tform1.myClick(Sender:TObject);
begin
   Showmessage((Sender as Timage).Name);
end;在程序中写一个上面的过程然后
images[1].onclick:=myClick;

Answer 2

具体一点的做法是：（举一个例子)在创建 Timage时：
with Timage.create(nil) do
begin
 left :=....
.........
 onClick :=MyClick;
end;自定义的MyClick函数：
Procedure Tform1.myClick(Sender:TObject);
begin
   //此句是显示被click的Timage的name
   Showmessage((Sender as Timage).Name);end;