Saber si existe propiedad en un componente

[genius]

Hola amigos del Club.. Espero me ayuden .Alguien sabe la forma de saber si un componente "X" tiene "X" propiedad . por ejemplo

El sgte codigo Screen.ActiveForm.Components[i]
es un recorrido como veran, no hay ningun secreto, pero a la vez necesito saber si la misma posee por decir la propiedad "Text" porque poseo varios controles diferentes en mi formulario .para que yo pueda determinar los valores correspondientes a pasarlo..

Desde ya muchas gracias.

[dec]

Hola,

Código Delphi [-]
uses
  TypInfo;

procedure TForm1.Button1Click(Sender: TObject);
begin

  // Utilizando instancias de un objeto
  if TypInfo.IsPublishedProp(Label1, 'Caption') then
    ShowMessage('Label1 cuenta con una propiedad Caption')
  else
    ShowMessage('Label1 NO cuenta con una propiedad Caption');

  // Utilizando el tipo de una determinada clase
  if TypInfo.IsPublishedProp(TLabel, 'Caption') then
    ShowMessage('TLabel cuenta con una propiedad Caption')
  else
    ShowMessage('TLabel NO cuenta con una propiedad Caption');

end;

[genius]

Problema resuelto.. !!
Gracias.. David..

En mi caso seria asi . y lo comparto _ CMCtrlAsociado contiene el name de x control
if TypInfo.IsPublishedProp(Screen.ActiveForm.FindComponent(TEditPers(Screen.ActiveForm.Components[i]).CMCtrlAsociado), 'Text') then Screen.ActiveForm.FindComponent(TEditPers(Screen.ActiveForm.Components[i]).Text := 'XXXX valor'

else //bla bla
if TypInfo.IsPublishedProp(Screen.ActiveForm.FindComponent(TEditPers(Screen.ActiveForm.Components[i]).CMCtrlAsociado), 'Caption') then Screen.ActiveForm.FindComponent(TEditPers(Screen.ActiveForm.Components[i]).Caption := 'XXXX valor'