Bei Komponenten einen Untereintrag (Font -> Size) ändern

[litotes]

Hallo,

erstmal vielen, vielen Dank an Flocke für den fertigen Code!

Leider compiliert er nicht, und zwar folgenden Teil:

Delphi-Quellcode:

procedure SetNestedProp(Obj: TObject; Prop: string; Value: Variant); 
var 
  p: Integer; 
  i: PPropInfo; 
begin 
  repeat 
    p := Pos('.', Prop); 
    if p = 0 then 
    begin 
      i := GetPropInfo(Obj, Prop); 
      if i <> nil then 
        SetPropValue(Obj, i, Value); 
      Obj := nil; 
    end 
    else 
    begin 
      // GetObjectProp liefert nil, falls die 
      // Eigenschaft nicht gefunden wird. 
      Obj := GetObjectProp(Obj, Copy(Prop, 1, p - 1)); 
      Delete(Prop, 1, p); 
    end; 
  until Obj = nil; 
end;

Und zwar beschwert er sich über die Zeile:
SetPropValue(Obj, i, Value); Fehlermeldung: Inkompatible Typen: String und PPropInfo.

Da ich den Code leider nicht so gut verstehe, um darin
erfolgreich herumzuwerkeln (bin noch Anfänger), die Fragen:

Was kann ich da tun? Muss ich da einen Typecast machen, und wenn ja, wie?
Kompiliert er bei euch? Bei Flocke?

Vielen Dank,

litotes