uses
TypInfo;
procedure TForm1.Button1Click(Sender: TObject);
begin
if TypInfo.IsPublishedProp(Label1, 'Caption') then
ShowMessage('Label1 cuenta con una propiedad Caption')
else
ShowMessage('Label1 NO cuenta con una propiedad Caption');
if TypInfo.IsPublishedProp(TLabel, 'Caption') then
ShowMessage('TLabel cuenta con una propiedad Caption')
else
ShowMessage('TLabel NO cuenta con una propiedad Caption');
end;