Objekte aus generischem Typ erstellen

[Neutral General]

Hallo,

Wenns immer TKlasseA wäre/sein soll, dann wärs ja kein Problem
Geht ja darum, dass T ja auch jede von TKlasseA abgeleitete Klasse sein kann!

Seltsamerweise funktioniert folgendes:

Delphi-Quellcode:

procedure TKlasseB<T>.EineMethode;
var Typ: TKlasseAClass;
    tmp: T;
    X: TObject;
begin
  tmp := T.Create;
  try
    Typ := TKlasseAClass(tmp.ClassType);
  finally
    tmp.Free;
  end;

  X := Typ.Create(Self);
end;

Das ist jetzt aber keine wirklich schöne/saubere Lösung finde ich.
Also wenn jemand eine Lösung hat in der man kein temporäres Objekt erstellen/freigeben muss, dann
wäre mir das deutlich lieber!