TYPE

TControl = class(TComponent)

private

FOnClick: TNotifyEvent; { sem se uloží pointer na metodu }

...

protected

property OnClick: TNotifyEvent read FOnClick write FOnClick;

end;