function OnButton1Click(Instance, Sender: TObject);
begin
showMessage(Instance.ClassName);
showMessage(Sender.ClassName);
end;
var event: TNotifyEvent;
TMethod(event).Data := Button1;
TMethod(event).Code := @OnButton1Click;
Button1.OnClick := event;
begin
showMessage(Instance.ClassName);
showMessage(Sender.ClassName);
end;
var event: TNotifyEvent;
TMethod(event).Data := Button1;
TMethod(event).Code := @OnButton1Click;
Button1.OnClick := event;