先写事件如:
 procedure ImageClick(Sender : TObject);
  begin
   showmessage('Image is Clicked');
  end;动态创建TImage;
var
  Img : TImage;
begin
  Img := TImage.Create(self);
  ... 
  Img.OnClick=ImageClick;
end;