OnClick Prozedur für einen noch nicht vorhandenen Button

[XPLOSIV]

Also, der User kann per Knopfdruck einen TabSheet mit einem Button und einer SnyEdit erstellen, falls er dann den Button anklickt, soll der Inhalt von SynEdit Markiert werden. Ich habe es mal so geamcht um ihn die OnClick Prozedur zu zuweisen.

Delphi-Quellcode:

//Button für das TabSheet erstellen
  MyButton:= TButton.Create(ts);//Button wird erstellt
  MyButton.Parent:= ts; //damit wird dem Button das TabSheet als übergeordnete Komponente zugewiesen
  MyButton.Name:= 'Button'+IntToStr(PageControl1.PageCount);//Name wird zugewiesen
  MyButton.Caption:= 'Skript kopieren';//Er wird umbenannt
  //Funktion zuweisen
   MyButton.OnClick := MyRichEdit.SelectAll;

Doch da kommt immer Liste der Parameter ist unterschiedlich...

Wie lautet es richtig ?


MfG XPLOSIV