Vielen Dank für die Hinweise. Tatsächlich ist die ganze Geschichte recht einfach. In der
Unit TypInfo gibt es unter anderem zwei Funktionen, die genau das tun, was ich brauche:
Code:
uses TypInfo;
function GetPropValue(Instance: TObject; const PropName: string;
PreferStrings: Boolean = True): Variant;
procedure SetPropValue(Instance: TObject; const PropName: string;
const Value: Variant);
GetPropValue liest eine Property aus und SetPropValue setzt eine Property auf einen bestimmten Wert, z.B.:
SetPropValue(Button1, "Caption", "Suchen");
Per Funktion GetPropInfos() kann man auch alle Properties eines TObjects in eine Liste auslesen und durchlaufen.
Grüße
Bulvaye