Button dynamisch erstellen / On... Events WIE ?

[thomasschaf]

Hallo,

ich möchte einem Button, den ich dynamisch erstellt habe, ein On... (z.B. OnClick) - Ereignis zuweisen.

Ich beginne so:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TButton;
begin
  a      := TButton.Create(self);
  a.Parent := Form1;
  a.Visible := True;
  a.Top  := 0;
  a.Left := 0;
  a.Width := 22;
  a.Height := 44;
  a.Caption := 'lala';

end;

Das klappt auch ganz toll!

Aber wie kann ich jetzt OnClick-zuweisen ?

Irgendwas mit "a.OnClick:=" aber ich habe keine Ahnung was ich da reinschreiben soll.
Der Typ ist TNOTIFYEVENT ?

Vielen Danke