Здравствуйте, Alex.Che, Вы писали:

AC>Но, не имея "живого" объекта (пусть трижды ненужного),
AC>невозможно корректно воспользоваться сим кодом.

Почему невозможно? Ты, видимо, забыл.
В свое время Vladimir Titov показывал массу подобных примеров.

procedure MyFormRegularProc(Self, Sender: TObject);
begin
  ShowMessage(Self.ClassName + ' ' + Sender.ClassName);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  method: TMethod; // локальная, уточнено by Softwarer
begin
  method.Code := @MyFormRegularProc;
  method.Data := Self;
  Button1.OnClick := TNotifyEvent(method);
end;