Laufzeit: Erzeugung von Komponenten

[Gerkey]

Habe aus dem Handbuch Borland Delphi 7 (Doberenz und Gewinnus) nachstehenden Beispiel-Code von Seite 314 übernommen (nur geringfügig modifiziert) :

Delphi-Quellcode:

var
  M: TM;
  edField : Tedit;

implementation      {$R *.dfm}

procedure TM.Button1Click(Sender: TObject);
begin
  if TEdit(FindComponent('eSpNr')) = nil then
    begin
      edField := TEdit.Create(self);
      edField.Parent := Self;
      edField.Name := 'eSpNr';
      edField.SetBounds(50,100,50,25);
      edField.OnClick := EditClick;
    end;
end;

Bei der Ausführung erscheint die Fehlermeldung: undeklarierter Bezeichner “EditClick”.
Ohne das Statement EdField.OnClick klappt’s.

Was mache ich falsch ?

Gerkey