Klasse die im Create eine Unterklasse erstellt

[inherited]

Am Besten erzeugst du eine Variable nach dem Motto

Delphi-Quellcode:

var
  MySub: TBase;

Und entweder erzeugst du sie je nachdem was du brauchst:
  MySub:=TSub1.Create; Oder du erzeugst sie als TBase und castest sie dynamisch

Delphi-Quellcode:

  MySub:=TBase.Create;
  (MySub as TSub1).EigenschaftVonSub1:=42;

Da du aber nicht sagst was genau du machen möchtest können wir dir auch nicht sagen was die beste Lösung ist