Objekt anhand der Klassenbezeichnung erzeugen

[SWE]

Gibt es die Möglichkeit ein Objekt anhand der Klassenbezeichnung zu erzeugen?
Beispiel:
Ich habe die Klassentypen TMeinObjekt1 und TMeinObjekt2.
Jetzt bräuchte ich eine Funktion die einen String entgegennimmt z.B. 'TMeinObjekt1' und eine Objektinstanz vom entsprechenden Typ zurückliefert.
Aber bitte nicht so:

Delphi-Quellcode:

   if str = 'TMeinObjekt1' then 
        Result := TMeinObjekt1.Create();

Da gibt es doch bestimmt eine intelligente Lösung die für alle Objekttypen gilt, oder?
Fragt mich bitte nicht, wofür ich es brauch. Ich weiß es selbst noch nicht, sondern will es erst mal nur so wissen.

Danke schon mal.