Процедура как параметр

[VirtUX]

А что хранится в Sender? При попытке обратиться к нему во время выполнения возникает ошибка.

[Mr.Smart]

В Sender хранится тот объект который вызывает событие.

Добавлено спустя 2 минуты 47 секунд:

Код: Выделить всё

procedure Test(Self, Sender: TObject);
begin
  ShowMessage(TButton(Sender).Caption);
end;

...
var
  m: TMethod;
begin
  m.Code:=@Test;
  m.Data:=Self;
  Button1.OnClick:=TNotifyEvent(m);
end;

[VirtUX]

Mr.Smart спасибо за подробное разъяснение.