Warum kompiliert Delphi diesen Codeabschnitt nicht???

[ustra]

Hallo,

vielleicht noch mal ein paar Sätze: Ich habe eine Klasse TSicherung mit verschiedenen Eigenschaften und Methoden (Bsp.: construktor, destruktor). Habe ich aber der Einfachheit hier nicht angegeben. Von dieser Klasse erzeuge ich weitere. TsicherungCad und TSicherungPHP sind weitere Klassen, die von TSicherung alle Methoden und Eigenaschften erben. Nun will ich bei den klassen TSicherungphp und TSicherungCad unterschiedlichen Code in der Prozedur kontrolle schreiben. Das will ich errreichen, in dem ich einfach die Prozedur bei den verschiedenen Klasen überschreibe. Ich habe in der Schule das auch mal so gemacht und da hat es funktioniert.

Beste Grüße und schönen Dank für die bisherige rege Beteiliung
Ulrich

PS: So sieht die Deklaration aus(diesmal nicht zensiert):

Delphi-Quellcode:

  type TSicherung = class(TObject)

     private
       LManuellDatum, LAutoDatumLetzte, LAutoDatumNaechste : TLabel;
       TAuto, TWarten : TTimer;
       App : TApplication;
       Sicherung : TKopieren;
       iInterval, iBereinigenInterval : integer;
       boNetz, boBereinigen : boolean;
       sPfadLokal, SPfadNetz, sTypart : string;
       procedure TAutoOnTimer(Sender : TObject);
       procedure SendStringToHandle(Wnd: Hwnd; const AText: string);
       procedure TWartenOnTimer (Sender : TObject);

     public
        constructor create (GStatus : TGauge; LDatei, LAutoLetzteDatum, LAutoNaechDatum, LManDatum : TLabel; Applicat : TApplication; Formular : TForm; Data : TDatabase; Query : TQuery; sTyp : string);
        destructor destroy;   
        procedure kontrolle;
        procedure sichern;
        procedure einstellungen_aktualisieren;
  end;

  type TsicherungCad = class(TSicherung)

     public
       procedure kontrolle;
  end;

 type TsicherungPHP = class(TSicherung)

     public
       procedure kontrolle;
  end;