Obtener la clase de objetos

[Feñiz]

Pues sí, funciona.

Ahora he sustituido todo el código anterior por esto:

var p: Pointer; Texto: String;

Texto:='Texto de caption';
p := GetPropInfo(Componente.ClassInfo, 'Caption');
if (p<>nil) then SetOrdProp(Componente , p, Integer(Pointer(Texto)));

Y funciona perfectamente. En este trozo que pongo como ejemplo, no se aprecia, pero el ahorro en código que conseguiré gracias a ello es muy importante.