OnClick-Ereignis ohne Prozedur

[CalganX]

Geht leider nicht, wird wohl doch eine eigene Prozedur werden.
Frage dann ist: Kann man in Delphi (in TP ging's, wie gesagt) eine Prozedur in eine andere schachteln? So ein etwa:

Delphi-Quellcode:

procedure TForm1.MyProc(Sender: TObject);
var 
  bButton1: TButton;
begin
  procedure b1Click(Sender: TObject);
  begin
    ShowMessage('Button1 geklickt!');
  end;

  bButton1 := { ... };
  { ... alles weitere ... }
  bButton1.OnClick := b1Click(bButton1);
end;

Geht das und was müsste man an diesem Source anders machen?

Chris