* Move HRESULT to system unit

packages/rtl/system.pas

@@ -50,6 +50,7 @@ const
                                Base types
 *****************************************************************************}
 type
+  HRESULT = Integer; // For Delphi compatibility
   Int8 = ShortInt;
   UInt8 = Byte;
   Int16 = SmallInt;

packages/rtl/types.pas

@@ -47,8 +47,6 @@ type
     Left, Top, Right, Bottom: Integer;
   end;
   
-  HRESULT = Integer;
-
 function EqualRect(const r1,r2 : TRect) : Boolean;
 function Rect(Left, Top, Right, Bottom : Integer) : TRect;
 function Bounds(ALeft, ATop, AWidth, AHeight : Integer) : TRect;