***************
*** 198,201 ****
--- 196,203 ----
  Procedure GetPropInfos(TypeInfo : PTypeInfo;PropList : PPropList);
  Function  GetPropList(TypeInfo : PTypeInfo;TypeKinds : TTypeKinds; PropList : PPropList;Sorted : boolean = true):longint;
  Function GetPropList(TypeInfo: PTypeInfo; out PropList: PPropList): SizeInt;
+ function GetPropList(AObject: TObject; out PropList: PPropList): Integer;
+ 
  
  
  // Property information routines.
***************
*** 694,697 ****
--- 695,704 ----
        end;
    end;
  
+ function GetPropList(AObject: TObject; out PropList: PPropList): Integer;
+ begin
+   Result := GetPropList(PTypeInfo(AObject.ClassInfo), PropList);
+ end;
  
  
  { ---------------------------------------------------------------------
