[dec]

Hola,

Entonces esto que he estado haciendo no tenía nada que ver...

Código Delphi [-]
 // Estamos en un formulario
 // de nombre frmPrincipal.
 //
 var
   frmPrincipal: TfrmPrincipal;
 
 // Una clase de componente.
 //
 type
   TUnaClase = class(TComponent)
   private
     FPropiedad: string;
   published
     property Propiedad: string read FPropiedad write FPropiedad;
   end;
 
 implementation
 
 {$R *.DFM}
 
 uses
   TypInfo;
 
 var
   FUnaClase: TUnaClase;
 
 procedure TfrmPrincipal.FormCreate(Sender: TObject);
 begin
   FUnaClase := TUnaClase.Create(Self);
   FUnaClase.FPropiedad := 'Probando.';
 end;
 
 procedure TfrmPrincipal.FormClose(Sender: TObject;
   var Action: TCloseAction);
 begin
   FUnaClase.Free;
 end;
 
 function PropiedadString(const nombrePropiedad: string;
   const componente: TComponent) : string;
 var
   propInfo: PPropInfo;
 begin
   Result := '';
   propInfo := GetPropInfo(componente.ClassInfo, nombrePropiedad);
   if Assigned(propInfo) then
     Result := GetStrProp(componente, propInfo);
 end;
 
 procedure TfrmPrincipal.Button1Click(Sender: TObject);
 begin
   // Obtenemos el valor de una propiedad
   // de un componente mediante una cadena.
   ShowMessage(PropiedadString('Propiedad', FUnaClase));
 end;
 
 end.