Button zur Laufzeit erzeugen

[Mooshead]

Hallo ich hab das Problem, dass ich einen Button zur Laufzeit erzeugt habe und ich wollte diesem Button nun eine Procedure beim Ereignis OnClick zuweisen.

Das Programm könnte wie folgt aussehen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TButton.Create(Self).Name :='Button1';
  with TButton(FindComponent('Button1')) do
  begin
    Left := 10;
    Top :=  20;
    Parent := self;
    //Anweisung um beim Ereignis OnClick die Procedure 'test' auszuführen
  end;
end;


procedure test;
begin
//Anweisungen
end;

Die Procedure test wurde natürlich im Voraus deklariert.

Danke für eure Antworten