uses 
    TypInfo;  //引用TypInfo
....
.....
.....    function HasProperty(AObject:TObject; const APropName:string):boolean;
begin
   Result := GetPropInfo(AObject.ClassInfo, APropName) <> nil;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  if HasProperty(Button1, 'Caption') then
      ShowMessage('Yes')
    else
      ShowMessage('No');
end;