delphi7函数求解,该如何解决

delphi7函数求解
var  
LocFontSize:Integer;
LocFont:TFont;
LocCmp:TComponent;

If PropertyExists(LocCmp,'FONT') Then
Begin
  LocFont:=TFont(GetObjectProperty(LocCmp,'FONT'));
  LocFontSize := Round(LocFontRate*LocFont.Size);
  LocFont.Size:=LocFontSize;
End;

undeclared identifier :'GetObjectProperty'
求教：函数GetObjectProperty的内容该怎么写？是系统自带的吗？如何取LocCmp的font属性



[解决办法]
楼主用的 Delphi 版本是?
[解决办法]
这个函数不是系统的，具体你可以看看这个
http://www.664876.com/article/Delphi/55.html
[解决办法]
function GetObjectProperty(
     const AObject   : TObject;
     const APropName : string
     ):TObject;
 var
   PropInfo:PPropInfo;
 begin
   Result  :=  nil;
   PropInfo:=GetPropInfo(AObject.ClassInfo,APropName);
   if Assigned(PropInfo) and
       (PropInfo^.PropType^.Kind = tkClass) then
     Result  :=  GetObjectProp(AObject,PropInfo);
 end;