delphi7类型有关问题求解

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'
是缺少类型定义吗？我从网上也搜不到这个类型，高手指教。有的话帮忙发出来一个。
[解决办法]
引用单元如下：

uses TypInfo;