type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
Image: TImage;
procedure MyClick(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Image := TImage.Create(Form1); //puede ser Self, nil
Image.Parent := Form1;
{.... lo que haga falta}
Image.OnClick := myClick;
end;
procedure TForm1.MyClick(Sender: TObject);
begin
ShowMessage('presionaste la imagen');
end;