Object Property Values zur Laufzeit erzeugen

[bogdan]

Alle Komponenten werden zur Laufzeit erzeugt. Mit SetPropValue(AComponent, APropName, APropValue) setze ich die Eigenschaften der Komponenten.

Mit SetObjectProp(aObject, APropSub, AValue) setze ich dann die Eigenschaft eines TFont Objektes.
Das Value wird mit der folgenden Funktion zusammen gesetzt:

Delphi-Quellcode:

function SetProperty_Font:TObject;
var A : TFont;
begin
  A := TFont.Create;
  A.Color := clBlue;
  A.Name := 'Tahoma';
  A.Size := 12;
  Result := A;
end;

Diese Funktion würde ich gerne aber zur Laufzeit erzeugen wollen, da es ja noch andere Objekte mit Eigenschaften gibt.
Mein Ansatz wäre wie folgt:

Delphi-Quellcode:

function SetPropertyObject(APropName, APropSub, AValue: String): TObject;
var aClass : TPersistentClass;
    aObject : TObject;
    count, i : Integer;
    List: TPropList;
begin
  aClass := FindClass('T' + APropName);
  if aClass.InheritsFrom(TObject) then aObject := aClass.Create;
  count := GetPropList(PTypeInfo(aObject.ClassInfo), tkAny, @List);
  for i := 0 to count - 1 do
    if List[i]^.Name = APropSub then
      SetObjectProp(aObject, APropSub, ???);
       // und hier hört's bei mir auf 
end;

Vielleicht hat jemand einen Tip?