Das übernehme ich gerne so wie Du es geschrieben hast.
Vielen Dank Uwe!
//edit
Noch eine Frage, wäre
Delphi-Quellcode:
if (Prop.Name = sPropFont) and Prop.PropertyType.IsInstance and Prop.PropertyType.AsInstance.MetaclassType.InheritsFrom(TFont) then
TFont(prop.GetValue(AObject).AsObject).Color := FColorText;
nicht sinnvoller um gleich am Anfang unnützes auszuschließen?