Es una sencilla función que devuelve True o False segun si un componente (TObject) tiene una propiedad published o no.
Utiliza
RTTI así que hay que hay que añadir al USES la unit
TypInfo.
Código Delphi
[-]
function ExistProp(Instance: TObject; const PropName: string):Boolean;
var
PropInfo: PPropInfo;
begin
PropInfo := GetPropInfo(Instance, PropName);
Result := not (PropInfo = nil);
end;
Para probarla podéis añadir un código similar a este:
Código Delphi
[-]
if ExistProp(Memo1, 'Lines') then begin
...