Danke DeddyH, ich denke das Dein letzter Post genau mein Ding ist um voran zu kommen!
Delphi-Quellcode:
function CompSetCaption(AClass : TObject; const Caption: string): Boolean;
const sProp = 'Caption';
var
MyPropInfo: PPropInfo;
begin
MyPropInfo := GetPropInfo(AClass.ClassInfo, sProp);
Result := Assigned(MyPropInfo);
if Result then
SetPropValue(AClass, sProp, Caption);
end;
LG Kode