* Adding Delphi (2010 or XE) equivalents to our ctypes unit. Mantis #21537

git-svn-id: trunk@20603 -

rtl/inc/systemh.inc

@@ -289,6 +289,15 @@ Type
   NativeInt  = PtrInt;
   NativeUint = PtrUint;
 
+  Int8    = ShortInt;
+  Int16   = SmallInt;
+  Int32   = Integer;
+  IntPtr  = PtrInt;
+  UInt8   = Byte;
+  UInt16  = Word;
+  UInt32  = Cardinal;
+  UIntPtr = PtrUInt;
+
 { Zero - terminated strings }
   PChar               = ^Char;
   PPChar              = ^PChar;