OnClick Prozedur für einen noch nicht vorhandenen Button

[oki]

Hi,

Deklaration:
  procedure AlleNeuenButtonClick(Sender : TObject); Zuweisung:

Delphi-Quellcode:

//Funktion zuweisen
MyButton.OnClick := AlleNeuenButtonClick;  [i][Edit] Schreibfehler Cklick korrigiert [/Edit oki][/i]

Procedure:

Delphi-Quellcode:

procedure MyForm.AlleNeuenButtonClick(Sender : TObject);
begin
  MyRichEdit.SelectAll;
end;

Gruß oki