* fixed compiler errors in generics

uutlGenerics.pas

@@ -572,6 +572,9 @@ type
 
   function utlFreeOrFinalize(var obj; const aTypeInfo: PTypeInfo; const aFreeObj: Boolean = true): Boolean;
 
+operator < (const i1, i2: TObject): Boolean; inline;
+operator > (const i1, i2: TObject): Boolean; inline;
+
 implementation
 
 uses
@@ -580,15 +583,15 @@ uses
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 //Helper////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
-operator < (const i1, i2: TObject): Boolean; inline;
+operator < (const i1, i2: TObject): Boolean;
 begin
-  result := PtrUInt(i1) < PtrUInt(i2);
+  result := Pointer(i1) < Pointer(i2);
 end;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
-operator > (const i1, i2: TObject): Boolean; inline;
+operator > (const i1, i2: TObject): Boolean;
 begin
-  result := PtrUInt(i1) > PtrUInt(i2);
+  result := Pointer(i1) > Pointer(i2);
 end;
 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////