"class of"-Methaobjekt ruft falschen Konstruktor auf?

[Patrick]

Moin, ich habe folgendes Problem (etwas vereinfacht dargestellt):

Delphi-Quellcode:

type
   TStrasse = class(TObject)
   private
      Rand : string;
   public
      constructor Create;
   end;
   
   TBundesstrasse = class(TStrasse)
   public
      constructor Create;
   end;
   
   TStrasseClass = class of TStrasse;
   
...

constructor TStrasse.Create;
begin
  Rand := 'Bordstein';
end;

constructor TBundesstrasse.Create;
begin
  inherited Create;
  Rand := 'Graben';
end;   
   
...   
   
var
   StrasseClass : TStrasseClass;
   Strasse : TStrasse;   
begin
   StrasseClass := TBundesstrasse;
   Strasse := StrasseClass.Create;
   
//   Strasse.Rand = Bordstein!?
end;

Warum wird der Constructor von TBundesstrasse nicht aufgerufen?