5 tahun lalu · f75a471eeb
--- a/packages/rtl/system.pas
+++ b/packages/rtl/system.pas
@@ -50,7 +50,7 @@ const
 
				                                Base types
			
 
				 *****************************************************************************}
			
 
				 type
			
 
				-  HRESULT = Integer; // For Delphi compatibility
			
 
				+  HRESULT = Longint; // For Delphi compatibility
			
 
				   Int8 = ShortInt;
			
 
				   UInt8 = Byte;
			
 
				   Int16 = SmallInt;