Create wird nicht aufgerufen bei Klassen-Chaos

[Khabarakh]

Du hast mich so verunsichert, dass ich es selbst ausprobiert habe ^^ .

Delphi-Quellcode:

type
  TBase = class
  public
    constructor Create; virtual; abstract;
  end;

  TDescendant = class(TBase)
  public
    constructor Create; override;
  end;

  TBaseClass = class of TBase;
  
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  c: TBaseClass;
begin
  c := TDescendant;
  c.Create;
end;

Funktioniert wie erwartet .