OnClick Prozedur für einen noch nicht vorhandenen Button

[XPLOSIV]

Ich habs wie oki gemacht:

Delphi-Quellcode:

  //Funktion zuweisen
  MyButton.OnClick := AlleNeuenButtonClick;

    procedure AlleNeuenButtonClick(Sender : TObject);

Delphi-Quellcode:

procedure TForm1.AlleNeuenButtonClick(Sender : TObject);
var
MyRichEdit: TSynEdit;
begin
  MyRichEdit.SelectAll;
end;

PS. oki du hast CKlick geschrieben ^^