如何对创建的组件进行点击事件的编程(100)

请教：我动态创建了一系列图片，这些图片的点击事件如何写，for i:=0 to 65 do begin timage.Create(self).Name:=ss+inttostr(i); with timage(findcomponent(ss+inttostr(i))) do begin left:=((i+11) mod 11)*40+20; top:=(trunc((i+11)/11)-1)*50+20; parent:=panel2; picture.loadfromfile(extractfilepath(paramstr(0))+'data/newface/'+inttostr(i+1)+'.bmp'); onclick:=myiamgeclick; end;//timage end;//for iprocedure tfrmface.myiamgeclick(sender:tobject);begin//////////////////////////内容如何写，比如想在edit1上显示所点击图片的文件名。///////////////////////////end;//

如何定义一个显示该按钮的事件？这主要需要用到Sender对象，还需要进行类型转换，如下：procedure TForm1.btnClick(Sender: TObject);beginShowMessage(TButton(Sender).Caption);end;

我知道了，edit1.text:=timage(sender).name;

这样硕简单的问题也要自问自答，大富翁真是没人了么？

是得 非常简单，不过自己会了就可以了。

最近邮件系统好像坏了，所有邮件都收不到，账号也不能确认