Use HRESULT for delphi compatibility

packages/rtl/classes.pas

@@ -219,7 +219,7 @@ type
     function _AddRef: Integer;
     function _Release: Integer;
   public
-    function QueryInterface(const IID: TGUID; out Obj): integer; virtual;
+    function QueryInterface(const IID: TGUID; out Obj): HRESULT; virtual;
     procedure AfterConstruction; override;
   end;
 
@@ -599,7 +599,7 @@ type
     procedure BeforeDestruction; override;
     procedure DestroyComponents;
     procedure Destroying;
-    function QueryInterface(const IID: TGUID; out Obj): integer; virtual;
+    function QueryInterface(const IID: TGUID; out Obj): HRESULT; virtual;
     procedure WriteState(Writer: TWriter); virtual;
 //    function ExecuteAction(Action: TBasicAction): Boolean; virtual;
     function FindComponent(const AName: string): TComponent;

packages/rtl/types.pas

@@ -44,6 +44,8 @@ type
   TRect  = record
     Left, Top, Right, Bottom: Integer;
   end;
+  
+  HRESULT = Integer;
 
 function EqualRect(const r1,r2 : TRect) : Boolean;
 function Rect(Left, Top, Right, Bottom : Integer) : TRect;