Hab kein Delphi, aber dafür brauchst Du dann doch wieder eine Basisklasse:
Delphi-Quellcode:
TBasisKlasse = Class
public constructor Create; Virtual;
End;
TA = Class (TBasisKlasse) end;
TBasis = class of TBasisKlasse;
Constructor TBasisKlasse.Create; begin end;
Var
a,b : TBasisKlasse;
begin
a := TA.Create;
b := TBasis(a.ClassType).Create;
end;
getippt und nicht getestet.