Komponene zur Laufzeit + Ereignis

[LoL]

hallo zusammen

eine Komponente zur Laufzeit zu erstellen ist kein Problem aber ich möchte wenn ich zb. einen Button Erzeuge ein Ereignis auf OnClick legen das ist im Prinzip auch kein Problem aber da es bei mir eine Zeile ist finde ich es dumm extra eine procedure zu schreiben nur für einen Befehl! Geht es nicht irgendwie so in der Art:

Delphi-Quellcode:

  Mein_Knopf := TButton.Create(Form1);
  With Mein_Knopf do
    begin
      Parent := Form1;
      OnClick := Form1.Close
    end;

Danke schon mal im Vorraus