Casteo en tiempo de ejecución

[Neftali [Germán.Estévez]]

Decartado el tema de herencia, sólo queda RTTI.
Si buscas la unit TypInfo verás que tiene los métodos:

function GetStrProp(Instance: TObject; const PropName: string): string; overload;
procedure SetStrProp(Instance: TObject; const PropName: string;
const Value: string); overload;

Para consultar y asignar valor a una propiedad de tipo String (que sea published).

Revisa éste artículo:
http://www.elists.org/pipermail/delp...ry/002721.html
Se titula: Using RTTI to obtain TString property
Y creo que es lo que necesitas...