From 2248f6abe2db0fb0c19cda09a91d48deed483935 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 14 Aug 2020 10:21:22 +0000
Subject: [PATCH] * Move HRESULT to system unit

---
 packages/rtl/system.pas | 1 +
 packages/rtl/types.pas  | 2 --
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/packages/rtl/system.pas b/packages/rtl/system.pas
index f8376af..1c655c9 100644
--- a/packages/rtl/system.pas
+++ b/packages/rtl/system.pas
@@ -50,6 +50,7 @@ const
                                Base types
 *****************************************************************************}
 type
+  HRESULT = Integer; // For Delphi compatibility
   Int8 = ShortInt;
   UInt8 = Byte;
   Int16 = SmallInt;
diff --git a/packages/rtl/types.pas b/packages/rtl/types.pas
index 61f66df..f99aee5 100644
--- a/packages/rtl/types.pas
+++ b/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;