delphi7类型问题求解

function PropertyExists(const AObject: TObject;const APropName:String):Boolean;
//判断一个属性是否存在
var
   PropInfo:PPropInfo;
begin
   PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);
   Result:=Assigned(PropInfo);
end;
报错：Undeclared identifier:'PProInfo'
是缺少类型定义吗？我从网上也搜不到这个类型，高手指教。有的话帮忙发出来一个。