Im Konstruktor virtuelle Methode aufrufen?

[DGL-luke]

Hallo,

funktioniert der folgende Quelltext?

Delphi-Quellcode:

initialization

type
  TAbstrakt = class
  public
    constructor Create;
    procedure VirtualInit; virtual; abstract;
  end;

  TKonkret = class
  public
    procedure VirtualInit; override;
  end;

implementation

constructor TAbstrakt.Create;
begin
  DoSomethingUseful;
  VirtualInit;
end;

procedure TKonkret.VirtualInit;
begin
  DoSomethingEleAsUseful;
end;

Dass TAbstrakt.Create mit einem abstrakten Error fehlschlägt, ist klar; wie sieht es mit TKonkret.Crete aus? Ich werd das jetzt natürlich ausprobieren, aber meine Klassen sind schon ziemlich dick, deswegen ist das Debuggen nicht mehr so leicht, wenn plötzlich aus heiterem Himmel irgendwo ein Abstrakter Error auftaucht...