Abstrakter Fehler

[steppo]

Hallo Leute,

ich rufe aus meinem Programm ein neues Formular auf. Im Formshow erzeuge ich einige Komponenten, unter anderem zwei Buttons. Beide Buttons haben das Ereignis OnClick. Solange ich nur einem Button ein Ereignis zuweise funktioniert alles hervorragend. Sobald ich das zweite Erreignis angebe bekomme ich den Fehler "Abstrakter Fehler".

Delphi-Quellcode:

for i := 1 to 2 do
  begin
    dynButton := TButton.Create(self);
    with dynButton do
    begin
      parent := self;
      Name := 'dynButton' + inttostr(i);
      if i = 1 then
      begin
        caption := '&Abbrechen';
        OnClick := Abbrechen;
      end
      else
      begin
        Caption := 'Datensatz &einfügen';
        OnClick := Datensatz_einfuegen;
      end;
      Width := 105;
      Height := 25;
      left := posButton - ((i - 1) * 105) - ((i - 1) * 10);
      top := (pntPosition.Y + 1) * 50;
    end;
  end;

In der Abbrechen Methode wird lediglich ein boolscher Wert geändert und "Close" aufgerufen.
In der Datensatz_einfuegen Methode wird ebenfalls ein boolscher Wert gesetz und "Close" aufgerufen.

In FormClose werden dann alle Komponenten, auch die Buttons mittels free wieder freigegeben.

Wie gesagt, solange ich nur das Abbrechen Ereignis implementiere funktioniert es.
Kann mir jemand sagen warum das so ist, und wie ich das Problem behebe.

Gruß Steppo