WebSVN – spacemission – Diff – /VCL_DELPHIX_D6/DirectX.pas

 (*==========================================================================;
+ *
  *  Copyright (C) 1994-1999 Microsoft Corporation.  All Rights Reserved.
+ *
  *  DirectX header version 98.11.20
+ *
  *  Present by Hiroyuki Hori.
+ *
  *  E-Mail: hori@ingjapan.ne.jp
  *  Homepage: http://www.ingjapan.ne.jp/hori/index.html
  *  Homepage: http://www.ingjapan.ne.jp/hori/index-e.html
+ *
  *  Present unit:
  *    DirectX.pas    DirectX 7 (DirectX 7 SDK)
  *    DShow.pas      DirectShow (DirectX Media SDK 5.1)
  *    DAnim.pas      DirectAnimation (DirectX Media SDK 5.1)
+ *
  *--------------------------------------------------------------------------
+ *
  *    DirectMusic header version 1.0
+ *
  *    Present by Kazuya Yamane
+ *
  *    e-mail : kazuya-y@infosakyu.ne.jp
  *    URL    : http://www.infosakyu.ne.jp/~kazuya-y/index.html
+ *
  ***************************************************************************)
+{
+(c)2004 Jaro Benes Recompilation with Erik Unger's headers
-unit DirectX;
+Join in order:
-interface
+) DirectDraw
-{$Z4}
-{$A+}
-{$WEAKPACKAGEUNIT}
-{$IFNDEF DirectX3}
+) Direct3D
-{$IFNDEF DirectX5}
+) Direct3DRM
-{$IFNDEF DirectX6}
+) DirectInput
-{$IFNDEF DirectX7}
+) DirectPlay
-  {$DEFINE DirectX7}
+) DirectSetup
-{$ENDIF}
-{$ENDIF}
-{$ENDIF}
+) DirectSound
-{$ENDIF}
+) DirectMusic
+}
-{$IFDEF DirectX3}
+Unit DirectX;
-  {$UNDEF DirectX5}
-  {$UNDEF DirectX6}
-  {$UNDEF DirectX7}
-  {$DEFINE SupportDirectX3}
-{$ENDIF}
-{$IFDEF DirectX5}
-  {$UNDEF DirectX3}
-  {$UNDEF DirectX6}
-  {$UNDEF DirectX7}
-  {$DEFINE SupportDirectX3}
-  {$DEFINE SupportDirectX5}
-{$ENDIF}
+Interface
-{$IFDEF DirectX6}
-  {$UNDEF DirectX3}
-  {$UNDEF DirectX5}
-  {$UNDEF DirectX7}
-  {$DEFINE SupportDirectX3}
-  {$DEFINE SupportDirectX5}
-  {$DEFINE SupportDirectX6}
+{Delphi version marks}
-{$ENDIF}
-{$IFDEF DirectX7}
+{$I DelphiXcfg.inc}
-  {$UNDEF DirectX3}
-  {$UNDEF DirectX5}
-  {$UNDEF DirectX6}
-  {$DEFINE SupportDirectX3}
-  {$DEFINE SupportDirectX5}
-  {$DEFINE SupportDirectX6}
-  {$DEFINE SupportDirectX7}
-{$ENDIF}
-uses Windows, MMSystem, ActiveX;
-const
-{$IFDEF DirectX3}
+{$MINENUMSIZE 4}
-  DirectXUnitVersion = 3;
-{$ENDIF}{$IFDEF DirectX5}
-  DirectXUnitVersion = 5;
-{$ENDIF}{$IFDEF DirectX6}
-  DirectXUnitVersion = 6;
-{$ENDIF}{$IFDEF DirectX7}
-  DirectXUnitVersion = 7;
-{$ENDIF}
+{$ALIGN ON}
+uses
+  Windows, MMSystem;
+//DirectDraw file
 (*==========================================================================;
+ *
- *  Copyright (C) Microsoft Corporation.  All Rights Reserved.
+ *  Copyright (C) 1994-1997 Microsoft Corporation.  All Rights Reserved.
+ *
+ *  Files:      ddraw.h dvp.h
+ *  Content:    DirectDraw and DirectDrawVideoPort include files
+ *
+ *  DirectX 7.0 Delphi adaptation by Erik Unger
+ *
+ *  Modified: 10-Sep-2000
+ *
+ *  Download: http://www.delphi-jedi.org/DelphiGraphics/
+ *  E-Mail: DelphiDirectX@next-reality.com
+ *
- *  File:       ddraw.h
- *  Content:    DirectDraw include file
+ *
  ***************************************************************************)
+var
-{ FOURCC codes for DX compressed-texture pixel formats }
+  DDrawDLL : HMODULE = 0;
-const
-  FOURCC_DXT1 = Ord('D') + Ord('X') shl 8 + Ord('T') shl 16 + Ord('1') shl 24;
+function DDErrorString(Value: HResult) : string;
-  FOURCC_DXT2 = Ord('D') + Ord('X') shl 8 + Ord('T') shl 16 + Ord('2') shl 24;
+function MAKEFOURCC(ch0, ch1, ch2, ch3: Char) : DWORD;
-  FOURCC_DXT3 = Ord('D') + Ord('X') shl 8 + Ord('T') shl 16 + Ord('3') shl 24;
-  FOURCC_DXT4 = Ord('D') + Ord('X') shl 8 + Ord('T') shl 16 + Ord('4') shl 24;
-  FOURCC_DXT5 = Ord('D') + Ord('X') shl 8 + Ord('T') shl 16 + Ord('5') shl 24;
+(*
-{ GUIDS used by DirectDraw objects }
+ * FOURCC codes for DX compressed-texture pixel formats
+ *)
+const
+  FOURCC_DXT1 = 'DXT1';
+  FOURCC_DXT2 = 'DXT2';
+  FOURCC_DXT3 = 'DXT3';
+  FOURCC_DXT4 = 'DXT4';
+  FOURCC_DXT5 = 'DXT5';
+(*
+ * GUIDS used by DirectDraw objects
+ *)
 const
   CLSID_DirectDraw: TGUID = '{D7B70EE0-4340-11CF-B063-0020AFC2CD35}';
-  CLSID_DirectDraw7: TGUID = '{3C305196-50DB-11D3-9CFE-00C04FD930C5}';
+  CLSID_DirectDraw7: TGUID = '{3c305196-50db-11d3-9cfe-00c04fd930c5}';
-  CLSID_DirectDrawClipper: TGUID = '{593817A0-7DB3-11CF-A2DE-00AA00B93356}';
+  CLSID_DirectDrawClipper: TGUID = '{593817A0-7DB3-11CF-A2DE-00AA00b93356}';
-  IID_IDirectDraw: TGUID = '{6C14DB80-A733-11CE-A521-0020AF0BE560}';
-  IID_IDirectDraw2: TGUID = '{B3A6F3E0-2B43-11CF-A2DE-00AA00B93356}';
-  IID_IDirectDraw4: TGUID = '{9C59509A-39BD-11D1-8C4A-00C04FD930C5}';
-  IID_IDirectDraw7: TGUID = '{15E65EC0-3B9C-11D2-B92F-00609797EA5B}';
-  IID_IDirectDrawSurface: TGUID = '{6C14DB81-A733-11CE-A521-0020AF0BE560}';
-  IID_IDirectDrawSurface2: TGUID = '{57805885-6EEC-11CF-9441-A82303C10E27}';
-  IID_IDirectDrawSurface3: TGUID = '{DA044E00-69B2-11D0-A1D5-00AA00B8DFBB}';
-  IID_IDirectDrawSurface4: TGUID = '{0B2B8630-AD35-11D0-8EA6-00609797EA5B}';
-  IID_IDirectDrawSurface7: TGUID = '{06675A80-3B9B-11D2-B92F-00609797EA5B}';
-  IID_IDirectDrawPalette: TGUID = '{6C14DB84-A733-11CE-A521-0020AF0BE560}';
-  IID_IDirectDrawClipper: TGUID = '{6C14DB85-A733-11CE-A521-0020AF0BE560}';
-  IID_IDirectDrawColorControl: TGUID = '{4B9F0EE0-0D7E-11D0-9B06-00A0C903A3B8}';
-  IID_IDirectDrawGammaControl: TGUID = '{69C11C3E-B46B-11D1-AD7A-00C04FC29B4E}';
 const
-  DD_ROP_SPACE = 256 div 32;       // space required to store ROP array
+  DD_ROP_SPACE = (256 div 32);       // space required to store ROP array
   MAX_DDDEVICEID_STRING = 512;
+(*
+ * Flags for the IDirectDraw4::GetDeviceIdentifier method
+ *)
+(*
+ * This flag causes GetDeviceIdentifier to return information about the host (typically 2D) adapter in a system equipped
+ * with a stacked secondary 3D adapter. Such an adapter appears to the application as if it were part of the
+ * host adapter, but is typically physcially located on a separate card. The stacked secondary's information is
+ * returned when GetDeviceIdentifier's dwFlags field is zero, since this most accurately reflects the qualities
+ * of the DirectDraw object involved.
+ *)
+  DDGDI_GETHOSTIDENTIFIER         = $00000001;
+(*============================================================================
+ *
-{ DirectDraw Structures }
+ * DirectDraw Structures
+ *
+ * Various structures used to invoke DirectDraw.
+ *
+ *==========================================================================*)
+var
+  NilGUID : TGUID{$IfNDef VER6UP} absolute 0{$EndIf};
 type
+  TRefGUID = packed record
+    case integer of
+: (guid : PGUID);
+: (dwFlags : DWORD);
+  end;
   IDirectDraw = interface;
   IDirectDraw2 = interface;
   IDirectDraw4 = interface;
   IDirectDraw7 = interface;
   IDirectDrawSurface = interface;
   IDirectDrawSurface2 = interface;
   IDirectDrawSurface3 = interface;
   IDirectDrawSurface4 = interface;
   IDirectDrawSurface7 = interface;
   IDirectDrawPalette = interface;
   IDirectDrawClipper = interface;
   IDirectDrawColorControl = interface;
   IDirectDrawGammaControl = interface;
+(*
-{ TDDARGB structure }
+ * Generic pixel format with 8-bit RGB and alpha components
+ *)
   PDDARGB = ^TDDARGB;
-  TDDARGB = record
+  TDDARGB = packed record
-    Blue: Byte;
+    blue:     BYTE;
-    Green: Byte;
+    green:    BYTE;
-    Red: Byte;
+    red:      BYTE;
-    Alpha: Byte;
+    alpha:    BYTE;
   end;
-  DDARGB = TDDARGB;
-  LPDDARGB = PDDARGB;
+(*
+ * This version of the structure remains for backwards source compatibility.
-{ TDDRGBA structure }
+ * The DDARGB structure is the one that should be used for all DirectDraw APIs.
+ *)
   PDDRGBA = ^TDDRGBA;
-  TDDRGBA = record
+  TDDRGBA = packed record
-    Red: Byte;
+    red   : BYTE;
-    Green: Byte;
+    green : BYTE;
-    Blue: Byte;
+    blue  : BYTE;
-    Alpha: Byte;
+    alpha : BYTE;
   end;
-  DDRGBA = TDDRGBA;
-  LPDDRGBA = PDDRGBA;
+(*
-{ TDDColorKey structure }
+ * TDDColorKey
+ *)
   PDDColorKey = ^TDDColorKey;
-  TDDColorKey = record
+  TDDColorKey = packed record
     dwColorSpaceLowValue: DWORD;   // low boundary of color space that is to
-                                   //  be treated as Color Key, inclusive
+                                   // be treated as Color Key, inclusive
     dwColorSpaceHighValue: DWORD;  // high boundary of color space that is
-                                   //  to be treated as Color Key, inclusive
+                                   // to be treated as Color Key, inclusive
   end;
-  DDCOLORKEY = TDDColorKey;
+// Delphi 5 can't handle interface in variant records
-  LPDDCOLORKEY = PDDColorKey;
+// so we have to use pointers instead (which can be type-casted into interfaces):
-{ TDDBltFX structure }
+{$IFDEF VER5UP}
+  PDirectDrawSurface = Pointer;
+{$ELSE}
+  PDirectDrawSurface = IDirectDrawSurface;
+{$ENDIF}
+(*
+ * TDDBltFX
+ * Used to pass override information to the DIRECTDRAWSURFACE callback Blt.
+ *)
   PDDBltFX = ^TDDBltFX;
-  TDDBltFX = record
+  TDDBltFX = packed record
-    dwSize: DWORD;                           // size of structure
+    dwSize                        : DWORD;     // size of structure
-    dwDDFX: DWORD;                           // FX operations
+    dwDDFX                        : DWORD;     // FX operations
-    dwROP: DWORD;                            // Win32 raster operations
+    dwROP                         : DWORD;     // Win32 raster operations
-    dwDDROP: DWORD;                          // Raster operations new for DirectDraw
+    dwDDROP                       : DWORD;     // Raster operations new for DirectDraw
-    dwRotationAngle: DWORD;                  // Rotation angle for blt
+    dwRotationAngle               : DWORD;     // Rotation angle for blt
-    dwZBufferOpCode: DWORD;                  // ZBuffer compares
+    dwZBufferOpCode               : DWORD;     // ZBuffer compares
-    dwZBufferLow: DWORD;                     // Low limit of Z buffer
+    dwZBufferLow                  : DWORD;     // Low limit of Z buffer
-    dwZBufferHigh: DWORD;                    // High limit of Z buffer
+    dwZBufferHigh                 : DWORD;     // High limit of Z buffer
-    dwZBufferBaseDest: DWORD;                // Destination base value
+    dwZBufferBaseDest             : DWORD;     // Destination base value
-    dwZDestConstBitDepth: DWORD;             // Bit depth used to specify Z constant for destination
+    dwZDestConstBitDepth          : DWORD;     // Bit depth used to specify Z constant for destination
-    case Integer of
+    case integer of
 : (
-      dwZDestConst: DWORD;                   // Constant to use as Z buffer for dest
+      dwZDestConst                : DWORD      // Constant to use as Z buffer for dest
+     );
+: (
+      lpDDSZBufferDest            : PDirectDrawSurface; // Surface to use as Z buffer for dest
-      dwZSrcConstBitDepth: DWORD;            // Bit depth used to specify Z constant for source
+      dwZSrcConstBitDepth         : DWORD;     // Bit depth used to specify Z constant for source
+      case integer of
+: (
-      dwZSrcConst: DWORD;                    // Constant to use as Z buffer for src
+        dwZSrcConst               : DWORD;     // Constant to use as Z buffer for src
+       );
+: (
+        lpDDSZBufferSrc           : PDirectDrawSurface; // Surface to use as Z buffer for src
-      dwAlphaEdgeBlendBitDepth: DWORD;       // Bit depth used to specify constant for alpha edge blend
+        dwAlphaEdgeBlendBitDepth  : DWORD;     // Bit depth used to specify constant for alpha edge blend
-      dwAlphaEdgeBlend: DWORD;               // Alpha for edge blending
+        dwAlphaEdgeBlend          : DWORD;     // Alpha for edge blending
-      dwReserved: DWORD;
+        dwReserved                : DWORD;
-      dwAlphaDestConstBitDepth: DWORD;       // Bit depth used to specify alpha constant for destination
+        dwAlphaDestConstBitDepth  : DWORD;     // Bit depth used to specify alpha constant for destination
+        case integer of
+: (
-      dwAlphaDestConst: DWORD;               // Constant to use as Alpha Channel
+          dwAlphaDestConst        : DWORD;     // Constant to use as Alpha Channel
+         );
+: (
+          lpDDSAlphaDest          : PDirectDrawSurface; // Surface to use as Alpha Channel
-      dwAlphaSrcConstBitDepth: DWORD;        // Bit depth used to specify alpha constant for source
+          dwAlphaSrcConstBitDepth : DWORD;     // Bit depth used to specify alpha constant for source
+          case integer of
+: (
-      dwAlphaSrcConst: DWORD;                // Constant to use as Alpha Channel
+            dwAlphaSrcConst       : DWORD;     // Constant to use as Alpha Channel
+          );
+: (
+            lpDDSAlphaSrc         : PDirectDrawSurface; // Surface to use as Alpha Channel
+            case integer of
+: (
-      dwFillColor: DWORD;                    // color in RGB or Palettized
+              dwFillColor         : DWORD;     // color in RGB or Palettized
-      ddckDestColorkey: TDDColorKey;          // DestColorkey override
-      ddckSrcColorkey: TDDColorKey;           // SrcColorkey override
-      );
+            );
 : (
-      lpDDSZBufferDest: Pointer{IDirectDrawSurface};  // Surface to use as Z buffer for dest
-      _union1b: DWORD;
-      lpDDSZBufferSrc: Pointer{IDirectDrawSurface};   // Surface to use as Z buffer for src
-      _union1d: DWORD;
-      _union1e: DWORD;
-      _union1f: DWORD;
-      _union1g: DWORD;
-      lpDDSAlphaDest: Pointer{IDirectDrawSurface};    // Surface to use as Alpha Channel
-      _union1i: DWORD;
-      lpDDSAlphaSrc: Pointer{IDirectDrawSurface};     // Surface to use as Alpha Channel
-      dwFillDepth: DWORD;                    // depth value for z-buffer
+              dwFillDepth         : DWORD;     // depth value for z-buffer
-      );
+            );
 : (
-      _union2a: DWORD;
-      _union2b: DWORD;
-      _union2c: DWORD;
-      _union2d: DWORD;
-      _union2e: DWORD;
-      _union2f: DWORD;
-      _union2g: DWORD;
-      _union2h: DWORD;
-      _union2i: DWORD;
-      _union2j: DWORD;
-      lpDDSPattern: Pointer{IDirectDrawSurface};       // Surface to use as pattern
+              dwFillPixel         : DWORD;     // pixel value
-      );
+            );
+: (
+              lpDDSPattern        : PDirectDrawSurface; // Surface to use as pattern
+              ddckDestColorkey    : TDDColorKey; // DestColorkey override
+              ddckSrcColorkey     : TDDColorKey; // SrcColorkey override
+            )
+        )
+      )
+    )
+  )
   end;
-  DDBLTFX = TDDBltFX;
-  LPDDBLTFX = PDDBltFX;
+(*
-{ TDDSCaps structure }
+ * TDDSCaps
+ *)
   PDDSCaps = ^TDDSCaps;
-  TDDSCaps = record
+  TDDSCaps = packed record
     dwCaps: DWORD;         // capabilities of surface wanted
   end;
+(*
-  DDSCAPS = TDDSCaps;
+ * TDDOSCaps
-  LPDDSCAPS = PDDSCaps;
-{ TDDOSCaps structure }
+ *)
   PDDOSCaps = ^TDDOSCaps;
-  TDDOSCaps = record
+  TDDOSCaps = packed record
     dwCaps: DWORD;         // capabilities of surface wanted
   end;
-  DDOSCAPS = TDDOSCaps;
-  LPDDOSCAPS = PDDOSCaps;
+(*
-{ TDDSCapsEx structure }
+ * This structure is used internally by DirectDraw.
+ *)
   PDDSCapsEx = ^TDDSCapsEx;
-  TDDSCapsEx = record
+  TDDSCapsEx = packed record
-    dwCaps2: DWORD;
+    dwCaps2 : DWORD;
-    dwCaps3: DWORD;
+    dwCaps3 : DWORD;
-    dwCaps4: DWORD;
+    dwCaps4 : DWORD;
   end;
-  DDSCAPSEX = TDDSCapsEx;
-  LPDDSCAPSEX = PDDSCapsEx;
+(*
-{ TDDSCaps2 structure }
+ * TDDSCaps2
+ *)
   PDDSCaps2 = ^TDDSCaps2;
-  TDDSCaps2 = record
+  TDDSCaps2 = packed record
     dwCaps: DWORD;         // capabilities of surface wanted
-    dwCaps2: DWORD;
+    dwCaps2 : DWORD;
-    dwCaps3: DWORD;
+    dwCaps3 : DWORD;
-    dwCaps4: DWORD;
+    dwCaps4 : DWORD;
   end;
-  DDSCAPS2 = TDDSCaps2;
-  LPDDSCAPS2 = PDDSCaps2;
+(*
-{ TDDCaps structure }
+ * TDDCaps
+ *)
+(*
-  PDDCaps_DX1 = ^TDDCaps_DX1;
-  TDDCaps_DX1 = record
-    dwSize: DWORD;                 // size of the DDDRIVERCAPS structure
-    dwCaps: DWORD;                 // driver specific capabilities
-    dwCaps2: DWORD;                // more driver specific capabilites
-    dwCKeyCaps: DWORD;             // color key capabilities of the surface
-    dwFXCaps: DWORD;               // driver specific stretching and effects capabilites
-    dwFXAlphaCaps: DWORD;          // alpha driver specific capabilities
-    dwPalCaps: DWORD;              // palette capabilities
-    dwSVCaps: DWORD;               // stereo vision capabilities
-    dwAlphaBltConstBitDepths: DWORD;       // DDBD_2,4,8
-    dwAlphaBltPixelBitDepths: DWORD;       // DDBD_1,2,4,8
-    dwAlphaBltSurfaceBitDepths: DWORD;     // DDBD_1,2,4,8
-    dwAlphaOverlayConstBitDepths: DWORD;   // DDBD_2,4,8
-    dwAlphaOverlayPixelBitDepths: DWORD;   // DDBD_1,2,4,8
-    dwAlphaOverlaySurfaceBitDepths: DWORD; // DDBD_1,2,4,8
-    dwZBufferBitDepths: DWORD;             // DDBD_8,16,24,32
-    dwVidMemTotal: DWORD;          // total amount of video memory
-    dwVidMemFree: DWORD;           // amount of free video memory
-    dwMaxVisibleOverlays: DWORD;   // maximum number of visible overlays
-    dwCurrVisibleOverlays: DWORD;  // current number of visible overlays
-    dwNumFourCCCodes: DWORD;       // number of four cc codes
-    dwAlignBoundarySrc: DWORD;     // source rectangle alignment
-    dwAlignSizeSrc: DWORD;         // source rectangle byte size
-    dwAlignBoundaryDest: DWORD;    // dest rectangle alignment
-    dwAlignSizeDest: DWORD;        // dest rectangle byte size
-    dwAlignStrideAlign: DWORD;     // stride alignment
-    dwRops: array[0..DD_ROP_SPACE-1] of DWORD;   // ROPS supported
-    ddsCaps: TDDSCaps;             // TDDSCaps structure has all the general capabilities
+ * This structure is the TDDCaps structure as it was in version 2 and 3 of Direct X.
-    dwMinOverlayStretch: DWORD;    // minimum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
-    dwMaxOverlayStretch: DWORD;    // maximum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
-    dwMinLiveVideoStretch: DWORD;  // minimum live video stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
-    dwMaxLiveVideoStretch: DWORD;  // maximum live video stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
-    dwMinHwCodecStretch: DWORD;    // minimum hardware codec stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
-    dwMaxHwCodecStretch: DWORD;    // maximum hardware codec stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
-    dwReserved1: DWORD;            // reserved
-    dwReserved2: DWORD;            // reserved
-    dwReserved3: DWORD;            // reserved
+ * It is present for back compatability.
-  end;
+ *)
   PDDCaps_DX3 = ^TDDCaps_DX3;
-  TDDCaps_DX3 = record
+  TDDCaps_DX3 = packed record
     dwSize: DWORD;                 // size of the DDDRIVERCAPS structure
     dwCaps: DWORD;                 // driver specific capabilities
     dwCaps2: DWORD;                // more driver specific capabilites
     dwCKeyCaps: DWORD;             // color key capabilities of the surface
     dwFXCaps: DWORD;               // driver specific stretching and effects capabilites
     dwFXAlphaCaps: DWORD;          // alpha driver specific capabilities
     dwPalCaps: DWORD;              // palette capabilities
     dwSVCaps: DWORD;               // stereo vision capabilities
     dwAlphaBltConstBitDepths: DWORD;       // DDBD_2,4,8
     dwAlphaBltPixelBitDepths: DWORD;       // DDBD_1,2,4,8
     dwAlphaBltSurfaceBitDepths: DWORD;     // DDBD_1,2,4,8
     dwAlphaOverlayConstBitDepths: DWORD;   // DDBD_2,4,8
     dwAlphaOverlayPixelBitDepths: DWORD;   // DDBD_1,2,4,8
     dwAlphaOverlaySurfaceBitDepths: DWORD; // DDBD_1,2,4,8
     dwZBufferBitDepths: DWORD;             // DDBD_8,16,24,32
     dwVidMemTotal: DWORD;          // total amount of video memory
     dwVidMemFree: DWORD;           // amount of free video memory
     dwMaxVisibleOverlays: DWORD;   // maximum number of visible overlays
     dwCurrVisibleOverlays: DWORD;  // current number of visible overlays
     dwNumFourCCCodes: DWORD;       // number of four cc codes
     dwAlignBoundarySrc: DWORD;     // source rectangle alignment
     dwAlignSizeSrc: DWORD;         // source rectangle byte size
     dwAlignBoundaryDest: DWORD;    // dest rectangle alignment
     dwAlignSizeDest: DWORD;        // dest rectangle byte size
     dwAlignStrideAlign: DWORD;     // stride alignment
-    dwRops: array[0..DD_ROP_SPACE-1] of DWORD;   // ROPS supported
+    dwRops: Array [0..DD_ROP_SPACE-1] of DWORD;   // ROPS supported
     ddsCaps: TDDSCaps;             // TDDSCaps structure has all the general capabilities
     dwMinOverlayStretch: DWORD;    // minimum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMaxOverlayStretch: DWORD;    // maximum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMinLiveVideoStretch: DWORD;  // minimum live video stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMaxLiveVideoStretch: DWORD;  // maximum live video stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMinHwCodecStretch: DWORD;    // minimum hardware codec stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMaxHwCodecStretch: DWORD;    // maximum hardware codec stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwReserved1: DWORD;            // reserved
     dwReserved2: DWORD;            // reserved
     dwReserved3: DWORD;            // reserved
     dwSVBCaps: DWORD;              // driver specific capabilities for System->Vmem blts
     dwSVBCKeyCaps: DWORD;          // driver color key capabilities for System->Vmem blts
     dwSVBFXCaps: DWORD;            // driver FX capabilities for System->Vmem blts
-    dwSVBRops: array[0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->Vmem blts
+    dwSVBRops: Array [0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->Vmem blts
     dwVSBCaps: DWORD;              // driver specific capabilities for Vmem->System blts
     dwVSBCKeyCaps: DWORD;          // driver color key capabilities for Vmem->System blts
     dwVSBFXCaps: DWORD;            // driver FX capabilities for Vmem->System blts
-    dwVSBRops: array[0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for Vmem->System blts
+    dwVSBRops: Array [0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for Vmem->System blts
     dwSSBCaps: DWORD;              // driver specific capabilities for System->System blts
     dwSSBCKeyCaps: DWORD;          // driver color key capabilities for System->System blts
     dwSSBFXCaps: DWORD;            // driver FX capabilities for System->System blts
-    dwSSBRops: array[0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->System blts
+    dwSSBRops: Array [0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->System blts
-    dwReserved4: DWORD;            // reserved
+    dwReserved4 : DWORD;
-    dwReserved5: DWORD;            // reserved
+    dwReserved5 : DWORD;
-    dwReserved6: DWORD;            // reserved
+    dwReserved6 : DWORD;
   end;
+(*
+ * This structure is the TDDCaps structure as it was in version 5 of Direct X.
+ * It is present for back compatability.
+ *)
   PDDCaps_DX5 = ^TDDCaps_DX5;
-  TDDCaps_DX5 = record
+  TDDCaps_DX5 = packed record
     dwSize: DWORD;                 // size of the DDDRIVERCAPS structure
     dwCaps: DWORD;                 // driver specific capabilities
     dwCaps2: DWORD;                // more driver specific capabilites
     dwCKeyCaps: DWORD;             // color key capabilities of the surface
     dwFXCaps: DWORD;               // driver specific stretching and effects capabilites
     dwFXAlphaCaps: DWORD;          // alpha driver specific capabilities
     dwPalCaps: DWORD;              // palette capabilities
     dwSVCaps: DWORD;               // stereo vision capabilities
     dwAlphaBltConstBitDepths: DWORD;       // DDBD_2,4,8
     dwAlphaBltPixelBitDepths: DWORD;       // DDBD_1,2,4,8
     dwAlphaBltSurfaceBitDepths: DWORD;     // DDBD_1,2,4,8
     dwAlphaOverlayConstBitDepths: DWORD;   // DDBD_2,4,8
     dwAlphaOverlayPixelBitDepths: DWORD;   // DDBD_1,2,4,8
     dwAlphaOverlaySurfaceBitDepths: DWORD; // DDBD_1,2,4,8
     dwZBufferBitDepths: DWORD;             // DDBD_8,16,24,32
     dwVidMemTotal: DWORD;          // total amount of video memory
     dwVidMemFree: DWORD;           // amount of free video memory
     dwMaxVisibleOverlays: DWORD;   // maximum number of visible overlays
     dwCurrVisibleOverlays: DWORD;  // current number of visible overlays
     dwNumFourCCCodes: DWORD;       // number of four cc codes
     dwAlignBoundarySrc: DWORD;     // source rectangle alignment
     dwAlignSizeSrc: DWORD;         // source rectangle byte size
     dwAlignBoundaryDest: DWORD;    // dest rectangle alignment
     dwAlignSizeDest: DWORD;        // dest rectangle byte size
     dwAlignStrideAlign: DWORD;     // stride alignment
-    dwRops: array[0..DD_ROP_SPACE-1] of DWORD;   // ROPS supported
+    dwRops: Array [0..DD_ROP_SPACE-1] of DWORD;   // ROPS supported
     ddsCaps: TDDSCaps;             // TDDSCaps structure has all the general capabilities
     dwMinOverlayStretch: DWORD;    // minimum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMaxOverlayStretch: DWORD;    // maximum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMinLiveVideoStretch: DWORD;  // minimum live video stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMaxLiveVideoStretch: DWORD;  // maximum live video stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMinHwCodecStretch: DWORD;    // minimum hardware codec stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMaxHwCodecStretch: DWORD;    // maximum hardware codec stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwReserved1: DWORD;            // reserved
     dwReserved2: DWORD;            // reserved
     dwReserved3: DWORD;            // reserved
     dwSVBCaps: DWORD;              // driver specific capabilities for System->Vmem blts
     dwSVBCKeyCaps: DWORD;          // driver color key capabilities for System->Vmem blts
     dwSVBFXCaps: DWORD;            // driver FX capabilities for System->Vmem blts
-    dwSVBRops: array[0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->Vmem blts
+    dwSVBRops: Array [0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->Vmem blts
     dwVSBCaps: DWORD;              // driver specific capabilities for Vmem->System blts
     dwVSBCKeyCaps: DWORD;          // driver color key capabilities for Vmem->System blts
     dwVSBFXCaps: DWORD;            // driver FX capabilities for Vmem->System blts
-    dwVSBRops: array[0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for Vmem->System blts
+    dwVSBRops: Array [0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for Vmem->System blts
     dwSSBCaps: DWORD;              // driver specific capabilities for System->System blts
     dwSSBCKeyCaps: DWORD;          // driver color key capabilities for System->System blts
     dwSSBFXCaps: DWORD;            // driver FX capabilities for System->System blts
-    dwSSBRops: array[0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->System blts
+    dwSSBRops: Array [0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->System blts
-    { Members added for DX5 }
+    // Members added for DX5:
     dwMaxVideoPorts: DWORD;        // maximum number of usable video ports
-    dwCurrVideoPorts: DWORD;       // current number of video ports used
+    dwCurrVideoPorts: DWORD;       // current number of video ports used
-    dwSVBCaps2: DWORD;             // more driver specific capabilities for System->Vmem blts
+    dwSVBCaps2: DWORD;             // more driver specific capabilities for System->Vmem blts
-    dwNLVBCaps: DWORD;             // driver specific capabilities for non-local->local vidmem blts
+    dwNLVBCaps: DWORD;             // driver specific capabilities for non-local->local vidmem blts
     dwNLVBCaps2: DWORD;            // more driver specific capabilities non-local->local vidmem blts
-    dwNLVBCKeyCaps: DWORD;         // driver color key capabilities for non-local->local vidmem blts
+    dwNLVBCKeyCaps: DWORD;         // driver color key capabilities for non-local->local vidmem blts
-    dwNLVBFXCaps: DWORD;           // driver FX capabilities for non-local->local blts
+    dwNLVBFXCaps: DWORD;           // driver FX capabilities for non-local->local blts
-    dwNLVBRops: array[0..DD_ROP_SPACE-1] of DWORD; // ROPS supported for non-local->local blts
+    dwNLVBRops: Array [0..DD_ROP_SPACE-1] of DWORD; // ROPS supported for non-local->local blts
   end;
   PDDCaps_DX6 = ^TDDCaps_DX6;
-  TDDCaps_DX6 = record
+  TDDCaps_DX6 = packed record
-    dwSize: DWORD;                 // size of the DDDRIVERCAPS structure
-    dwCaps: DWORD;                 // driver specific capabilities
-    dwCaps2: DWORD;                // more driver specific capabilites
-    dwCKeyCaps: DWORD;             // color key capabilities of the surface
-    dwFXCaps: DWORD;               // driver specific stretching and effects capabilites
-    dwFXAlphaCaps: DWORD;          // alpha caps
-    dwPalCaps: DWORD;              // palette capabilities
-    dwSVCaps: DWORD;               // stereo vision capabilities
-    dwAlphaBltConstBitDepths: DWORD;       // DDBD_2,4,8
-    dwAlphaBltPixelBitDepths: DWORD;       // DDBD_1,2,4,8
-    dwAlphaBltSurfaceBitDepths: DWORD;     // DDBD_1,2,4,8
-    dwAlphaOverlayConstBitDepths: DWORD;   // DDBD_2,4,8
-    dwAlphaOverlayPixelBitDepths: DWORD;   // DDBD_1,2,4,8
-    dwAlphaOverlaySurfaceBitDepths: DWORD; // DDBD_1,2,4,8
-    dwZBufferBitDepths: DWORD;             // DDBD_8,16,24,32
-    dwVidMemTotal: DWORD;          // total amount of video memory
-    dwVidMemFree: DWORD;           // amount of free video memory
-    dwMaxVisibleOverlays: DWORD;   // maximum number of visible overlays
-    dwCurrVisibleOverlays: DWORD;  // current number of visible overlays
-    dwNumFourCCCodes: DWORD;       // number of four cc codes
-    dwAlignBoundarySrc: DWORD;     // source rectangle alignment
-    dwAlignSizeSrc: DWORD;         // source rectangle byte size
-    dwAlignBoundaryDest: DWORD;    // dest rectangle alignment
-    dwAlignSizeDest: DWORD;        // dest rectangle byte size
-    dwAlignStrideAlign: DWORD;     // stride alignment
-    dwRops: array[0..DD_ROP_SPACE-1] of DWORD;   // ROPS supported
-    ddsOldCaps: TDDSCaps;          // Was TDDSCaps ddsCaps. ddsCaps is of type DDSCAPS2 for DX6
-    dwMinOverlayStretch: DWORD;    // minimum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
-    dwMaxOverlayStretch: DWORD;    // maximum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
-    dwMinLiveVideoStretch: DWORD;  // minimum live video stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
-    dwMaxLiveVideoStretch: DWORD;  // maximum live video stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
-    dwMinHwCodecStretch: DWORD;    // minimum hardware codec stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
-    dwMaxHwCodecStretch: DWORD;    // maximum hardware codec stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
-    dwReserved1: DWORD;            // reserved
-    dwReserved2: DWORD;            // reserved
-    dwReserved3: DWORD;            // reserved
-    dwSVBCaps: DWORD;              // driver specific capabilities for System->Vmem blts
-    dwSVBCKeyCaps: DWORD;          // driver color key capabilities for System->Vmem blts
-    dwSVBFXCaps: DWORD;            // driver FX capabilities for System->Vmem blts
-    dwSVBRops: array[0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->Vmem blts
-    dwVSBCaps: DWORD;              // driver specific capabilities for Vmem->System blts
-    dwVSBCKeyCaps: DWORD;          // driver color key capabilities for Vmem->System blts
-    dwVSBFXCaps: DWORD;            // driver FX capabilities for Vmem->System blts
-    dwVSBRops: array[0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for Vmem->System blts
-    dwSSBCaps: DWORD;              // driver specific capabilities for System->System blts
-    dwSSBCKeyCaps: DWORD;          // driver color key capabilities for System->System blts
-    dwSSBFXCaps: DWORD;            // driver FX capabilities for System->System blts
-    dwSSBRops: array[0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->System blts
-    { Members added for DX5 }
-    dwMaxVideoPorts: DWORD;        // maximum number of usable video ports
-    dwCurrVideoPorts: DWORD;       // current number of video ports used
-    dwSVBCaps2: DWORD;             // more driver specific capabilities for System->Vmem blts
-    dwNLVBCaps: DWORD;             // driver specific capabilities for non-local->local vidmem blts
-    dwNLVBCaps2: DWORD;            // more driver specific capabilities non-local->local vidmem blts
-    dwNLVBCKeyCaps: DWORD;         // driver color key capabilities for non-local->local vidmem blts
-    dwNLVBFXCaps: DWORD;           // driver FX capabilities for non-local->local blts
-    dwNLVBRops: array[0..DD_ROP_SPACE-1] of DWORD; // ROPS supported for non-local->local blts
-    { Members added for DX6 }
-    ddsCaps: TDDSCaps2;            // Surface Caps
-  end;
-  PDDCaps_DX7 = ^TDDCaps_DX7;
-  TDDCaps_DX7 = record
     dwSize: DWORD;                 // size of the DDDRIVERCAPS structure
     dwCaps: DWORD;                 // driver specific capabilities
     dwCaps2: DWORD;                // more driver specific capabilites
     dwCKeyCaps: DWORD;             // color key capabilities of the surface
     dwFXCaps: DWORD;               // driver specific stretching and effects capabilites
     dwFXAlphaCaps: DWORD;          // alpha driver specific capabilities
     dwPalCaps: DWORD;              // palette capabilities
     dwSVCaps: DWORD;               // stereo vision capabilities
     dwAlphaBltConstBitDepths: DWORD;       // DDBD_2,4,8
     dwAlphaBltPixelBitDepths: DWORD;       // DDBD_1,2,4,8
     dwAlphaBltSurfaceBitDepths: DWORD;     // DDBD_1,2,4,8
     dwAlphaOverlayConstBitDepths: DWORD;   // DDBD_2,4,8
     dwAlphaOverlayPixelBitDepths: DWORD;   // DDBD_1,2,4,8
     dwAlphaOverlaySurfaceBitDepths: DWORD; // DDBD_1,2,4,8
     dwZBufferBitDepths: DWORD;             // DDBD_8,16,24,32
     dwVidMemTotal: DWORD;          // total amount of video memory
     dwVidMemFree: DWORD;           // amount of free video memory
     dwMaxVisibleOverlays: DWORD;   // maximum number of visible overlays
     dwCurrVisibleOverlays: DWORD;  // current number of visible overlays
     dwNumFourCCCodes: DWORD;       // number of four cc codes
     dwAlignBoundarySrc: DWORD;     // source rectangle alignment
     dwAlignSizeSrc: DWORD;         // source rectangle byte size
     dwAlignBoundaryDest: DWORD;    // dest rectangle alignment
     dwAlignSizeDest: DWORD;        // dest rectangle byte size
     dwAlignStrideAlign: DWORD;     // stride alignment
-    dwRops: array[0..DD_ROP_SPACE-1] of DWORD;   // ROPS supported
+    dwRops: Array [0..DD_ROP_SPACE-1] of DWORD;   // ROPS supported
-    ddsOldCaps: TDDSCaps;          // Was TDDSCaps ddsCaps. ddsCaps is of type DDSCAPS2 for DX6
+    ddsOldCaps: TDDSCaps;          // Was dssCaps: TDDSCaps. ddsCaps is of type TDDScaps2 for DX6
     dwMinOverlayStretch: DWORD;    // minimum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMaxOverlayStretch: DWORD;    // maximum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMinLiveVideoStretch: DWORD;  // minimum live video stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMaxLiveVideoStretch: DWORD;  // maximum live video stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMinHwCodecStretch: DWORD;    // minimum hardware codec stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMaxHwCodecStretch: DWORD;    // maximum hardware codec stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwReserved1: DWORD;            // reserved
     dwReserved2: DWORD;            // reserved
     dwReserved3: DWORD;            // reserved
     dwSVBCaps: DWORD;              // driver specific capabilities for System->Vmem blts
     dwSVBCKeyCaps: DWORD;          // driver color key capabilities for System->Vmem blts
     dwSVBFXCaps: DWORD;            // driver FX capabilities for System->Vmem blts
-    dwSVBRops: array[0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->Vmem blts
+    dwSVBRops: Array [0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->Vmem blts
     dwVSBCaps: DWORD;              // driver specific capabilities for Vmem->System blts
     dwVSBCKeyCaps: DWORD;          // driver color key capabilities for Vmem->System blts
     dwVSBFXCaps: DWORD;            // driver FX capabilities for Vmem->System blts
-    dwVSBRops: array[0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for Vmem->System blts
+    dwVSBRops: Array [0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for Vmem->System blts
     dwSSBCaps: DWORD;              // driver specific capabilities for System->System blts
     dwSSBCKeyCaps: DWORD;          // driver color key capabilities for System->System blts
     dwSSBFXCaps: DWORD;            // driver FX capabilities for System->System blts
-    dwSSBRops: array[0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->System blts
+    dwSSBRops: Array [0..DD_ROP_SPACE-1] of DWORD;// ROPS supported for System->System blts
-    { Members added for DX5 }
+    // Members added for DX5:
     dwMaxVideoPorts: DWORD;        // maximum number of usable video ports
-    dwCurrVideoPorts: DWORD;       // current number of video ports used
+    dwCurrVideoPorts: DWORD;       // current number of video ports used
-    dwSVBCaps2: DWORD;             // more driver specific capabilities for System->Vmem blts
+    dwSVBCaps2: DWORD;             // more driver specific capabilities for System->Vmem blts
-    dwNLVBCaps: DWORD;             // driver specific capabilities for non-local->local vidmem blts
+    dwNLVBCaps: DWORD;             // driver specific capabilities for non-local->local vidmem blts
     dwNLVBCaps2: DWORD;            // more driver specific capabilities non-local->local vidmem blts
-    dwNLVBCKeyCaps: DWORD;         // driver color key capabilities for non-local->local vidmem blts
+    dwNLVBCKeyCaps: DWORD;         // driver color key capabilities for non-local->local vidmem blts
-    dwNLVBFXCaps: DWORD;           // driver FX capabilities for non-local->local blts
+    dwNLVBFXCaps: DWORD;           // driver FX capabilities for non-local->local blts
-    dwNLVBRops: array[0..DD_ROP_SPACE-1] of DWORD; // ROPS supported for non-local->local blts
+    dwNLVBRops: Array [0..DD_ROP_SPACE-1] of DWORD; // ROPS supported for non-local->local blts
-    { Members added for DX6 }
+    // Members added for DX6 release
-    ddsCaps: TDDSCaps2;            // Surface Caps
+    ddsCaps : TDDSCaps2 ;          // Surface Caps
   end;
-{$IFDEF DirectX1}
-  TDDCaps = TDDCaps_DX1;
+  TDDCaps_DX7 = TDDCaps_DX6;
-  PDDCaps = PDDCaps_DX1;
+  PDDCaps = ^TDDCaps;
-{$ENDIF}{$IFDEF DirectX3}
+{$IFDEF DIRECTX3}
   TDDCaps = TDDCaps_DX3;
-  PDDCaps = PDDCaps_DX3;
+{$ELSE}
-{$ENDIF}{$IFDEF DirectX5}
+  {$IFDEF DIRECTX5}
-  TDDCaps = TDDCaps_DX5;
+    TDDCaps = TDDCaps_DX5;
-  PDDCaps = PDDCaps_DX5;
+  {$ELSE}
-{$ENDIF}{$IFDEF DirectX6}
+    {$IFDEF DIRECTX6}
-  TDDCaps = TDDCaps_DX6;
+      TDDCaps = TDDCaps_DX6;
-  PDDCaps = PDDCaps_DX6;
+    {$ELSE}
-{$ENDIF}{$IFDEF DirectX7}
-  TDDCaps = TDDCaps_DX7;
+      TDDCaps = TDDCaps_DX7;
-  PDDCaps = PDDCaps_DX7;
+    {$ENDIF}
+  {$ENDIF}
 {$ENDIF}
-  DDCAPS = TDDCaps;
-  LPDDCAPS = PDDCaps;
-{ TDDPixelFormat structure }
+(*
+ * TDDPixelFormat
+ *)
-  PDDPixelFormat = ^TDDPixelFormat;
+  PDDPixelFormat_DX5 = ^TDDPixelFormat_DX5;
-  TDDPixelFormat = record
+  TDDPixelFormat_DX5 = packed record
-    dwSize: DWORD;                // size of structure
+    dwSize: DWORD;                 // size of structure
-    dwFlags: DWORD;               // pixel format flags
+    dwFlags: DWORD;                // pixel format flags
-    dwFourCC: DWORD;              // (FOURCC code)
+    dwFourCC: DWORD;               // (FOURCC code)
     case Integer of
 : (
+      dwZBufferBitDepth: DWORD;      // how many bits for z buffers
+     );
+: (
+      dwAlphaBitDepth: DWORD;        // how many bits for alpha channels
+     );
+: (
-        dwRGBBitCount: DWORD;          // how many bits per pixel
+      dwRGBBitCount: DWORD;          // how many bits per pixel
-        dwRBitMask: DWORD;             // mask for red bit
+      dwRBitMask: DWORD;             // mask for red bit
-        dwGBitMask: DWORD;             // mask for green bits
+      dwGBitMask: DWORD;             // mask for green bits
-        dwBBitMask: DWORD;             // mask for blue bits
+      dwBBitMask: DWORD;             // mask for blue bits
-        dwRGBAlphaBitMask: DWORD;      // mask for alpha channel
+      dwRGBAlphaBitMask: DWORD;      // mask for alpha channel
-        );
+     );
+: (
+      dwYUVBitCount: DWORD;          // how many bits per pixel
+      dwYBitMask: DWORD;             // mask for Y bits
+      dwUBitMask: DWORD;             // mask for U bits
+      dwVBitMask: DWORD;             // mask for V bits
+      case Integer of
+: (
+        dwYUVAlphaBitMask: DWORD;      // mask for alpha channel
+       );
 : (
-        _union1a: DWORD;
+        dwRGBZBitMask: DWORD;
+       );
+: (
-        _union1b: DWORD;
+        dwYUVZBitMask: DWORD;
+       );
+     );
+  end;
+  PDDPixelFormat_DX6 = ^TDDPixelFormat_DX6;
+  TDDPixelFormat_DX6 = packed record
+    dwSize: DWORD;                 // size of structure
+    dwFlags: DWORD;                // pixel format flags
+    dwFourCC: DWORD;               // (FOURCC code)
-        _union1c: DWORD;
+    case Integer of
-        _union1d: DWORD;
+: (
+          dwRGBBitCount : DWORD;  // how many bits per pixel
+          dwRBitMask : DWORD;  // mask for red bit
+          dwGBitMask : DWORD;  // mask for green bits
+          dwBBitMask : DWORD;  // mask for blue bits
-        dwRGBZBitMask: DWORD;          // mask for Z channel
+          dwRGBAlphaBitMask : DWORD; // mask for alpha channel
-        );
+          );
 : (
-        dwYUVBitCount: DWORD;          // how many bits per pixel
+          dwYUVBitCount : DWORD;  // how many bits per pixel
-        dwYBitMask: DWORD;             // mask for Y bits
+          dwYBitMask : DWORD;  // mask for Y bits
-        dwUBitMask: DWORD;             // mask for U bits
+          dwUBitMask : DWORD;  // mask for U bits
-        dwVBitMask: DWORD;             // mask for V bits
+          dwVBitMask : DWORD;  // mask for V bits
-        dwYUVAlphaBitMask: DWORD;      // mask for alpha channel
+          dwYUVAlphaBitMask : DWORD; // mask for alpha channel
-        );
+          );
 : (
-        _union3a: DWORD;
-        _union3b: DWORD;
-        _union3c: DWORD;
-        _union3d: DWORD;
-        dwYUVZBitMask: DWORD;          // mask for Z channel
-        );
-: (
-        dwZBufferBitDepth: DWORD;      // how many bits for z buffers
+          dwZBufferBitDepth : DWORD; // how many total bits/pixel in z buffer (including any stencil bits)
-        dwStencilBitDepth: DWORD;      // how many stencil bits (note: dwZBufferBitDepth-dwStencilBitDepth is total Z-only bits)
+          dwStencilBitDepth : DWORD; // how many stencil bits (note: dwZBufferBitDepth-dwStencilBitDepth is total Z-only bits)
-        dwZBitMask: DWORD;             // mask for Z bits
+          dwZBitMask : DWORD;  // mask for Z bits
-        dwStencilBitMask: DWORD;       // mask for stencil bits
+          dwStencilBitMask : DWORD; // mask for stencil bits
+          dwLuminanceAlphaBitMask : DWORD;// mask for alpha channel
-        );
+          );
 : (
-        dwAlphaBitDepth: DWORD;        // how many bits for alpha channels
+          dwAlphaBitDepth : DWORD; // how many bits for alpha channels
-        );
-: (
-        dwLuminanceBitCount: DWORD;    // how many bits per pixel
-        dwLuminanceBitMask: DWORD;     // mask for luminance bits
+          dwLuminanceBitMask : DWORD; // mask for luminance bits
-        _union6c: DWORD;
-        _union6d: DWORD;
-        dwLuminanceAlphaBitMask: DWORD;
-       );
-: (
-        dwBumpBitCount: DWORD;         // how many bits per "buxel", total
-        dwBumpDuBitMask: DWORD;        // mask for bump map U delta bits
-        dwBumpDvBitMask: DWORD;        // mask for bump map V delta bits
+          dwBumpDvBitMask : DWORD;        // mask for bump map V delta bits
-        dwBumpLuminanceBitMask: DWORD; // mask for luminance in bump map
+          dwBumpLuminanceBitMask : DWORD; // mask for luminance in bump map
+          dwRGBZBitMask : DWORD;  // mask for Z channel
+          );
+: (
+           dwLuminanceBitCount : DWORD; // how many bits per pixel
+           dwBumpDuBitMask : DWORD;       // mask for bump map U delta bits
+           Fill1, Fill2    : DWORD;
+           dwYUVZBitMask   : DWORD;  // mask for Z channel
+         );
+: ( dwBumpBitCount  : DWORD;         // how many bits per "buxel", total
-       );
+         );
   end;
-  DDPIXELFORMAT = TDDPixelFormat;
+  TDDPixelFormat_DX3 = TDDPixelFormat_DX5;
-  LPDDPIXELFORMAT = PDDPixelFormat;
+  TDDPixelFormat_DX7 = TDDPixelFormat_DX6;
+  PDDPixelFormat = ^TDDPixelFormat;
+{$IFDEF DIRECTX3}
+  TDDPixelFormat = TDDPixelFormat_DX3;
+{$ELSE}
+  {$IFDEF DIRECTX5}
+    TDDPixelFormat = TDDPixelFormat_DX5;
+  {$ELSE}
-{ DDOVERLAYFX structure }
+    {$IFDEF DIRECTX6}
+      TDDPixelFormat = TDDPixelFormat_DX6;
+    {$ELSE}
+      TDDPixelFormat = TDDPixelFormat_DX7;
+    {$ENDIF}
+  {$ENDIF}
+{$ENDIF}
+(*
+ * TDDOverlayFX
+ *)
-  PDDOverlayFx = ^TDDOverlayFx;
+  PDDOverlayFX = ^TDDOverlayFX;
-  TDDOverlayFx = record
+  TDDOverlayFX = packed record
     dwSize: DWORD;                         // size of structure
     dwAlphaEdgeBlendBitDepth: DWORD;       // Bit depth used to specify constant for alpha edge blend
     dwAlphaEdgeBlend: DWORD;               // Constant to use as alpha for edge blend
     dwReserved: DWORD;
     dwAlphaDestConstBitDepth: DWORD;       // Bit depth used to specify alpha constant for destination
     case Integer of
 : (
-      dwAlphaDestConst: DWORD;             // Constant to use as alpha channel for dest
+      dwAlphaDestConst: DWORD;               // Constant to use as alpha channel for dest
-      dwAlphaSrcConstBitDepth: DWORD;      // Bit depth used to specify alpha constant for source
+      dwAlphaSrcConstBitDepth: DWORD;        // Bit depth used to specify alpha constant for source
-      dwAlphaSrcConst: DWORD;              // Constant to use as alpha channel for src
+      dwAlphaSrcConst: DWORD;                // Constant to use as alpha channel for src
-      dckDestColorkey: TDDColorKey;        // DestColorkey override
+      dckDestColorkey: TDDColorKey;                // DestColorkey override
-      dckSrcColorkey: TDDColorKey;         // DestColorkey override
+      dckSrcColorkey: TDDColorKey;                 // DestColorkey override
-      dwDDFX: DWORD;                       // Overlay FX
+      dwDDFX: DWORD;                         // Overlay FX
-      dwFlags: DWORD;                      // flags
+      dwFlags: DWORD;                        // flags
-      );
+     );
 : (
-      lpDDSAlphaDest: Pointer{IDirectDrawSurface};  // Surface to use as alpha channel for dest
+      lpDDSAlphaDest: PDirectDrawSurface;     // Surface to use as alpha channel for dest
-      _union1b: DWORD;
+      filler: DWORD;
-      lpDDSAlphaSrc: Pointer{IDirectDrawSurface};   // Surface to use as alpha channel for src
+      lpDDSAlphaSrc: PDirectDrawSurface;      // Surface to use as alpha channel for src
-      );
+     );
   end;
-  DDOVERLAYFX = TDDOverlayFx;
-  LPDDOVERLAYFX = PDDOverlayFx;
+(*
-{ TDDBltBatch structure }
+ * TDDBltBatch: BltBatch entry structure
+ *)
   PDDBltBatch = ^TDDBltBatch;
-  TDDBltBatch = record
+  TDDBltBatch = packed record
     lprDest: PRect;
     lpDDSSrc: IDirectDrawSurface;
     lprSrc: PRect;
     dwFlags: DWORD;
-    lpDDBltFx: PDDBltFX;
+    lpDDBltFx: TDDBltFX;
-  end;
-  DDBLTBATCH = TDDBltBatch;
-  LPDDBLTBATCH = PDDBltBatch;
-{ TDDSurfaceDesc structure }
-  PDDSurfaceDesc = ^TDDSurfaceDesc;
-  TDDSurfaceDesc = record
-    dwSize: DWORD;                   // size of the TDDSurfaceDesc structure
-    dwFlags: DWORD;                  // determines what fields are valid
-    dwHeight: DWORD;                 // height of surface to be created
-    dwWidth: DWORD;                  // width of input surface
-    case Integer of
-: (
-        lPitch: Longint;
-        dwBackBufferCount: DWORD;        // number of back buffers requested
-        case Integer of
-: (
-          dwMipMapCount: DWORD;          // number of mip-map levels requested
-          dwAlphaBitDepth: DWORD;        // depth of alpha buffer requested
-          dwReserved: DWORD;             // reserved
-          lpSurface: Pointer;            // pointer to the associated surface memory
-          ddckCKDestOverlay: TDDColorKey;// color key for destination overlay use
-          ddckCKDestBlt: TDDColorKey;    // color key for destination blt use
-          ddckCKSrcOverlay: TDDColorKey; // color key for source overlay use
-          ddckCKSrcBlt: TDDColorKey;     // color key for source blt use
-          ddpfPixelFormat: TDDPixelFormat;// pixel format description of the surface
-          ddsCaps: TDDSCaps;             // direct draw surface capabilities
-          );
-: (
-          dwZBufferBitDepth: DWORD;      // depth of Z buffer requested
-          );
-: (
-          dwRefreshRate: DWORD;          // refresh rate (used when display mode is described)
-          );
-      );
-: (
-        dwLinearSize: DWORD
-      );
-  end;
-  DDSURFACEDESC = TDDSurfaceDesc;
-  LPDDSURFACEDESC = PDDSurfaceDesc;
-{ TDDSurfaceDesc2 structure }
-  PDDSurfaceDesc2 = ^TDDSurfaceDesc2;
-  TDDSurfaceDesc2 = record
-    dwSize: DWORD;                   // size of the TDDSurfaceDesc2 structure
-    dwFlags: DWORD;                  // determines what fields are valid
-    dwHeight: DWORD;                 // height of surface to be created
-    dwWidth: DWORD;                  // width of input surface
-    case Integer of
-: (
-        lPitch: Longint;
-        dwBackBufferCount: DWORD;        // number of back buffers requested
-        case Integer of
-: (
-          dwMipMapCount: DWORD;          // number of mip-map levels requested
-          dwAlphaBitDepth: DWORD;        // depth of alpha buffer requested
-          dwReserved: DWORD;             // reserved
-          lpSurface: Pointer;            // pointer to the associated surface memory
-          ddckCKDestOverlay: TDDColorKey;// color key for destination overlay use
-          ddckCKDestBlt: TDDColorKey;    // color key for destination blt use
-          ddckCKSrcOverlay: TDDColorKey; // color key for source overlay use
-          ddckCKSrcBlt: TDDColorKey;     // color key for source blt use
-          ddpfPixelFormat: TDDPixelFormat;// pixel format description of the surface
-          ddsCaps: TDDSCaps2;            // direct draw surface capabilities
-          dwTextureStage: DWORD;         // stage in multitexture cascade
-          );
-: (
-          dwRefreshRate: DWORD;          // refresh rate (used when display mode is described)
-          );
-      );
-: (
-        dwLinearSize: DWORD
-      );
-  end;
-  DDSURFACEDESC2 = TDDSurfaceDesc2;
-  LPDDSURFACEDESC2 = PDDSurfaceDesc2;
-{ TDDOptSurfaceDesc structure }
-  PDDOptSurfaceDesc = ^TDDOptSurfaceDesc;
-  TDDOptSurfaceDesc = record
-    dwSize: DWORD;             // size of the DDOPTSURFACEDESC structure
-    dwFlags: DWORD;            // determines what fields are valid
-    ddSCaps: TDDSCaps2;        // Common caps like: Memory type
-    ddOSCaps: TDDOSCaps;       // Common caps like: Memory type
-    guid: TGUID;               // Compression technique GUID
-    dwCompressionRatio: DWORD; // Compression ratio
-  end;
-  DDOPTSURFACEDESC = TDDOptSurfaceDesc;
-  LPDDOPTSURFACEDESC = PDDOptSurfaceDesc;
-{ TDDColorControl structure }
-  PDDColorControl = ^TDDColorControl;
-  TDDColorControl = record
-    dwSize: DWORD;
-    dwFlags: DWORD;
-    lBrightness: Longint;
-    lContrast: Longint;
-    lHue: Longint;
-    lSaturation: Longint;
-    lSharpness: Longint;
-    lGamma: Longint;
-    lColorEnable: Longint;
-    dwReserved1: DWORD;
   end;
-  DDCOLORCONTROL = TDDColorControl;
-  LPDDCOLORCONTROL = PDDCOLORCONTROL;
+(*
-{ TDDGammaRamp structure }
+ * TDDGammaRamp
+ *)
   PDDGammaRamp = ^TDDGammaRamp;
-  TDDGammaRamp = record
+  TDDGammaRamp = packed record
-    Red: array[0..255] of Word;
+    red   : array[0..255] of WORD;
-    Green: array[0..255] of Word;
+    green : array[0..255] of WORD;
-    Blue: array[0..255] of Word;
+    blue  : array[0..255] of WORD;
   end;
-  DDGAMMARAMP = TDDGammaRamp;
-  LPDDGAMMARAMP = PDDGammaRamp;
+(*
-{ TDDDeviceIdentifier structure }
+ *  This is the structure within which DirectDraw returns data about the current graphics driver and chipset
+ *)
   PDDDeviceIdentifier = ^TDDDeviceIdentifier;
-  TDDDeviceIdentifier = record
+  TDDDeviceIdentifier = packed record
     //
     // These elements are for presentation to the user only. They should not be used to identify particular
     // drivers, since this is unreliable and many different strings may be associated with the same
     // device, and the same driver from different vendors.
     //
     szDriver: array[0..MAX_DDDEVICEID_STRING-1] of Char;
     szDescription: array[0..MAX_DDDEVICEID_STRING-1] of Char;
     //
     // This element is the version of the DirectDraw/3D driver. It is legal to do <, > comparisons
     // on the whole 64 bits. Caution should be exercised if you use this element to identify problematic
     // drivers. It is recommended that guidDeviceIdentifier is used for this purpose.
     //
     // This version has the form:
     //  wProduct = HIWORD(liDriverVersion.HighPart)
     //  wVersion = LOWORD(liDriverVersion.HighPart)
     //  wSubVersion = HIWORD(liDriverVersion.LowPart)
     //  wBuild = LOWORD(liDriverVersion.LowPart)
     //
     liDriverVersion: TLargeInteger;     // Defined for applications and other 32 bit components
     //
     // These elements can be used to identify particular chipsets. Use with extreme caution.
     //   dwVendorId     Identifies the manufacturer. May be zero if unknown.
     //   dwDeviceId     Identifies the type of chipset. May be zero if unknown.
     //   dwSubSysId     Identifies the subsystem, typically this means the particular board. May be zero if unknown.
     //   dwRevision     Identifies the revision level of the chipset. May be zero if unknown.
     //
     dwVendorId: DWORD;
     dwDeviceId: DWORD;
     dwSubSysId: DWORD;
     dwRevision: DWORD;
     //
     // This element can be used to check changes in driver/chipset. This GUID is a unique identifier for the
     // driver/chipset pair. Use this element if you wish to track changes to the driver/chipset in order to
     // reprofile the graphics subsystem.
     // This element can also be used to identify particular problematic drivers.
     //
     guidDeviceIdentifier: TGUID;
   end;
-  DDDEVICEIDENTIFIER = TDDDeviceIdentifier;
-  LPDDDEVICEIDENTIFIER = PDDDeviceIdentifier;
-{ TDDDeviceIdentifier2 structure }
   PDDDeviceIdentifier2 = ^TDDDeviceIdentifier2;
-  TDDDeviceIdentifier2 = record
+  TDDDeviceIdentifier2 = packed record
     //
     // These elements are for presentation to the user only. They should not be used to identify particular
     // drivers, since this is unreliable and many different strings may be associated with the same
     // device, and the same driver from different vendors.
     //
     szDriver: array[0..MAX_DDDEVICEID_STRING-1] of Char;
     szDescription: array[0..MAX_DDDEVICEID_STRING-1] of Char;
     //
     // This element is the version of the DirectDraw/3D driver. It is legal to do <, > comparisons
     // on the whole 64 bits. Caution should be exercised if you use this element to identify problematic
     // drivers. It is recommended that guidDeviceIdentifier is used for this purpose.
     //
     // This version has the form:
     //  wProduct = HIWORD(liDriverVersion.HighPart)
     //  wVersion = LOWORD(liDriverVersion.HighPart)
     //  wSubVersion = HIWORD(liDriverVersion.LowPart)
     //  wBuild = LOWORD(liDriverVersion.LowPart)
     //
     liDriverVersion: TLargeInteger;     // Defined for applications and other 32 bit components
     //
     // These elements can be used to identify particular chipsets. Use with extreme caution.
     //   dwVendorId     Identifies the manufacturer. May be zero if unknown.
     //   dwDeviceId     Identifies the type of chipset. May be zero if unknown.
     //   dwSubSysId     Identifies the subsystem, typically this means the particular board. May be zero if unknown.
     //   dwRevision     Identifies the revision level of the chipset. May be zero if unknown.
     //
     dwVendorId: DWORD;
     dwDeviceId: DWORD;
     dwSubSysId: DWORD;
     dwRevision: DWORD;
     //
     // This element can be used to check changes in driver/chipset. This GUID is a unique identifier for the
     // driver/chipset pair. Use this element if you wish to track changes to the driver/chipset in order to
     // reprofile the graphics subsystem.
     // This element can also be used to identify particular problematic drivers.
     //
     guidDeviceIdentifier: TGUID;
-    //
+    (*
-    // This element is used to determine the Windows Hardware Quality Lab (WHQL)
+     * This element is used to determine the Windows Hardware Quality Lab (WHQL)
-    // certification level for this driver/device pair.
+     * certification level for this driver/device pair.
-    //
+     *)
     dwWHQLLevel: DWORD;
   end;
-  DDDEVICEIDENTIFIER2 = TDDDeviceIdentifier2;
-  LPDDDEVICEIDENTIFIER2 = PDDDeviceIdentifier2;
+(*
-{ Callbacks }
+ * callbacks
+ *)
   TClipperCallback = function(lpDDClipper: IDirectDrawClipper; hWnd: HWND;
       Code: DWORD; lpContext: Pointer): HResult; stdcall;
-  LPCLIPPERCALLBACK = TClipperCallback;
   TSurfacesStreamingCallback = function(Arg: DWORD): HResult; stdcall;
-  LPSURFACESTREAMINGCALLBACK =TSurfacesStreamingCallback;
+(*
+ * TDDSurfaceDesc
+ *)
+  PDDSurfaceDesc_DX5 = ^TDDSurfaceDesc_DX5;
+  TDDSurfaceDesc_DX5 = packed record
+    dwSize: DWORD;                 // size of the TDDSurfaceDesc structure
+    dwFlags: DWORD;                // determines what fields are valid
+    dwHeight: DWORD;               // height of surface to be created
+    dwWidth: DWORD;                // width of input surface
+    case Integer of
+: (
+      dwLinearSize : DWORD;       // unused at the moment
+     );
+: (
+      lPitch: LongInt;                 // distance to start of next line (return value only)
+      dwBackBufferCount: DWORD;      // number of back buffers requested
+      case Integer of
+: (
+        dwMipMapCount: DWORD;          // number of mip-map levels requested
+        dwAlphaBitDepth: DWORD;        // depth of alpha buffer requested
+        dwReserved: DWORD;             // reserved
+        lpSurface: Pointer;              // pointer to the associated surface memory
+        ddckCKDestOverlay: TDDColorKey;      // color key for destination overlay use
+        ddckCKDestBlt: TDDColorKey;          // color key for destination blt use
+        ddckCKSrcOverlay: TDDColorKey;       // color key for source overlay use
+        ddckCKSrcBlt: TDDColorKey;           // color key for source blt use
+        ddpfPixelFormat: TDDPixelFormat_DX5; // pixel format description of the surface
+        ddsCaps: TDDSCaps;                // direct draw surface capabilities
+       );
+: (
+        dwZBufferBitDepth: DWORD;      // depth of Z buffer requested
+       );
+: (
+        dwRefreshRate: DWORD;          // refresh rate (used when display mode is described)
+       );
+     );
+  end;
+  PDDSurfaceDesc_DX6 = ^TDDSurfaceDesc_DX6;
+  TDDSurfaceDesc_DX6 = packed record
+    dwSize: DWORD;                 // size of the TDDSurfaceDesc structure
+    dwFlags: DWORD;                // determines what fields are valid
+    dwHeight: DWORD;               // height of surface to be created
+    dwWidth: DWORD;                // width of input surface
+    case Integer of
+: (
+      dwLinearSize : DWORD;       // unused at the moment
+     );
+: (
+      lPitch: LongInt;                 // distance to start of next line (return value only)
+      dwBackBufferCount: DWORD;      // number of back buffers requested
+      case Integer of
+: (
+        dwMipMapCount: DWORD;          // number of mip-map levels requested
+        dwAlphaBitDepth: DWORD;        // depth of alpha buffer requested
+        dwReserved: DWORD;             // reserved
+        lpSurface: Pointer;              // pointer to the associated surface memory
+        ddckCKDestOverlay: TDDColorKey;      // color key for destination overlay use
+        ddckCKDestBlt: TDDColorKey;          // color key for destination blt use
+        ddckCKSrcOverlay: TDDColorKey;       // color key for source overlay use
+        ddckCKSrcBlt: TDDColorKey;           // color key for source blt use
+        ddpfPixelFormat: TDDPixelFormat_DX6; // pixel format description of the surface
+        ddsCaps: TDDSCaps;                // direct draw surface capabilities
+       );
+: (
+        dwZBufferBitDepth: DWORD;      // depth of Z buffer requested
+       );
+: (
+        dwRefreshRate: DWORD;          // refresh rate (used when display mode is described)
+       );
+     );
+  end;
+  PDDSurfaceDesc = ^TDDSurfaceDesc;
+{$IFDEF DIRECTX5}
+  TDDSurfaceDesc = TDDSurfaceDesc_DX5;
+{$ELSE}
+  TDDSurfaceDesc = TDDSurfaceDesc_DX6;
+{$ENDIF}
+(*
+ * TDDSurfaceDesc2
+ *)
+  PDDSurfaceDesc2 = ^TDDSurfaceDesc2;
+  TDDSurfaceDesc2 = packed record
+    dwSize: DWORD;                 // size of the TDDSurfaceDesc structure
+    dwFlags: DWORD;                // determines what fields are valid
+    dwHeight: DWORD;               // height of surface to be created
+    dwWidth: DWORD;                // width of input surface
+    case Integer of
+: (
+      lPitch : LongInt;                  // distance to start of next line (return value only)
+     );
+: (
+      dwLinearSize : DWORD;              // Formless late-allocated optimized surface size
+      dwBackBufferCount: DWORD;          // number of back buffers requested
+      case Integer of
+: (
+        dwMipMapCount: DWORD;            // number of mip-map levels requested
+        dwAlphaBitDepth: DWORD;          // depth of alpha buffer requested
+        dwReserved: DWORD;               // reserved
+        lpSurface: Pointer;              // pointer to the associated surface memory
+        ddckCKDestOverlay: TDDColorKey;  // color key for destination overlay use
+        ddckCKDestBlt: TDDColorKey;      // color key for destination blt use
+        ddckCKSrcOverlay: TDDColorKey;   // color key for source overlay use
+        ddckCKSrcBlt: TDDColorKey;       // color key for source blt use
+        ddpfPixelFormat: TDDPixelFormat; // pixel format description of the surface
+        ddsCaps: TDDSCaps2;              // direct draw surface capabilities
+        dwTextureStage: DWORD;           // stage in multitexture cascade
+       );
+: (
+        dwRefreshRate: DWORD;          // refresh rate (used when display mode is described)
+       );
+     );
+  end;
+(*
+ * TDDOptSurfaceDesc
+ *)
+  PDDOptSurfaceDesc = ^TDDOptSurfaceDesc;
+  TDDOptSurfaceDesc = packed record
+    dwSize : DWORD;             // size of the DDOPTSURFACEDESC structure
+    dwFlags : DWORD;            // determines what fields are valid
+    ddSCaps : TDDSCaps2;        // Common caps like: Memory type
+    ddOSCaps : TDDOSCaps;       // Common caps like: Memory type
+    guid : TGUID;               // Compression technique GUID
+    dwCompressionRatio : DWORD; // Compression ratio
+  end;
+(*
+ * DDCOLORCONTROL
+ *)
+  PDDColorControl = ^TDDColorControl;
+  TDDColorControl = packed record
+    dwSize: DWORD;
+    dwFlags: DWORD;
+    lBrightness: LongInt;
+    lContrast: LongInt;
+    lHue: LongInt;
+    lSaturation: LongInt;
+    lSharpness: LongInt;
+    lGamma: LongInt;
+    lColorEnable: LongInt;
+    dwReserved1: DWORD;
+  end;
+(*
+ * callbacks
+ *)
+{$IFNDEF WINNT}
-  TDDEnumModesCallback = function(const lpDDSurfaceDesc: TDDSurfaceDesc;
+  TDDEnumModesCallback = function (const lpDDSurfaceDesc: TDDSurfaceDesc;
-      lpContext: Pointer): HResult; stdcall;
+      lpContext: Pointer) : HResult; stdcall;
-  LPDDENUMMODESCALLBACK = TDDEnumModesCallback;
-  TDDEnumModesCallback2 = function(const lpDDSurfaceDesc: TDDSurfaceDesc2;
+  TDDEnumModesCallback2 = function (const lpDDSurfaceDesc: TDDSurfaceDesc2;
-      lpContext: Pointer): HResult; stdcall;
+      lpContext: Pointer) : HResult; stdcall;
-  LPDDENUMMODESCALLBACK2 = TDDEnumModesCallback2;
-  TDDEnumSurfacesCallback = function(lpDDSurface: IDirectDrawSurface;
+  TDDEnumSurfacesCallback = function (lpDDSurface: IDirectDrawSurface;
-      const lpDDSurfaceDesc: TDDSurfaceDesc; lpContext: Pointer): HResult; stdcall;
+      const lpDDSurfaceDesc: TDDSurfaceDesc; lpContext: Pointer) : HResult; stdcall;
-  LPDDENUMSURFACESCALLBACK = TDDEnumSurfacesCallback;
-  TDDEnumSurfacesCallback2 = function(lpDDSurface: IDirectDrawSurface4;
+  TDDEnumSurfacesCallback2 = function (lpDDSurface: IDirectDrawSurface4;
-      const lpDDSurfaceDesc: TDDSurfaceDesc2; lpContext: Pointer): HResult; stdcall;
+      const lpDDSurfaceDesc: TDDSurfaceDesc2; lpContext: Pointer) : HResult; stdcall;
-  LPDDENUMSURFACESCALLBACK2 = TDDEnumSurfacesCallback2;
-  TDDEnumSurfacesCallback7 = function(lpDDSurface: IDirectDrawSurface7;
+  TDDEnumSurfacesCallback7 = function (lpDDSurface: IDirectDrawSurface7;
-      const lpDDSurfaceDesc: TDDSurfaceDesc2; lpContext: Pointer): HResult; stdcall;
+      const lpDDSurfaceDesc: TDDSurfaceDesc2; lpContext: Pointer) : HResult; stdcall;
+{$ENDIF}
+(*
+ * INTERACES FOLLOW:
+ *      IDirectDraw
+ *      IDirectDrawClipper
+ *      IDirectDrawPalette
-  LPDDENUMSURFACESCALLBACK7 = TDDEnumSurfacesCallback7;
+ *      IDirectDrawSurface
+ *)
+(*
-{ IDirectDraw Interface }
+ * IDirectDraw
+ *)
-  IDirectDraw = interface(IUnknown)
+  IDirectDraw = interface (IUnknown)
     ['{6C14DB80-A733-11CE-A521-0020AF0BE560}']
-    // IDirectDraw methods
+    (*** IDirectDraw methods ***)
     function Compact: HResult; stdcall;
+    function CreateClipper (dwFlags: DWORD;
+        out lplpDDClipper: IDirectDrawClipper;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreateClipper(dwFlags: DWORD; out lplpDDClipper: IDirectDrawClipper;
+    function CreatePalette (dwFlags: DWORD; lpColorTable: pointer;
+        out lplpDDPalette: IDirectDrawPalette;
+        pUnkOuter: IUnknown) : HResult; stdcall;
+    function CreateSurface (var lpDDSurfaceDesc: TDDSurfaceDesc;
+        out lplpDDSurface: IDirectDrawSurface;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreatePalette(dwFlags: DWORD; lpColorTable: PPaletteEntry;
-        out lplpDDPalette: IDirectDrawPalette; pUnkOuter: IUnknown): HResult; stdcall;
-    function CreateSurface(const lpDDSurfaceDesc: TDDSurfaceDesc;
-        out lplpDDSurface: IDirectDrawSurface; pUnkOuter: IUnknown): HResult; stdcall;
-    function DuplicateSurface(lpDDSurface: IDirectDrawSurface;
+    function DuplicateSurface (lpDDSurface: IDirectDrawSurface;
-        out lplpDupDDSurface: IDirectDrawSurface): HResult; stdcall;
+        out lplpDupDDSurface: IDirectDrawSurface) : HResult; stdcall;
-    function EnumDisplayModes(dwFlags: DWORD;
+    function EnumDisplayModes (dwFlags: DWORD;
-        const lpDDSurfaceDesc: TDDSurfaceDesc; lpContext: Pointer;
+        lpDDSurfaceDesc: PDDSurfaceDesc; lpContext: Pointer;
-        lpEnumModesCallback: TDDEnumModesCallback): HResult; stdcall;
+        lpEnumModesCallback: TDDEnumModesCallback) : HResult; stdcall;
-    function EnumSurfaces(dwFlags: DWORD; const lpDDSD: TDDSurfaceDesc;
+    function EnumSurfaces (dwFlags: DWORD; const lpDDSD: TDDSurfaceDesc;
-        lpContext: Pointer; lpEnumCallback: TDDEnumSurfacesCallback): HResult; stdcall;
+        lpContext: Pointer; lpEnumCallback: TDDEnumSurfacesCallback) :
+        HResult; stdcall;
     function FlipToGDISurface: HResult; stdcall;
-    function GetCaps(var lpDDDriverCaps: TDDCaps; var lpDDHELCaps: TDDCaps): HResult; stdcall;
+    function GetCaps (lpDDDriverCaps: PDDCaps; lpDDHELCaps: PDDCaps) : HResult; stdcall;
-    function GetDisplayMode(var lpDDSurfaceDesc: TDDSurfaceDesc): HResult; stdcall;
+    function GetDisplayMode (out lpDDSurfaceDesc: TDDSurfaceDesc) : HResult; stdcall;
-    function GetFourCCCodes(var lpNumCodes, lpCodes: DWORD): HResult; stdcall;
+    function GetFourCCCodes (var lpNumCodes: DWORD; lpCodes: PDWORD) : HResult; stdcall;
-    function GetGDISurface(out lplpGDIDDSSurface: IDirectDrawSurface): HResult; stdcall;
+    function GetGDISurface (out lplpGDIDDSSurface: IDirectDrawSurface) :
+        HResult; stdcall;
-    function GetMonitorFrequency(var lpdwFrequency: DWORD): HResult; stdcall;
+    function GetMonitorFrequency (out lpdwFrequency: DWORD) : HResult; stdcall;
-    function GetScanLine(var lpdwScanLine: DWORD): HResult; stdcall;
+    function GetScanLine (out lpdwScanLine: DWORD) : HResult; stdcall;
-    function GetVerticalBlankStatus(var lpbIsInVB: BOOL): HResult; stdcall;
+    function GetVerticalBlankStatus (out lpbIsInVB: BOOL) : HResult; stdcall;
-    function Initialize(lpGUID: PGUID): HResult; stdcall;
+    function Initialize (lpGUID: PGUID) : HResult; stdcall;
     function RestoreDisplayMode: HResult; stdcall;
-    function SetCooperativeLevel(hWnd: HWND; dwFlags: DWORD): HResult; stdcall;
+    function SetCooperativeLevel (hWnd: HWND; dwFlags: DWORD) : HResult; stdcall;
+    (*** Warning!  SetDisplayMode differs between DirectDraw 1 and DirectDraw 2 ***)
-    function SetDisplayMode(dwWidth, dwHeight, dwBpp: DWORD): HResult; stdcall;
+    function SetDisplayMode (dwWidth: DWORD; dwHeight: DWORD;
+        dwBpp: DWORD) : HResult; stdcall;
-    function WaitForVerticalBlank(dwFlags: DWORD; hEvent: THandle): HResult; stdcall;
+    function WaitForVerticalBlank (dwFlags: DWORD; hEvent: THandle) :
+        HResult; stdcall;
   end;
-{ IDirectDraw2 Interface }
-  IDirectDraw2 = interface(IUnknown)
+  IDirectDraw2 = interface (IUnknown)
     ['{B3A6F3E0-2B43-11CF-A2DE-00AA00B93356}']
-    // IDirectDraw methods
+    (*** IDirectDraw methods ***)
     function Compact: HResult; stdcall;
+    function CreateClipper (dwFlags: DWORD;
+        out lplpDDClipper: IDirectDrawClipper;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreateClipper(dwFlags: DWORD; out lplpDDClipper: IDirectDrawClipper;
+    function CreatePalette (dwFlags: DWORD; lpColorTable: pointer;
+        out lplpDDPalette: IDirectDrawPalette;
+        pUnkOuter: IUnknown) : HResult; stdcall;
+    function CreateSurface (var lpDDSurfaceDesc: TDDSurfaceDesc;
+        out lplpDDSurface: IDirectDrawSurface;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreatePalette(dwFlags: DWORD; lpColorTable: PPaletteEntry;
-        out lplpDDPalette: IDirectDrawPalette; pUnkOuter: IUnknown): HResult; stdcall;
-    function CreateSurface(const lpDDSurfaceDesc: TDDSurfaceDesc;
-        out lplpDDSurface: IDirectDrawSurface; pUnkOuter: IUnknown): HResult; stdcall;
-    function DuplicateSurface(lpDDSurface: IDirectDrawSurface;
+    function DuplicateSurface (lpDDSurface: IDirectDrawSurface;
-        out lplpDupDDSurface: IDirectDrawSurface): HResult; stdcall;
+        out lplpDupDDSurface: IDirectDrawSurface) : HResult; stdcall;
-    function EnumDisplayModes(dwFlags: DWORD;
+    function EnumDisplayModes (dwFlags: DWORD;
-        const lpDDSurfaceDesc: TDDSurfaceDesc; lpContext: Pointer;
+        lpDDSurfaceDesc: PDDSurfaceDesc; lpContext: Pointer;
-        lpEnumModesCallback: TDDEnumModesCallback): HResult; stdcall;
+        lpEnumModesCallback: TDDEnumModesCallback) : HResult; stdcall;
-    function EnumSurfaces(dwFlags: DWORD; const lpDDSD: TDDSurfaceDesc;
+    function EnumSurfaces (dwFlags: DWORD; var lpDDSD: TDDSurfaceDesc;
-        lpContext: Pointer; lpEnumCallback: TDDEnumSurfacesCallback): HResult; stdcall;
+        lpContext: Pointer; lpEnumCallback: TDDEnumSurfacesCallback) :
+        HResult; stdcall;
     function FlipToGDISurface: HResult; stdcall;
-    function GetCaps(var lpDDDriverCaps: TDDCaps; var lpDDHELCaps: TDDCaps): HResult; stdcall;
+    function GetCaps (lpDDDriverCaps: PDDCaps; lpDDHELCaps: PDDCaps) : HResult; stdcall;
-    function GetDisplayMode(var lpDDSurfaceDesc: TDDSurfaceDesc): HResult; stdcall;
+    function GetDisplayMode (out lpDDSurfaceDesc: TDDSurfaceDesc) : HResult; stdcall;
-    function GetFourCCCodes(var lpNumCodes, lpCodes: DWORD): HResult; stdcall;
+    function GetFourCCCodes (var lpNumCodes: DWORD; lpCodes: PDWORD) : HResult; stdcall;
-    function GetGDISurface(out lplpGDIDDSSurface: IDirectDrawSurface): HResult; stdcall;
+    function GetGDISurface (out lplpGDIDDSSurface: IDirectDrawSurface) : HResult; stdcall;
-    function GetMonitorFrequency(var lpdwFrequency: DWORD): HResult; stdcall;
+    function GetMonitorFrequency (out lpdwFrequency: DWORD) : HResult; stdcall;
-    function GetScanLine(var lpdwScanLine: DWORD): HResult; stdcall;
+    function GetScanLine (out lpdwScanLine: DWORD) : HResult; stdcall;
-    function GetVerticalBlankStatus(var lpbIsInVB: BOOL): HResult; stdcall;
+    function GetVerticalBlankStatus (out lpbIsInVB: BOOL) : HResult; stdcall;
-    function Initialize(lpGUID: PGUID): HResult; stdcall;
+    function Initialize (lpGUID: PGUID) : HResult; stdcall;
     function RestoreDisplayMode: HResult; stdcall;
-    function SetCooperativeLevel(hWnd: HWND; dwFlags: DWORD): HResult; stdcall;
+    function SetCooperativeLevel (hWnd: HWND; dwFlags: DWORD) : HResult; stdcall;
+(*** Warning!  SetDisplayMode differs between DirectDraw 1 and DirectDraw 2 ***)
-    function SetDisplayMode(dwWidth, dwHeight, dwBPP, dwRefreshRate: DWORD;
+    function SetDisplayMode (dwWidth: DWORD; dwHeight: DWORD; dwBPP: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwRefreshRate: DWORD; dwFlags: DWORD) : HResult; stdcall;
-    function WaitForVerticalBlank(dwFlags: DWORD; hEvent: THandle): HResult; stdcall;
+    function WaitForVerticalBlank (dwFlags: DWORD; hEvent: THandle) :
-    // IDirectDraw2 methods
+        HResult; stdcall;
+    (*** Added in the v2 interface ***)
-    function GetAvailableVidMem(var lpDDSCaps: TDDSCaps;
+    function GetAvailableVidMem (var lpDDSCaps: TDDSCaps;
-        var lpdwTotal, lpdwFree: DWORD): HResult; stdcall;
+        out lpdwTotal, lpdwFree: DWORD) : HResult; stdcall;
   end;
-{ IDirectDraw4 Interface }
-  IDirectDraw4 = interface(IUnknown)
+  IDirectDraw4 = interface (IUnknown)
-    ['{9C59509A-39BD-11D1-8C4A-00C04FD930C5}']
+    ['{9c59509a-39bd-11d1-8c4a-00c04fd930c5}']
-    // IDirectDraw methods
+    (*** IDirectDraw methods ***)
     function Compact: HResult; stdcall;
+    function CreateClipper (dwFlags: DWORD;
+        out lplpDDClipper: IDirectDrawClipper;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreateClipper(dwFlags: DWORD; out lplpDDClipper: IDirectDrawClipper;
+    function CreatePalette (dwFlags: DWORD; lpColorTable: pointer;
+        out lplpDDPalette: IDirectDrawPalette;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreatePalette(dwFlags: DWORD; lpColorTable: PPaletteEntry;
-        out lplpDDPalette: IDirectDrawPalette; pUnkOuter: IUnknown): HResult; stdcall;
-    function CreateSurface(const lpDDSurfaceDesc: TDDSurfaceDesc2;
+    function CreateSurface (const lpDDSurfaceDesc: TDDSurfaceDesc2;
-        out lplpDDSurface: IDirectDrawSurface4; pUnkOuter: IUnknown): HResult; stdcall;
+        out lplpDDSurface: IDirectDrawSurface4;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function DuplicateSurface(lpDDSurface: IDirectDrawSurface4;
+    function DuplicateSurface (lpDDSurface: IDirectDrawSurface4;
-        out lplpDupDDSurface: IDirectDrawSurface4): HResult; stdcall;
+        out lplpDupDDSurface: IDirectDrawSurface4) : HResult; stdcall;
-    function EnumDisplayModes(dwFlags: DWORD;
+    function EnumDisplayModes (dwFlags: DWORD;
-        const lpDDSurfaceDesc: TDDSurfaceDesc2; lpContext: Pointer;
+        lpDDSurfaceDesc: PDDSurfaceDesc2; lpContext: Pointer;
-        lpEnumModesCallback: TDDEnumModesCallback2): HResult; stdcall;
+        lpEnumModesCallback: TDDEnumModesCallback2) : HResult; stdcall;
-    function EnumSurfaces(dwFlags: DWORD; const lpDDSD: TDDSurfaceDesc2;
+    function EnumSurfaces (dwFlags: DWORD; const lpDDSD: TDDSurfaceDesc2;
-        lpContext: Pointer; lpEnumCallback: TDDEnumSurfacesCallback2): HResult; stdcall;
+        lpContext: Pointer; lpEnumCallback: TDDEnumSurfacesCallback2) :
+        HResult; stdcall;
     function FlipToGDISurface: HResult; stdcall;
-    function GetCaps(var lpDDDriverCaps: TDDCaps; var lpDDHELCaps: TDDCaps): HResult; stdcall;
+    function GetCaps (lpDDDriverCaps: PDDCaps; lpDDHELCaps: PDDCaps) : HResult; stdcall;
-    function GetDisplayMode(var lpDDSurfaceDesc: TDDSurfaceDesc2): HResult; stdcall;
+    function GetDisplayMode (out lpDDSurfaceDesc: TDDSurfaceDesc2) : HResult; stdcall;
-    function GetFourCCCodes(var lpNumCodes, lpCodes: DWORD): HResult; stdcall;
+    function GetFourCCCodes (var lpNumCodes: DWORD; lpCodes: PDWORD) : HResult; stdcall;
-    function GetGDISurface(out lplpGDIDDSSurface: IDirectDrawSurface2): HResult; stdcall;
+    function GetGDISurface (out lplpGDIDDSSurface: IDirectDrawSurface4) :
+        HResult; stdcall;
-    function GetMonitorFrequency(var lpdwFrequency: DWORD): HResult; stdcall;
+    function GetMonitorFrequency (out lpdwFrequency: DWORD) : HResult; stdcall;
-    function GetScanLine(var lpdwScanLine: DWORD): HResult; stdcall;
+    function GetScanLine (out lpdwScanLine: DWORD) : HResult; stdcall;
-    function GetVerticalBlankStatus(var lpbIsInVB: BOOL): HResult; stdcall;
+    function GetVerticalBlankStatus (out lpbIsInVB: BOOL) : HResult; stdcall;
-    function Initialize(lpGUID: PGUID): HResult; stdcall;
+    function Initialize (lpGUID: PGUID) : HResult; stdcall;
     function RestoreDisplayMode: HResult; stdcall;
-    function SetCooperativeLevel(hWnd: HWND; dwFlags: DWORD): HResult; stdcall;
+    function SetCooperativeLevel (hWnd: HWND; dwFlags: DWORD) : HResult; stdcall;
+(*** Warning!  SetDisplayMode differs between DirectDraw 1 and DirectDraw 2 ***)
-    function SetDisplayMode(dwWidth, dwHeight, dwBPP, dwRefreshRate: DWORD;
+    function SetDisplayMode (dwWidth: DWORD; dwHeight: DWORD; dwBPP: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwRefreshRate: DWORD; dwFlags: DWORD) : HResult; stdcall;
-    function WaitForVerticalBlank(dwFlags: DWORD; hEvent: THandle): HResult; stdcall;
+    function WaitForVerticalBlank (dwFlags: DWORD; hEvent: THandle) :
-    // IDirectDraw2 methods
+        HResult; stdcall;
+    (*** Added in the v2 interface ***)
-    function GetAvailableVidMem(var lpDDSCaps: TDDSCaps;
+    function GetAvailableVidMem (const lpDDSCaps: TDDSCaps2;
-        var lpdwTotal, lpdwFree: DWORD): HResult; stdcall;
+        out lpdwTotal, lpdwFree: DWORD) : HResult; stdcall;
-    // IDirectDraw4 methods
+    (*** Added in the V4 Interface ***)
+    function GetSurfaceFromDC (hdc : Windows.HDC;
-    function GetSurfaceFromDC(hdc: HDC; lpDDS: IDirectDrawSurface4): HResult; stdcall;
+        out lpDDS4: IDirectDrawSurface4) : HResult; stdcall;
-    function RestoreAllSurfaces: HResult; stdcall;
+    function RestoreAllSurfaces : HResult; stdcall;
-    function TestCooperativeLevel: HResult; stdcall;
+    function TestCooperativeLevel : HResult; stdcall;
-    function GetDeviceIdentifier(var lpdddi: TDDDeviceIdentifier; dwFlags: DWORD): HResult; stdcall;
+    function GetDeviceIdentifier (out lpdddi: TDDDeviceIdentifier;
+        dwFlags: DWORD) : HResult; stdcall;
   end;
-{ IDirectDraw7 Interface }
-  IDirectDraw7 = interface(IUnknown)
+  IDirectDraw7 = interface (IUnknown)
-    ['{15E65EC0-3B9C-11D2-B92F-00609797EA5B}']
+    ['{15e65ec0-3b9c-11d2-b92f-00609797ea5b}']
-    // IDirectDraw methods
+    (*** IDirectDraw methods ***)
     function Compact: HResult; stdcall;
+    function CreateClipper (dwFlags: DWORD;
+        out lplpDDClipper: IDirectDrawClipper;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreateClipper(dwFlags: DWORD; out lplpDDClipper: IDirectDrawClipper;
+    function CreatePalette (dwFlags: DWORD; lpColorTable: pointer;
+        out lplpDDPalette: IDirectDrawPalette;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreatePalette(dwFlags: DWORD; lpColorTable: PPaletteEntry;
-        out lplpDDPalette: IDirectDrawPalette; pUnkOuter: IUnknown): HResult; stdcall;
-    function CreateSurface(const lpDDSurfaceDesc: TDDSurfaceDesc2;
+    function CreateSurface (const lpDDSurfaceDesc: TDDSurfaceDesc2;
-        out lplpDDSurface: IDirectDrawSurface7; pUnkOuter: IUnknown): HResult; stdcall;
+        out lplpDDSurface: IDirectDrawSurface7;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function DuplicateSurface(lpDDSurface: IDirectDrawSurface7;
+    function DuplicateSurface (lpDDSurface: IDirectDrawSurface7;
-        out lplpDupDDSurface: IDirectDrawSurface7): HResult; stdcall;
+        out lplpDupDDSurface: IDirectDrawSurface7) : HResult; stdcall;
-    function EnumDisplayModes(dwFlags: DWORD;
+    function EnumDisplayModes (dwFlags: DWORD;
-        const lpDDSurfaceDesc: TDDSurfaceDesc2; lpContext: Pointer;
+        lpDDSurfaceDesc: PDDSurfaceDesc2; lpContext: Pointer;
-        lpEnumModesCallback: TDDEnumModesCallback2): HResult; stdcall;
+        lpEnumModesCallback: TDDEnumModesCallback2) : HResult; stdcall;
-    function EnumSurfaces(dwFlags: DWORD; const lpDDSD: TDDSurfaceDesc2;
+    function EnumSurfaces (dwFlags: DWORD; const lpDDSD: TDDSurfaceDesc2;
-        lpContext: Pointer; lpEnumCallback: TDDEnumSurfacesCallback7): HResult; stdcall;
+        lpContext: Pointer; lpEnumCallback: TDDEnumSurfacesCallback7) :
+        HResult; stdcall;
     function FlipToGDISurface: HResult; stdcall;
-    function GetCaps(var lpDDDriverCaps: TDDCaps; var lpDDHELCaps: TDDCaps): HResult; stdcall;
+    function GetCaps (lpDDDriverCaps: PDDCaps; lpDDHELCaps: PDDCaps) : HResult; stdcall;
-    function GetDisplayMode(var lpDDSurfaceDesc: TDDSurfaceDesc2): HResult; stdcall;
+    function GetDisplayMode (out lpDDSurfaceDesc: TDDSurfaceDesc2) : HResult; stdcall;
-    function GetFourCCCodes(var lpNumCodes, lpCodes: DWORD): HResult; stdcall;
+    function GetFourCCCodes (var lpNumCodes: DWORD; lpCodes: PDWORD) : HResult; stdcall;
-    function GetGDISurface(out lplpGDIDDSSurface: IDirectDrawSurface7): HResult; stdcall;
+    function GetGDISurface (out lplpGDIDDSSurface: IDirectDrawSurface7) :
+        HResult; stdcall;
-    function GetMonitorFrequency(var lpdwFrequency: DWORD): HResult; stdcall;
+    function GetMonitorFrequency (out lpdwFrequency: DWORD) : HResult; stdcall;
-    function GetScanLine(var lpdwScanLine: DWORD): HResult; stdcall;
+    function GetScanLine (out lpdwScanLine: DWORD) : HResult; stdcall;
-    function GetVerticalBlankStatus(var lpbIsInVB: BOOL): HResult; stdcall;
+    function GetVerticalBlankStatus (out lpbIsInVB: BOOL) : HResult; stdcall;
-    function Initialize(lpGUID: PGUID): HResult; stdcall;
+    function Initialize (lpGUID: PGUID) : HResult; stdcall;
     function RestoreDisplayMode: HResult; stdcall;
-    function SetCooperativeLevel(hWnd: HWND; dwFlags: DWORD): HResult; stdcall;
+    function SetCooperativeLevel (hWnd: HWND; dwFlags: DWORD) : HResult; stdcall;
-    function SetDisplayMode(dwWidth, dwHeight, dwBPP, dwRefreshRate: DWORD;
+    function SetDisplayMode (dwWidth: DWORD; dwHeight: DWORD; dwBPP: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwRefreshRate: DWORD; dwFlags: DWORD) : HResult; stdcall;
-    function WaitForVerticalBlank(dwFlags: DWORD; hEvent: THandle): HResult; stdcall;
+    function WaitForVerticalBlank (dwFlags: DWORD; hEvent: THandle) :
-    // IDirectDraw2 methods
+        HResult; stdcall;
+    (*** Added in the v2 interface ***)
-    function GetAvailableVidMem(var lpDDSCaps: TDDSCaps;
+    function GetAvailableVidMem (const lpDDSCaps: TDDSCaps2;
-        var lpdwTotal, lpdwFree: DWORD): HResult; stdcall;
+        out lpdwTotal, lpdwFree: DWORD) : HResult; stdcall;
-    // IDirectDraw4 methods
+    (*** Added in the V4 Interface ***)
+    function GetSurfaceFromDC (hdc : Windows.HDC;
-    function GetSurfaceFromDC(hdc: HDC; lpDDS: IDirectDrawSurface4): HResult; stdcall;
+        out lpDDS: IDirectDrawSurface7) : HResult; stdcall;
-    function RestoreAllSurfaces: HResult; stdcall;
+    function RestoreAllSurfaces : HResult; stdcall;
-    function TestCooperativeLevel: HResult; stdcall;
+    function TestCooperativeLevel : HResult; stdcall;
-    function GetDeviceIdentifier(var lpdddi: TDDDeviceIdentifier; dwFlags: DWORD): HResult; stdcall;
+    function GetDeviceIdentifier (out lpdddi: TDDDeviceIdentifier2;
-    // IDirectDraw7 methods
+        dwFlags: DWORD) : HResult; stdcall;
-    function StartModeTest(var lpModesToTest: TSize; dwNumEntries: DWORD; dwFlags: DWORD): HResult; stdcall;
+    function StartModeTest(const lpModesToTest; dwNumEntries, dwFlags: DWORD) : HResult; stdcall;
-    function EvaluateMode(dwFlags: DWORD; var pSecondsUntilTimeout: DWORD): HResult; stdcall;
+    function EvaluateMode(dwFlags: DWORD; out pSecondsUntilTimeout: DWORD) : HResult; stdcall;
   end;
+(*
-{ IDirectDrawPalette Interface }
+ * IDirectDrawPalette
+ *)
-  IDirectDrawPalette = interface(IUnknown)
+  IDirectDrawPalette = interface (IUnknown)
     ['{6C14DB84-A733-11CE-A521-0020AF0BE560}']
-    // IDirectDrawPalette methods
+    (*** IDirectDrawPalette methods ***)
-    function GetCaps(varlpdwCaps: DWORD): HResult; stdcall;
+    function GetCaps (out lpdwCaps: DWORD) : HResult; stdcall;
-    function GetEntries(dwFlags: DWORD; dwBase: DWORD; dwNumEntries: DWORD;
+    function GetEntries (dwFlags: DWORD; dwBase: DWORD; dwNumEntries: DWORD;
-        lpEntries: PPaletteEntry): HResult; stdcall;
+        lpEntries: pointer) : HResult; stdcall;
-    function Initialize(lpDD: IDirectDraw; dwFlags: DWORD;
+    function Initialize (lpDD: IDirectDraw; dwFlags: DWORD;
-        lpDDColorTable: PPaletteEntry): HResult; stdcall;
+        lpDDColorTable: pointer) : HResult; stdcall;
-    function SetEntries(dwFlags: DWORD; dwStartingEntry: DWORD;
+    function SetEntries (dwFlags: DWORD; dwStartingEntry: DWORD;
-        dwCount: DWORD; lpEntries: PPaletteEntry): HResult; stdcall;
+        dwCount: DWORD; lpEntries: pointer) : HResult; stdcall;
   end;
+(*
-{ IDirectDrawClipper Interface }
+ * IDirectDrawClipper
+ *)
-  IDirectDrawClipper = interface(IUnknown)
+  IDirectDrawClipper = interface (IUnknown)
     ['{6C14DB85-A733-11CE-A521-0020AF0BE560}']
-    // IDirectDrawClipper methods
+    (*** IDirectDrawClipper methods ***)
-    function GetClipList(const lpRect: TRect; lpClipList: PRgnData;
+    function GetClipList (lpRect: PRect; lpClipList: PRgnData;
-        var lpdwSize: DWORD): HResult; stdcall;
+        var lpdwSize: DWORD) : HResult; stdcall;
-    function GetHWnd(var lphWnd: HWND): HResult; stdcall;
+    function GetHWnd (out lphWnd: HWND) : HResult; stdcall;
-    function Initialize(lpDD: IDirectDraw; dwFlags: DWORD): HResult; stdcall;
+    function Initialize (lpDD: IDirectDraw; dwFlags: DWORD) : HResult; stdcall;
-    function IsClipListChanged(var lpbChanged: BOOL): HResult; stdcall;
+    function IsClipListChanged (out lpbChanged: BOOL) : HResult; stdcall;
-    function SetClipList(lpClipList: PRgnData; dwFlags: DWORD): HResult; stdcall;
+    function SetClipList (lpClipList: PRgnData; dwFlags: DWORD) : HResult; stdcall;
-    function SetHWnd(dwFlags: DWORD; hWnd: HWND): HResult; stdcall;
+    function SetHWnd (dwFlags: DWORD; hWnd: HWND) : HResult; stdcall;
   end;
+(*
-{ IDirectDrawSurface Interface }
+ * IDirectDrawSurface and related interfaces
+ *)
-  IDirectDrawSurface = interface(IUnknown)
+  IDirectDrawSurface = interface (IUnknown)
     ['{6C14DB81-A733-11CE-A521-0020AF0BE560}']
-    // IDirectDrawSurface methods
+    (*** IDirectDrawSurface methods ***)
-    function AddAttachedSurface(lpDDSAttachedSurface: IDirectDrawSurface): HResult; stdcall;
+    function AddAttachedSurface (lpDDSAttachedSurface: IDirectDrawSurface) :
+        HResult; stdcall;
-    function AddOverlayDirtyRect(const lpRect: TRect): HResult; stdcall;
+    function AddOverlayDirtyRect (const lpRect: TRect) : HResult; stdcall;
+    function Blt (lpDestRect: PRect;
-    function Blt(const lpDestRect: TRect; lpDDSrcSurface: IDirectDrawSurface;
+        lpDDSrcSurface: IDirectDrawSurface; lpSrcRect: PRect;
-        const lpSrcRect: TRect; dwFlags: DWORD; const lpDDBltFx: TDDBltFX): HResult; stdcall;
+        dwFlags: DWORD; lpDDBltFx: PDDBltFX) : HResult; stdcall;
-    function BltBatch(const lpDDBltBatch: TDDBltBatch; dwCount: DWORD;
+    function BltBatch (const lpDDBltBatch: TDDBltBatch; dwCount: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function BltFast(dwX, dwY: DWORD; lpDDSrcSurface: IDirectDrawSurface;
+    function BltFast (dwX: DWORD; dwY: DWORD;
+        lpDDSrcSurface: IDirectDrawSurface; lpSrcRect: PRect;
-        const lpSrcRect: TRect; dwTrans: DWORD): HResult; stdcall;
+        dwTrans: DWORD) : HResult; stdcall;
-    function DeleteAttachedSurface(dwFlags: DWORD;
+    function DeleteAttachedSurface (dwFlags: DWORD;
-        lpDDSAttachedSurface: IDirectDrawSurface): HResult; stdcall;
+        lpDDSAttachedSurface: IDirectDrawSurface) : HResult; stdcall;
-    function EnumAttachedSurfaces(lpContext: Pointer;
+    function EnumAttachedSurfaces (lpContext: Pointer;
-        lpEnumSurfacesCallback: TDDEnumSurfacesCallback): HResult; stdcall;
+        lpEnumSurfacesCallback: TDDEnumSurfacesCallback) : HResult; stdcall;
-    function EnumOverlayZOrders(dwFlags: DWORD; lpContext: Pointer;
+    function EnumOverlayZOrders (dwFlags: DWORD; lpContext: Pointer;
-        lpfnCallback: TDDEnumSurfacesCallback): HResult; stdcall;
+        lpfnCallback: TDDEnumSurfacesCallback) : HResult; stdcall;
-    function Flip(lpDDSurfaceTargetOverride: IDirectDrawSurface;
+    function Flip (lpDDSurfaceTargetOverride: IDirectDrawSurface;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function GetAttachedSurface(var lpDDSCaps: TDDSCaps;
+    function GetAttachedSurface (var lpDDSCaps: TDDSCaps;
-        out lplpDDAttachedSurface: IDirectDrawSurface): HResult; stdcall;
+        (*out*)var lplpDDAttachedSurface: IDirectDrawSurface) : HResult; stdcall;
-    function GetBltStatus(dwFlags: DWORD): HResult; stdcall;
+    function GetBltStatus (dwFlags: DWORD) : HResult; stdcall;
-    function GetCaps(var lpDDSCaps: TDDSCaps): HResult; stdcall;
+    function GetCaps (out lpDDSCaps: TDDSCaps) : HResult; stdcall;
-    function GetClipper(out lplpDDClipper: IDirectDrawClipper): HResult; stdcall;
+    function GetClipper (out lplpDDClipper: IDirectDrawClipper) : HResult; stdcall;
-    function GetColorKey(dwFlags: DWORD; var lpDDColorKey: TDDColorKey): HResult; stdcall;
+    function GetColorKey (dwFlags: DWORD; out lpDDColorKey: TDDColorKey) :
+        HResult; stdcall;
-    function GetDC(var lphDC: HDC): HResult; stdcall;
+    function GetDC (out lphDC: HDC) : HResult; stdcall;
-    function GetFlipStatus(dwFlags: DWORD): HResult; stdcall;
+    function GetFlipStatus (dwFlags: DWORD) : HResult; stdcall;
-    function GetOverlayPosition(var lplX, lplY: Longint): HResult; stdcall;
+    function GetOverlayPosition (out lplX, lplY: LongInt) : HResult; stdcall;
-    function GetPalette(out lplpDDPalette: IDirectDrawPalette): HResult; stdcall;
+    function GetPalette (out lplpDDPalette: IDirectDrawPalette) : HResult; stdcall;
-    function GetPixelFormat(var lpDDPixelFormat: TDDPixelFormat): HResult; stdcall;
+    function GetPixelFormat (out lpDDPixelFormat: TDDPixelFormat) : HResult; stdcall;
-    function GetSurfaceDesc(var lpDDSurfaceDesc: TDDSurfaceDesc): HResult; stdcall;
+    function GetSurfaceDesc (out lpDDSurfaceDesc: TDDSurfaceDesc) : HResult; stdcall;
-    function Initialize(lpDD: IDirectDraw;
+    function Initialize (lpDD: IDirectDraw;
-        const lpDDSurfaceDesc: TDDSurfaceDesc): HResult; stdcall;
+        out lpDDSurfaceDesc: TDDSurfaceDesc) : HResult; stdcall;
     function IsLost: HResult; stdcall;
-    function Lock(lpDestRect: PRect; var lpDDSurfaceDesc: TDDSurfaceDesc;
+    function Lock (lpDestRect: PRect; out lpDDSurfaceDesc:
-        dwFlags: DWORD; hEvent: THandle): HResult; stdcall;
+        TDDSurfaceDesc; dwFlags: DWORD; hEvent: THandle) : HResult; stdcall;
-    function ReleaseDC(hDC: HDC): HResult; stdcall;
+    function ReleaseDC (hDC: Windows.HDC) : HResult; stdcall;
-    function Restore: HResult; stdcall;
+    function _Restore: HResult; stdcall;
-    function SetClipper(lpDDClipper: IDirectDrawClipper): HResult; stdcall;
+    function SetClipper (lpDDClipper: IDirectDrawClipper) : HResult; stdcall;
-    function SetColorKey(dwFlags: DWORD; const lpDDColorKey: TDDColorKey): HResult; stdcall;
+    function SetColorKey (dwFlags: DWORD; lpDDColorKey: PDDColorKey) :
+        HResult; stdcall;
-    function SetOverlayPosition(lX, lY: Longint): HResult; stdcall;
+    function SetOverlayPosition (lX, lY: LongInt) : HResult; stdcall;
-    function SetPalette(lpDDPalette: IDirectDrawPalette): HResult; stdcall;
+    function SetPalette (lpDDPalette: IDirectDrawPalette) : HResult; stdcall;
-    function Unlock(lpSurfaceData: Pointer): HResult; stdcall;
+    function Unlock (lpSurfaceData: Pointer) : HResult; stdcall;
-    function UpdateOverlay(const lpSrcRect: TRect;
+    function UpdateOverlay (lpSrcRect: PRect;
-        lpDDDestSurface: IDirectDrawSurface; const lpDestRect: TRect;
+        lpDDDestSurface: IDirectDrawSurface; lpDestRect: PRect;
-        dwFlags: DWORD; const lpDDOverlayFx: TDDOverlayFX): HResult; stdcall;
+        dwFlags: DWORD; lpDDOverlayFx: PDDOverlayFX) : HResult; stdcall;
-    function UpdateOverlayDisplay(dwFlags: DWORD): HResult; stdcall;
+    function UpdateOverlayDisplay (dwFlags: DWORD) : HResult; stdcall;
-    function UpdateOverlayZOrder(dwFlags: DWORD;
+    function UpdateOverlayZOrder (dwFlags: DWORD;
-        lpDDSReference: IDirectDrawSurface): HResult; stdcall;
+        lpDDSReference: IDirectDrawSurface) : HResult; stdcall;
   end;
+(*
-{ IDirectDrawSurface2 Interface }
+ * IDirectDrawSurface2 and related interfaces
+ *)
-  IDirectDrawSurface2 = interface(IUnknown)
+  IDirectDrawSurface2 = interface (IUnknown)
-    ['{57805885-6EEC-11CF-9441-A82303C10E27}']
+    ['{57805885-6eec-11cf-9441-a82303c10e27}']
-    // IDirectDrawSurface methods
+    (*** IDirectDrawSurface methods ***)
-    function AddAttachedSurface(lpDDSAttachedSurface: IDirectDrawSurface2): HResult; stdcall;
+    function AddAttachedSurface (lpDDSAttachedSurface: IDirectDrawSurface2) :
+        HResult; stdcall;
-    function AddOverlayDirtyRect(const lpRect: TRect): HResult; stdcall;
+    function AddOverlayDirtyRect (const lpRect: TRect) : HResult; stdcall;
+    function Blt (lpDestRect: PRect;
-    function Blt(const lpDestRect: TRect; lpDDSrcSurface: IDirectDrawSurface2;
+        lpDDSrcSurface: IDirectDrawSurface2; lpSrcRect: PRect;
-        const lpSrcRect: TRect; dwFlags: DWORD; const lpDDBltFx: TDDBltFX): HResult; stdcall;
+        dwFlags: DWORD; lpDDBltFx: PDDBltFX) : HResult; stdcall;
-    function BltBatch(const lpDDBltBatch: TDDBltBatch; dwCount: DWORD;
+    function BltBatch (const lpDDBltBatch: TDDBltBatch; dwCount: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function BltFast(dwX, dwY: DWORD; lpDDSrcSurface: IDirectDrawSurface2;
+    function BltFast (dwX: DWORD; dwY: DWORD;
+        lpDDSrcSurface: IDirectDrawSurface2; lpSrcRect: PRect;
-        const lpSrcRect: TRect; dwTrans: DWORD): HResult; stdcall;
+        dwTrans: DWORD) : HResult; stdcall;
-    function DeleteAttachedSurface(dwFlags: DWORD;
+    function DeleteAttachedSurface (dwFlags: DWORD;
-        lpDDSAttachedSurface: IDirectDrawSurface2): HResult; stdcall;
+        lpDDSAttachedSurface: IDirectDrawSurface2) : HResult; stdcall;
-    function EnumAttachedSurfaces(lpContext: Pointer;
+    function EnumAttachedSurfaces (lpContext: Pointer;
-        lpEnumSurfacesCallback: TDDEnumSurfacesCallback): HResult; stdcall;
+        lpEnumSurfacesCallback: TDDEnumSurfacesCallback) : HResult; stdcall;
-    function EnumOverlayZOrders(dwFlags: DWORD; lpContext: Pointer;
+    function EnumOverlayZOrders (dwFlags: DWORD; lpContext: Pointer;
-        lpfnCallback: TDDEnumSurfacesCallback): HResult; stdcall;
+        lpfnCallback: TDDEnumSurfacesCallback) : HResult; stdcall;
-    function Flip(lpDDSurfaceTargetOverride: IDirectDrawSurface2;
+    function Flip (lpDDSurfaceTargetOverride: IDirectDrawSurface2;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function GetAttachedSurface(var lpDDSCaps: TDDSCaps;
+    function GetAttachedSurface (var lpDDSCaps: TDDSCaps;
-        out lplpDDAttachedSurface: IDirectDrawSurface2): HResult; stdcall;
+        out lplpDDAttachedSurface: IDirectDrawSurface2) : HResult; stdcall;
-    function GetBltStatus(dwFlags: DWORD): HResult; stdcall;
+    function GetBltStatus (dwFlags: DWORD) : HResult; stdcall;
-    function GetCaps(var lpDDSCaps: TDDSCaps): HResult; stdcall;
+    function GetCaps (out lpDDSCaps: TDDSCaps) : HResult; stdcall;
-    function GetClipper(out lplpDDClipper: IDirectDrawClipper): HResult; stdcall;
+    function GetClipper (out lplpDDClipper: IDirectDrawClipper) : HResult; stdcall;
-    function GetColorKey(dwFlags: DWORD; var lpDDColorKey: TDDColorKey): HResult; stdcall;
+    function GetColorKey (dwFlags: DWORD; out lpDDColorKey: TDDColorKey) :
+        HResult; stdcall;
-    function GetDC(var lphDC: HDC): HResult; stdcall;
+    function GetDC (out lphDC: HDC) : HResult; stdcall;
-    function GetFlipStatus(dwFlags: DWORD): HResult; stdcall;
+    function GetFlipStatus (dwFlags: DWORD) : HResult; stdcall;
-    function GetOverlayPosition(var lplX, lplY: Longint): HResult; stdcall;
+    function GetOverlayPosition (out lplX, lplY: LongInt) : HResult; stdcall;
-    function GetPalette(out lplpDDPalette: IDirectDrawPalette): HResult; stdcall;
+    function GetPalette (out lplpDDPalette: IDirectDrawPalette) : HResult; stdcall;
-    function GetPixelFormat(var lpDDPixelFormat: TDDPixelFormat): HResult; stdcall;
+    function GetPixelFormat (out lpDDPixelFormat: TDDPixelFormat) : HResult; stdcall;
-    function GetSurfaceDesc(var lpDDSurfaceDesc: TDDSurfaceDesc): HResult; stdcall;
+    function GetSurfaceDesc (out lpDDSurfaceDesc: TDDSurfaceDesc) : HResult; stdcall;
+    function Initialize (lpDD: IDirectDraw;
-    function Initialize(lpDD: IDirectDraw; const lpDDSurfaceDesc: TDDSurfaceDesc): HResult; stdcall;
+        out lpDDSurfaceDesc: TDDSurfaceDesc) : HResult; stdcall;
     function IsLost: HResult; stdcall;
-    function Lock(lpDestRect: PRect; const lpDDSurfaceDesc: TDDSurfaceDesc;
+    function Lock (lpDestRect: PRect;
+        out lpDDSurfaceDesc: TDDSurfaceDesc; dwFlags: DWORD;
-        dwFlags: DWORD; hEvent: THandle): HResult; stdcall;
+        hEvent: THandle) : HResult; stdcall;
-    function ReleaseDC(hDC: HDC): HResult; stdcall;
+    function ReleaseDC (hDC: Windows.HDC) : HResult; stdcall;
-    function Restore: HResult; stdcall;
+    function _Restore: HResult; stdcall;
-    function SetClipper(lpDDClipper: IDirectDrawClipper): HResult; stdcall;
+    function SetClipper (lpDDClipper: IDirectDrawClipper) : HResult; stdcall;
-    function SetColorKey(dwFlags: DWORD; const lpDDColorKey: TDDColorKey): HResult; stdcall;
+    function SetColorKey (dwFlags: DWORD; lpDDColorKey: PDDColorKey) :
+        HResult; stdcall;
-    function SetOverlayPosition(lX, lY: Longint): HResult; stdcall;
+    function SetOverlayPosition (lX, lY: LongInt) : HResult; stdcall;
-    function SetPalette(lpDDPalette: IDirectDrawPalette): HResult; stdcall;
+    function SetPalette (lpDDPalette: IDirectDrawPalette) : HResult; stdcall;
-    function Unlock(lpSurfaceData: Pointer): HResult; stdcall;
+    function Unlock (lpSurfaceData: Pointer) : HResult; stdcall;
-    function UpdateOverlay(const lpSrcRect: TRect;
+    function UpdateOverlay (lpSrcRect: PRect;
-        lpDDDestSurface: IDirectDrawSurface2; const lpDestRect: TRect;
+        lpDDDestSurface: IDirectDrawSurface2; lpDestRect: PRect;
-        dwFlags: DWORD; const lpDDOverlayFx: TDDOverlayFX): HResult; stdcall;
+        dwFlags: DWORD; lpDDOverlayFx: PDDOverlayFX) : HResult; stdcall;
-    function UpdateOverlayDisplay(dwFlags: DWORD): HResult; stdcall;
+    function UpdateOverlayDisplay (dwFlags: DWORD) : HResult; stdcall;
-    function UpdateOverlayZOrder(dwFlags: DWORD;
+    function UpdateOverlayZOrder (dwFlags: DWORD;
-        lpDDSReference: IDirectDrawSurface2): HResult; stdcall;
+        lpDDSReference: IDirectDrawSurface2) : HResult; stdcall;
-    // IDirectDrawSurface2 methods
+    (*** Added in the v2 interface ***)
-    function GetDDInterface(out lplpDD: IUnknown): HResult; stdcall;
+    function GetDDInterface (var lplpDD: IDirectDraw) : HResult; stdcall;
-    function PageLock(dwFlags: DWORD): HResult; stdcall;
+    function PageLock (dwFlags: DWORD) : HResult; stdcall;
-    function PageUnlock(dwFlags: DWORD): HResult; stdcall;
+    function PageUnlock (dwFlags: DWORD) : HResult; stdcall;
   end;
-{ IDirectDrawSurface3 Interface }
-  IDirectDrawSurface3 = interface(IUnknown)
+  IDirectDrawSurface3 = interface (IUnknown)
     ['{DA044E00-69B2-11D0-A1D5-00AA00B8DFBB}']
-    // IDirectDrawSurface methods
+    (*** IDirectDrawSurface methods ***)
-    function AddAttachedSurface(lpDDSAttachedSurface: IDirectDrawSurface3): HResult; stdcall;
+    function AddAttachedSurface (lpDDSAttachedSurface: IDirectDrawSurface3) :
+        HResult; stdcall;
-    function AddOverlayDirtyRect(const lpRect: TRect): HResult; stdcall;
+    function AddOverlayDirtyRect (const lpRect: TRect) : HResult; stdcall;
+    function Blt (lpDestRect: PRect;
-    function Blt(const lpDestRect: TRect; lpDDSrcSurface: IDirectDrawSurface3;
+        lpDDSrcSurface: IDirectDrawSurface3; lpSrcRect: PRect;
-        const lpSrcRect: TRect; dwFlags: DWORD; const lpDDBltFx: TDDBltFX): HResult; stdcall;
+        dwFlags: DWORD; lpDDBltFx: PDDBltFX) : HResult; stdcall;
-    function BltBatch(const lpDDBltBatch: TDDBltBatch; dwCount: DWORD;
+    function BltBatch (const lpDDBltBatch: TDDBltBatch; dwCount: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function BltFast(dwX, dwY: DWORD; lpDDSrcSurface: IDirectDrawSurface3;
+    function BltFast (dwX: DWORD; dwY: DWORD;
+        lpDDSrcSurface: IDirectDrawSurface3; lpSrcRect: PRect;
-        const lpSrcRect: TRect; dwTrans: DWORD): HResult; stdcall;
+        dwTrans: DWORD) : HResult; stdcall;
-    function DeleteAttachedSurface(dwFlags: DWORD;
+    function DeleteAttachedSurface (dwFlags: DWORD;
-        lpDDSAttachedSurface: IDirectDrawSurface3): HResult; stdcall;
+        lpDDSAttachedSurface: IDirectDrawSurface3) : HResult; stdcall;
-    function EnumAttachedSurfaces(lpContext: Pointer;
+    function EnumAttachedSurfaces (lpContext: Pointer;
-        lpEnumSurfacesCallback: TDDEnumSurfacesCallback): HResult; stdcall;
+        lpEnumSurfacesCallback: TDDEnumSurfacesCallback) : HResult; stdcall;
-    function EnumOverlayZOrders(dwFlags: DWORD; lpContext: Pointer;
+    function EnumOverlayZOrders (dwFlags: DWORD; lpContext: Pointer;
-        lpfnCallback: TDDEnumSurfacesCallback): HResult; stdcall;
+        lpfnCallback: TDDEnumSurfacesCallback) : HResult; stdcall;
-    function Flip(lpDDSurfaceTargetOverride: IDirectDrawSurface3;
+    function Flip (lpDDSurfaceTargetOverride: IDirectDrawSurface3;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function GetAttachedSurface(var lpDDSCaps: TDDSCaps;
+    function GetAttachedSurface (var lpDDSCaps: TDDSCaps;
-        out lplpDDAttachedSurface: IDirectDrawSurface3): HResult; stdcall;
+        out lplpDDAttachedSurface: IDirectDrawSurface3) : HResult; stdcall;
-    function GetBltStatus(dwFlags: DWORD): HResult; stdcall;
+    function GetBltStatus (dwFlags: DWORD) : HResult; stdcall;
-    function GetCaps(var lpDDSCaps: TDDSCaps): HResult; stdcall;
+    function GetCaps (out lpDDSCaps: TDDSCaps) : HResult; stdcall;
-    function GetClipper(out lplpDDClipper: IDirectDrawClipper): HResult; stdcall;
+    function GetClipper (out lplpDDClipper: IDirectDrawClipper) : HResult; stdcall;
-    function GetColorKey(dwFlags: DWORD; var lpDDColorKey: TDDColorKey): HResult; stdcall;
+    function GetColorKey (dwFlags: DWORD; out lpDDColorKey: TDDColorKey) :
+        HResult; stdcall;
-    function GetDC(var lphDC: HDC): HResult; stdcall;
+    function GetDC (out lphDC: HDC) : HResult; stdcall;
-    function GetFlipStatus(dwFlags: DWORD): HResult; stdcall;
+    function GetFlipStatus (dwFlags: DWORD) : HResult; stdcall;
-    function GetOverlayPosition(var lplX, lplY: Longint): HResult; stdcall;
+    function GetOverlayPosition (out lplX, lplY: LongInt) : HResult; stdcall;
-    function GetPalette(out lplpDDPalette: IDirectDrawPalette): HResult; stdcall;
+    function GetPalette (out lplpDDPalette: IDirectDrawPalette) : HResult; stdcall;
-    function GetPixelFormat(var lpDDPixelFormat: TDDPixelFormat): HResult; stdcall;
+    function GetPixelFormat (out lpDDPixelFormat: TDDPixelFormat) : HResult; stdcall;
-    function GetSurfaceDesc(var lpDDSurfaceDesc: TDDSurfaceDesc): HResult; stdcall;
+    function GetSurfaceDesc (out lpDDSurfaceDesc: TDDSurfaceDesc) : HResult; stdcall;
+    function Initialize (lpDD: IDirectDraw;
-    function Initialize(lpDD: IDirectDraw; const lpDDSurfaceDesc: TDDSurfaceDesc): HResult; stdcall;
+        out lpDDSurfaceDesc: TDDSurfaceDesc) : HResult; stdcall;
     function IsLost: HResult; stdcall;
-    function Lock(lpDestRect: PRect; const lpDDSurfaceDesc: TDDSurfaceDesc;
+    function Lock (lpDestRect: PRect;
+        out lpDDSurfaceDesc: TDDSurfaceDesc; dwFlags: DWORD;
-        dwFlags: DWORD; hEvent: THandle): HResult; stdcall;
+        hEvent: THandle) : HResult; stdcall;
-    function ReleaseDC(hDC: HDC): HResult; stdcall;
+    function ReleaseDC (hDC: Windows.HDC) : HResult; stdcall;
-    function Restore: HResult; stdcall;
+    function _Restore: HResult; stdcall;
-    function SetClipper(lpDDClipper: IDirectDrawClipper): HResult; stdcall;
+    function SetClipper (lpDDClipper: IDirectDrawClipper) : HResult; stdcall;
-    function SetColorKey(dwFlags: DWORD; const lpDDColorKey: TDDColorKey): HResult; stdcall;
+    function SetColorKey (dwFlags: DWORD; lpDDColorKey: PDDColorKey) :
+        HResult; stdcall;
-    function SetOverlayPosition(lX, lY: Longint): HResult; stdcall;
+    function SetOverlayPosition (lX, lY: LongInt) : HResult; stdcall;
-    function SetPalette(lpDDPalette: IDirectDrawPalette): HResult; stdcall;
+    function SetPalette (lpDDPalette: IDirectDrawPalette) : HResult; stdcall;
-    function Unlock(lpSurfaceData: Pointer): HResult; stdcall;
+    function Unlock (lpSurfaceData: Pointer) : HResult; stdcall;
-    function UpdateOverlay(const lpSrcRect: TRect;
+    function UpdateOverlay (lpSrcRect: PRect;
-        lpDDDestSurface: IDirectDrawSurface3; const lpDestRect: TRect;
+        lpDDDestSurface: IDirectDrawSurface3; lpDestRect: PRect;
-        dwFlags: DWORD; const lpDDOverlayFx: TDDOverlayFX): HResult; stdcall;
+        dwFlags: DWORD; lpDDOverlayFx: PDDOverlayFX) : HResult; stdcall;
-    function UpdateOverlayDisplay(dwFlags: DWORD): HResult; stdcall;
+    function UpdateOverlayDisplay (dwFlags: DWORD) : HResult; stdcall;
-    function UpdateOverlayZOrder(dwFlags: DWORD;
+    function UpdateOverlayZOrder (dwFlags: DWORD;
-        lpDDSReference: IDirectDrawSurface3): HResult; stdcall;
+        lpDDSReference: IDirectDrawSurface3) : HResult; stdcall;
-    // IDirectDrawSurface2 methods
+    (*** Added in the v2 interface ***)
-    function GetDDInterface(out lplpDD: IUnknown): HResult; stdcall;
+    function GetDDInterface (out lplpDD: IDirectDraw) : HResult; stdcall;
-    function PageLock(dwFlags: DWORD): HResult; stdcall;
+    function PageLock (dwFlags: DWORD) : HResult; stdcall;
-    function PageUnlock(dwFlags: DWORD): HResult; stdcall;
+    function PageUnlock (dwFlags: DWORD) : HResult; stdcall;
-    // IDirectDrawSurface3 methods
+    (*** Added in the V3 interface ***)
-    function SetSurfaceDesc(const lpddsd: TDDSurfaceDesc; dwFlags: DWORD): HResult; stdcall;
+    function SetSurfaceDesc(const lpddsd: TDDSurfaceDesc; dwFlags: DWORD) : HResult; stdcall;
   end;
+(*
-{ IDirectDrawSurface4 Interface }
+ * IDirectDrawSurface4 and related interfaces
+ *)
-  IDirectDrawSurface4 = interface(IUnknown)
+  IDirectDrawSurface4 = interface (IUnknown)
     ['{0B2B8630-AD35-11D0-8EA6-00609797EA5B}']
-    // IDirectDrawSurface methods
+    (*** IDirectDrawSurface methods ***)
-    function AddAttachedSurface(lpDDSAttachedSurface: IDirectDrawSurface4): HResult; stdcall;
+    function AddAttachedSurface (lpDDSAttachedSurface: IDirectDrawSurface4) :
+        HResult; stdcall;
-    function AddOverlayDirtyRect(const lpRect: TRect): HResult; stdcall;
+    function AddOverlayDirtyRect (const lpRect: TRect) : HResult; stdcall;
+    function Blt (lpDestRect: PRect;
-    function Blt(const lpDestRect: TRect; lpDDSrcSurface: IDirectDrawSurface4;
+        lpDDSrcSurface: IDirectDrawSurface4; lpSrcRect: PRect;
-        const lpSrcRect: TRect; dwFlags: DWORD; const lpDDBltFx: TDDBltFX): HResult; stdcall;
+        dwFlags: DWORD; lpDDBltFx: PDDBltFX) : HResult; stdcall;
-    function BltBatch(const lpDDBltBatch: TDDBltBatch; dwCount: DWORD;
+    function BltBatch (const lpDDBltBatch: TDDBltBatch; dwCount: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function BltFast(dwX, dwY: DWORD; lpDDSrcSurface: IDirectDrawSurface4;
+    function BltFast (dwX: DWORD; dwY: DWORD;
+        lpDDSrcSurface: IDirectDrawSurface4; lpSrcRect: PRect;
-        const lpSrcRect: TRect; dwTrans: DWORD): HResult; stdcall;
+        dwTrans: DWORD) : HResult; stdcall;
-    function DeleteAttachedSurface(dwFlags: DWORD;
+    function DeleteAttachedSurface (dwFlags: DWORD;
-        lpDDSAttachedSurface: IDirectDrawSurface4): HResult; stdcall;
+        lpDDSAttachedSurface: IDirectDrawSurface4) : HResult; stdcall;
-    function EnumAttachedSurfaces(lpContext: Pointer;
+    function EnumAttachedSurfaces (lpContext: Pointer;
-        lpEnumSurfacesCallback: TDDEnumSurfacesCallback2): HResult; stdcall;
+        lpEnumSurfacesCallback: TDDEnumSurfacesCallback2) : HResult; stdcall;
-    function EnumOverlayZOrders(dwFlags: DWORD; lpContext: Pointer;
+    function EnumOverlayZOrders (dwFlags: DWORD; lpContext: Pointer;
-        lpfnCallback: TDDEnumSurfacesCallback2): HResult; stdcall;
+        lpfnCallback: TDDEnumSurfacesCallback2) : HResult; stdcall;
-    function Flip(lpDDSurfaceTargetOverride: IDirectDrawSurface4;
+    function Flip (lpDDSurfaceTargetOverride: IDirectDrawSurface4;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function GetAttachedSurface(var lpDDSCaps: TDDSCaps2;
+    function GetAttachedSurface (const lpDDSCaps: TDDSCaps2;
-        out lplpDDAttachedSurface: IDirectDrawSurface4): HResult; stdcall;
+        out lplpDDAttachedSurface: IDirectDrawSurface4) : HResult; stdcall;
-    function GetBltStatus(dwFlags: DWORD): HResult; stdcall;
+    function GetBltStatus (dwFlags: DWORD) : HResult; stdcall;
-    function GetCaps(var lpDDSCaps: TDDSCaps2): HResult; stdcall;
+    function GetCaps (out lpDDSCaps: TDDSCaps2) : HResult; stdcall;
-    function GetClipper(out lplpDDClipper: IDirectDrawClipper): HResult; stdcall;
+    function GetClipper (out lplpDDClipper: IDirectDrawClipper) : HResult; stdcall;
-    function GetColorKey(dwFlags: DWORD; var lpDDColorKey: TDDColorKey): HResult; stdcall;
+    function GetColorKey (dwFlags: DWORD; out lpDDColorKey: TDDColorKey) :
+        HResult; stdcall;
-    function GetDC(var lphDC: HDC): HResult; stdcall;
+    function GetDC (out lphDC: HDC) : HResult; stdcall;
-    function GetFlipStatus(dwFlags: DWORD): HResult; stdcall;
+    function GetFlipStatus (dwFlags: DWORD) : HResult; stdcall;
-    function GetOverlayPosition(var lplX, lplY: Longint): HResult; stdcall;
+    function GetOverlayPosition (out lplX, lplY: LongInt) : HResult; stdcall;
-    function GetPalette(out lplpDDPalette: IDirectDrawPalette): HResult; stdcall;
+    function GetPalette (out lplpDDPalette: IDirectDrawPalette) : HResult; stdcall;
-    function GetPixelFormat(var lpDDPixelFormat: TDDPixelFormat): HResult; stdcall;
+    function GetPixelFormat (out lpDDPixelFormat: TDDPixelFormat) : HResult; stdcall;
-    function GetSurfaceDesc(var lpDDSurfaceDesc: TDDSurfaceDesc2): HResult; stdcall;
+    function GetSurfaceDesc (out lpDDSurfaceDesc: TDDSurfaceDesc2) : HResult; stdcall;
+    function Initialize (lpDD: IDirectDraw;
-    function Initialize(lpDD: IDirectDraw; const lpDDSurfaceDesc: TDDSurfaceDesc2): HResult; stdcall;
+        out lpDDSurfaceDesc: TDDSurfaceDesc2) : HResult; stdcall;
     function IsLost: HResult; stdcall;
+    function Lock (lpDestRect: PRect;
-    function Lock(lpDestRect: PRect; const lpDDSurfaceDesc: TDDSurfaceDesc2;
+        out lpDDSurfaceDesc: TDDSurfaceDesc2; dwFlags: DWORD;
-        dwFlags: DWORD; hEvent: THandle): HResult; stdcall;
+        hEvent: THandle) : HResult; stdcall;
-    function ReleaseDC(hDC: HDC): HResult; stdcall;
+    function ReleaseDC (hDC: Windows.HDC) : HResult; stdcall;
-    function Restore: HResult; stdcall;
+    function _Restore: HResult; stdcall;
-    function SetClipper(lpDDClipper: IDirectDrawClipper): HResult; stdcall;
+    function SetClipper (lpDDClipper: IDirectDrawClipper) : HResult; stdcall;
-    function SetColorKey(dwFlags: DWORD; const lpDDColorKey: TDDColorKey): HResult; stdcall;
+    function SetColorKey (dwFlags: DWORD; lpDDColorKey: PDDColorKey) :
+        HResult; stdcall;
-    function SetOverlayPosition(lX, lY: Longint): HResult; stdcall;
+    function SetOverlayPosition (lX, lY: LongInt) : HResult; stdcall;
-    function SetPalette(lpDDPalette: IDirectDrawPalette): HResult; stdcall;
+    function SetPalette (lpDDPalette: IDirectDrawPalette) : HResult; stdcall;
-    function Unlock(lpSurfaceData: Pointer): HResult; stdcall;
+    function Unlock (lpRect: PRect) : HResult; stdcall;
-    function UpdateOverlay(const lpSrcRect: TRect; lpDDDestSurface: IDirectDrawSurface4;
+    function UpdateOverlay (lpSrcRect: PRect;
+        lpDDDestSurface: IDirectDrawSurface4; lpDestRect: PRect;
-        const lpDestRect: TRect; dwFlags: DWORD; const lpDDOverlayFx: TDDOverlayFX): HResult; stdcall;
+        dwFlags: DWORD; lpDDOverlayFx: PDDOverlayFX) : HResult; stdcall;
-    function UpdateOverlayDisplay(dwFlags: DWORD): HResult; stdcall;
+    function UpdateOverlayDisplay (dwFlags: DWORD) : HResult; stdcall;
+    function UpdateOverlayZOrder (dwFlags: DWORD;
-    function UpdateOverlayZOrder(dwFlags: DWORD; lpDDSReference: IDirectDrawSurface4): HResult; stdcall;
+        lpDDSReference: IDirectDrawSurface4) : HResult; stdcall;
-    // IDirectDrawSurface2 methods
+    (*** Added in the v2 interface ***)
-    function GetDDInterface(out lplpDD: IUnknown): HResult; stdcall;
+    function GetDDInterface (out lplpDD: IUnknown) : HResult; stdcall;
-    function PageLock(dwFlags: DWORD): HResult; stdcall;
+    function PageLock (dwFlags: DWORD) : HResult; stdcall;
-    function PageUnlock(dwFlags: DWORD): HResult; stdcall;
+    function PageUnlock (dwFlags: DWORD) : HResult; stdcall;
-    // IDirectDrawSurface3 methods
+    (*** Added in the V3 interface ***)
-    function SetSurfaceDesc(const lpddsd: TDDSurfaceDesc2; dwFlags: DWORD): HResult; stdcall;
+    function SetSurfaceDesc(const lpddsd2: TDDSurfaceDesc2; dwFlags: DWORD) : HResult; stdcall;
-    // IDirectDrawSurface4 methods
+    (*** Added in the v4 interface ***)
-    function SetPrivateData(const guidTag: TGUID; lpData: Pointer;
+    function SetPrivateData(const guidTag: TGUID; lpData: pointer;
-      cbSize: DWORD; dwFlags: DWORD): HResult; stdcall;
+        cbSize: DWORD; dwFlags: DWORD) : HResult; stdcall;
-    function GetPrivateData(const guidTag: TGUID; lpData: Pointer;
+    function GetPrivateData(const guidTag: TGUID; lpBuffer: pointer;
-      var cbSize: DWORD): HResult; stdcall;
+        var lpcbBufferSize: DWORD) : HResult; stdcall;
-    function FreePrivateData(const guidTag: TGUID): HResult; stdcall;
+    function FreePrivateData(const guidTag: TGUID) : HResult; stdcall;
-    function GetUniquenessValue(var lpValue: DWORD): HResult; stdcall;
+    function GetUniquenessValue(out lpValue: DWORD) : HResult; stdcall;
-    function ChangeUniquenessValue: HResult; stdcall;
+    function ChangeUniquenessValue : HResult; stdcall;
   end;
-{ IDirectDrawSurface7 Interface }
-  IDirectDrawSurface7 = interface(IUnknown)
+  IDirectDrawSurface7 = interface (IUnknown)
-    ['{06675A80-3B9B-11D2-B92F-00609797EA5B}']
+    ['{06675a80-3b9b-11d2-b92f-00609797ea5b}']
-    // IDirectDrawSurface methods
+    (*** IDirectDrawSurface methods ***)
-    function AddAttachedSurface(lpDDSAttachedSurface: IDirectDrawSurface7): HResult; stdcall;
+    function AddAttachedSurface (lpDDSAttachedSurface: IDirectDrawSurface7) :
+        HResult; stdcall;
-    function AddOverlayDirtyRect(const lpRect: TRect): HResult; stdcall;
+    function AddOverlayDirtyRect (const lpRect: TRect) : HResult; stdcall;
+    function Blt (lpDestRect: PRect;
-    function Blt(const lpDestRect: TRect; lpDDSrcSurface: IDirectDrawSurface7;
+        lpDDSrcSurface: IDirectDrawSurface7; lpSrcRect: PRect;
-        const lpSrcRect: TRect; dwFlags: DWORD; const lpDDBltFx: TDDBltFX): HResult; stdcall;
+        dwFlags: DWORD; lpDDBltFx: PDDBltFX) : HResult; stdcall;
-    function BltBatch(const lpDDBltBatch: TDDBltBatch; dwCount: DWORD;
+    function BltBatch (const lpDDBltBatch: TDDBltBatch; dwCount: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function BltFast(dwX, dwY: DWORD; lpDDSrcSurface: IDirectDrawSurface7;
+    function BltFast (dwX: DWORD; dwY: DWORD;
+        lpDDSrcSurface: IDirectDrawSurface7; lpSrcRect: PRect;
-        const lpSrcRect: TRect; dwTrans: DWORD): HResult; stdcall;
+        dwTrans: DWORD) : HResult; stdcall;
-    function DeleteAttachedSurface(dwFlags: DWORD;
+    function DeleteAttachedSurface (dwFlags: DWORD;
-        lpDDSAttachedSurface: IDirectDrawSurface7): HResult; stdcall;
+        lpDDSAttachedSurface: IDirectDrawSurface7) : HResult; stdcall;
-    function EnumAttachedSurfaces(lpContext: Pointer;
+    function EnumAttachedSurfaces (lpContext: Pointer;
-        lpEnumSurfacesCallback: TDDEnumSurfacesCallback7): HResult; stdcall;
+        lpEnumSurfacesCallback: TDDEnumSurfacesCallback7) : HResult; stdcall;
-    function EnumOverlayZOrders(dwFlags: DWORD; lpContext: Pointer;
+    function EnumOverlayZOrders (dwFlags: DWORD; lpContext: Pointer;
-        lpfnCallback: TDDEnumSurfacesCallback7): HResult; stdcall;
+        lpfnCallback: TDDEnumSurfacesCallback7) : HResult; stdcall;
-    function Flip(lpDDSurfaceTargetOverride: IDirectDrawSurface7;
+    function Flip (lpDDSurfaceTargetOverride: IDirectDrawSurface7;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function GetAttachedSurface(var lpDDSCaps: TDDSCaps2;
+    function GetAttachedSurface (const lpDDSCaps: TDDSCaps2;
-        out lplpDDAttachedSurface: IDirectDrawSurface7): HResult; stdcall;
+        out lplpDDAttachedSurface: IDirectDrawSurface7) : HResult; stdcall;
-    function GetBltStatus(dwFlags: DWORD): HResult; stdcall;
+    function GetBltStatus (dwFlags: DWORD) : HResult; stdcall;
-    function GetCaps(var lpDDSCaps: TDDSCaps2): HResult; stdcall;
+    function GetCaps (out lpDDSCaps: TDDSCaps2) : HResult; stdcall;
-    function GetClipper(out lplpDDClipper: IDirectDrawClipper): HResult; stdcall;
+    function GetClipper (out lplpDDClipper: IDirectDrawClipper) : HResult; stdcall;
-    function GetColorKey(dwFlags: DWORD; var lpDDColorKey: TDDColorKey): HResult; stdcall;
+    function GetColorKey (dwFlags: DWORD; out lpDDColorKey: TDDColorKey) :
+        HResult; stdcall;
-    function GetDC(var lphDC: HDC): HResult; stdcall;
+    function GetDC (out lphDC: HDC) : HResult; stdcall;
-    function GetFlipStatus(dwFlags: DWORD): HResult; stdcall;
+    function GetFlipStatus (dwFlags: DWORD) : HResult; stdcall;
-    function GetOverlayPosition(var lplX, lplY: Longint): HResult; stdcall;
+    function GetOverlayPosition (out lplX, lplY: LongInt) : HResult; stdcall;
-    function GetPalette(out lplpDDPalette: IDirectDrawPalette): HResult; stdcall;
+    function GetPalette (out lplpDDPalette: IDirectDrawPalette) : HResult; stdcall;
-    function GetPixelFormat(var lpDDPixelFormat: TDDPixelFormat): HResult; stdcall;
+    function GetPixelFormat (out lpDDPixelFormat: TDDPixelFormat) : HResult; stdcall;
-    function GetSurfaceDesc(var lpDDSurfaceDesc: TDDSurfaceDesc2): HResult; stdcall;
+    function GetSurfaceDesc (out lpDDSurfaceDesc: TDDSurfaceDesc2) : HResult; stdcall;
+    function Initialize (lpDD: IDirectDraw;
-    function Initialize(lpDD: IDirectDraw; const lpDDSurfaceDesc: TDDSurfaceDesc2): HResult; stdcall;
+        out lpDDSurfaceDesc: TDDSurfaceDesc2) : HResult; stdcall;
     function IsLost: HResult; stdcall;
+    function Lock (lpDestRect: PRect;
-    function Lock(lpDestRect: PRect; const lpDDSurfaceDesc: TDDSurfaceDesc2;
+        out lpDDSurfaceDesc: TDDSurfaceDesc2; dwFlags: DWORD;
-        dwFlags: DWORD; hEvent: THandle): HResult; stdcall;
+        hEvent: THandle) : HResult; stdcall;
-    function ReleaseDC(hDC: HDC): HResult; stdcall;
+    function ReleaseDC (hDC: Windows.HDC) : HResult; stdcall;
-    function Restore: HResult; stdcall;
+    function _Restore: HResult; stdcall;
-    function SetClipper(lpDDClipper: IDirectDrawClipper): HResult; stdcall;
+    function SetClipper (lpDDClipper: IDirectDrawClipper) : HResult; stdcall;
-    function SetColorKey(dwFlags: DWORD; const lpDDColorKey: TDDColorKey): HResult; stdcall;
+    function SetColorKey (dwFlags: DWORD; lpDDColorKey: PDDColorKey) :
+        HResult; stdcall;
-    function SetOverlayPosition(lX, lY: Longint): HResult; stdcall;
+    function SetOverlayPosition (lX, lY: LongInt) : HResult; stdcall;
-    function SetPalette(lpDDPalette: IDirectDrawPalette): HResult; stdcall;
+    function SetPalette (lpDDPalette: IDirectDrawPalette) : HResult; stdcall;
-    function Unlock(lpSurfaceData: Pointer): HResult; stdcall;
+    function Unlock (lpRect: PRect) : HResult; stdcall;
-    function UpdateOverlay(const lpSrcRect: TRect; lpDDDestSurface: IDirectDrawSurface7;
+    function UpdateOverlay (lpSrcRect: PRect;
+        lpDDDestSurface: IDirectDrawSurface7; lpDestRect: PRect;
-        const lpDestRect: TRect; dwFlags: DWORD; const lpDDOverlayFx: TDDOverlayFX): HResult; stdcall;
+        dwFlags: DWORD; lpDDOverlayFx: PDDOverlayFX) : HResult; stdcall;
-    function UpdateOverlayDisplay(dwFlags: DWORD): HResult; stdcall;
+    function UpdateOverlayDisplay (dwFlags: DWORD) : HResult; stdcall;
+    function UpdateOverlayZOrder (dwFlags: DWORD;
-    function UpdateOverlayZOrder(dwFlags: DWORD; lpDDSReference: IDirectDrawSurface7): HResult; stdcall;
+        lpDDSReference: IDirectDrawSurface7) : HResult; stdcall;
-    // IDirectDrawSurface2 methods
+    (*** Added in the v2 interface ***)
-    function GetDDInterface(out lplpDD: IUnknown): HResult; stdcall;
+    function GetDDInterface (out lplpDD: IUnknown) : HResult; stdcall;
-    function PageLock(dwFlags: DWORD): HResult; stdcall;
+    function PageLock (dwFlags: DWORD) : HResult; stdcall;
-    function PageUnlock(dwFlags: DWORD): HResult; stdcall;
+    function PageUnlock (dwFlags: DWORD) : HResult; stdcall;
-    // IDirectDrawSurface3 methods
+    (*** Added in the V3 interface ***)
-    function SetSurfaceDesc(const lpddsd: TDDSurfaceDesc2; dwFlags: DWORD): HResult; stdcall;
+    function SetSurfaceDesc(const lpddsd2: TDDSurfaceDesc2; dwFlags: DWORD) : HResult; stdcall;
-    // IDirectDrawSurface4 methods
+    (*** Added in the v4 interface ***)
-    function SetPrivateData(const guidTag: TGUID; lpData: Pointer;
+    function SetPrivateData(const guidTag: TGUID; lpData: pointer;
-      cbSize: DWORD; dwFlags: DWORD): HResult; stdcall;
+        cbSize: DWORD; dwFlags: DWORD) : HResult; stdcall;
-    function GetPrivateData(const guidTag: TGUID; lpData: Pointer;
+    function GetPrivateData(const guidTag: TGUID; lpBuffer: pointer;
-      var cbSize: DWORD): HResult; stdcall;
+        var lpcbBufferSize: DWORD) : HResult; stdcall;
-    function FreePrivateData(const guidTag: TGUID): HResult; stdcall;
+    function FreePrivateData(const guidTag: TGUID) : HResult; stdcall;
-    function GetUniquenessValue(var lpValue: DWORD): HResult; stdcall;
+    function GetUniquenessValue(out lpValue: DWORD) : HResult; stdcall;
-    function ChangeUniquenessValue: HResult; stdcall;
+    function ChangeUniquenessValue : HResult; stdcall;
-    // Moved Texture7 methods here
+    (*** Moved Texture7 methods here ***)
-    function SetPriority(dwPriority: DWORD): HResult; stdcall;
+    function SetPriority(dwPriority: DWORD) : HResult; stdcall;
-    function GetPriority(var lpdwPriority: DWORD): HResult; stdcall;
+    function GetPriority(out lpdwPriority: DWORD) : HResult; stdcall;
-    function SetLOD(dwMaxLOD: DWORD): HResult; stdcall;
+    function SetLOD(dwMaxLOD: DWORD) : HResult; stdcall;
-    function GetLOD(var lpdwMaxLOD: DWORD): HResult; stdcall;
+    function GetLOD(out lpdwMaxLOD: DWORD) : HResult; stdcall;
   end;
-{ IDirectDrawColorControl Interface }
-  IDirectDrawColorControl = interface(IUnknown)
+  IDirectDrawColorControl = interface (IUnknown)
     ['{4B9F0EE0-0D7E-11D0-9B06-00A0C903A3B8}']
-    // IDirectDrawColorControl methods
-    function GetColorControls(var lpColorControl: TDDColorControl): HResult; stdcall;
+    function GetColorControls(out lpColorControl: TDDColorControl) : HResult; stdcall;
-    function SetColorControls(const lpColorControl: TDDColorControl): HResult; stdcall;
+    function SetColorControls(const lpColorControl: TDDColorControl) : HResult; stdcall;
   end;
+(*
-{ IDirectDrawGammaControl Interface }
+ * IDirectDrawGammaControl
+ *)
-  IDirectDrawGammaControl = interface(IUnknown)
+  IDirectDrawGammaControl = interface (IUnknown)
     ['{69C11C3E-B46B-11D1-AD7A-00C04FC29B4E}']
-    // IDirectDrawGammaControl methods
-    function GetGammaRamp(dwFlags: DWORD; var lpRampData: TDDGammaRamp): HResult; stdcall;
+    function GetGammaRamp (dwFlags: DWORD; out lpRampData: TDDGammaRamp)
+        : HResult; stdcall;
-    function SetGammaRamp(dwFlags: DWORD; const lpRampData: TDDGammaRamp): HResult; stdcall;
+    function SetGammaRamp (dwFlags: DWORD; const lpRampData: TDDGammaRamp)
+        : HResult; stdcall;
   end;
-const
+type
-{ Flags for DirectDrawEnumerateEx }
+  IID_IDirectDraw = IDirectDraw;
+  IID_IDirectDraw2 = IDirectDraw2;
+  IID_IDirectDraw4 = IDirectDraw4;
+  IID_IDirectDraw7 = IDirectDraw7;
-  DDENUM_ATTACHEDSECONDARYDEVICES = $00000001;
+  IID_IDirectDrawSurface = IDirectDrawSurface;
-  DDENUM_DETACHEDSECONDARYDEVICES = $00000002;
+  IID_IDirectDrawSurface2 = IDirectDrawSurface2;
+  IID_IDirectDrawSurface3 = IDirectDrawSurface3;
-  DDENUM_NONDISPLAYDEVICES        = $00000004;
+  IID_IDirectDrawSurface4 = IDirectDrawSurface4;
+  IID_IDirectDrawSurface7 = IDirectDrawSurface7;
-{ Flags for the IDirectDraw4.GetDeviceIdentifier method }
+  IID_IDirectDrawPalette = IDirectDrawPalette;
-  DDGDI_GETHOSTIDENTIFIER = $00000001;
+  IID_IDirectDrawClipper = IDirectDrawClipper;
+  IID_IDirectDrawColorControl = IDirectDrawColorControl;
+  IID_IDirectDrawGammaControl = IDirectDrawGammaControl;
+const
+(*
-{ ddsCaps field is valid. }
+ * ddsCaps field is valid.
+ *)
   DDSD_CAPS               = $00000001;     // default
+(*
+ * dwHeight field is valid.
+ *)
   DDSD_HEIGHT             = $00000002;
+(*
+ * dwWidth field is valid.
+ *)
   DDSD_WIDTH              = $00000004;
+(*
+ * lPitch is valid.
+ *)
   DDSD_PITCH              = $00000008;
+(*
+ * dwBackBufferCount is valid.
+ *)
   DDSD_BACKBUFFERCOUNT    = $00000020;
+(*
+ * dwZBufferBitDepth is valid.  (shouldnt be used in DDSURFACEDESC2)
+ *)
   DDSD_ZBUFFERBITDEPTH    = $00000040;
+(*
+ * dwAlphaBitDepth is valid.
+ *)
-  DDSD_ALPHABITDEPTH      = $00000080;
+   DDSD_ALPHABITDEPTH      = $00000080;
+(*
+ * lpSurface is valid.
+ *)
-  DDSD_LPSURFACE          = $00000800;
+  DDSD_LPSURFACE           = $00000800;
+(*
+ * ddpfPixelFormat is valid.
+ *)
   DDSD_PIXELFORMAT        = $00001000;
+(*
+ * ddckCKDestOverlay is valid.
+ *)
   DDSD_CKDESTOVERLAY      = $00002000;
+(*
+ * ddckCKDestBlt is valid.
+ *)
   DDSD_CKDESTBLT          = $00004000;
+(*
+ * ddckCKSrcOverlay is valid.
+ *)
   DDSD_CKSRCOVERLAY       = $00008000;
+(*
+ * ddckCKSrcBlt is valid.
+ *)
   DDSD_CKSRCBLT           = $00010000;
+(*
+ * dwMipMapCount is valid.
+ *)
   DDSD_MIPMAPCOUNT        = $00020000;
+ (*
+  * dwRefreshRate is valid
+  *)
   DDSD_REFRESHRATE        = $00040000;
+(*
+ * dwLinearSize is valid
+ *)
   DDSD_LINEARSIZE         = $00080000;
+(*
+ * dwTextureStage is valid
+ *)
   DDSD_TEXTURESTAGE       = $00100000;
-  DDSD_FVF                = $00200000;
-  DDSD_SRCVBHANDLE        = $00400000;
-  DDSD_ALL                = $007ff9ee;
+(*
+ * All input fields are valid.
+ *)
+  DDSD_ALL                = $001ff9ee;
+(*
+ * guid field is valid.
+ *)
+  DDOSD_GUID                  = $00000001;
+(*
+ * dwCompressionRatio field is valid.
+ *)
+  DDOSD_COMPRESSION_RATIO     = $00000002;
+(*
+ * ddSCaps field is valid.
+ *)
+  DDOSD_SCAPS                 = $00000004;
+(*
+ * ddOSCaps field is valid.
+ *)
+  DDOSD_OSCAPS                = $00000008;
+(*
+ * All input fields are valid.
+ *)
+  DDOSD_ALL                   = $0000000f;
+(*
+ * The surface's optimized pixelformat is compressed
+ *)
+  DDOSDCAPS_OPTCOMPRESSED                       = $00000001;
+(*
+ * The surface's optimized pixelformat is reordered
+ *)
+  DDOSDCAPS_OPTREORDERED                        = $00000002;
+(*
+ * The opt surface is a monolithic mipmap
+ *)
+  DDOSDCAPS_MONOLITHICMIPMAP            = $00000004;
+(*
+ * The valid Surf caps:
+ *   DDSCAPS_SYSTEMMEMORY       = $00000800;
+ *   DDSCAPS_VIDEOMEMORY        = $00004000;
+ *   DDSCAPS_LOCALVIDMEM        = $10000000;
+ *   DDSCAPS_NONLOCALVIDMEM     = $20000000;
+ *)
+  DDOSDCAPS_VALIDSCAPS          = $30004800;
+(*
+ * The valid OptSurf caps
+ *)
+  DDOSDCAPS_VALIDOSCAPS                 = $00000007;
+(*
+ * DDCOLORCONTROL
+ *)
+(*
+ * lBrightness field is valid.
+ *)
+  DDCOLOR_BRIGHTNESS            = $00000001;
+(*
+ * lContrast field is valid.
+ *)
+  DDCOLOR_CONTRAST              = $00000002;
+(*
+ * lHue field is valid.
+ *)
+  DDCOLOR_HUE                   = $00000004;
+(*
+ * lSaturation field is valid.
+ *)
+  DDCOLOR_SATURATION            = $00000008;
+(*
+ * lSharpness field is valid.
+ *)
+  DDCOLOR_SHARPNESS             = $00000010;
+(*
+ * lGamma field is valid.
+ *)
+  DDCOLOR_GAMMA                 = $00000020;
+(*
+ * lColorEnable field is valid.
+ *)
+  DDCOLOR_COLORENABLE           = $00000040;
+(*============================================================================
+ *
-{ DirectDraw Driver Capability Flags }
+ * Direct Draw Capability Flags
+ *
+ * These flags are used to describe the capabilities of a given Surface.
+ * All flags are bit flags.
+ *
+ *==========================================================================*)
+(****************************************************************************
+ *
+ * DIRECTDRAWSURFACE CAPABILITY FLAGS
+ *
+ ****************************************************************************)
+(*
+ * This bit currently has no meaning.
+ *)
+  DDSCAPS_RESERVED1                       = $00000001;
+(*
+ * Indicates that this surface contains alpha-only information.
+ * (To determine if a surface is RGBA/YUVA, the pixel format must be
+ * interrogated.)
+ *)
+  DDSCAPS_ALPHA                           = $00000002;
+(*
+ * Indicates that this surface is a backbuffer.  It is generally
+ * set by CreateSurface when the DDSCAPS_FLIP capability bit is set.
+ * It indicates that this surface is THE back buffer of a surface
+ * flipping structure.  DirectDraw supports N surfaces in a
+ * surface flipping structure.  Only the surface that immediately
+ * precedeces the DDSCAPS_FRONTBUFFER has this capability bit set.
+ * The other surfaces are identified as back buffers by the presence
+ * of the DDSCAPS_FLIP capability, their attachment order, and the
+ * absence of the DDSCAPS_FRONTBUFFER and DDSCAPS_BACKBUFFER
+ * capabilities.  The bit is sent to CreateSurface when a standalone
+ * back buffer is being created.  This surface could be attached to
+ * a front buffer and/or back buffers to form a flipping surface
+ * structure after the CreateSurface call.  See AddAttachments for
+ * a detailed description of the behaviors in this case.
+ *)
+  DDSCAPS_BACKBUFFER                      = $00000004;
+(*
+ * Indicates a complex surface structure is being described.  A
+ * complex surface structure results in the creation of more than
+ * one surface.  The additional surfaces are attached to the root
+ * surface.  The complex structure can only be destroyed by
+ * destroying the root.
+ *)
+  DDSCAPS_COMPLEX                         = $00000008;
+(*
+ * Indicates that this surface is a part of a surface flipping structure.
+ * When it is passed to CreateSurface the DDSCAPS_FRONTBUFFER and
+ * DDSCAP_BACKBUFFER bits are not set.  They are set by CreateSurface
+ * on the resulting creations.  The dwBackBufferCount field in the
+ * TDDSurfaceDesc structure must be set to at least 1 in order for
+ * the CreateSurface call to succeed.  The DDSCAPS_COMPLEX capability
+ * must always be set with creating multiple surfaces through CreateSurface.
+ *)
+  DDSCAPS_FLIP                            = $00000010;
+(*
+ * Indicates that this surface is THE front buffer of a surface flipping
+ * structure.  It is generally set by CreateSurface when the DDSCAPS_FLIP
+ * capability bit is set.
+ * If this capability is sent to CreateSurface then a standalonw front buffer
+ * is created.  This surface will not have the DDSCAPS_FLIP capability.
+ * It can be attached to other back buffers to form a flipping structure.
+ * See AddAttachments for a detailed description of the behaviors in this
+ * case.
+ *)
+  DDSCAPS_FRONTBUFFER                     = $00000020;
+(*
+ * Indicates that this surface is any offscreen surface that is not an overlay,
+ * texture, zbuffer, front buffer, back buffer, or alpha surface.  It is used
+ * to identify plain vanilla surfaces.
+ *)
+  DDSCAPS_OFFSCREENPLAIN                  = $00000040;
+(*
+ * Indicates that this surface is an overlay.  It may or may not be directly visible
+ * depending on whether or not it is currently being overlayed onto the primary
+ * surface.  DDSCAPS_VISIBLE can be used to determine whether or not it is being
+ * overlayed at the moment.
+ *)
+  DDSCAPS_OVERLAY                         = $00000080;
+(*
+ * Indicates that unique DirectDrawPalette objects can be created and
+ * attached to this surface.
+ *)
+  DDSCAPS_PALETTE                         = $00000100;
+(*
+ * Indicates that this surface is the primary surface.  The primary
+ * surface represents what the user is seeing at the moment.
+ *)
+  DDSCAPS_PRIMARYSURFACE                  = $00000200;
+(*
+ * This flag used to be DDSCAPS_PRIMARYSURFACELEFT, which is now
+ * obsolete.
+ *)
+  DDSCAPS_RESERVED3              = $00000400;
+(*
+ * Indicates that this surface is the primary surface for the left eye.
+ * The primary surface for the left eye represents what the user is seeing
+ * at the moment with the users left eye.  When this surface is created the
+ * DDSCAPS_PRIMARYSURFACE represents what the user is seeing with the users
+ * right eye.
+ *)
+  DDSCAPS_PRIMARYSURFACELEFT = DDSCAPS_RESERVED3;
+(*
+ * Indicates that this surface memory was allocated in system memory
+ *)
+  DDSCAPS_SYSTEMMEMORY                    = $00000800;
+(*
+ * Indicates that this surface can be used as a 3D texture.  It does not
+ * indicate whether or not the surface is being used for that purpose.
+ *)
+  DDSCAPS_TEXTURE                         = $00001000;
+(*
+ * Indicates that a surface may be a destination for 3D rendering.  This
+ * bit must be set in order to query for a Direct3D Device Interface
+ * from this surface.
+ *)
+  DDSCAPS_3DDEVICE                        = $00002000;
+(*
+ * Indicates that this surface exists in video memory.
+ *)
+  DDSCAPS_VIDEOMEMORY                     = $00004000;
+(*
+ * Indicates that changes made to this surface are immediately visible.
+ * It is always set for the primary surface and is set for overlays while
+ * they are being overlayed and texture maps while they are being textured.
+ *)
+  DDSCAPS_VISIBLE                         = $00008000;
+(*
+ * Indicates that only writes are permitted to the surface.  Read accesses
+ * from the surface may or may not generate a protection fault, but the
+ * results of a read from this surface will not be meaningful.  READ ONLY.
+ *)
+  DDSCAPS_WRITEONLY                       = $00010000;
+(*
+ * Indicates that this surface is a z buffer. A z buffer does not contain
+ * displayable information.  Instead it contains bit depth information that is
+ * used to determine which pixels are visible and which are obscured.
+ *)
+  DDSCAPS_ZBUFFER                         = $00020000;
+(*
+ * Indicates surface will have a DC associated long term
+ *)
+  DDSCAPS_OWNDC                           = $00040000;
+(*
+ * Indicates surface should be able to receive live video
+ *)
+  DDSCAPS_LIVEVIDEO                       = $00080000;
+(*
+ * Indicates surface should be able to have a stream decompressed
+ * to it by the hardware.
+ *)
+  DDSCAPS_HWCODEC                         = $00100000;
+(*
+ * Surface is a ModeX surface.
+ *
+ *)
+  DDSCAPS_MODEX                           = $00200000;
+(*
+ * Indicates surface is one level of a mip-map. This surface will
+ * be attached to other DDSCAPS_MIPMAP surfaces to form the mip-map.
+ * This can be done explicitly, by creating a number of surfaces and
+ * attaching them with AddAttachedSurface or by implicitly by CreateSurface.
+ * If this bit is set then DDSCAPS_TEXTURE must also be set.
+ *)
+  DDSCAPS_MIPMAP                          = $00400000;
+(*
+ * This bit is reserved. It should not be specified.
+ *)
+  DDSCAPS_RESERVED2                       = $00800000;
+(*
+ * Indicates that memory for the surface is not allocated until the surface
+ * is loaded (via the Direct3D texture Load() function).
+ *)
+  DDSCAPS_ALLOCONLOAD                     = $04000000;
+(*
+ * Indicates that the surface will recieve data from a video port.
+ *)
+  DDSCAPS_VIDEOPORT                       = $08000000;
+(*
+ * Indicates that a video memory surface is resident in true, local video
+ * memory rather than non-local video memory. If this flag is specified then
+ * so must DDSCAPS_VIDEOMEMORY. This flag is mutually exclusive with
+ * DDSCAPS_NONLOCALVIDMEM.
+ *)
+  DDSCAPS_LOCALVIDMEM                     = $10000000;
+(*
+ * Indicates that a video memory surface is resident in non-local video
+ * memory rather than true, local video memory. If this flag is specified
+ * then so must DDSCAPS_VIDEOMEMORY. This flag is mutually exclusive with
+ * DDSCAPS_LOCALVIDMEM.
+ *)
+  DDSCAPS_NONLOCALVIDMEM                  = $20000000;
+(*
+ * Indicates that this surface is a standard VGA mode surface, and not a
+ * ModeX surface. (This flag will never be set in combination with the
+ * DDSCAPS_MODEX flag).
+ *)
+  DDSCAPS_STANDARDVGAMODE                 = $40000000;
+(*
+ * Indicates that this surface will be an optimized surface. This flag is
+ * currently only valid in conjunction with the DDSCAPS_TEXTURE flag. The surface
+ * will be created without any underlying video memory until loaded.
+ *)
+  DDSCAPS_OPTIMIZED                       = $80000000;
+(*
+ * Indicates that this surface will receive data from a video port using
+ * the de-interlacing hardware.  This allows the driver to allocate memory
+ * for any extra buffers that may be required.  The DDSCAPS_VIDEOPORT and
+ * DDSCAPS_OVERLAY flags must also be set.
+ *)
+  DDSCAPS2_HARDWAREDEINTERLACE            = $00000002;
+(*
+ * Indicates to the driver that this surface will be locked very frequently
+ * (for procedural textures, dynamic lightmaps, etc). Surfaces with this cap
+ * set must also have DDSCAPS_TEXTURE. This cap cannot be used with
+ * DDSCAPS2_HINTSTATIC and DDSCAPS2_OPAQUE.
+ *)
+  DDSCAPS2_HINTDYNAMIC                  = $00000004;
+(*
+ * Indicates to the driver that this surface can be re-ordered/retiled on
+ * load. This operation will not change the size of the texture. It is
+ * relatively fast and symmetrical, since the application may lock these
+ * bits (although it will take a performance hit when doing so). Surfaces
+ * with this cap set must also have DDSCAPS_TEXTURE. This cap cannot be
+ * used with DDSCAPS2_HINTDYNAMIC and DDSCAPS2_OPAQUE.
+ *)
+  DDSCAPS2_HINTSTATIC                   = $00000008;
+(*
+ * Indicates that the client would like this texture surface to be managed by the
+ * DirectDraw/Direct3D runtime. Surfaces with this cap set must also have
+ * DDSCAPS_TEXTURE and DDSCAPS_SYSTEMMEMORY.
+ *)
+  DDSCAPS2_TEXTUREMANAGE                  = $00000010;
+(*
+ * These bits are reserved for internal use *)
+  DDSCAPS2_RESERVED1                      = $00000020;
+  DDSCAPS2_RESERVED2                      = $00000040;
+(*
+ * Indicates to the driver that this surface will never be locked again.
+ * The driver is free to optimize this surface via retiling and actual compression.
+ * All calls to Lock() or Blts from this surface will fail. Surfaces with this
+ * cap set must also have DDSCAPS_TEXTURE. This cap cannot be used with
+ * DDSCAPS2_HINTDYNAMIC and DDSCAPS2_HINTSTATIC.
+ *)
+  DDSCAPS2_OPAQUE                         = $00000080;
+(*
+ * Applications should set this bit at CreateSurface time to indicate that they
+ * intend to use antialiasing. Only valid if DDSCAPS_3DDEVICE is also set.
+ *)
+  DDSCAPS2_HINTANTIALIASING               = $00000100;
+(*
+ * This flag is used at CreateSurface time to indicate that this set of
+ * surfaces is a cubic environment map
+ *)
+  DDSCAPS2_CUBEMAP                        = $00000200;
+(*
+ * These flags preform two functions:
+ * - At CreateSurface time, they define which of the six cube faces are
+ *   required by the application.
+ * - After creation, each face in the cubemap will have exactly one of these
+ *   bits set.
+ *)
+  DDSCAPS2_CUBEMAP_POSITIVEX              = $00000400;
+  DDSCAPS2_CUBEMAP_NEGATIVEX              = $00000800;
+  DDSCAPS2_CUBEMAP_POSITIVEY              = $00001000;
+  DDSCAPS2_CUBEMAP_NEGATIVEY              = $00002000;
+  DDSCAPS2_CUBEMAP_POSITIVEZ              = $00004000;
+  DDSCAPS2_CUBEMAP_NEGATIVEZ              = $00008000;
+(*
+ * This macro may be used to specify all faces of a cube map at CreateSurface time
+ *)
+  DDSCAPS2_CUBEMAP_ALLFACES = ( DDSCAPS2_CUBEMAP_POSITIVEX or
+                                DDSCAPS2_CUBEMAP_NEGATIVEX or
+                                DDSCAPS2_CUBEMAP_POSITIVEY or
+                                DDSCAPS2_CUBEMAP_NEGATIVEY or
+                                DDSCAPS2_CUBEMAP_POSITIVEZ or
+                                DDSCAPS2_CUBEMAP_NEGATIVEZ );
+(*
+ * This flag is an additional flag which is present on mipmap sublevels from DX7 onwards
+ * It enables easier use of GetAttachedSurface rather than EnumAttachedSurfaces for surface
+ * constructs such as Cube Maps, wherein there are more than one mipmap surface attached
+ * to the root surface.
+ * This caps bit is ignored by CreateSurface
+ *)
+  DDSCAPS2_MIPMAPSUBLEVEL                 = $00010000;
+(* This flag indicates that the texture should be managed by D3D only *)
+  DDSCAPS2_D3DTEXTUREMANAGE               = $00020000;
+(* This flag indicates that the managed surface can be safely lost *)
+  DDSCAPS2_DONOTPERSIST                   = $00040000;
+(* indicates that this surface is part of a stereo flipping chain *)
+  DDSCAPS2_STEREOSURFACELEFT              = $00080000;
+ (****************************************************************************
+ *
+ * DIRECTDRAW DRIVER CAPABILITY FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Display hardware has 3D acceleration.
+ *)
-  DDCAPS_3D                   = $00000001;
+  DDCAPS_3D                       = $00000001;
+(*
+ * Indicates that DirectDraw will support only dest rectangles that are aligned
+ * on DIRECTDRAWCAPS.dwAlignBoundaryDest boundaries of the surface, respectively.
+ * READ ONLY.
+ *)
-  DDCAPS_ALIGNBOUNDARYDEST    = $00000002;
+  DDCAPS_ALIGNBOUNDARYDEST        = $00000002;
+(*
+ * Indicates that DirectDraw will support only source rectangles  whose sizes in
+ * BYTEs are DIRECTDRAWCAPS.dwAlignSizeDest multiples, respectively.  READ ONLY.
+ *)
-  DDCAPS_ALIGNSIZEDEST        = $00000004;
+  DDCAPS_ALIGNSIZEDEST            = $00000004;
+(*
+ * Indicates that DirectDraw will support only source rectangles that are aligned
+ * on DIRECTDRAWCAPS.dwAlignBoundarySrc boundaries of the surface, respectively.
+ * READ ONLY.
+ *)
-  DDCAPS_ALIGNBOUNDARYSRC     = $00000008;
+  DDCAPS_ALIGNBOUNDARYSRC         = $00000008;
+(*
+ * Indicates that DirectDraw will support only source rectangles  whose sizes in
+ * BYTEs are DIRECTDRAWCAPS.dwAlignSizeSrc multiples, respectively.  READ ONLY.
+ *)
-  DDCAPS_ALIGNSIZESRC         = $00000010;
+  DDCAPS_ALIGNSIZESRC             = $00000010;
+(*
+ * Indicates that DirectDraw will create video memory surfaces that have a stride
+ * alignment equal to DIRECTDRAWCAPS.dwAlignStride.  READ ONLY.
+ *)
-  DDCAPS_ALIGNSTRIDE          = $00000020;
+  DDCAPS_ALIGNSTRIDE              = $00000020;
+(*
+ * Display hardware is capable of blt operations.
+ *)
-  DDCAPS_BLT                  = $00000040;
+  DDCAPS_BLT                      = $00000040;
+(*
+ * Display hardware is capable of asynchronous blt operations.
+ *)
-  DDCAPS_BLTQUEUE             = $00000080;
+  DDCAPS_BLTQUEUE                 = $00000080;
+(*
+ * Display hardware is capable of color space conversions during the blt operation.
+ *)
-  DDCAPS_BLTFOURCC            = $00000100;
+  DDCAPS_BLTFOURCC                = $00000100;
+(*
+ * Display hardware is capable of stretching during blt operations.
+ *)
-  DDCAPS_BLTSTRETCH           = $00000200;
+  DDCAPS_BLTSTRETCH               = $00000200;
+(*
+ * Display hardware is shared with GDI.
+ *)
-  DDCAPS_GDI                  = $00000400;
+  DDCAPS_GDI                      = $00000400;
+(*
+ * Display hardware can overlay.
+ *)
-  DDCAPS_OVERLAY              = $00000800;
+  DDCAPS_OVERLAY                  = $00000800;
+(*
+ * Set if display hardware supports overlays but can not clip them.
+ *)
-  DDCAPS_OVERLAYCANTCLIP      = $00001000;
+  DDCAPS_OVERLAYCANTCLIP          = $00001000;
+(*
+ * Indicates that overlay hardware is capable of color space conversions during
+ * the overlay operation.
+ *)
-  DDCAPS_OVERLAYFOURCC        = $00002000;
+  DDCAPS_OVERLAYFOURCC            = $00002000;
+(*
+ * Indicates that stretching can be done by the overlay hardware.
+ *)
-  DDCAPS_OVERLAYSTRETCH       = $00004000;
+  DDCAPS_OVERLAYSTRETCH           = $00004000;
+(*
+ * Indicates that unique DirectDrawPalettes can be created for DirectDrawSurfaces
+ * other than the primary surface.
+ *)
-  DDCAPS_PALETTE              = $00008000;
+  DDCAPS_PALETTE                  = $00008000;
+(*
+ * Indicates that palette changes can be syncd with the veritcal refresh.
+ *)
-  DDCAPS_PALETTEVSYNC         = $00010000;
+  DDCAPS_PALETTEVSYNC             = $00010000;
+(*
+ * Display hardware can return the current scan line.
+ *)
-  DDCAPS_READSCANLINE         = $00020000;
+  DDCAPS_READSCANLINE             = $00020000;
+(*
+ * Display hardware has stereo vision capabilities.  DDSCAPS_PRIMARYSURFACELEFT
+ * can be created.
+ *)
-  DDCAPS_STEREOVIEW           = $00040000;
+  DDCAPS_STEREOVIEW               = $00040000;
+(*
+ * Display hardware is capable of generating a vertical blank interrupt.
+ *)
-  DDCAPS_VBI                  = $00080000;
+  DDCAPS_VBI                      = $00080000;
+(*
+ * Supports the use of z buffers with blt operations.
+ *)
-  DDCAPS_ZBLTS                = $00100000;
+  DDCAPS_ZBLTS                    = $00100000;
+(*
+ * Supports Z Ordering of overlays.
+ *)
-  DDCAPS_ZOVERLAYS            = $00200000;
+  DDCAPS_ZOVERLAYS                = $00200000;
+(*
+ * Supports color key
+ *)
-  DDCAPS_COLORKEY             = $00400000;
+  DDCAPS_COLORKEY                 = $00400000;
+(*
+ * Supports alpha surfaces
+ *)
-  DDCAPS_ALPHA                = $00800000;
+  DDCAPS_ALPHA                    = $00800000;
+(*
+ * colorkey is hardware assisted(DDCAPS_COLORKEY will also be set)
+ *)
-  DDCAPS_COLORKEYHWASSIST     = $01000000;
+  DDCAPS_COLORKEYHWASSIST         = $01000000;
+(*
+ * no hardware support at all
+ *)
-  DDCAPS_NOHARDWARE           = $02000000;
+  DDCAPS_NOHARDWARE               = $02000000;
+(*
+ * Display hardware is capable of color fill with bltter
+ *)
-  DDCAPS_BLTCOLORFILL         = $04000000;
+  DDCAPS_BLTCOLORFILL             = $04000000;
+(*
+ * Display hardware is bank switched, and potentially very slow at
+ * random access to VRAM.
+ *)
-  DDCAPS_BANKSWITCHED         = $08000000;
+  DDCAPS_BANKSWITCHED             = $08000000;
+(*
+ * Display hardware is capable of depth filling Z-buffers with bltter
+ *)
-  DDCAPS_BLTDEPTHFILL         = $10000000;
+  DDCAPS_BLTDEPTHFILL             = $10000000;
+(*
+ * Display hardware is capable of clipping while bltting.
+ *)
-  DDCAPS_CANCLIP              = $20000000;
+  DDCAPS_CANCLIP                  = $20000000;
+(*
+ * Display hardware is capable of clipping while stretch bltting.
+ *)
-  DDCAPS_CANCLIPSTRETCHED     = $40000000;
+  DDCAPS_CANCLIPSTRETCHED         = $40000000;
+(*
+ * Display hardware is capable of bltting to or from system memory
+ *)
-  DDCAPS_CANBLTSYSMEM         = $80000000;
+  DDCAPS_CANBLTSYSMEM             = $80000000;
-{ More DirectDraw Driver Capability Flags (dwCaps2) }
+ (****************************************************************************
+ *
+ * MORE DIRECTDRAW DRIVER CAPABILITY FLAGS (dwCaps2)
+ *
+ ****************************************************************************)
+(*
+ * Display hardware is certified
+ *)
-  DDCAPS2_CERTIFIED            = $00000001;
+  DDCAPS2_CERTIFIED               = $00000001;
+(*
+ * Driver cannot interleave 2D operations (lock and blt) to surfaces with
+ * Direct3D rendering operations between calls to BeginScene() and EndScene()
+ *)
-  DDCAPS2_NO2DDURING3DSCENE    = $00000002;
+  DDCAPS2_NO2DDURING3DSCENE       = $00000002;
+(*
+ * Display hardware contains a video port
+ *)
-  DDCAPS2_VIDEOPORT            = $00000004;
+  DDCAPS2_VIDEOPORT               = $00000004;
+(*
+ * The overlay can be automatically flipped according to the video port
+ * VSYNCs, providing automatic doubled buffered display of video port
+ * data using an overlay
+ *)
-  DDCAPS2_AUTOFLIPOVERLAY      = $00000008;
+  DDCAPS2_AUTOFLIPOVERLAY         = $00000008;
+(*
+ * Overlay can display each field of interlaced data individually while
+ * it is interleaved in memory without causing jittery artifacts.
+ *)
-  DDCAPS2_CANBOBINTERLEAVED    = $00000010;
+  DDCAPS2_CANBOBINTERLEAVED     = $00000010;
+(*
+ * Overlay can display each field of interlaced data individually while
+ * it is not interleaved in memory without causing jittery artifacts.
+ *)
-  DDCAPS2_CANBOBNONINTERLEAVED = $00000020;
+  DDCAPS2_CANBOBNONINTERLEAVED  = $00000020;
+(*
+ * The overlay surface contains color controls (brightness, sharpness, etc.)
+ *)
-  DDCAPS2_COLORCONTROLOVERLAY  = $00000040;
+  DDCAPS2_COLORCONTROLOVERLAY   = $00000040;
+(*
+ * The primary surface contains color controls (gamma, etc.)
+ *)
-  DDCAPS2_COLORCONTROLPRIMARY  = $00000080;
+  DDCAPS2_COLORCONTROLPRIMARY   = $00000080;
+(*
+ * RGBZ -> RGB supported for 16:16 RGB:Z
+ *)
-  DDCAPS2_CANDROPZ16BIT        = $00000100;
+  DDCAPS2_CANDROPZ16BIT         = $00000100;
+(*
+ * Driver supports non-local video memory.
+ *)
-  DDCAPS2_NONLOCALVIDMEM       = $00000200;
+  DDCAPS2_NONLOCALVIDMEM          = $00000200;
+(*
+ * Dirver supports non-local video memory but has different capabilities for
+ * non-local video memory surfaces. If this bit is set then so must
+ * DDCAPS2_NONLOCALVIDMEM.
+ *)
-  DDCAPS2_NONLOCALVIDMEMCAPS   = $00000400;
+  DDCAPS2_NONLOCALVIDMEMCAPS      = $00000400;
+(*
+ * Driver neither requires nor prefers surfaces to be pagelocked when performing
+ * blts involving system memory surfaces
+ *)
-  DDCAPS2_NOPAGELOCKREQUIRED   = $00000800;
+  DDCAPS2_NOPAGELOCKREQUIRED      = $00000800;
+(*
+ * Driver can create surfaces which are wider than the primary surface
+ *)
-  DDCAPS2_WIDESURFACES         = $00001000;
+  DDCAPS2_WIDESURFACES            = $00001000;
+(*
+ * Driver supports bob without using a video port by handling the
+ * DDFLIP_ODD and DDFLIP_EVEN flags specified in Flip.
+ *)
-  DDCAPS2_CANFLIPODDEVEN       = $00002000;
+  DDCAPS2_CANFLIPODDEVEN          = $00002000;
+(*
+ * Driver supports bob using hardware
+ *)
-  DDCAPS2_CANBOBHARDWARE       = $00004000;
+  DDCAPS2_CANBOBHARDWARE          = $00004000;
+(*
+ * Driver supports bltting any FOURCC surface to another surface of the same FOURCC
+ *)
-  DDCAPS2_COPYFOURCC           = $00008000;
+  DDCAPS2_COPYFOURCC              = $00008000;
-  DDCAPS2_PRIMARYGAMMA         = $00020000;
-  DDCAPS2_CANRENDERWINDOWED    = $00080000;
-  DDCAPS2_CANCALIBRATEGAMMA    = $00100000;
-  DDCAPS2_FLIPINTERVAL         = $00200000;
-  DDCAPS2_FLIPNOVSYNC          = $00400000;
-  DDCAPS2_CANMANAGETEXTURE     = $00800000;
-  DDCAPS2_TEXMANINNONLOCALVIDMEM = $01000000;
-  DDCAPS2_STEREO                 = $02000000;
-  DDCAPS2_SYSTONONLOCAL_AS_SYSTOLOCAL = $04000000;
-{ DirectDrawSurface Capability Flags }
+(*
-  DDSCAPS_RESERVED1           = $00000001; { DDSCAPS_3D }
+ * Driver supports loadable gamma ramps for the primary surface
-  DDSCAPS_ALPHA               = $00000002;
-  DDSCAPS_BACKBUFFER          = $00000004;
-  DDSCAPS_COMPLEX             = $00000008;
-  DDSCAPS_FLIP                = $00000010;
-  DDSCAPS_FRONTBUFFER         = $00000020;
-  DDSCAPS_OFFSCREENPLAIN      = $00000040;
-  DDSCAPS_OVERLAY             = $00000080;
-  DDSCAPS_PALETTE             = $00000100;
-  DDSCAPS_PRIMARYSURFACE      = $00000200;
-  DDSCAPS_RESERVED3           = $00000400; { DDSCAPS_PRIMARYSURFACELEFT }
-  DDSCAPS_SYSTEMMEMORY        = $00000800;
-  DDSCAPS_TEXTURE             = $00001000;
-  DDSCAPS_3DDEVICE            = $00002000;
-  DDSCAPS_VIDEOMEMORY         = $00004000;
-  DDSCAPS_VISIBLE             = $00008000;
-  DDSCAPS_WRITEONLY           = $00010000;
+ *)
-  DDSCAPS_ZBUFFER             = $00020000;
+  DDCAPS2_PRIMARYGAMMA            = $00020000;
-  DDSCAPS_OWNDC               = $00040000;
-  DDSCAPS_LIVEVIDEO           = $00080000;
-  DDSCAPS_HWCODEC             = $00100000;
-  DDSCAPS_MODEX               = $00200000;
-  DDSCAPS_MIPMAP              = $00400000;
-  DDSCAPS_RESERVED2           = $00800000;
-  DDSCAPS_ALLOCONLOAD         = $04000000;
-  DDSCAPS_VIDEOPORT           = $08000000;
-  DDSCAPS_LOCALVIDMEM         = $10000000;
-  DDSCAPS_NONLOCALVIDMEM      = $20000000;
-  DDSCAPS_STANDARDVGAMODE     = $40000000;
-  DDSCAPS_OPTIMIZED           = $80000000;
+(*
-{ DirectDrawSurface Capability Flags 2 }
+ * Driver can render in windowed mode.
+ *)
+  DDCAPS2_CANRENDERWINDOWED       = $00080000;
-  DDSCAPS2_HARDWAREDEINTERLACE = $00000002;
-  DDSCAPS2_HINTDYNAMIC         = $00000004;
-  DDSCAPS2_HINTSTATIC          = $00000008;
+(*
-  DDSCAPS2_TEXTUREMANAGE       = $00000010;
+ * A calibrator is available to adjust the gamma ramp according to the
-  DDSCAPS2_RESERVED1           = $00000020;
+ * physical display properties so that the result will be identical on
-  DDSCAPS2_RESERVED2           = $00000040;
-  DDSCAPS2_OPAQUE              = $00000080;
+ * all calibrated systems.
-  DDSCAPS2_HINTANTIALIASING    = $00000100;
+ *)
-  DDSCAPS2_CUBEMAP             = $00000200;
+  DDCAPS2_CANCALIBRATEGAMMA       = $00100000;
-  DDSCAPS2_CUBEMAP_POSITIVEX   = $00000400;
-  DDSCAPS2_CUBEMAP_NEGATIVEX   = $00000800;
-  DDSCAPS2_CUBEMAP_POSITIVEY   = $00001000;
-  DDSCAPS2_CUBEMAP_NEGATIVEY   = $00002000;
-  DDSCAPS2_CUBEMAP_POSITIVEZ   = $00004000;
-  DDSCAPS2_CUBEMAP_NEGATIVEZ   = $00008000;
-  DDSCAPS2_CUBEMAP_ALLFACES    =
-    DDSCAPS2_CUBEMAP_POSITIVEX or DDSCAPS2_CUBEMAP_NEGATIVEX or
+(*
-    DDSCAPS2_CUBEMAP_POSITIVEY or DDSCAPS2_CUBEMAP_NEGATIVEY or
+ * Indicates that the driver will respond to DDFLIP_INTERVALn flags
+ *)
-    DDSCAPS2_CUBEMAP_POSITIVEZ or DDSCAPS2_CUBEMAP_NEGATIVEZ;
+  DDCAPS2_FLIPINTERVAL            = $00200000;
-  DDSCAPS2_MIPMAPSUBLEVEL      = $00010000;
+(*
-  DDSCAPS2_D3DTEXTUREMANAGE    = $00020000;
+ * Indicates that the driver will respond to DDFLIP_NOVSYNC
+ *)
-  DDSCAPS2_DONOTPERSIST        = $00040000;
+   DDCAPS2_FLIPNOVSYNC             = $00400000;
-  DDSCAPS2_STEREOSURFACELEFT   = $00080000;
+(*
+ * Driver supports management of video memory, if this flag is ON,
+ * driver manages the texture if requested with DDSCAPS2_TEXTUREMANAGE on
+ * DirectX manages the texture if this flag is OFF and surface has DDSCAPS2_TEXTUREMANAGE on
+ *)
-{ TDDOptSurfaceDesc flags }
+  DDCAPS2_CANMANAGETEXTURE        = $00800000;
+(*
-  DDOSD_GUID              = $00000001;
+ * The Direct3D texture manager uses this cap to decide whether to put managed
-  DDOSD_COMPRESSION_RATIO = $00000002;
+ * surfaces in non-local video memory. If the cap is set, the texture manager will
-  DDOSD_SCAPS             = $00000004;
+ * put managed surfaces in non-local vidmem. Drivers that cannot texture from
-  DDOSD_OSCAPS            = $00000008;
+ * local vidmem SHOULD NOT set this cap.
+ *)
-  DDOSD_ALL               = $0000000F;
+  DDCAPS2_TEXMANINNONLOCALVIDMEM  = $01000000;
+(*
+ * Indicates that the driver supports DX7 type of stereo in at least one mode (which may
+ * not necessarily be the current mode). Applications should use IDirectDraw7 (or higher)
+ * ::EnumDisplayModes and check the DDSURFACEDESC.ddsCaps.dwCaps2 field for the presence of
+ * DDSCAPS2_STEREOSURFACELEFT to check if a particular mode supports stereo. The application
+ * can also use IDirectDraw7(or higher)::GetDisplayMode to check the current mode.
+ *)
-{ ddOSCaps field is valid. }
+  DDCAPS2_STEREO                  = $02000000;
+(*
-  DDOSDCAPS_OPTCOMPRESSED    = $00000001;
+ * This caps bit is intended for internal DirectDraw use.
-  DDOSDCAPS_OPTREORDERED     = $00000002;
+ * -It is only valid if DDCAPS2_NONLOCALVIDMEMCAPS is set.
+ * -If this bit is set, then DDCAPS_CANBLTSYSMEM MUST be set by the driver (and
+ *  all the assoicated system memory blt caps must be correct).
+ * -It implies that the system->video blt caps in DDCAPS also apply to system to
+ *  nonlocal blts. I.e. the dwSVBCaps, dwSVBCKeyCaps, dwSVBFXCaps and dwSVBRops
-  DDOSDCAPS_MONOLITHICMIPMAP = $00000004;
+ *  members of DDCAPS (DDCORECAPS) are filled in correctly.
+ * -Any blt from system to nonlocal memory that matches these caps bits will
+ *  be passed to the driver.
+ *
+ * NOTE: This is intended to enable the driver itself to do efficient reordering
+ * of textures. This is NOT meant to imply that hardware can write into AGP memory.
-  DDOSDCAPS_VALIDSCAPS       = $30004800;
+ * This operation is not currently supported.
+ *)
-  DDOSDCAPS_VALIDOSCAPS      = $00000007;
+  DDCAPS2_SYSTONONLOCAL_AS_SYSTOLOCAL   = $04000000;
+(****************************************************************************
+ *
-{ DirectDraw FX Alpha Capability Flags }
+ * DIRECTDRAW FX ALPHA CAPABILITY FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Supports alpha blending around the edge of a source color keyed surface.
+ * For Blt.
+ *)
   DDFXALPHACAPS_BLTALPHAEDGEBLEND         = $00000001;
+(*
+ * Supports alpha information in the pixel format.  The bit depth of alpha
+ * information in the pixel format can be 1,2,4, or 8.  The alpha value becomes
+ * more opaque as the alpha value increases.  (0 is transparent.)
+ * For Blt.
+ *)
   DDFXALPHACAPS_BLTALPHAPIXELS            = $00000002;
+(*
+ * Supports alpha information in the pixel format.  The bit depth of alpha
+ * information in the pixel format can be 1,2,4, or 8.  The alpha value
+ * becomes more transparent as the alpha value increases.  (0 is opaque.)
+ * This flag can only be set if DDCAPS_ALPHA is set.
+ * For Blt.
+ *)
   DDFXALPHACAPS_BLTALPHAPIXELSNEG         = $00000004;
+(*
+ * Supports alpha only surfaces.  The bit depth of an alpha only surface can be
+ * 1,2,4, or 8.  The alpha value becomes more opaque as the alpha value increases.
+ * (0 is transparent.)
+ * For Blt.
+ *)
   DDFXALPHACAPS_BLTALPHASURFACES          = $00000008;
+(*
+ * The depth of the alpha channel data can range can be 1,2,4, or 8.
+ * The NEG suffix indicates that this alpha channel becomes more transparent
+ * as the alpha value increases. (0 is opaque.)  This flag can only be set if
+ * DDCAPS_ALPHA is set.
+ * For Blt.
+ *)
   DDFXALPHACAPS_BLTALPHASURFACESNEG       = $00000010;
+(*
+ * Supports alpha blending around the edge of a source color keyed surface.
+ * For Overlays.
+ *)
   DDFXALPHACAPS_OVERLAYALPHAEDGEBLEND     = $00000020;
+(*
+ * Supports alpha information in the pixel format.  The bit depth of alpha
+ * information in the pixel format can be 1,2,4, or 8.  The alpha value becomes
+ * more opaque as the alpha value increases.  (0 is transparent.)
+ * For Overlays.
+ *)
   DDFXALPHACAPS_OVERLAYALPHAPIXELS        = $00000040;
+(*
+ * Supports alpha information in the pixel format.  The bit depth of alpha
+ * information in the pixel format can be 1,2,4, or 8.  The alpha value
+ * becomes more transparent as the alpha value increases.  (0 is opaque.)
+ * This flag can only be set if DDCAPS_ALPHA is set.
+ * For Overlays.
+ *)
   DDFXALPHACAPS_OVERLAYALPHAPIXELSNEG     = $00000080;
+(*
+ * Supports alpha only surfaces.  The bit depth of an alpha only surface can be
+ * 1,2,4, or 8.  The alpha value becomes more opaque as the alpha value increases.
+ * (0 is transparent.)
+ * For Overlays.
+ *)
   DDFXALPHACAPS_OVERLAYALPHASURFACES      = $00000100;
+(*
+ * The depth of the alpha channel data can range can be 1,2,4, or 8.
+ * The NEG suffix indicates that this alpha channel becomes more transparent
+ * as the alpha value increases. (0 is opaque.)  This flag can only be set if
+ * DDCAPS_ALPHA is set.
+ * For Overlays.
+ *)
   DDFXALPHACAPS_OVERLAYALPHASURFACESNEG   = $00000200;
+(****************************************************************************
+ *
-{ DirectDraw FX Capability Flags }
+ * DIRECTDRAW FX CAPABILITY FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Uses arithmetic operations to stretch and shrink surfaces during blt
+ * rather than pixel doubling techniques.  Along the Y axis.
+ *)
   DDFXCAPS_BLTARITHSTRETCHY       = $00000020;
+(*
+ * Uses arithmetic operations to stretch during blt
+ * rather than pixel doubling techniques.  Along the Y axis. Only
+ * works for x1, x2, etc.
+ *)
   DDFXCAPS_BLTARITHSTRETCHYN      = $00000010;
+(*
+ * Supports mirroring left to right in blt.
+ *)
   DDFXCAPS_BLTMIRRORLEFTRIGHT     = $00000040;
+(*
+ * Supports mirroring top to bottom in blt.
+ *)
   DDFXCAPS_BLTMIRRORUPDOWN        = $00000080;
+(*
+ * Supports arbitrary rotation for blts.
+ *)
   DDFXCAPS_BLTROTATION            = $00000100;
+(*
+ * Supports 90 degree rotations for blts.
+ *)
-  DDFXCAPS_BLTROTATION90          = $00000200;
+   DDFXCAPS_BLTROTATION90          = $00000200;
+(*
+ * DirectDraw supports arbitrary shrinking of a surface along the
+ * x axis (horizontal direction) for blts.
+ *)
   DDFXCAPS_BLTSHRINKX             = $00000400;
+(*
+ * DirectDraw supports integer shrinking (1x,2x,) of a surface
+ * along the x axis (horizontal direction) for blts.
+ *)
   DDFXCAPS_BLTSHRINKXN            = $00000800;
+(*
+ * DirectDraw supports arbitrary shrinking of a surface along the
+ * y axis (horizontal direction) for blts.
+ *)
   DDFXCAPS_BLTSHRINKY             = $00001000;
+(*
+ * DirectDraw supports integer shrinking (1x,2x,) of a surface
+ * along the y axis (vertical direction) for blts.
+ *)
   DDFXCAPS_BLTSHRINKYN            = $00002000;
+(*
+ * DirectDraw supports arbitrary stretching of a surface along the
+ * x axis (horizontal direction) for blts.
+ *)
   DDFXCAPS_BLTSTRETCHX            = $00004000;
+(*
+ * DirectDraw supports integer stretching (1x,2x,) of a surface
+ * along the x axis (horizontal direction) for blts.
+ *)
   DDFXCAPS_BLTSTRETCHXN           = $00008000;
+(*
+ * DirectDraw supports arbitrary stretching of a surface along the
+ * y axis (horizontal direction) for blts.
+ *)
   DDFXCAPS_BLTSTRETCHY            = $00010000;
+(*
+ * DirectDraw supports integer stretching (1x,2x,) of a surface
+ * along the y axis (vertical direction) for blts.
+ *)
   DDFXCAPS_BLTSTRETCHYN           = $00020000;
+(*
+ * Uses arithmetic operations to stretch and shrink surfaces during
+ * overlay rather than pixel doubling techniques.  Along the Y axis
+ * for overlays.
+ *)
   DDFXCAPS_OVERLAYARITHSTRETCHY   = $00040000;
+(*
+ * Uses arithmetic operations to stretch surfaces during
+ * overlay rather than pixel doubling techniques.  Along the Y axis
+ * for overlays. Only works for x1, x2, etc.
+ *)
   DDFXCAPS_OVERLAYARITHSTRETCHYN  = $00000008;
+(*
+ * DirectDraw supports arbitrary shrinking of a surface along the
+ * x axis (horizontal direction) for overlays.
+ *)
   DDFXCAPS_OVERLAYSHRINKX         = $00080000;
+(*
+ * DirectDraw supports integer shrinking (1x,2x,) of a surface
+ * along the x axis (horizontal direction) for overlays.
+ *)
   DDFXCAPS_OVERLAYSHRINKXN        = $00100000;
+(*
+ * DirectDraw supports arbitrary shrinking of a surface along the
+ * y axis (horizontal direction) for overlays.
+ *)
   DDFXCAPS_OVERLAYSHRINKY         = $00200000;
+(*
+ * DirectDraw supports integer shrinking (1x,2x,) of a surface
+ * along the y axis (vertical direction) for overlays.
+ *)
   DDFXCAPS_OVERLAYSHRINKYN        = $00400000;
+(*
+ * DirectDraw supports arbitrary stretching of a surface along the
+ * x axis (horizontal direction) for overlays.
+ *)
   DDFXCAPS_OVERLAYSTRETCHX        = $00800000;
+(*
+ * DirectDraw supports integer stretching (1x,2x,) of a surface
+ * along the x axis (horizontal direction) for overlays.
+ *)
   DDFXCAPS_OVERLAYSTRETCHXN       = $01000000;
+(*
+ * DirectDraw supports arbitrary stretching of a surface along the
+ * y axis (horizontal direction) for overlays.
+ *)
   DDFXCAPS_OVERLAYSTRETCHY        = $02000000;
+(*
+ * DirectDraw supports integer stretching (1x,2x,) of a surface
+ * along the y axis (vertical direction) for overlays.
+ *)
   DDFXCAPS_OVERLAYSTRETCHYN       = $04000000;
+(*
+ * DirectDraw supports mirroring of overlays across the vertical axis
+ *)
   DDFXCAPS_OVERLAYMIRRORLEFTRIGHT = $08000000;
+(*
+ * DirectDraw supports mirroring of overlays across the horizontal axis
+ *)
   DDFXCAPS_OVERLAYMIRRORUPDOWN    = $10000000;
+(*
+ * Driver can do alpha blending for blits.
+ *)
-  DDFXCAPS_BLTALPHA               = $00000001;
+  DDFXCAPS_BLTALPHA             = $00000001;
+(*
+ * Driver can do geometric transformations (or warps) for blits.
+ *)
-  DDFXCAPS_BLTTRANSFORM           = $00000002;
+  DDFXCAPS_BLTTRANSFORM         = $00000002;
+(*
+ * Driver can do surface-reconstruction filtering for warped blits.
+ *)
-  DDFXCAPS_BLTFILTER              = DDFXCAPS_BLTARITHSTRETCHY;
+  DDFXCAPS_BLTFILTER           = DDFXCAPS_BLTARITHSTRETCHY;
+(*
+ * Driver can do alpha blending for overlays.
+ *)
-  DDFXCAPS_OVERLAYALPHA           = $00000004;
+  DDFXCAPS_OVERLAYALPHA                 = $00000004;
+(*
+ * Driver can do geometric transformations (or warps) for overlays.
+ *)
-  DDFXCAPS_OVERLAYTRANSFORM       = $20000000;
+  DDFXCAPS_OVERLAYTRANSFORM     = $20000000;
+(*
+ * Driver can do surface-reconstruction filtering for warped overlays.
+ *)
-  DDFXCAPS_OVERLAYFILTER          = DDFXCAPS_OVERLAYARITHSTRETCHY;
+  DDFXCAPS_OVERLAYFILTER              = DDFXCAPS_OVERLAYARITHSTRETCHY;
+(****************************************************************************
+ *
-{ DirectDraw Stereo View Capabilities }
+ * DIRECTDRAW STEREO VIEW CAPABILITIES
+ *
+ ****************************************************************************)
+(*
+ * This flag used to be DDSVCAPS_ENIGMA, which is now obsolete
+ * The stereo view is accomplished via enigma encoding.
+ *)
-  DDSVCAPS_RESERVED1              = $00000001;
+  DDSVCAPS_RESERVED1                 = $00000001;
+  DDSVCAPS_ENIGMA                 = DDSVCAPS_RESERVED1;
+(*
+ * This flag used to be DDSVCAPS_FLICKER, which is now obsolete
+ * The stereo view is accomplished via high frequency flickering.
+ *)
-  DDSVCAPS_RESERVED2              = $00000002;
+  DDSVCAPS_RESERVED2                = $00000002;
+  DDSVCAPS_FLICKER                = DDSVCAPS_RESERVED2;
+(*
+ * This flag used to be DDSVCAPS_REDBLUE, which is now obsolete
+ * The stereo view is accomplished via red and blue filters applied
+ * to the left and right eyes.  All images must adapt their colorspaces
+ * for this process.
+ *)
-  DDSVCAPS_RESERVED3              = $00000004;
+  DDSVCAPS_RESERVED3                = $00000004;
+  DDSVCAPS_REDBLUE                = DDSVCAPS_RESERVED3;
+(*
+ * This flag used to be DDSVCAPS_SPLIT, which is now obsolete
+ * The stereo view is accomplished with split screen technology.
+ *)
-  DDSVCAPS_RESERVED4              = $00000008;
+  DDSVCAPS_RESERVED4                  = $00000008;
+  DDSVCAPS_SPLIT                  = DDSVCAPS_RESERVED4;
+(*
+ * The stereo view is accomplished with switching technology
+ *)
   DDSVCAPS_STEREOSEQUENTIAL       = $00000010;
+(****************************************************************************
+ *
-{ DirectDrawPalette Capabilities }
+ * DIRECTDRAWPALETTE CAPABILITIES
+ *
+ ****************************************************************************)
+(*
+ * Index is 4 bits.  There are sixteen color entries in the palette table.
+ *)
-  DDPCAPS_4BIT               = $00000001;
+  DDPCAPS_4BIT                    = $00000001;
+(*
+ * Index is onto a 8 bit color index.  This field is only valid with the
+ * DDPCAPS_1BIT, DDPCAPS_2BIT or DDPCAPS_4BIT capability and the target
+ * surface is in 8bpp. Each color entry is one byte long and is an index
+ * into destination surface's 8bpp palette.
+ *)
-  DDPCAPS_8BITENTRIES        = $00000002;
+  DDPCAPS_8BITENTRIES             = $00000002;
+(*
+ * Index is 8 bits.  There are 256 color entries in the palette table.
+ *)
-  DDPCAPS_8BIT               = $00000004;
+  DDPCAPS_8BIT                    = $00000004;
+(*
+ * Indicates that this DIRECTDRAWPALETTE should use the palette color array
+ * passed into the lpDDColorArray parameter to initialize the DIRECTDRAWPALETTE
+ * object.
+ * This flag is obsolete. DirectDraw always initializes the color array from
+ * the lpDDColorArray parameter. The definition remains for source-level
+ * compatibility.
+ *)
-  DDPCAPS_INITIALIZE         = $00000008;
+  DDPCAPS_INITIALIZE              = $00000008;
+(*
+ * This palette is the one attached to the primary surface.  Changing this
+ * table has immediate effect on the display unless DDPSETPAL_VSYNC is specified
+ * and supported.
+ *)
-  DDPCAPS_PRIMARYSURFACE     = $00000010;
+  DDPCAPS_PRIMARYSURFACE          = $00000010;
+(*
+ * This palette is the one attached to the primary surface left.  Changing
+ * this table has immediate effect on the display for the left eye unless
+ * DDPSETPAL_VSYNC is specified and supported.
+ *)
-  DDPCAPS_PRIMARYSURFACELEFT = $00000020;
+  DDPCAPS_PRIMARYSURFACELEFT      = $00000020;
+(*
+ * This palette can have all 256 entries defined
+ *)
-  DDPCAPS_ALLOW256           = $00000040;
+  DDPCAPS_ALLOW256                = $00000040;
+(*
+ * This palette can have modifications to it synced with the monitors
+ * refresh rate.
+ *)
-  DDPCAPS_VSYNC              = $00000080;
+  DDPCAPS_VSYNC                   = $00000080;
+(*
+ * Index is 1 bit.  There are two color entries in the palette table.
+ *)
-  DDPCAPS_1BIT               = $00000100;
+  DDPCAPS_1BIT                    = $00000100;
+(*
+ * Index is 2 bit.  There are four color entries in the palette table.
+ *)
-  DDPCAPS_2BIT               = $00000200;
+  DDPCAPS_2BIT                    = $00000200;
+(*
+ * The peFlags member of PALETTEENTRY denotes an 8 bit alpha value
+ *)
-  DDPCAPS_ALPHA              = $00000400;
+  DDPCAPS_ALPHA                 = $00000400;
+(****************************************************************************
+ *
+ * DIRECTDRAWPALETTE SETENTRY CONSTANTS
+ *
+ ****************************************************************************)
+(****************************************************************************
+ *
+ * DIRECTDRAWPALETTE GETENTRY CONSTANTS
+ *
+ ****************************************************************************)
-{ DirectDraw BitDepth Constants }
+(* 0 is the only legal value *)
+(****************************************************************************
+ *
+ * DIRECTDRAWSURFACE SETPALETTE CONSTANTS
+ *
+ ****************************************************************************)
+(*
+ * The passed pointer is an IUnknown ptr. The cbData argument to SetPrivateData
+ * must be set to sizeof(IUnknown^). DirectDraw will call AddRef through this
+ * pointer and Release when the private data is destroyed. This includes when
+ * the surface or palette is destroyed before such priovate data is destroyed.
+ *)
+  DDSPD_IUNKNOWNPOINTER           = $00000001;
+(*
+ * Private data is only valid for the current state of the object,
+ * as determined by the uniqueness value.
+ *)
+  DDSPD_VOLATILE                  = $00000002;
+(****************************************************************************
+ *
+ * DIRECTDRAWSURFACE SETPALETTE CONSTANTS
+ *
+ ****************************************************************************)
+(****************************************************************************
+ *
+ * DIRECTDRAW BITDEPTH CONSTANTS
+ *
+ * NOTE:  These are only used to indicate supported bit depths.   These
+ * are flags only, they are not to be used as an actual bit depth.   The
+ * absolute numbers 1, 2, 4, 8, 16, 24 and 32 are used to indicate actual
+ * bit depths in a surface or for changing the display mode.
+ *
+ ****************************************************************************)
+(*
+ * 1 bit per pixel.
+ *)
-  DDBD_1  = $00004000;
+  DDBD_1                  = $00004000;
+(*
+ * 2 bits per pixel.
+ *)
-  DDBD_2  = $00002000;
+  DDBD_2                  = $00002000;
+(*
+ * 4 bits per pixel.
+ *)
-  DDBD_4  = $00001000;
+  DDBD_4                  = $00001000;
+(*
+ * 8 bits per pixel.
+ *)
-  DDBD_8  = $00000800;
+  DDBD_8                  = $00000800;
+(*
+ * 16 bits per pixel.
+ *)
-  DDBD_16 = $00000400;
+  DDBD_16                 = $00000400;
+(*
+ * 24 bits per pixel.
+ *)
-  DDBD_24 = $00000200;
+  DDBD_24                 = $00000200;
+(*
+ * 32 bits per pixel.
+ *)
-  DDBD_32 = $00000100;
+  DDBD_32                 = $00000100;
+(****************************************************************************
+ *
-{ DirectDraw Set/Get Color Key Flags }
+ * DIRECTDRAWSURFACE SET/GET COLOR KEY FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Set if the structure contains a color space.  Not set if the structure
+ * contains a single color key.
+ *)
-  DDCKEY_COLORSPACE  = $00000001;
+  DDCKEY_COLORSPACE       = $00000001;
+(*
+ * Set if the structure specifies a color key or color space which is to be
+ * used as a destination color key for blt operations.
+ *)
-  DDCKEY_DESTBLT     = $00000002;
+  DDCKEY_DESTBLT          = $00000002;
+(*
+ * Set if the structure specifies a color key or color space which is to be
+ * used as a destination color key for overlay operations.
+ *)
-  DDCKEY_DESTOVERLAY = $00000004;
+  DDCKEY_DESTOVERLAY      = $00000004;
+(*
+ * Set if the structure specifies a color key or color space which is to be
+ * used as a source color key for blt operations.
+ *)
-  DDCKEY_SRCBLT      = $00000008;
+  DDCKEY_SRCBLT           = $00000008;
+(*
+ * Set if the structure specifies a color key or color space which is to be
+ * used as a source color key for overlay operations.
+ *)
-  DDCKEY_SRCOVERLAY  = $00000010;
+  DDCKEY_SRCOVERLAY       = $00000010;
-{ DirectDraw Color Key Capability Flags }
+(****************************************************************************
+ *
+ * DIRECTDRAW COLOR KEY CAPABILITY FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Supports transparent blting using a color key to identify the replaceable
+ * bits of the destination surface for RGB colors.
+ *)
-  DDCKEYCAPS_DESTBLT                = $00000001;
+  DDCKEYCAPS_DESTBLT                      = $00000001;
+(*
+ * Supports transparent blting using a color space to identify the replaceable
+ * bits of the destination surface for RGB colors.
+ *)
-  DDCKEYCAPS_DESTBLTCLRSPACE        = $00000002;
+  DDCKEYCAPS_DESTBLTCLRSPACE              = $00000002;
+(*
+ * Supports transparent blting using a color space to identify the replaceable
+ * bits of the destination surface for YUV colors.
+ *)
-  DDCKEYCAPS_DESTBLTCLRSPACEYUV     = $00000004;
+  DDCKEYCAPS_DESTBLTCLRSPACEYUV           = $00000004;
+(*
+ * Supports transparent blting using a color key to identify the replaceable
+ * bits of the destination surface for YUV colors.
+ *)
-  DDCKEYCAPS_DESTBLTYUV             = $00000008;
+  DDCKEYCAPS_DESTBLTYUV                   = $00000008;
+(*
+ * Supports overlaying using colorkeying of the replaceable bits of the surface
+ * being overlayed for RGB colors.
+ *)
-  DDCKEYCAPS_DESTOVERLAY            = $00000010;
+  DDCKEYCAPS_DESTOVERLAY                  = $00000010;
+(*
+ * Supports a color space as the color key for the destination for RGB colors.
+ *)
-  DDCKEYCAPS_DESTOVERLAYCLRSPACE    = $00000020;
+  DDCKEYCAPS_DESTOVERLAYCLRSPACE          = $00000020;
+(*
+ * Supports a color space as the color key for the destination for YUV colors.
+ *)
-  DDCKEYCAPS_DESTOVERLAYCLRSPACEYUV = $00000040;
+  DDCKEYCAPS_DESTOVERLAYCLRSPACEYUV       = $00000040;
+(*
+ * Supports only one active destination color key value for visible overlay
+ * surfaces.
+ *)
-  DDCKEYCAPS_DESTOVERLAYONEACTIVE   = $00000080;
+  DDCKEYCAPS_DESTOVERLAYONEACTIVE         = $00000080;
+(*
+ * Supports overlaying using colorkeying of the replaceable bits of the
+ * surface being overlayed for YUV colors.
+ *)
-  DDCKEYCAPS_DESTOVERLAYYUV         = $00000100;
+  DDCKEYCAPS_DESTOVERLAYYUV               = $00000100;
+(*
+ * Supports transparent blting using the color key for the source with
+ * this surface for RGB colors.
+ *)
-  DDCKEYCAPS_SRCBLT                 = $00000200;
+  DDCKEYCAPS_SRCBLT                       = $00000200;
+(*
+ * Supports transparent blting using a color space for the source with
+ * this surface for RGB colors.
+ *)
-  DDCKEYCAPS_SRCBLTCLRSPACE         = $00000400;
+  DDCKEYCAPS_SRCBLTCLRSPACE               = $00000400;
+(*
+ * Supports transparent blting using a color space for the source with
+ * this surface for YUV colors.
+ *)
-  DDCKEYCAPS_SRCBLTCLRSPACEYUV      = $00000800;
+  DDCKEYCAPS_SRCBLTCLRSPACEYUV            = $00000800;
+(*
+ * Supports transparent blting using the color key for the source with
+ * this surface for YUV colors.
+ *)
-  DDCKEYCAPS_SRCBLTYUV              = $00001000;
+  DDCKEYCAPS_SRCBLTYUV                    = $00001000;
+(*
+ * Supports overlays using the color key for the source with this
+ * overlay surface for RGB colors.
+ *)
-  DDCKEYCAPS_SRCOVERLAY             = $00002000;
+  DDCKEYCAPS_SRCOVERLAY                   = $00002000;
+(*
+ * Supports overlays using a color space as the source color key for
+ * the overlay surface for RGB colors.
+ *)
-  DDCKEYCAPS_SRCOVERLAYCLRSPACE     = $00004000;
+  DDCKEYCAPS_SRCOVERLAYCLRSPACE           = $00004000;
+(*
+ * Supports overlays using a color space as the source color key for
+ * the overlay surface for YUV colors.
+ *)
-  DDCKEYCAPS_SRCOVERLAYCLRSPACEYUV  = $00008000;
+  DDCKEYCAPS_SRCOVERLAYCLRSPACEYUV        = $00008000;
+(*
+ * Supports only one active source color key value for visible
+ * overlay surfaces.
+ *)
-  DDCKEYCAPS_SRCOVERLAYONEACTIVE    = $00010000;
+  DDCKEYCAPS_SRCOVERLAYONEACTIVE          = $00010000;
+(*
+ * Supports overlays using the color key for the source with this
+ * overlay surface for YUV colors.
+ *)
-  DDCKEYCAPS_SRCOVERLAYYUV          = $00020000;
+  DDCKEYCAPS_SRCOVERLAYYUV                = $00020000;
+(*
+ * there are no bandwidth trade-offs for using colorkey with an overlay
+ *)
-  DDCKEYCAPS_NOCOSTOVERLAY          = $00040000;
+  DDCKEYCAPS_NOCOSTOVERLAY                = $00040000;
-{ DirectDraw PixelFormat Flags }
+(****************************************************************************
+ *
+ * DIRECTDRAW PIXELFORMAT FLAGS
+ *
+ ****************************************************************************)
+(*
+ * The surface has alpha channel information in the pixel format.
+ *)
-  DDPF_ALPHAPIXELS       = $00000001;
+  DDPF_ALPHAPIXELS                        = $00000001;
+(*
+ * The pixel format contains alpha only information
+ *)
-  DDPF_ALPHA             = $00000002;
+  DDPF_ALPHA                              = $00000002;
+(*
+ * The FourCC code is valid.
+ *)
-  DDPF_FOURCC            = $00000004;
+  DDPF_FOURCC                             = $00000004;
+(*
+ * The surface is 4-bit color indexed.
+ *)
-  DDPF_PALETTEINDEXED4   = $00000008;
+  DDPF_PALETTEINDEXED4                    = $00000008;
+(*
+ * The surface is indexed into a palette which stores indices
+ * into the destination surface's 8-bit palette.
+ *)
-  DDPF_PALETTEINDEXEDTO8 = $00000010;
+  DDPF_PALETTEINDEXEDTO8                  = $00000010;
+(*
+ * The surface is 8-bit color indexed.
+ *)
-  DDPF_PALETTEINDEXED8   = $00000020;
+  DDPF_PALETTEINDEXED8                    = $00000020;
+(*
+ * The RGB data in the pixel format structure is valid.
+ *)
-  DDPF_RGB               = $00000040;
+  DDPF_RGB                                = $00000040;
+(*
+ * The surface will accept pixel data in the format specified
+ * and compress it during the write.
+ *)
-  DDPF_COMPRESSED        = $00000080;
+  DDPF_COMPRESSED                         = $00000080;
+(*
+ * The surface will accept RGB data and translate it during
+ * the write to YUV data.  The format of the data to be written
+ * will be contained in the pixel format structure.  The DDPF_RGB
+ * flag will be set.
+ *)
-  DDPF_RGBTOYUV          = $00000100;
+  DDPF_RGBTOYUV                           = $00000100;
+(*
+ * pixel format is YUV - YUV data in pixel format struct is valid
+ *)
-  DDPF_YUV               = $00000200;
+  DDPF_YUV                                = $00000200;
+(*
+ * pixel format is a z buffer only surface
+ *)
-  DDPF_ZBUFFER           = $00000400;
+  DDPF_ZBUFFER                            = $00000400;
+(*
+ * The surface is 1-bit color indexed.
+ *)
-  DDPF_PALETTEINDEXED1   = $00000800;
+  DDPF_PALETTEINDEXED1                    = $00000800;
+(*
+ * The surface is 2-bit color indexed.
+ *)
-  DDPF_PALETTEINDEXED2   = $00001000;
+  DDPF_PALETTEINDEXED2                    = $00001000;
+(*
+ * The surface contains Z information in the pixels
+ *)
-  DDPF_ZPIXELS           = $00002000;
+  DDPF_ZPIXELS                          = $00002000;
+(*
+ * The surface contains stencil information along with Z
+ *)
-  DDPF_STENCILBUFFER     = $00004000;
+  DDPF_STENCILBUFFER                    = $00004000;
+(*
+ * Premultiplied alpha format -- the color components have been
+ * premultiplied by the alpha component.
+ *)
-  DDPF_ALPHAPREMULT      = $00008000;
+  DDPF_ALPHAPREMULT                     = $00008000;
-  DDPF_LUMINANCE         = $00020000;
-  DDPF_BUMPLUMINANCE     = $00040000;
-  DDPF_BUMPDUDV          = $00080000;
-{ DirectDraw SetDisplayMode Flags }
+(*
+ * Luminance data in the pixel format is valid.
+ * Use this flag for luminance-only or luminance+alpha surfaces,
+ * the bit depth is then ddpf.dwLuminanceBitCount.
+ *)
-  DDSDM_STANDARDVGAMODE  = $00000001;
+  DDPF_LUMINANCE                          = $00020000;
+(*
-{ DirectDraw EnumDisplayModes Flags }
+ * Luminance data in the pixel format is valid.
+ * Use this flag when hanging luminance off bumpmap surfaces,
+ * the bit mask for the luminance portion of the pixel is then
+ * ddpf.dwBumpLuminanceBitMask
+ *)
+  DDPF_BUMPLUMINANCE                      = $00040000;
+(*
-  DDEDM_REFRESHRATES     = $00000001;
+ * Bump map dUdV data in the pixel format is valid.
+ *)
-  DDEDM_STANDARDVGAMODES = $00000002;
+  DDPF_BUMPDUDV                           = $00080000;
+(*===========================================================================
+ *
+ *
+ * DIRECTDRAW CALLBACK FLAGS
+ *
+ *
+ *==========================================================================*)
+(****************************************************************************
+ *
-{ DirectDraw EnumSurfaces Flags }
+ * DIRECTDRAW ENUMSURFACES FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Enumerate all of the surfaces that meet the search criterion.
+ *)
-  DDENUMSURFACES_ALL           = $00000001;
+  DDENUMSURFACES_ALL                      = $00000001;
+(*
+ * A search hit is a surface that matches the surface description.
+ *)
-  DDENUMSURFACES_MATCH         = $00000002;
+  DDENUMSURFACES_MATCH                    = $00000002;
+(*
+ * A search hit is a surface that does not match the surface description.
+ *)
-  DDENUMSURFACES_NOMATCH       = $00000004;
+  DDENUMSURFACES_NOMATCH                  = $00000004;
+(*
+ * Enumerate the first surface that can be created which meets the search criterion.
+ *)
-  DDENUMSURFACES_CANBECREATED  = $00000008;
+  DDENUMSURFACES_CANBECREATED             = $00000008;
+(*
+ * Enumerate the surfaces that already exist that meet the search criterion.
+ *)
-  DDENUMSURFACES_DOESEXIST     = $00000010;
+  DDENUMSURFACES_DOESEXIST                = $00000010;
+(****************************************************************************
+ *
+ * DIRECTDRAW SETDISPLAYMODE FLAGS
+ *
+ ****************************************************************************)
+(*
+ * The desired mode is a standard VGA mode
+ *)
+  DDSDM_STANDARDVGAMODE                   = $00000001;
+(****************************************************************************
+ *
+ * DIRECTDRAW ENUMDISPLAYMODES FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Enumerate Modes with different refresh rates.  EnumDisplayModes guarantees
+ * that a particular mode will be enumerated only once.  This flag specifies whether
+ * the refresh rate is taken into account when determining if a mode is unique.
+ *)
+  DDEDM_REFRESHRATES                      = $00000001;
+(*
+ * Enumerate VGA modes. Specify this flag if you wish to enumerate supported VGA
+ * modes such as mode 0x13 in addition to the usual ModeX modes (which are always
+ * enumerated if the application has previously called SetCooperativeLevel with the
+ * DDSCL_ALLOWMODEX flag set).
+ *)
+  DDEDM_STANDARDVGAMODES                  = $00000002;
+(****************************************************************************
+ *
-{ DirectDraw SetCooperativeLevel Flags }
+ * DIRECTDRAW SETCOOPERATIVELEVEL FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Exclusive mode owner will be responsible for the entire primary surface.
+ * GDI can be ignored. used with DD
+ *)
-  DDSCL_FULLSCREEN          = $00000001;
+  DDSCL_FULLSCREEN                        = $00000001;
+(*
+ * allow CTRL_ALT_DEL to work while in fullscreen exclusive mode
+ *)
-  DDSCL_ALLOWREBOOT         = $00000002;
+  DDSCL_ALLOWREBOOT                       = $00000002;
+(*
+ * prevents DDRAW from modifying the application window.
+ * prevents DDRAW from minimize/restore the application window on activation.
+ *)
-  DDSCL_NOWINDOWCHANGES     = $00000004;
+  DDSCL_NOWINDOWCHANGES                   = $00000004;
+(*
+ * app wants to work as a regular Windows application
+ *)
-  DDSCL_NORMAL              = $00000008;
+  DDSCL_NORMAL                            = $00000008;
+(*
+ * app wants exclusive access
+ *)
-  DDSCL_EXCLUSIVE           = $00000010;
+  DDSCL_EXCLUSIVE                         = $00000010;
+(*
+ * app can deal with non-windows display modes
+ *)
-  DDSCL_ALLOWMODEX          = $00000040;
+  DDSCL_ALLOWMODEX                        = $00000040;
+(*
+ * this window will receive the focus messages
+ *)
-  DDSCL_SETFOCUSWINDOW      = $00000080;
+  DDSCL_SETFOCUSWINDOW                    = $00000080;
+(*
+ * this window is associated with the DDRAW object and will
+ * cover the screen in fullscreen mode
+ *)
-  DDSCL_SETDEVICEWINDOW     = $00000100;
+  DDSCL_SETDEVICEWINDOW                   = $00000100;
+(*
+ * app wants DDRAW to create a window to be associated with the
+ * DDRAW object
+ *)
-  DDSCL_CREATEDEVICEWINDOW  = $00000200;
+  DDSCL_CREATEDEVICEWINDOW                = $00000200;
+(*
+ * App explicitly asks DDRAW/D3D to be multithread safe. This makes D3D
+ * take the global crtisec more frequently.
+ *)
-  DDSCL_MULTITHREADED       = $00000400;
+  DDSCL_MULTITHREADED                     = $00000400;
+(*
+ * App hints that it would like to keep the FPU set up for optimal Direct3D
+ * performance (single precision and exceptions disabled) so Direct3D
+ * does not need to explicitly set the FPU each time
+ *)
-  DDSCL_FPUSETUP            = $00000800;
+  DDSCL_FPUSETUP                          = $00000800;
+(*
+ * App specifies that it needs either double precision FPU or FPU exceptions
+ * enabled. This makes Direct3D explicitly set the FPU state eah time it is
+ * called. Setting the flag will reduce Direct3D performance. The flag is
+ * assumed by default in DirectX 6 and earlier. See also DDSCL_FPUSETUP
+ *)
-  DDSCL_FPUPRESERVE         = $00001000;
+  DDSCL_FPUPRESERVE                          = $00001000;
+(****************************************************************************
+ *
-{ DirectDraw Blt Flags }
+ * DIRECTDRAW BLT FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Use the alpha information in the pixel format or the alpha channel surface
+ * attached to the destination surface as the alpha channel for this blt.
+ *)
-  DDBLT_ALPHADEST                = $00000001;
+  DDBLT_ALPHADEST                         = $00000001;
+(*
+ * Use the dwConstAlphaDest field in the TDDBltFX structure as the alpha channel
+ * for the destination surface for this blt.
+ *)
-  DDBLT_ALPHADESTCONSTOVERRIDE   = $00000002;
+  DDBLT_ALPHADESTCONSTOVERRIDE            = $00000002;
+(*
+ * The NEG suffix indicates that the destination surface becomes more
+ * transparent as the alpha value increases. (0 is opaque)
+ *)
-  DDBLT_ALPHADESTNEG             = $00000004;
+  DDBLT_ALPHADESTNEG                      = $00000004;
+(*
+ * Use the lpDDSAlphaDest field in the TDDBltFX structure as the alpha
+ * channel for the destination for this blt.
+ *)
-  DDBLT_ALPHADESTSURFACEOVERRIDE = $00000008;
+  DDBLT_ALPHADESTSURFACEOVERRIDE          = $00000008;
+(*
+ * Use the dwAlphaEdgeBlend field in the TDDBltFX structure as the alpha channel
+ * for the edges of the image that border the color key colors.
+ *)
-  DDBLT_ALPHAEDGEBLEND           = $00000010;
+  DDBLT_ALPHAEDGEBLEND                    = $00000010;
+(*
+ * Use the alpha information in the pixel format or the alpha channel surface
+ * attached to the source surface as the alpha channel for this blt.
+ *)
-  DDBLT_ALPHASRC                 = $00000020;
+  DDBLT_ALPHASRC                          = $00000020;
+(*
+ * Use the dwConstAlphaSrc field in the TDDBltFX structure as the alpha channel
+ * for the source for this blt.
+ *)
-  DDBLT_ALPHASRCCONSTOVERRIDE    = $00000040;
+  DDBLT_ALPHASRCCONSTOVERRIDE             = $00000040;
+(*
+ * The NEG suffix indicates that the source surface becomes more transparent
+ * as the alpha value increases. (0 is opaque)
+ *)
-  DDBLT_ALPHASRCNEG              = $00000080;
+  DDBLT_ALPHASRCNEG                       = $00000080;
+(*
+ * Use the lpDDSAlphaSrc field in the TDDBltFX structure as the alpha channel
+ * for the source for this blt.
+ *)
-  DDBLT_ALPHASRCSURFACEOVERRIDE  = $00000100;
+  DDBLT_ALPHASRCSURFACEOVERRIDE           = $00000100;
+(*
+ * Do this blt asynchronously through the FIFO in the order received.  If
+ * there is no room in the hardware FIFO fail the call.
+ *)
-  DDBLT_ASYNC                    = $00000200;
+  DDBLT_ASYNC                             = $00000200;
+(*
+ * Uses the dwFillColor field in the TDDBltFX structure as the RGB color
+ * to fill the destination rectangle on the destination surface with.
+ *)
-  DDBLT_COLORFILL                = $00000400;
+  DDBLT_COLORFILL                         = $00000400;
+(*
+ * Uses the dwDDFX field in the TDDBltFX structure to specify the effects
+ * to use for the blt.
+ *)
-  DDBLT_DDFX                     = $00000800;
+  DDBLT_DDFX                              = $00000800;
+(*
+ * Uses the dwDDROPS field in the TDDBltFX structure to specify the ROPS
+ * that are not part of the Win32 API.
+ *)
-  DDBLT_DDROPS                   = $00001000;
+  DDBLT_DDROPS                            = $00001000;
+(*
+ * Use the color key associated with the destination surface.
+ *)
-  DDBLT_KEYDEST                  = $00002000;
+  DDBLT_KEYDEST                           = $00002000;
+(*
+ * Use the dckDestColorkey field in the TDDBltFX structure as the color key
+ * for the destination surface.
+ *)
-  DDBLT_KEYDESTOVERRIDE          = $00004000;
+  DDBLT_KEYDESTOVERRIDE                   = $00004000;
+(*
+ * Use the color key associated with the source surface.
+ *)
-  DDBLT_KEYSRC                   = $00008000;
+  DDBLT_KEYSRC                            = $00008000;
+(*
+ * Use the dckSrcColorkey field in the TDDBltFX structure as the color key
+ * for the source surface.
+ *)
-  DDBLT_KEYSRCOVERRIDE           = $00010000;
+  DDBLT_KEYSRCOVERRIDE                    = $00010000;
+(*
+ * Use the dwROP field in the TDDBltFX structure for the raster operation
+ * for this blt.  These ROPs are the same as the ones defined in the Win32 API.
+ *)
-  DDBLT_ROP                      = $00020000;
+  DDBLT_ROP                               = $00020000;
+(*
+ * Use the dwRotationAngle field in the TDDBltFX structure as the angle
+ * (specified in 1/100th of a degree) to rotate the surface.
+ *)
-  DDBLT_ROTATIONANGLE            = $00040000;
+  DDBLT_ROTATIONANGLE                     = $00040000;
+(*
+ * Z-buffered blt using the z-buffers attached to the source and destination
+ * surfaces and the dwZBufferOpCode field in the TDDBltFX structure as the
+ * z-buffer opcode.
+ *)
-  DDBLT_ZBUFFER                  = $00080000;
+  DDBLT_ZBUFFER                           = $00080000;
+(*
+ * Z-buffered blt using the dwConstDest Zfield and the dwZBufferOpCode field
+ * in the TDDBltFX structure as the z-buffer and z-buffer opcode respectively
+ * for the destination.
+ *)
-  DDBLT_ZBUFFERDESTCONSTOVERRIDE = $00100000;
+  DDBLT_ZBUFFERDESTCONSTOVERRIDE          = $00100000;
+(*
+ * Z-buffered blt using the lpDDSDestZBuffer field and the dwZBufferOpCode
+ * field in the TDDBltFX structure as the z-buffer and z-buffer opcode
+ * respectively for the destination.
+ *)
-  DDBLT_ZBUFFERDESTOVERRIDE      = $00200000;
+  DDBLT_ZBUFFERDESTOVERRIDE               = $00200000;
+(*
+ * Z-buffered blt using the dwConstSrcZ field and the dwZBufferOpCode field
+ * in the TDDBltFX structure as the z-buffer and z-buffer opcode respectively
+ * for the source.
+ *)
-  DDBLT_ZBUFFERSRCCONSTOVERRIDE  = $00400000;
+  DDBLT_ZBUFFERSRCCONSTOVERRIDE           = $00400000;
+(*
+ * Z-buffered blt using the lpDDSSrcZBuffer field and the dwZBufferOpCode
+ * field in the TDDBltFX structure as the z-buffer and z-buffer opcode
+ * respectively for the source.
+ *)
-  DDBLT_ZBUFFERSRCOVERRIDE       = $00800000;
+   DDBLT_ZBUFFERSRCOVERRIDE                = $00800000;
+(*
+ * wait until the device is ready to handle the blt
+ * this will cause blt to not return DDERR_WASSTILLDRAWING
+ *)
-  DDBLT_WAIT                     = $01000000;
+  DDBLT_WAIT                              = $01000000;
+(*
+ * Uses the dwFillDepth field in the TDDBltFX structure as the depth value
+ * to fill the destination rectangle on the destination Z-buffer surface
+ * with.
+ *)
-  DDBLT_DEPTHFILL                = $02000000;
+  DDBLT_DEPTHFILL                         = $02000000;
+(*
+ * wait until the device is ready to handle the blt
+ * this will cause blt to not return DDERR_WASSTILLDRAWING
+ *)
-  DDBLT_DONOTWAIT                = $08000000;
+  DDBLT_DONOTWAIT                         = $08000000;
+(****************************************************************************
+ *
-{ BltFast Flags }
+ * BLTFAST FLAGS
+ *
+ ****************************************************************************)
-  DDBLTFAST_NOCOLORKEY   = $00000000;
+  DDBLTFAST_NOCOLORKEY                    = $00000000;
-  DDBLTFAST_SRCCOLORKEY  = $00000001;
+  DDBLTFAST_SRCCOLORKEY                   = $00000001;
-  DDBLTFAST_DESTCOLORKEY = $00000002;
+  DDBLTFAST_DESTCOLORKEY                  = $00000002;
-  DDBLTFAST_WAIT         = $00000010;
+  DDBLTFAST_WAIT                          = $00000010;
-  DDBLTFAST_DONOTWAIT    = $00000020;
+  DDBLTFAST_DONOTWAIT                     = $00000020;
+(****************************************************************************
+ *
-{ Flip Flags }
+ * FLIP FLAGS
+ *
+ ****************************************************************************)
-  DDFLIP_WAIT      = $00000001;
+  DDFLIP_WAIT                          = $00000001;
+(*
+ * Indicates that the target surface contains the even field of video data.
+ * This flag is only valid with an overlay surface.
+ *)
-  DDFLIP_EVEN      = $00000002;
+  DDFLIP_EVEN                          = $00000002;
+(*
+ * Indicates that the target surface contains the odd field of video data.
+ * This flag is only valid with an overlay surface.
+ *)
-  DDFLIP_ODD       = $00000004;
+  DDFLIP_ODD                           = $00000004;
+(*
+ * Causes DirectDraw to perform the physical flip immediately and return
+ * to the application. Typically, what was the front buffer but is now the back
+ * buffer will still be visible (depending on timing) until the next vertical
+ * retrace. Subsequent operations involving the two flipped surfaces will
+ * not check to see if the physical flip has finished (i.e. will not return
+ * DDERR_WASSTILLDRAWING for that reason (but may for other reasons)).
+ * This allows an application to perform Flips at a higher frequency than the
+ * monitor refresh rate, but may introduce visible artifacts.
+ * Only effective if DDCAPS2_FLIPNOVSYNC is set. If that bit is not set,
+ * DDFLIP_NOVSYNC has no effect.
+ *)
-  DDFLIP_NOVSYNC   = $00000008;
+  DDFLIP_NOVSYNC                       = $00000008;
+(*
+ * Flip Interval Flags. These flags indicate how many vertical retraces to wait between
+ * each flip. The default is one. DirectDraw will return DDERR_WASSTILLDRAWING for each
+ * surface involved in the flip until the specified number of vertical retraces has
+ * ocurred. Only effective if DDCAPS2_FLIPINTERVAL is set. If that bit is not set,
+ * DDFLIP_INTERVALn has no effect.
+ *)
+(*
+ * DirectDraw will flip on every other vertical sync
+ *)
-  DDFLIP_INTERVAL2 = $02000000;
+  DDFLIP_INTERVAL2                     = $02000000;
+(*
+ * DirectDraw will flip on every third vertical sync
+ *)
-  DDFLIP_INTERVAL3 = $03000000;
+  DDFLIP_INTERVAL3                     = $03000000;
+(*
+ * DirectDraw will flip on every fourth vertical sync
+ *)
-  DDFLIP_INTERVAL4 = $04000000;
+  DDFLIP_INTERVAL4                     = $04000000;
+(*
+ * DirectDraw will flip and display a main stereo surface
+ *)
-  DDFLIP_STEREO    = $00000010;
+  DDFLIP_STEREO                        = $00000010;
+(*
+ * On IDirectDrawSurface7 and higher interfaces, the default is DDFLIP_WAIT. If you wish
+ * to override the default and use time when the accelerator is busy (as denoted by
+ * the DDERR_WASSTILLDRAWING return code) then use DDFLIP_DONOTWAIT.
+ *)
-  DDFLIP_DONOTWAIT = $00000020;
+  DDFLIP_DONOTWAIT                     = $00000020;
+(****************************************************************************
+ *
-{ DirectDraw Surface Overlay Flags }
+ * DIRECTDRAW SURFACE OVERLAY FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Use the alpha information in the pixel format or the alpha channel surface
+ * attached to the destination surface as the alpha channel for the
+ * destination overlay.
+ *)
-  DDOVER_ALPHADEST                = $00000001;
+  DDOVER_ALPHADEST                        = $00000001;
+(*
+ * Use the dwConstAlphaDest field in the TDDOverlayFX structure as the
+ * destination alpha channel for this overlay.
+ *)
-  DDOVER_ALPHADESTCONSTOVERRIDE   = $00000002;
+  DDOVER_ALPHADESTCONSTOVERRIDE           = $00000002;
+(*
+ * The NEG suffix indicates that the destination surface becomes more
+ * transparent as the alpha value increases.
+ *)
-  DDOVER_ALPHADESTNEG             = $00000004;
+  DDOVER_ALPHADESTNEG                     = $00000004;
+(*
+ * Use the lpDDSAlphaDest field in the TDDOverlayFX structure as the alpha
+ * channel destination for this overlay.
+ *)
-  DDOVER_ALPHADESTSURFACEOVERRIDE = $00000008;
+  DDOVER_ALPHADESTSURFACEOVERRIDE         = $00000008;
+(*
+ * Use the dwAlphaEdgeBlend field in the TDDOverlayFX structure as the alpha
+ * channel for the edges of the image that border the color key colors.
+ *)
-  DDOVER_ALPHAEDGEBLEND           = $00000010;
+  DDOVER_ALPHAEDGEBLEND                   = $00000010;
+(*
+ * Use the alpha information in the pixel format or the alpha channel surface
+ * attached to the source surface as the source alpha channel for this overlay.
+ *)
-  DDOVER_ALPHASRC                 = $00000020;
+  DDOVER_ALPHASRC                         = $00000020;
+(*
+ * Use the dwConstAlphaSrc field in the TDDOverlayFX structure as the source
+ * alpha channel for this overlay.
+ *)
-  DDOVER_ALPHASRCCONSTOVERRIDE    = $00000040;
+  DDOVER_ALPHASRCCONSTOVERRIDE            = $00000040;
+(*
+ * The NEG suffix indicates that the source surface becomes more transparent
+ * as the alpha value increases.
+ *)
-  DDOVER_ALPHASRCNEG              = $00000080;
+  DDOVER_ALPHASRCNEG                      = $00000080;
+(*
+ * Use the lpDDSAlphaSrc field in the TDDOverlayFX structure as the alpha channel
+ * source for this overlay.
+ *)
-  DDOVER_ALPHASRCSURFACEOVERRIDE  = $00000100;
+  DDOVER_ALPHASRCSURFACEOVERRIDE          = $00000100;
+(*
+ * Turn this overlay off.
+ *)
-  DDOVER_HIDE                     = $00000200;
+  DDOVER_HIDE                             = $00000200;
+(*
+ * Use the color key associated with the destination surface.
+ *)
-  DDOVER_KEYDEST                  = $00000400;
+  DDOVER_KEYDEST                          = $00000400;
+(*
+ * Use the dckDestColorkey field in the TDDOverlayFX structure as the color key
+ * for the destination surface
+ *)
-  DDOVER_KEYDESTOVERRIDE          = $00000800;
+  DDOVER_KEYDESTOVERRIDE                  = $00000800;
+(*
+ * Use the color key associated with the source surface.
+ *)
-  DDOVER_KEYSRC                   = $00001000;
+  DDOVER_KEYSRC                           = $00001000;
+(*
+ * Use the dckSrcColorkey field in the TDDOverlayFX structure as the color key
+ * for the source surface.
+ *)
-  DDOVER_KEYSRCOVERRIDE           = $00002000;
+  DDOVER_KEYSRCOVERRIDE                   = $00002000;
+(*
+ * Turn this overlay on.
+ *)
-  DDOVER_SHOW                     = $00004000;
+  DDOVER_SHOW                             = $00004000;
+(*
+ * Add a dirty rect to an emulated overlayed surface.
+ *)
-  DDOVER_ADDDIRTYRECT             = $00008000;
+  DDOVER_ADDDIRTYRECT                     = $00008000;
+(*
+ * Redraw all dirty rects on an emulated overlayed surface.
+ *)
-  DDOVER_REFRESHDIRTYRECTS        = $00010000;
+  DDOVER_REFRESHDIRTYRECTS                = $00010000;
+(*
+ * Redraw the entire surface on an emulated overlayed surface.
+ *)
-  DDOVER_REFRESHALL               = $00020000;
+  DDOVER_REFRESHALL                      = $00020000;
+(*
+ * Use the overlay FX flags to define special overlay FX
+ *)
-  DDOVER_DDFX                     = $00080000;
+  DDOVER_DDFX                             = $00080000;
+(*
+ * Autoflip the overlay when ever the video port autoflips
+ *)
-  DDOVER_AUTOFLIP                 = $00100000;
+  DDOVER_AUTOFLIP                         = $00100000;
+(*
+ * Display each field of video port data individually without
+ * causing any jittery artifacts
+ *)
-  DDOVER_BOB                      = $00200000;
+  DDOVER_BOB                              = $00200000;
+(*
+ * Indicates that bob/weave decisions should not be overridden by other
+ * interfaces.
+ *)
-  DDOVER_OVERRIDEBOBWEAVE         = $00400000;
+  DDOVER_OVERRIDEBOBWEAVE                 = $00400000;
+(*
+ * Indicates that the surface memory is composed of interleaved fields.
+ *)
-  DDOVER_INTERLEAVED              = $00800000;
+  DDOVER_INTERLEAVED                      = $00800000;
+(*
+ * Indicates that bob will be performed using hardware rather than
+ * software or emulated.
+ *)
-  DDOVER_BOBHARDWARE              = $01000000;
+  DDOVER_BOBHARDWARE                    = $01000000;
+(*
+ * Indicates that overlay FX structure contains valid ARGB scaling factors.
+ *)
-  DDOVER_ARGBSCALEFACTORS         = $02000000;
+  DDOVER_ARGBSCALEFACTORS                 = $02000000;
+(*
+ * Indicates that ARGB scaling factors can be degraded to fit driver capabilities.
+ *)
-  DDOVER_DEGRADEARGBSCALING       = $04000000;
+  DDOVER_DEGRADEARGBSCALING               = $04000000;
+(****************************************************************************
+ *
-{ DirectDrawSurface Lock Flags }
+ * DIRECTDRAWSURFACE LOCK FLAGS
+ *
+ ****************************************************************************)
+(*
+ * The default.  Set to indicate that Lock should return a valid memory pointer
+ * to the top of the specified rectangle.  If no rectangle is specified then a
+ * pointer to the top of the surface is returned.
+ *)
-  DDLOCK_SURFACEMEMORYPTR  = $00000000;    // default
+  DDLOCK_SURFACEMEMORYPTR                 = $00000000;    // = default
+(*
+ * Set to indicate that Lock should wait until it can obtain a valid memory
+ * pointer before returning.  If this bit is set, Lock will never return
+ * DDERR_WASSTILLDRAWING.
+ *)
-  DDLOCK_WAIT              = $00000001;
+  DDLOCK_WAIT                             = $00000001;
+(*
+ * Set if an event handle is being passed to Lock.  Lock will trigger the event
+ * when it can return the surface memory pointer requested.
+ *)
-  DDLOCK_EVENT             = $00000002;
+  DDLOCK_EVENT                            = $00000002;
+(*
+ * Indicates that the surface being locked will only be read from.
+ *)
-  DDLOCK_READONLY          = $00000010;
+  DDLOCK_READONLY                         = $00000010;
+(*
+ * Indicates that the surface being locked will only be written to
+ *)
-  DDLOCK_WRITEONLY         = $00000020;
+  DDLOCK_WRITEONLY                        = $00000020;
+(*
+ * Indicates that a system wide lock should not be taken when this surface
+ * is locked. This has several advantages (cursor responsiveness, ability
+ * to call more Windows functions, easier debugging) when locking video
+ * memory surfaces. However, an application specifying this flag must
+ * comply with a number of conditions documented in the help file.
+ * Furthermore, this flag cannot be specified when locking the primary.
+ *)
-  DDLOCK_NOSYSLOCK         = $00000800;
+  DDLOCK_NOSYSLOCK                        = $00000800;
+(*
+ * Used only with Direct3D Vertex Buffer Locks. Indicates that no vertices
+ * that were referred to in Draw*PrimtiveVB calls since the start of the
+ * frame (or the last lock without this flag) will be modified during the
+ * lock. This can be useful when one is only appending data to the vertex
+ * buffer
+ *)
-  DDLOCK_NOOVERWRITE       = $00001000;
+  DDLOCK_NOOVERWRITE                      = $00001000;
+(*
+ * Indicates that no assumptions will be made about the contents of the
+ * surface or vertex buffer during this lock.
+ * This enables two things:
+ * -    Direct3D or the driver may provide an alternative memory
+ *      area as the vertex buffer. This is useful when one plans to clear the
+ *      contents of the vertex buffer and fill in new data.
+ * -    Drivers sometimes store surface data in a re-ordered format.
+ *      When the application locks the surface, the driver is forced to un-re-order
+ *      the surface data before allowing the application to see the surface contents.
+ *      This flag is a hint to the driver that it can skip the un-re-ordering process
+ *      since the application plans to overwrite every single pixel in the surface
+ *      or locked rectangle (and so erase any un-re-ordered pixels anyway).
+ *      Applications should always set this flag when they intend to overwrite the entire
+ *      surface or locked rectangle.
+ *)
-  DDLOCK_DISCARDCONTENTS   = $00002000;
+  DDLOCK_DISCARDCONTENTS                  = $00002000;
+ (*
+  * DDLOCK_OKTOSWAP is an older, less informative name for DDLOCK_DISCARDCONTENTS
+  *)
-  DDLOCK_OKTOSWAP          = $00002000;
+  DDLOCK_OKTOSWAP                         = $00002000;
+(*
+ * On IDirectDrawSurface7 and higher interfaces, the default is DDLOCK_WAIT. If you wish
+ * to override the default and use time when the accelerator is busy (as denoted by
+ * the DDERR_WASSTILLDRAWING return code) then use DDLOCK_DONOTWAIT.
+ *)
-  DDLOCK_DONOTWAIT         = $00004000;
+  DDLOCK_DONOTWAIT                        = $00004000;
-{ DirectDrawSurface Blt FX Flags }
+(****************************************************************************
+ *
+ * DIRECTDRAWSURFACE PAGELOCK FLAGS
+ *
+ ****************************************************************************)
+(*
+ * No flags defined at present
+ *)
+(****************************************************************************
+ *
+ * DIRECTDRAWSURFACE PAGEUNLOCK FLAGS
+ *
+ ****************************************************************************)
+(*
+ * No flags defined at present
+ *)
+(****************************************************************************
+ *
+ * DIRECTDRAWSURFACE BLT FX FLAGS
+ *
+ ****************************************************************************)
+(*
+ * If stretching, use arithmetic stretching along the Y axis for this blt.
+ *)
-  DDBLTFX_ARITHSTRETCHY    = $00000001;
+  DDBLTFX_ARITHSTRETCHY                   = $00000001;
+(*
+ * Do this blt mirroring the surface left to right.  Spin the
+ * surface around its y-axis.
+ *)
-  DDBLTFX_MIRRORLEFTRIGHT  = $00000002;
+  DDBLTFX_MIRRORLEFTRIGHT                 = $00000002;
+(*
+ * Do this blt mirroring the surface up and down.  Spin the surface
+ * around its x-axis.
+ *)
-  DDBLTFX_MIRRORUPDOWN     = $00000004;
+  DDBLTFX_MIRRORUPDOWN                    = $00000004;
+(*
+ * Schedule this blt to avoid tearing.
+ *)
-  DDBLTFX_NOTEARING        = $00000008;
+  DDBLTFX_NOTEARING                       = $00000008;
+(*
+ * Do this blt rotating the surface one hundred and eighty degrees.
+ *)
-  DDBLTFX_ROTATE180        = $00000010;
+  DDBLTFX_ROTATE180                       = $00000010;
+(*
+ * Do this blt rotating the surface two hundred and seventy degrees.
+ *)
-  DDBLTFX_ROTATE270        = $00000020;
+  DDBLTFX_ROTATE270                       = $00000020;
+(*
+ * Do this blt rotating the surface ninety degrees.
+ *)
-  DDBLTFX_ROTATE90         = $00000040;
+  DDBLTFX_ROTATE90                        = $00000040;
+(*
+ * Do this z blt using dwZBufferLow and dwZBufferHigh as  range values
+ * specified to limit the bits copied from the source surface.
+ *)
-  DDBLTFX_ZBUFFERRANGE     = $00000080;
+  DDBLTFX_ZBUFFERRANGE                    = $00000080;
+(*
+ * Do this z blt adding the dwZBufferBaseDest to each of the sources z values
+ * before comparing it with the desting z values.
+ *)
-  DDBLTFX_ZBUFFERBASEDEST  = $00000100;
+  DDBLTFX_ZBUFFERBASEDEST                 = $00000100;
+(****************************************************************************
+ *
-{ DirectDrawSurface Overlay FX Flags }
+ * DIRECTDRAWSURFACE OVERLAY FX FLAGS
+ *
+ ****************************************************************************)
+(*
+ * If stretching, use arithmetic stretching along the Y axis for this overlay.
+ *)
-  DDOVERFX_ARITHSTRETCHY   = $00000001;
+  DDOVERFX_ARITHSTRETCHY                  = $00000001;
+(*
+ * Mirror the overlay across the vertical axis
+ *)
-  DDOVERFX_MIRRORLEFTRIGHT = $00000002;
+  DDOVERFX_MIRRORLEFTRIGHT                = $00000002;
-  DDOVERFX_MIRRORUPDOWN    = $00000004;
+(*
-{ Flags for dwDDFX member of DDSPRITEFX structure }
+ * Mirror the overlay across the horizontal axis
+ *)
+  DDOVERFX_MIRRORUPDOWN                   = $00000004;
+(****************************************************************************
+ *
+ * Flags for dwDDFX member of DDSPRITEFX structure
+ *
+ ****************************************************************************)
+(*
+ * Use affine transformation matrix in fTransform member.
+ *)
-  DDSPRITEFX_AFFINETRANSFORM    = $00000001;
+  DDSPRITEFX_AFFINETRANSFORM            = $00000001;
+(*
+ * Use RGBA scaling factors in ddrgbaScaleFactors member.
+ *)
-  DDSPRITEFX_RGBASCALING        = $00000002;
+  DDSPRITEFX_RGBASCALING                        = $00000002;
+(*
+ * Degrade RGBA scaling factors to accommodate driver's capabilities.
+ *)
-  DDSPRITEFX_DEGRADERGBASCALING = $00000004;
+  DDSPRITEFX_DEGRADERGBASCALING         = $00000004;
+(*
+ * Do bilinear filtering of stretched or warped sprite.
+ *)
-  DDSPRITEFX_BILINEARFILTER     = $00000008;
+  DDSPRITEFX_BILINEARFILTER                     = $00000008;
+(*
+ * Do "blur" filtering of stretched or warped sprite.
+ *)
-  DDSPRITEFX_BLURFILTER         = $00000010;
+  DDSPRITEFX_BLURFILTER                         = $00000010;
+(*
+ * Do "flat" filtering of stretched or warped sprite.
+ *)
-  DDSPRITEFX_FLATFILTER         = $00000020;
+  DDSPRITEFX_FLATFILTER                         = $00000020;
+(*
+ * Degrade filtering operation to accommodate driver's capabilities.
+ *)
-  DDSPRITEFX_DEGRADEFILTER      = $00000040;
+  DDSPRITEFX_DEGRADEFILTER              = $00000040;
+(****************************************************************************
+ *
-{ DirectDraw WaitForVerticalBlank Flags }
+ * DIRECTDRAW WAITFORVERTICALBLANK FLAGS
+ *
+ ****************************************************************************)
+(*
+ * return when the vertical blank interval begins
+ *)
-  DDWAITVB_BLOCKBEGIN      = $00000001;
+  DDWAITVB_BLOCKBEGIN                     = $00000001;
+(*
+ * set up an event to trigger when the vertical blank begins
+ *)
-  DDWAITVB_BLOCKBEGINEVENT = $00000002;
+  DDWAITVB_BLOCKBEGINEVENT                = $00000002;
+(*
+ * return when the vertical blank interval ends and display begins
+ *)
-  DDWAITVB_BLOCKEND        = $00000004;
+  DDWAITVB_BLOCKEND                       = $00000004;
+(****************************************************************************
+ *
-{ DirectDraw GetFlipStatus Flags }
+ * DIRECTDRAW GETFLIPSTATUS FLAGS
+ *
+ ****************************************************************************)
+(*
+ * is it OK to flip now?
+ *)
-  DDGFS_CANFLIP    = $00000001;
+  DDGFS_CANFLIP                   = $00000001;
+(*
+ * is the last flip finished?
+ *)
-  DDGFS_ISFLIPDONE = $00000002;
+  DDGFS_ISFLIPDONE                = $00000002;
+(****************************************************************************
+ *
-{ DirectDraw GetBltStatus Flags }
+ * DIRECTDRAW GETBLTSTATUS FLAGS
+ *
+ ****************************************************************************)
+(*
+ * is it OK to blt now?
+ *)
-  DDGBS_CANBLT     = $00000001;
+  DDGBS_CANBLT                    = $00000001;
+(*
+ * is the blt to the surface finished?
+ *)
-  DDGBS_ISBLTDONE  = $00000002;
+  DDGBS_ISBLTDONE                 = $00000002;
-{ DirectDraw EnumOverlayZOrder Flags }
+(****************************************************************************
+ *
+ * DIRECTDRAW ENUMOVERLAYZORDER FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Enumerate overlays back to front.
+ *)
-  DDENUMOVERLAYZ_BACKTOFRONT = $00000000;
+  DDENUMOVERLAYZ_BACKTOFRONT      = $00000000;
+(*
+ * Enumerate overlays front to back
+ *)
-  DDENUMOVERLAYZ_FRONTTOBACK = $00000001;
+  DDENUMOVERLAYZ_FRONTTOBACK      = $00000001;
+(****************************************************************************
+ *
-{ DirectDraw UpdateOverlayZOrder Flags }
+ * DIRECTDRAW UPDATEOVERLAYZORDER FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Send overlay to front
+ *)
-  DDOVERZ_SENDTOFRONT     = $00000000;
+  DDOVERZ_SENDTOFRONT             = $00000000;
+(*
+ * Send overlay to back
+ *)
-  DDOVERZ_SENDTOBACK      = $00000001;
+  DDOVERZ_SENDTOBACK              = $00000001;
-  DDOVERZ_MOVEFORWARD     = $00000002;
-  DDOVERZ_MOVEBACKWARD    = $00000003;
-  DDOVERZ_INSERTINFRONTOF = $00000004;
-  DDOVERZ_INSERTINBACKOF  = $00000005;
+(*
+ * Move Overlay forward
+ *)
-{ DirectDrawSurface SetPrivateData Constants }
+  DDOVERZ_MOVEFORWARD             = $00000002;
+(*
-  DDSPD_IUNKNOWNPOINTER   = $00000001;
+ * Move Overlay backward
+ *)
-  DDSPD_VOLATILE          = $00000002;
+  DDOVERZ_MOVEBACKWARD            = $00000003;
+(*
-{ TDDColorControl flags }
+ * Move Overlay in front of relative surface
+ *)
+  DDOVERZ_INSERTINFRONTOF         = $00000004;
-  DDCOLOR_BRIGHTNESS    = $00000001;
-  DDCOLOR_CONTRAST      = $00000002;
+(*
-  DDCOLOR_HUE           = $00000004;
+ * Move Overlay in back of relative surface
-  DDCOLOR_SATURATION    = $00000008;
-  DDCOLOR_SHARPNESS     = $00000010;
+ *)
-  DDCOLOR_GAMMA         = $00000020;
+  DDOVERZ_INSERTINBACKOF          = $00000005;
-  DDCOLOR_COLORENABLE   = $00000040;
+(****************************************************************************
+ *
-{ DirectDraw SetGammaRamp Flags }
+ * DIRECTDRAW SETGAMMARAMP FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Request calibrator to adjust the gamma ramp according to the physical
+ * properties of the display so that the result should appear identical
+ * on all systems.
+ *)
-  DDSGR_CALIBRATE = $00000001;
+  DDSGR_CALIBRATE                        = $00000001;
+(****************************************************************************
+ *
-{ DirectDraw StartModeTest Flags }
+ * DIRECTDRAW STARTMODETEST FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Indicates that the mode being tested has passed
+ *)
-  DDSMT_ISTESTREQUIRED = $00000001;
+ DDSMT_ISTESTREQUIRED                   = $00000001;
-{ DirectDraw EvaluateMode Flags  }
+(****************************************************************************
+ *
+ * DIRECTDRAW EVALUATEMODE FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Indicates that the mode being tested has passed
+ *)
-  DDEM_MODEPASSED      = $00000001;
+ DDEM_MODEPASSED                        = $00000001;
+(*
+ * Indicates that the mode being tested has failed
+ *)
-  DDEM_MODEFAILED      = $00000002;
+ DDEM_MODEFAILED                        = $00000002;
+(*===========================================================================
+ *
+ *
-{ DirectDraw Return Codes }
+ * DIRECTDRAW RETURN CODES
+ *
+ * The return values from DirectDraw Commands and Surface that return an HResult
+ * are codes from DirectDraw concerning the results of the action
+ * requested by DirectDraw.
+ *
+ *==========================================================================*)
+(*
+ * Status is OK
+ *
+ * Issued by: DirectDraw Commands and all callbacks
+ *)
-  DD_OK                                   = HResult(0);
+  DD_OK                                   = 0;
-  DD_FALSE                                = HResult(S_FALSE);
+  DD_FALSE                                = S_FALSE;
+(****************************************************************************
+ *
+ * DIRECTDRAW ENUMCALLBACK RETURN VALUES
+ *
+ * EnumCallback returns are used to control the flow of the DIRECTDRAW and
+ * DIRECTDRAWSURFACE object enumerations.   They can only be returned by
-{ DirectDraw EnumCallback Return Values }
+ * enumeration callback routines.
+ *
+ ****************************************************************************)
+(*
+ * stop the enumeration
+ *)
-  DDENUMRET_CANCEL = 0;
+  DDENUMRET_CANCEL                        = 0;
+(*
+ * continue the enumeration
+ *)
-  DDENUMRET_OK     = 1;
+  DDENUMRET_OK                            = 1;
+(****************************************************************************
+ *
-{ DirectDraw Error Codes }
+ * DIRECTDRAW ERRORS
+ *
+ * Errors are represented by negative values and cannot be combined.
+ *
+ ****************************************************************************)
-  DDERR_ALREADYINITIALIZED                = HResult($88760000 + 5);
-  DDERR_CANNOTATTACHSURFACE               = HResult($88760000 + 10);
-  DDERR_CANNOTDETACHSURFACE               = HResult($88760000 + 20);
-  DDERR_CURRENTLYNOTAVAIL                 = HResult($88760000 + 40);
-  DDERR_EXCEPTION                         = HResult($88760000 + 55);
-  DDERR_GENERIC                           = HResult(E_FAIL);
-  DDERR_HEIGHTALIGN                       = HResult($88760000 + 90);
-  DDERR_INCOMPATIBLEPRIMARY               = HResult($88760000 + 95);
-  DDERR_INVALIDCAPS                       = HResult($88760000 + 100);
-  DDERR_INVALIDCLIPLIST                   = HResult($88760000 + 110);
-  DDERR_INVALIDMODE                       = HResult($88760000 + 120);
-  DDERR_INVALIDOBJECT                     = HResult($88760000 + 130);
-  DDERR_INVALIDPARAMS                     = HResult(E_INVALIDARG);
-  DDERR_INVALIDPIXELFORMAT                = HResult($88760000 + 145);
-  DDERR_INVALIDRECT                       = HResult($88760000 + 150);
-  DDERR_LOCKEDSURFACES                    = HResult($88760000 + 160);
-  DDERR_NO3D                              = HResult($88760000 + 170);
-  DDERR_NOALPHAHW                         = HResult($88760000 + 180);
-  DDERR_NOSTEREOHARDWARE                  = HResult($88760000 + 181);
-  DDERR_NOSURFACELEFT                     = HResult($88760000 + 182);
-  DDERR_NOCLIPLIST                        = HResult($88760000 + 205);
-  DDERR_NOCOLORCONVHW                     = HResult($88760000 + 210);
-  DDERR_NOCOOPERATIVELEVELSET             = HResult($88760000 + 212);
-  DDERR_NOCOLORKEY                        = HResult($88760000 + 215);
-  DDERR_NOCOLORKEYHW                      = HResult($88760000 + 220);
-  DDERR_NODIRECTDRAWSUPPORT               = HResult($88760000 + 222);
-  DDERR_NOEXCLUSIVEMODE                   = HResult($88760000 + 225);
-  DDERR_NOFLIPHW                          = HResult($88760000 + 230);
-  DDERR_NOGDI                             = HResult($88760000 + 240);
-  DDERR_NOMIRRORHW                        = HResult($88760000 + 250);
-  DDERR_NOTFOUND                          = HResult($88760000 + 255);
-  DDERR_NOOVERLAYHW                       = HResult($88760000 + 260);
-  DDERR_OVERLAPPINGRECTS                  = HResult($88760000 + 270);
-  DDERR_NORASTEROPHW                      = HResult($88760000 + 280);
-  DDERR_NOROTATIONHW                      = HResult($88760000 + 290);
-  DDERR_NOSTRETCHHW                       = HResult($88760000 + 310);
-  DDERR_NOT4BITCOLOR                      = HResult($88760000 + 316);
-  DDERR_NOT4BITCOLORINDEX                 = HResult($88760000 + 317);
-  DDERR_NOT8BITCOLOR                      = HResult($88760000 + 320);
-  DDERR_NOTEXTUREHW                       = HResult($88760000 + 330);
-  DDERR_NOVSYNCHW                         = HResult($88760000 + 335);
-  DDERR_NOZBUFFERHW                       = HResult($88760000 + 340);
-  DDERR_NOZOVERLAYHW                      = HResult($88760000 + 350);
-  DDERR_OUTOFCAPS                         = HResult($88760000 + 360);
-  DDERR_OUTOFMEMORY                       = HResult(E_OUTOFMEMORY);
-  DDERR_OUTOFVIDEOMEMORY                  = HResult($88760000 + 380);
-  DDERR_OVERLAYCANTCLIP                   = HResult($88760000 + 382);
-  DDERR_OVERLAYCOLORKEYONLYONEACTIVE      = HResult($88760000 + 384);
-  DDERR_PALETTEBUSY                       = HResult($88760000 + 387);
-  DDERR_COLORKEYNOTSET                    = HResult($88760000 + 400);
-  DDERR_SURFACEALREADYATTACHED            = HResult($88760000 + 410);
-  DDERR_SURFACEALREADYDEPENDENT           = HResult($88760000 + 420);
+  _FACDD = $876;
-  DDERR_SURFACEBUSY                       = HResult($88760000 + 430);
-  DDERR_CANTLOCKSURFACE                   = HResult($88760000 + 435);
-  DDERR_SURFACEISOBSCURED                 = HResult($88760000 + 440);
-  DDERR_SURFACELOST                       = HResult($88760000 + 450);
-  DDERR_SURFACENOTATTACHED                = HResult($88760000 + 460);
-  DDERR_TOOBIGHEIGHT                      = HResult($88760000 + 470);
-  DDERR_TOOBIGSIZE                        = HResult($88760000 + 480);
-  DDERR_TOOBIGWIDTH                       = HResult($88760000 + 490);
-  DDERR_UNSUPPORTED                       = HResult(E_NOTIMPL);
-  DDERR_UNSUPPORTEDFORMAT                 = HResult($88760000 + 510);
-  DDERR_UNSUPPORTEDMASK                   = HResult($88760000 + 520);
-  DDERR_INVALIDSTREAM                     = HResult($88760000 + 521);
-  DDERR_VERTICALBLANKINPROGRESS           = HResult($88760000 + 537);
-  DDERR_WASSTILLDRAWING                   = HResult($88760000 + 540);
-  DDERR_DDSCAPSCOMPLEXREQUIRED            = HResult($88760000 + 542);
-  DDERR_XALIGN                            = HResult($88760000 + 560);
-  DDERR_INVALIDDIRECTDRAWGUID             = HResult($88760000 + 561);
-  DDERR_DIRECTDRAWALREADYCREATED          = HResult($88760000 + 562);
-  DDERR_NODIRECTDRAWHW                    = HResult($88760000 + 563);
-  DDERR_PRIMARYSURFACEALREADYEXISTS       = HResult($88760000 + 564);
-  DDERR_NOEMULATION                       = HResult($88760000 + 565);
-  DDERR_REGIONTOOSMALL                    = HResult($88760000 + 566);
-  DDERR_CLIPPERISUSINGHWND                = HResult($88760000 + 567);
-  DDERR_NOCLIPPERATTACHED                 = HResult($88760000 + 568);
-  DDERR_NOHWND                            = HResult($88760000 + 569);
-  DDERR_HWNDSUBCLASSED                    = HResult($88760000 + 570);
-  DDERR_HWNDALREADYSET                    = HResult($88760000 + 571);
-  DDERR_NOPALETTEATTACHED                 = HResult($88760000 + 572);
-  DDERR_NOPALETTEHW                       = HResult($88760000 + 573);
-  DDERR_BLTFASTCANTCLIP                   = HResult($88760000 + 574);
-  DDERR_NOBLTHW                           = HResult($88760000 + 575);
-  DDERR_NODDROPSHW                        = HResult($88760000 + 576);
+  MAKE_DDHRESULT = HResult(1 shl 31) or HResult(_FACDD shl 16);
-  DDERR_OVERLAYNOTVISIBLE                 = HResult($88760000 + 577);
-  DDERR_NOOVERLAYDEST                     = HResult($88760000 + 578);
-  DDERR_INVALIDPOSITION                   = HResult($88760000 + 579);
-  DDERR_NOTAOVERLAYSURFACE                = HResult($88760000 + 580);
-  DDERR_EXCLUSIVEMODEALREADYSET           = HResult($88760000 + 581);
-  DDERR_NOTFLIPPABLE                      = HResult($88760000 + 582);
-  DDERR_CANTDUPLICATE                     = HResult($88760000 + 583);
-  DDERR_NOTLOCKED                         = HResult($88760000 + 584);
-  DDERR_CANTCREATEDC                      = HResult($88760000 + 585);
-  DDERR_NODC                              = HResult($88760000 + 586);
-  DDERR_WRONGMODE                         = HResult($88760000 + 587);
-  DDERR_IMPLICITLYCREATED                 = HResult($88760000 + 588);
-  DDERR_NOTPALETTIZED                     = HResult($88760000 + 589);
-  DDERR_UNSUPPORTEDMODE                   = HResult($88760000 + 590);
-  DDERR_NOMIPMAPHW                        = HResult($88760000 + 591);
-  DDERR_INVALIDSURFACETYPE                = HResult($88760000 + 592);
-  DDERR_NOOPTIMIZEHW                      = HResult($88760000 + 600);
-  DDERR_NOTLOADED                         = HResult($88760000 + 601);
-  DDERR_NOFOCUSWINDOW                     = HResult($88760000 + 602);
-  DDERR_NOTONMIPMAPSUBLEVEL               = HResult($88760000 + 603);
-  DDERR_DCALREADYCREATED                  = HResult($88760000 + 620);
-  DDERR_NONONLOCALVIDMEM                  = HResult($88760000 + 630);
-  DDERR_CANTPAGELOCK                      = HResult($88760000 + 640);
-  DDERR_CANTPAGEUNLOCK                    = HResult($88760000 + 660);
-  DDERR_NOTPAGELOCKED                     = HResult($88760000 + 680);
-  DDERR_MOREDATA                          = HResult($88760000 + 690);
-  DDERR_EXPIRED                           = HResult($88760000 + 691);
-  DDERR_TESTFINISHED                      = HResult($88760000 + 692);
-  DDERR_NEWMODE                           = HResult($88760000 + 693);
-  DDERR_D3DNOTINITIALIZED                 = HResult($88760000 + 694);
-  DDERR_VIDEONOTACTIVE                    = HResult($88760000 + 695);
-  DDERR_NOMONITORINFORMATION              = HResult($88760000 + 696);
-  DDERR_NODRIVERSUPPORT                   = HResult($88760000 + 697);
-  DDERR_DEVICEDOESNTOWNSURFACE            = HResult($88760000 + 699);
-  DDERR_NOTINITIALIZED                    = HResult(CO_E_NOTINITIALIZED);
-{ API's }
+(*
+ * This object is already initialized
+ *)
+  DDERR_ALREADYINITIALIZED                = MAKE_DDHRESULT + 5;
+(*
+ * This surface can not be attached to the requested surface.
+ *)
+  DDERR_CANNOTATTACHSURFACE               = MAKE_DDHRESULT + 10;
+(*
+ * This surface can not be detached from the requested surface.
+ *)
+  DDERR_CANNOTDETACHSURFACE               = MAKE_DDHRESULT + 20;
+(*
+ * Support is currently not available.
+ *)
+  DDERR_CURRENTLYNOTAVAIL                 = MAKE_DDHRESULT + 40;
+(*
+ * An exception was encountered while performing the requested operation
+ *)
+  DDERR_EXCEPTION                         = MAKE_DDHRESULT + 55;
+(*
+ * Generic failure.
+ *)
-function GET_WHQL_YEAR(dwWHQLLevel: DWORD): DWORD;
+  DDERR_GENERIC                           = E_FAIL;
+(*
+ * Height of rectangle provided is not a multiple of reqd alignment
+ *)
+  DDERR_HEIGHTALIGN                       = MAKE_DDHRESULT + 90;
+(*
+ * Unable to match primary surface creation request with existing
+ * primary surface.
+ *)
+  DDERR_INCOMPATIBLEPRIMARY               = MAKE_DDHRESULT + 95;
+(*
+ * One or more of the caps bits passed to the callback are incorrect.
+ *)
+  DDERR_INVALIDCAPS                       = MAKE_DDHRESULT + 100;
+(*
+ * DirectDraw does not support provided Cliplist.
+ *)
+  DDERR_INVALIDCLIPLIST                   = MAKE_DDHRESULT + 110;
+(*
+ * DirectDraw does not support the requested mode
+ *)
+  DDERR_INVALIDMODE                       = MAKE_DDHRESULT + 120;
+(*
+ * DirectDraw received a pointer that was an invalid DIRECTDRAW object.
+ *)
+  DDERR_INVALIDOBJECT                     = MAKE_DDHRESULT + 130;
+(*
+ * One or more of the parameters passed to the callback function are
+ * incorrect.
+ *)
+  DDERR_INVALIDPARAMS                     = E_INVALIDARG;
+(*
+ * pixel format was invalid as specified
+ *)
+  DDERR_INVALIDPIXELFORMAT                = MAKE_DDHRESULT + 145;
+(*
+ * Rectangle provided was invalid.
+ *)
+  DDERR_INVALIDRECT                       = MAKE_DDHRESULT + 150;
+(*
+ * Operation could not be carried out because one or more surfaces are locked
+ *)
+  DDERR_LOCKEDSURFACES                    = MAKE_DDHRESULT + 160;
+(*
+ * There is no 3D present.
+ *)
+  DDERR_NO3D                              = MAKE_DDHRESULT + 170;
+(*
+ * Operation could not be carried out because there is no alpha accleration
+ * hardware present or available.
+ *)
+  DDERR_NOALPHAHW                         = MAKE_DDHRESULT + 180;
+(*
+ * Operation could not be carried out because there is no stereo
+ * hardware present or available.
+ *)
+  DDERR_NOSTEREOHARDWARE          = MAKE_DDHRESULT + 181;
+(*
+ * Operation could not be carried out because there is no hardware
+ * present which supports stereo surfaces
+ *)
+  DDERR_NOSURFACELEFT             = MAKE_DDHRESULT + 182;
+(*
+ * no clip list available
+ *)
+  DDERR_NOCLIPLIST                        = MAKE_DDHRESULT + 205;
+(*
+ * Operation could not be carried out because there is no color conversion
+ * hardware present or available.
+ *)
+  DDERR_NOCOLORCONVHW                     = MAKE_DDHRESULT + 210;
+(*
+ * Create function called without DirectDraw object method SetCooperativeLevel
+ * being called.
+ *)
+  DDERR_NOCOOPERATIVELEVELSET             = MAKE_DDHRESULT + 212;
+(*
+ * Surface doesn't currently have a color key
+ *)
+  DDERR_NOCOLORKEY                        = MAKE_DDHRESULT + 215;
+(*
+ * Operation could not be carried out because there is no hardware support
+ * of the dest color key.
+ *)
+  DDERR_NOCOLORKEYHW                      = MAKE_DDHRESULT + 220;
+(*
+ * No DirectDraw support possible with current display driver
+ *)
+  DDERR_NODIRECTDRAWSUPPORT               = MAKE_DDHRESULT + 222;
+(*
+ * Operation requires the application to have exclusive mode but the
+ * application does not have exclusive mode.
+ *)
+  DDERR_NOEXCLUSIVEMODE                   = MAKE_DDHRESULT + 225;
+(*
+ * Flipping visible surfaces is not supported.
+ *)
+  DDERR_NOFLIPHW                          = MAKE_DDHRESULT + 230;
+(*
+ * There is no GDI present.
+ *)
+  DDERR_NOGDI                             = MAKE_DDHRESULT + 240;
+(*
+ * Operation could not be carried out because there is no hardware present
+ * or available.
+ *)
+  DDERR_NOMIRRORHW                        = MAKE_DDHRESULT + 250;
+(*
+ * Requested item was not found
+ *)
+  DDERR_NOTFOUND                          = MAKE_DDHRESULT + 255;
+(*
+ * Operation could not be carried out because there is no overlay hardware
+ * present or available.
+ *)
+  DDERR_NOOVERLAYHW                       = MAKE_DDHRESULT + 260;
+(*
+ * Operation could not be carried out because the source and destination
+ * rectangles are on the same surface and overlap each other.
+ *)
+  DDERR_OVERLAPPINGRECTS                = MAKE_DDHRESULT + 270;
+(*
+ * Operation could not be carried out because there is no appropriate raster
+ * op hardware present or available.
+ *)
+  DDERR_NORASTEROPHW                      = MAKE_DDHRESULT + 280;
+(*
+ * Operation could not be carried out because there is no rotation hardware
+ * present or available.
+ *)
+  DDERR_NOROTATIONHW                      = MAKE_DDHRESULT + 290;
+(*
+ * Operation could not be carried out because there is no hardware support
+ * for stretching
+ *)
+  DDERR_NOSTRETCHHW                       = MAKE_DDHRESULT + 310;
+(*
+ * DirectDrawSurface is not in 4 bit color palette and the requested operation
+ * requires 4 bit color palette.
+ *)
+  DDERR_NOT4BITCOLOR                      = MAKE_DDHRESULT + 316;
+(*
+ * DirectDrawSurface is not in 4 bit color index palette and the requested
+ * operation requires 4 bit color index palette.
+ *)
+  DDERR_NOT4BITCOLORINDEX                 = MAKE_DDHRESULT + 317;
+(*
+ * DirectDraw Surface is not in 8 bit color mode and the requested operation
+ * requires 8 bit color.
+ *)
+  DDERR_NOT8BITCOLOR                      = MAKE_DDHRESULT + 320;
+(*
+ * Operation could not be carried out because there is no texture mapping
+ * hardware present or available.
+ *)
+  DDERR_NOTEXTUREHW                       = MAKE_DDHRESULT + 330;
+(*
+ * Operation could not be carried out because there is no hardware support
+ * for vertical blank synchronized operations.
+ *)
+  DDERR_NOVSYNCHW                         = MAKE_DDHRESULT + 335;
+(*
+ * Operation could not be carried out because there is no hardware support
+ * for zbuffer blting.
+ *)
+  DDERR_NOZBUFFERHW                       = MAKE_DDHRESULT + 340;
+(*
+ * Overlay surfaces could not be z layered based on their BltOrder because
+ * the hardware does not support z layering of overlays.
+ *)
+  DDERR_NOZOVERLAYHW                      = MAKE_DDHRESULT + 350;
+(*
+ * The hardware needed for the requested operation has already been
+ * allocated.
+ *)
+  DDERR_OUTOFCAPS                         = MAKE_DDHRESULT + 360;
+(*
+ * DirectDraw does not have enough memory to perform the operation.
+ *)
+  DDERR_OUTOFMEMORY                       = E_OUTOFMEMORY;
+(*
+ * DirectDraw does not have enough memory to perform the operation.
+ *)
+  DDERR_OUTOFVIDEOMEMORY                  = MAKE_DDHRESULT + 380;
+(*
+ * hardware does not support clipped overlays
+ *)
+  DDERR_OVERLAYCANTCLIP                   = MAKE_DDHRESULT + 382;
+(*
+ * Can only have ony color key active at one time for overlays
+ *)
+  DDERR_OVERLAYCOLORKEYONLYONEACTIVE      = MAKE_DDHRESULT + 384;
+(*
+ * Access to this palette is being refused because the palette is already
+ * locked by another thread.
+ *)
+  DDERR_PALETTEBUSY                       = MAKE_DDHRESULT + 387;
+(*
+ * No src color key specified for this operation.
+ *)
+  DDERR_COLORKEYNOTSET                    = MAKE_DDHRESULT + 400;
+(*
+ * This surface is already attached to the surface it is being attached to.
+ *)
+  DDERR_SURFACEALREADYATTACHED            = MAKE_DDHRESULT + 410;
+(*
+ * This surface is already a dependency of the surface it is being made a
+ * dependency of.
+ *)
+  DDERR_SURFACEALREADYDEPENDENT           = MAKE_DDHRESULT + 420;
+(*
+ * Access to this surface is being refused because the surface is already
+ * locked by another thread.
+ *)
+  DDERR_SURFACEBUSY                       = MAKE_DDHRESULT + 430;
+(*
+ * Access to this surface is being refused because no driver exists
+ * which can supply a pointer to the surface.
+ * This is most likely to happen when attempting to lock the primary
+ * surface when no DCI provider is present.
+ * Will also happen on attempts to lock an optimized surface.
+ *)
+  DDERR_CANTLOCKSURFACE                   = MAKE_DDHRESULT + 435;
+(*
+ * Access to Surface refused because Surface is obscured.
+ *)
+  DDERR_SURFACEISOBSCURED                 = MAKE_DDHRESULT + 440;
+(*
+ * Access to this surface is being refused because the surface is gone.
+ * The DIRECTDRAWSURFACE object representing this surface should
+ * have Restore called on it.
+ *)
+  DDERR_SURFACELOST                       = MAKE_DDHRESULT + 450;
+(*
+ * The requested surface is not attached.
+ *)
+  DDERR_SURFACENOTATTACHED                = MAKE_DDHRESULT + 460;
+(*
+ * Height requested by DirectDraw is too large.
+ *)
+  DDERR_TOOBIGHEIGHT                      = MAKE_DDHRESULT + 470;
+(*
+ * Size requested by DirectDraw is too large --  The individual height and
+ * width are OK.
+ *)
+  DDERR_TOOBIGSIZE                        = MAKE_DDHRESULT + 480;
+(*
+ * Width requested by DirectDraw is too large.
+ *)
+  DDERR_TOOBIGWIDTH                       = MAKE_DDHRESULT + 490;
+(*
+ * Action not supported.
+ *)
+  DDERR_UNSUPPORTED                       = E_NOTIMPL;
+(*
+ * FOURCC format requested is unsupported by DirectDraw
+ *)
+  DDERR_UNSUPPORTEDFORMAT                 = MAKE_DDHRESULT + 510;
+(*
+ * Bitmask in the pixel format requested is unsupported by DirectDraw
+ *)
+  DDERR_UNSUPPORTEDMASK                   = MAKE_DDHRESULT + 520;
+(*
+ * The specified stream contains invalid data
+ *)
+  DDERR_INVALIDSTREAM                     = MAKE_DDHRESULT + 521;
+(*
+ * vertical blank is in progress
+ *)
+  DDERR_VERTICALBLANKINPROGRESS           = MAKE_DDHRESULT + 537;
+(*
+ * Informs DirectDraw that the previous Blt which is transfering information
+ * to or from this Surface is incomplete.
+ *)
+  DDERR_WASSTILLDRAWING                   = MAKE_DDHRESULT + 540;
+(*
+ * The specified surface type requires specification of the COMPLEX flag
+ *)
+  DDERR_DDSCAPSCOMPLEXREQUIRED            = MAKE_DDHRESULT + 542;
+(*
+ * Rectangle provided was not horizontally aligned on reqd. boundary
+ *)
+  DDERR_XALIGN                            = MAKE_DDHRESULT + 560;
+(*
+ * The GUID passed to DirectDrawCreate is not a valid DirectDraw driver
+ * identifier.
+ *)
+  DDERR_INVALIDDIRECTDRAWGUID             = MAKE_DDHRESULT + 561;
+(*
+ * A DirectDraw object representing this driver has already been created
+ * for this process.
+ *)
+  DDERR_DIRECTDRAWALREADYCREATED          = MAKE_DDHRESULT + 562;
+(*
+ * A hardware only DirectDraw object creation was attempted but the driver
+ * did not support any hardware.
+ *)
+  DDERR_NODIRECTDRAWHW                    = MAKE_DDHRESULT + 563;
+(*
-function GET_WHQL_MONTH(dwWHQLLevel: DWORD): DWORD;
+ * this process already has created a primary surface
+ *)
+  DDERR_PRIMARYSURFACEALREADYEXISTS       = MAKE_DDHRESULT + 564;
+(*
+ * software emulation not available.
+ *)
+  DDERR_NOEMULATION                       = MAKE_DDHRESULT + 565;
+(*
-function GET_WHQL_DAY(dwWHQLLevel: DWORD): DWORD;
+ * region passed to Clipper::GetClipList is too small.
+ *)
+  DDERR_REGIONTOOSMALL                    = MAKE_DDHRESULT + 566;
+(*
+ * an attempt was made to set a clip list for a clipper objec that
+ * is already monitoring an hwnd.
+ *)
+  DDERR_CLIPPERISUSINGHWND                = MAKE_DDHRESULT + 567;
+(*
+ * No clipper object attached to surface object
+ *)
+  DDERR_NOCLIPPERATTACHED                 = MAKE_DDHRESULT + 568;
+(*
+ * Clipper notification requires an HWND or
+ * no HWND has previously been set as the CooperativeLevel HWND.
+ *)
+  DDERR_NOHWND                            = MAKE_DDHRESULT + 569;
+(*
+ * HWND used by DirectDraw CooperativeLevel has been subclassed,
+ * this prevents DirectDraw from restoring state.
+ *)
+  DDERR_HWNDSUBCLASSED                    = MAKE_DDHRESULT + 570;
+(*
+ * The CooperativeLevel HWND has already been set.
+ * It can not be reset while the process has surfaces or palettes created.
+ *)
+  DDERR_HWNDALREADYSET                    = MAKE_DDHRESULT + 571;
+(*
+ * No palette object attached to this surface.
+ *)
+  DDERR_NOPALETTEATTACHED                 = MAKE_DDHRESULT + 572;
+(*
+ * No hardware support for 16 or 256 color palettes.
+ *)
+  DDERR_NOPALETTEHW                       = MAKE_DDHRESULT + 573;
+(*
+ * If a clipper object is attached to the source surface passed into a
+ * BltFast call.
+ *)
+  DDERR_BLTFASTCANTCLIP                   = MAKE_DDHRESULT + 574;
+(*
+ * No blter.
+ *)
+  DDERR_NOBLTHW                           = MAKE_DDHRESULT + 575;
+(*
+ * No DirectDraw ROP hardware.
+ *)
+  DDERR_NODDROPSHW                        = MAKE_DDHRESULT + 576;
+(*
+ * returned when GetOverlayPosition is called on a hidden overlay
+ *)
+  DDERR_OVERLAYNOTVISIBLE                 = MAKE_DDHRESULT + 577;
+(*
+ * returned when GetOverlayPosition is called on a overlay that UpdateOverlay
+ * has never been called on to establish a destionation.
+ *)
+  DDERR_NOOVERLAYDEST                     = MAKE_DDHRESULT + 578;
+(*
+ * returned when the position of the overlay on the destionation is no longer
+ * legal for that destionation.
+ *)
+  DDERR_INVALIDPOSITION                   = MAKE_DDHRESULT + 579;
+(*
+ * returned when an overlay member is called for a non-overlay surface
+ *)
+  DDERR_NOTAOVERLAYSURFACE                = MAKE_DDHRESULT + 580;
+(*
+ * An attempt was made to set the cooperative level when it was already
+ * set to exclusive.
+ *)
+  DDERR_EXCLUSIVEMODEALREADYSET           = MAKE_DDHRESULT + 581;
+(*
+ * An attempt has been made to flip a surface that is not flippable.
+ *)
+  DDERR_NOTFLIPPABLE                      = MAKE_DDHRESULT + 582;
+(*
+ * Can't duplicate primary & 3D surfaces, or surfaces that are implicitly
+ * created.
+ *)
+  DDERR_CANTDUPLICATE                     = MAKE_DDHRESULT + 583;
+(*
+ * Surface was not locked.  An attempt to unlock a surface that was not
+ * locked at all, or by this process, has been attempted.
+ *)
+  DDERR_NOTLOCKED                         = MAKE_DDHRESULT + 584;
+(*
+ * Windows can not create any more DCs, or a DC was requested for a paltte-indexed
+ * surface when the surface had no palette AND the display mode was not palette-indexed
+ * (in this case DirectDraw cannot select a proper palette into the DC)
+ *)
+  DDERR_CANTCREATEDC                      = MAKE_DDHRESULT + 585;
+(*
+ * No DC was ever created for this surface.
+ *)
+  DDERR_NODC                              = MAKE_DDHRESULT + 586;
+(*
+ * This surface can not be restored because it was created in a different
+ * mode.
+ *)
+  DDERR_WRONGMODE                         = MAKE_DDHRESULT + 587;
+(*
+ * This surface can not be restored because it is an implicitly created
+ * surface.
+ *)
+  DDERR_IMPLICITLYCREATED                 = MAKE_DDHRESULT + 588;
+(*
+ * The surface being used is not a palette-based surface
+ *)
+  DDERR_NOTPALETTIZED                     = MAKE_DDHRESULT + 589;
+(*
+ * The display is currently in an unsupported mode
+ *)
+  DDERR_UNSUPPORTEDMODE                   = MAKE_DDHRESULT + 590;
+(*
+ * Operation could not be carried out because there is no mip-map
+ * texture mapping hardware present or available.
+ *)
+  DDERR_NOMIPMAPHW                        = MAKE_DDHRESULT + 591;
+(*
+ * The requested action could not be performed because the surface was of
+ * the wrong type.
+ *)
+  DDERR_INVALIDSURFACETYPE                = MAKE_DDHRESULT + 592;
+(*
+ * Device does not support optimized surfaces, therefore no video memory optimized surfaces
+ *)
+  DDERR_NOOPTIMIZEHW                      = MAKE_DDHRESULT + 600;
+(*
+ * Surface is an optimized surface, but has not yet been allocated any memory
+ *)
+  DDERR_NOTLOADED                         = MAKE_DDHRESULT + 601;
+(*
+ * Attempt was made to create or set a device window without first setting
+ * the focus window
+ *)
+  DDERR_NOFOCUSWINDOW                     = MAKE_DDHRESULT + 602;
+(*
+ * Attempt was made to set a palette on a mipmap sublevel
+ *)
+  DDERR_NOTONMIPMAPSUBLEVEL               = MAKE_DDHRESULT + 603;
+(*
+ * A DC has already been returned for this surface. Only one DC can be
+ * retrieved per surface.
+ *)
+  DDERR_DCALREADYCREATED                  = MAKE_DDHRESULT + 620;
+(*
+ * An attempt was made to allocate non-local video memory from a device
+ * that does not support non-local video memory.
+ *)
+  DDERR_NONONLOCALVIDMEM                  = MAKE_DDHRESULT + 630;
+(*
+ * The attempt to page lock a surface failed.
+ *)
+  DDERR_CANTPAGELOCK                      = MAKE_DDHRESULT + 640;
+(*
+ * The attempt to page unlock a surface failed.
+ *)
+  DDERR_CANTPAGEUNLOCK                    = MAKE_DDHRESULT + 660;
+(*
+ * An attempt was made to page unlock a surface with no outstanding page locks.
+ *)
+  DDERR_NOTPAGELOCKED                     = MAKE_DDHRESULT + 680;
+(*
+ * There is more data available than the specified buffer size could hold
+ *)
+  DDERR_MOREDATA                                = MAKE_DDHRESULT + 690;
+(*
+ * The data has expired and is therefore no longer valid.
+ *)
+  DDERR_EXPIRED                           = MAKE_DDHRESULT + 691;
+(*
+ * The mode test has finished executing.
+ *)
+ DDERR_TESTFINISHED                      = MAKE_DDHRESULT + 692;
+(*
+ * The mode test has switched to a new mode.
+ *)
+ DDERR_NEWMODE                           = MAKE_DDHRESULT + 693;
+(*
+ * D3D has not yet been initialized.
+ *)
+ DDERR_D3DNOTINITIALIZED                 = MAKE_DDHRESULT + 694;
+(*
+ * The video port is not active
+ *)
+  DDERR_VIDEONOTACTIVE                          = MAKE_DDHRESULT + 695;
+(*
+ * The monitor does not have EDID data.
+ *)
+ DDERR_NOMONITORINFORMATION             = MAKE_DDHRESULT + 696;
+(*
+ * The driver does not enumerate display mode refresh rates.
+ *)
+ DDERR_NODRIVERSUPPORT                  = MAKE_DDHRESULT + 697;
+(*
+ * Surfaces created by one direct draw device cannot be used directly by
+ * another direct draw device.
+ *)
+  DDERR_DEVICEDOESNTOWNSURFACE                  = MAKE_DDHRESULT + 699;
+(*
+ * An attempt was made to invoke an interface member of a DirectDraw object
+ * created by CoCreateInstance() before it was initialized.
+ *)
+  DDERR_NOTINITIALIZED                    = CO_E_NOTINITIALIZED;
+(* Alpha bit depth constants *)
+(*
+ * API's
+ *)
 type
   HMonitor = THandle;
-  TDDEnumCallbackA = function(lpGUID: PGUID; lpDriverDescription: LPSTR;
+  TDDEnumCallbackA = function (lpGUID: PGUID; lpDriverDescription: PAnsiChar;
-    lpDriverName: LPSTR; lpContext: Pointer): BOOL; stdcall;
+      lpDriverName: PAnsiChar; lpContext: Pointer) : BOOL; stdcall;
-  LPDDENUMCALLBACKA = TDDEnumCallbackA;
-  TDDEnumCallbackW = function(lpGUID: PGUID; lpDriverDescription: LPWSTR;
+  TDDEnumCallbackW = function (lpGUID: PGUID; lpDriverDescription: PWideChar;
-    lpDriverName: LPWSTR; lpContext: Pointer): BOOL; stdcall;
+      lpDriverName: PWideChar; lpContext: Pointer) : BOOL; stdcall;
+{$IFDEF UNICODE}
-  LPDDENUMCALLBACKW = TDDEnumCallbackW;
+  TDDEnumCallback = TDDEnumCallbackW;
+{$ELSE}
   TDDEnumCallback = TDDEnumCallbackA;
-  LPDDENUMCALLBACK = TDDEnumCallback;
+{$ENDIF}
-  TDDEnumCallbackExA = function(lpGUID: PGUID; lpDriverDescription: LPSTR;
+  TDDEnumCallbackExA = function (lpGUID: PGUID; lpDriverDescription: PAnsiChar;
-    lpDriverName: LPSTR; lpContext: Pointer; Monitor: HMonitor): BOOL; stdcall;
+      lpDriverName: PAnsiChar; lpContext: Pointer; Monitor: HMonitor) : BOOL;
-  LPDDENUMCALLBACKEXA = TDDEnumCallbackExA;
+      stdcall;
-  TDDEnumCallbackExW = function(lpGUID: PGUID; lpDriverDescription: LPWSTR;
+  TDDEnumCallbackExW = function (lpGUID: PGUID; lpDriverDescription: PWideChar;
-    lpDriverName: LPWSTR; lpContext: Pointer; Monitor: HMonitor): BOOL; stdcall;
+      lpDriverName: PWideChar; lpContext: Pointer; Monitor: HMonitor) : BOOL;
-  LPDDENUMCALLBACKEXW = TDDEnumCallbackExW;
+      stdcall;
+{$IFDEF UNICODE}
+  TDDEnumCallbackEx = TDDEnumCallbackExW;
+{$ELSE}
   TDDEnumCallbackEx = TDDEnumCallbackExA;
+{$ENDIF}
+var
+  DirectDrawEnumerateA : function (lpCallback: TDDEnumCallbackA;
+       lpContext: Pointer) : HResult; stdcall;
+  DirectDrawEnumerateW : function (lpCallback: TDDEnumCallbackW;
+       lpContext: Pointer) : HResult; stdcall;
+  DirectDrawEnumerate : function (lpCallback: TDDEnumCallback;
+       lpContext: Pointer) : HResult; stdcall;
+  DirectDrawEnumerateExA : function (lpCallback: TDDEnumCallbackExA;
+       lpContext: Pointer; dwFlags: DWORD) : HResult; stdcall;
+  DirectDrawEnumerateExW : function (lpCallback: TDDEnumCallbackExW;
+       lpContext: Pointer; dwFlags: DWORD) : HResult; stdcall;
-  LPDDENUMCALLBACKEX = TDDEnumCallbackEx;
+  DirectDrawEnumerateEx : function (lpCallback: TDDEnumCallbackEx;
+       lpContext: Pointer; dwFlags: DWORD) : HResult; stdcall;
+  DirectDrawCreate : function (lpGUID: PGUID;
+       out lplpDD: IDirectDraw;
+       pUnkOuter: IUnknown) : HResult; stdcall;
+  DirectDrawCreateEx : function  (lpGUID: PGUID;
+       out lplpDD: IDirectDraw7; const iid: TGUID;
+       pUnkOuter: IUnknown) : HResult; stdcall;
+  DirectDrawCreateClipper : function (dwFlags: DWORD;
+       out lplpDDClipper: IDirectDrawClipper;
+       pUnkOuter: IUnknown) : HResult; stdcall;
 const
+(*
+ * Flags for DirectDrawEnumerateEx
+ * DirectDrawEnumerateEx supercedes DirectDrawEnumerate. You must use GetProcAddress to
+ * obtain a function pointer (of type LPDIRECTDRAWENUMERATEEX) to DirectDrawEnumerateEx.
+ * By default, only the primary display device is enumerated.
+ * DirectDrawEnumerate is equivalent to DirectDrawEnumerate(,,DDENUM_NONDISPLAYDEVICES)
+ *)
+(*
+ * This flag causes enumeration of any GDI display devices which are part of
+ * the Windows Desktop
+ *)
+  DDENUM_ATTACHEDSECONDARYDEVICES     = $00000001;
+(*
+ * This flag causes enumeration of any GDI display devices which are not
+ * part of the Windows Desktop
+ *)
+  DDENUM_DETACHEDSECONDARYDEVICES     = $00000002;
+(*
+ * This flag causes enumeration of non-display devices
+ *)
+  DDENUM_NONDISPLAYDEVICES            = $00000004;
   REGSTR_KEY_DDHW_DESCRIPTION = 'Description';
   REGSTR_KEY_DDHW_DRIVERNAME  = 'DriverName';
   REGSTR_PATH_DDHW            = 'Hardware\DirectDrawDrivers';
   DDCREATE_HARDWAREONLY       = $00000001;
   DDCREATE_EMULATIONONLY      = $00000002;
-function DirectDrawEnumerateA(lpCallback: TDDEnumCallbackA; lpContext: Pointer): HResult; stdcall;
-function DirectDrawEnumerateW(lpCallback: TDDEnumCallbackW; lpContext: Pointer): HResult; stdcall;
+(*
-function DirectDrawEnumerate(lpCallback: TDDEnumCallbackA; lpContext: Pointer): HResult; stdcall;
+ * Macros for interpretting DDEVICEIDENTIFIER2.dwWHQLLevel
+ *)
-function DirectDrawEnumerateExA(lpCallback: TDDEnumCallbackExA; lpContext: Pointer; dwFlags: DWORD): HResult; stdcall;
+function GET_WHQL_YEAR(dwWHQLLevel: DWORD) : DWORD;
-function DirectDrawEnumerateExW(lpCallback: TDDEnumCallbackExW; lpContext: Pointer; dwFlags: DWORD): HResult; stdcall;
+function GET_WHQL_MONTH(dwWHQLLevel: DWORD) : DWORD;
-function DirectDrawEnumerateEx(lpCallback: TDDEnumCallbackExA; lpContext: Pointer; dwFlags: DWORD): HResult; stdcall;
+function GET_WHQL_DAY(dwWHQLLevel: DWORD) : DWORD;
-function DirectDrawCreate(lpGUID: PGUID; out lplpDD: IDirectDraw;
-  pUnkOuter: IUnknown): HResult; stdcall;
-function DirectDrawCreateEx(lpGUID: PGUID; out lplpDD; const iid: TGUID;
-  pUnkOuter: IUnknown): HResult; stdcall;
-function DirectDrawCreateClipper(dwFlags: DWORD; out lplpDDClipper: IDirectDrawClipper;
-  pUnkOuter: IUnknown): HResult; stdcall;
 (*==========================================================================;
+ *
  *  Copyright (C) 1996-1997 Microsoft Corporation.  All Rights Reserved.
+ *
  *  File:       dvp.h
- *  Content:    DirectDrawVideoPort include file
+ *  Content:    DirectDrawVideoPort include file
+ *
  ***************************************************************************)
-{ GUIDS used by DirectDrawVideoPort objects }
 const
+(*
+ * GUIDS used by DirectDrawVideoPort objects
+ *)
+  DDVPTYPE_E_HREFH_VREFH: TGUID =
+      (D1:$54F39980;D2:$DA60;D3:$11CF;D4:($9B,$06,$00,$A0,$C9,$03,$A3,$B8));
+  DDVPTYPE_E_HREFH_VREFL: TGUID =
+      (D1:$92783220;D2:$DA60;D3:$11CF;D4:($9B,$06,$00,$A0,$C9,$03,$A3,$B8));
+  DDVPTYPE_E_HREFL_VREFH: TGUID =
+      (D1:$A07A02E0;D2:$DA60;D3:$11CF;D4:($9B,$06,$00,$A0,$C9,$03,$A3,$B8));
+  DDVPTYPE_E_HREFL_VREFL: TGUID =
-  IID_IDDVideoPortContainer: TGUID = '{6C142760-A733-11CE-A521-0020AF0BE560}';
+      (D1:$E09C77E0;D2:$DA60;D3:$11CF;D4:($9B,$06,$00,$A0,$C9,$03,$A3,$B8));
+  DDVPTYPE_CCIR656: TGUID =
+      (D1:$FCA326A0;D2:$DA60;D3:$11CF;D4:($9B,$06,$00,$A0,$C9,$03,$A3,$B8));
+  DDVPTYPE_BROOKTREE: TGUID =
-  IID_IDirectDrawVideoPort: TGUID = '{B36D93E0-2B43-11CF-A2DE-00AA00B93356}';
+      (D1:$1352A560;D2:$DA61;D3:$11CF;D4:($9B,$06,$00,$A0,$C9,$03,$A3,$B8));
+  DDVPTYPE_PHILIPS: TGUID =
+      (D1:$332CF160;D2:$DA61;D3:$11CF;D4:($9B,$06,$00,$A0,$C9,$03,$A3,$B8));
-  DDVPTYPE_E_HREFH_VREFH: TGUID = '{54F39980-DA60-11CF-9B06-00A0C903A3B8}';
-  DDVPTYPE_E_HREFH_VREFL: TGUID = '{92783220-DA60-11CF-9B06-00A0C903A3B8}';
-  DDVPTYPE_E_HREFL_VREFH: TGUID = '{A07A02E0-DA60-11CF-9B06-00A0C903A3B8}';
-  DDVPTYPE_E_HREFL_VREFL: TGUID = '{E09C77E0-DA60-11CF-9B06-00A0C903A3B8}';
-  DDVPTYPE_CCIR656: TGUID = '{FCA326A0-DA60-11CF-9B06-00A0C903A3B8}';
-  DDVPTYPE_BROOKTREE: TGUID = '{1352A560-DA61-11CF-9B06-00A0C903A3B8}';
+(*
-  DDVPTYPE_PHILIPS: TGUID = '{332CF160-DA61-11CF-9B06-00A0C903A3B8}';
+ * GUIDS used to describe connections
+ *)
+(*============================================================================
+ *
-{ DirectDraw Structures }
+ * DirectDraw Structures
+ *
+ * Various structures used to invoke DirectDraw.
+ *
+ *==========================================================================*)
 type
-  IDDVideoPortContainer = interface;
-  IDirectDrawVideoPort = interface;
-{ TDDVideoportConnect structure }
+(*
+ * TDDVideoPortConnect
+ *)
-  PDDVideoportConnect = ^TDDVideoportConnect;
+  PDDVideoPortConnect = ^TDDVideoPortConnect;
-  TDDVideoportConnect = record
+  TDDVideoPortConnect = packed record
-    dwSize: DWORD;        // size of the TDDVideoportConnect structure
+    dwSize: DWORD;        // size of the TDDVideoPortConnect structure
     dwPortWidth: DWORD;   // Width of the video port
     guidTypeID: TGUID;    // Description of video port connection
     dwFlags: DWORD;       // Connection flags
     dwReserved1: DWORD;   // Reserved, set to zero.
   end;
-  DDVIDEOPORTCONNECT = TDDVideoportConnect;
-  LPDDVIDEOPORTCONNECT = PDDVideoportConnect;
+(*
-{ TDDVideoportCaps structure }
+ * TDDVideoPortCaps
+ *)
-  PDDVideoportCaps = ^TDDVideoportCaps;
+  PDDVideoPortCaps = ^TDDVideoPortCaps;
-  TDDVideoportCaps = record
+  TDDVideoPortCaps = packed record
-    dwSize: DWORD;                          // size of the TDDVideoportCaps structure
+    dwSize: DWORD;                          // size of the TDDVideoPortCaps structure
     dwFlags: DWORD;                         // indicates which fields contain data
     dwMaxWidth: DWORD;                      // max width of the video port field
     dwMaxVBIWidth: DWORD;                   // max width of the VBI data
     dwMaxHeight: DWORD;                     // max height of the video port field
     dwVideoPortID: DWORD;                   // Video port ID (0 - (dwMaxVideoPorts -1))
     dwCaps: DWORD;                          // Video port capabilities
     dwFX: DWORD;                            // More video port capabilities
     dwNumAutoFlipSurfaces: DWORD;           // Number of autoflippable surfaces
     dwAlignVideoPortBoundary: DWORD;        // Byte restriction of placement within the surface
     dwAlignVideoPortPrescaleWidth: DWORD;   // Byte restriction of width after prescaling
     dwAlignVideoPortCropBoundary: DWORD;    // Byte restriction of left cropping
     dwAlignVideoPortCropWidth: DWORD;       // Byte restriction of cropping width
     dwPreshrinkXStep: DWORD;                // Width can be shrunk in steps of 1/x
     dwPreshrinkYStep: DWORD;                // Height can be shrunk in steps of 1/x
     dwNumVBIAutoFlipSurfaces: DWORD;        // Number of VBI autoflippable surfaces
-    dwNumPreferredAutoflip: DWORD;          // Optimal number of autoflippable surfaces for hardware
+    dwNumPreferredAutoflip: DWORD;      // Optimal number of autoflippable surfaces for hardware
-    wNumFilterTapsX: WORD;                  // Number of taps the prescaler uses in the X direction (0 - no prescale, 1 - replication, etc.)
+    wNumFilterTapsX: WORD;              // Number of taps the prescaler uses in the X direction (0 - no prescale, 1 - replication, etc.)
-    wNumFilterTapsY: WORD;                  // Number of taps the prescaler uses in the Y direction (0 - no prescale, 1 - replication, etc.)
+    wNumFilterTapsY: WORD;              // Number of taps the prescaler uses in the Y direction (0 - no prescale, 1 - replication, etc.)
   end;
+const
+(*
+ * The dwMaxWidth and dwMaxVBIWidth members are valid
+ *)
+  DDVPD_WIDTH = $00000001;
+(*
+ * The dwMaxHeight member is valid
+ *)
+  DDVPD_HEIGHT = $00000002;
+(*
+ * The dwVideoPortID member is valid
+ *)
+  DDVPD_ID = $00000004;
+(*
+ * The dwCaps member is valid
+ *)
-  DDVIDEOPORTCAPS = TDDVideoportCaps;
+  DDVPD_CAPS = $00000008;
+(*
+ * The dwFX member is valid
+ *)
+  DDVPD_FX = $00000010;
+(*
+ * The dwNumAutoFlipSurfaces member is valid
+ *)
-  LPDDVIDEOPORTCAPS = PDDVideoportCaps;
+  DDVPD_AUTOFLIP = $00000020;
+(*
+ * All of the alignment members are valid
+ *)
+  DDVPD_ALIGN = $00000040;
+(*
+ * The dwNumPreferredAutoflip member is valid
+ *)
-{ TDDVideoportDesc structure }
+  DDVPD_PREFERREDAUTOFLIP = $00000080;
+(*
+ * The wNumFilterTapsX and wNumFilterTapsY fields are valid
+ *)
+  DDVPD_FILTERQUALITY     = $00000100;
+type
+(*
+ * TDDVideoPortDesc
+ *)
-  PDDVideoportDesc = ^TDDVideoportDesc;
+  PDDVideoPortDesc = ^TDDVideoPortDesc;
-  TDDVideoportDesc = record
+  TDDVideoPortDesc = packed record
-    dwSize: DWORD;                       // size of the TDDVideoportDesc structure
+    dwSize: DWORD;                       // size of the TDDVideoPortDesc structure
     dwFieldWidth: DWORD;                 // width of the video port field
     dwVBIWidth: DWORD;                   // width of the VBI data
     dwFieldHeight: DWORD;                // height of the video port field
     dwMicrosecondsPerField: DWORD;       // Microseconds per video field
     dwMaxPixelsPerSecond: DWORD;         // Maximum pixel rate per second
     dwVideoPortID: DWORD;                // Video port ID (0 - (dwMaxVideoPorts -1))
     dwReserved1: DWORD;                  // Reserved for future use - set to zero
-    VideoPortType: TDDVideoportConnect;   // Description of video port connection
+    VideoPortType: TDDVideoPortConnect;  // Description of video port connection
     dwReserved2: DWORD;                  // Reserved for future use - set to zero
     dwReserved3: DWORD;                  // Reserved for future use - set to zero
   end;
-  DDVIDEOPORTDESC = TDDVideoportDesc;
-  LPDDVIDEOPORTDESC = PDDVideoportDesc;
+(*
-{ TDDVideoportInfo structure }
+ * TDDVideoPortInfo
+ *)
-  PDDVideoportInfo = ^TDDVideoportInfo;
+  PDDVideoPortInfo = ^TDDVideoPortInfo;
-  TDDVideoportInfo = record
+  TDDVideoPortInfo = packed record
     dwSize: DWORD;                            // Size of the structure
     dwOriginX: DWORD;                         // Placement of the video data within the surface.
     dwOriginY: DWORD;                         // Placement of the video data within the surface.
     dwVPFlags: DWORD;                         // Video port options
     rCrop: TRect;                             // Cropping rectangle (optional).
     dwPrescaleWidth: DWORD;                   // Determines pre-scaling/zooming in the X direction (optional).
     dwPrescaleHeight: DWORD;                  // Determines pre-scaling/zooming in the Y direction (optional).
-    lpddpfInputFormat: PDDPixelFormat;        // Video format written to the video port
+    lpddpfInputFormat: PDDPixelFormat;       // Video format written to the video port
-    lpddpfVBIInputFormat: PDDPixelFormat;     // Input format of the VBI data
+    lpddpfVBIInputFormat: PDDPixelFormat;    // Input format of the VBI data
-    lpddpfVBIOutputFormat: PDDPixelFormat;    // Output format of the data
+    lpddpfVBIOutputFormat: PDDPixelFormat;   // Output format of the data
     dwVBIHeight: DWORD;                       // Specifies the number of lines of data within the vertical blanking interval.
     dwReserved1: DWORD;                       // Reserved for future use - set to zero
     dwReserved2: DWORD;                       // Reserved for future use - set to zero
   end;
-  DDVIDEOPORTINFO = TDDVideoportInfo;
-  LPDDVIDEOPORTINFO = PDDVideoportInfo;
+(*
-{ TDDVideoportBandWidth structure }
+ * TDDVideoPortBandWidth
+ *)
-  PDDVideoportBandWidth = ^TDDVideoportBandWidth;
+  PDDVideoPortBandWidth = ^TDDVideoPortBandWidth;
-  TDDVideoportBandWidth = record
+  TDDVideoPortBandWidth = packed record
     dwSize: DWORD;                 // Size of the structure
     dwCaps: DWORD;
     dwOverlay: DWORD;              // Zoom factor at which overlay is supported
     dwColorkey: DWORD;             // Zoom factor at which overlay w/ colorkey is supported
     dwYInterpolate: DWORD;         // Zoom factor at which overlay w/ Y interpolation is supported
     dwYInterpAndColorkey: DWORD;   // Zoom factor at which ovelray w/ Y interpolation and colorkeying is supported
     dwReserved1: DWORD;            // Reserved for future use - set to zero
     dwReserved2: DWORD;            // Reserved for future use - set to zero
   end;
-  DDVIDEOPORTBANDWIDTH = TDDVideoportBandWidth;
-  LPDDVIDEOPORTBANDWIDTH = PDDVideoportBandWidth;
+(*
-{ TDDVideoportStatus structure }
+ * TDDVideoPortStatus
+ *)
-  PDDVideoportStatus = ^TDDVideoportStatus;
+  PDDVideoPortStatus = ^TDDVideoPortStatus;
-  TDDVideoportStatus = record
+  TDDVideoPortStatus = record
     dwSize: DWORD;                       // Size of the structure
     bInUse: BOOL;                        // TRUE if video port is currently being used
     dwFlags: DWORD;                      // Currently not used
     dwReserved1: DWORD;                  // Reserved for future use
-    VideoPortType: TDDVideoportConnect;   // Information about the connection
+    VideoPortType: TDDVideoPortConnect;  // Information about the connection
     dwReserved2: DWORD;                  // Reserved for future use
     dwReserved3: DWORD;                  // Reserved for future use
   end;
-  DDVIDEOPORTSTATUS = TDDVideoportStatus;
-  LPDDVIDEOPORTSTATUS = PDDVideoportStatus;
-{ API's }
-  TDDEnumVideoCallback = function(const lpDDVideoPortCaps: TDDVideoportCaps;
-      lpContext: Pointer): HResult; stdcall;
-  LPDDENUMVIDEOCALLBACK = TDDEnumVideoCallback;
-{ IDirectDrawVideoPortContainer Interface }
-  IDDVideoPortContainer = interface(IUnknown)
-    ['{6C142760-A733-11CE-A521-0020AF0BE560}']
-    // IDDVideoPortContainer methods
-    function CreateVideoPort(dwFlags: DWORD; const lpDDVideoPortDesc:
-        TDDVideoportDesc; out lplpDDVideoPort: IDirectDrawVideoPort;
-        pUnkOuter: IUnknown): HResult; stdcall;
-    function EnumVideoPorts(dwFlags: DWORD;
-        const lpDDVideoPortCaps: TDDVideoportCaps; lpContext: Pointer;
-        lpEnumVideoCallback: TDDEnumVideoCallback): HResult; stdcall;
-    function GetVideoPortConnectInfo(dwPortId: DWORD; var lpNumEntries: DWORD;
-        var lpConnectInfo: TDDVideoportConnect): HResult; stdcall;
-    function QueryVideoPortStatus(dwPortId: DWORD;
-        var lpVPStatus: TDDVideoportStatus): HResult; stdcall;
-  end;
-{ IDirectDrawVideoPort Interface }
-  IDirectDrawVideoPort = interface(IUnknown)
-    ['{B36D93E0-2B43-11CF-A2DE-00AA00B93356}']
-    // IDirectDrawVideoPort methods
-    function Flip(lpDDSurface: IDirectDrawSurface; dwFlags: DWORD): HResult; stdcall;
-    function GetBandwidthInfo(const lpddpfFormat: TDDPixelFormat; dwWidth: DWORD;
-        dwHeight: DWORD; dwFlags: DWORD; var lpBandwidth: TDDVideoportBandWidth): HResult; stdcall;
-    function GetColorControls(var lpColorControl: TDDColorControl): HResult; stdcall;
-    function GetInputFormats(var lpNumFormats: DWORD; var lpFormats:
-        TDDPixelFormat; dwFlags: DWORD): HResult; stdcall;
-    function GetOutputFormats(const lpInputFormat: TDDPixelFormat;
-        var lpNumFormats: DWORD; var lpFormats: TDDPixelFormat; dwFlags: DWORD): HResult; stdcall;
-    function GetFieldPolarity(var lpbVideoField: BOOL): HResult; stdcall;
-    function GetVideoLine(var lpdwLine: DWORD): HResult; stdcall;
-    function GetVideoSignalStatus(varlpdwStatus: DWORD): HResult; stdcall;
-    function SetColorControls(const lpColorControl: TDDColorControl): HResult; stdcall;
-    function SetTargetSurface(lpDDSurface: IDirectDrawSurface; dwFlags: DWORD): HResult; stdcall;
-    function StartVideo(const lpVideoInfo: TDDVideoportInfo): HResult; stdcall;
-    function StopVideo: HResult; stdcall;
-    function UpdateVideo(const lpVideoInfo: TDDVideoportInfo): HResult; stdcall;
-    function WaitForSync(dwFlags: DWORD; dwLine: DWORD; dwTimeout: DWORD): HResult; stdcall;
-  end;
 const
+(*============================================================================
+ *
-{ Video Port Flags }
+ * Video Port Flags
+ *
-  DDVPD_WIDTH             = $00000001;
-  DDVPD_HEIGHT            = $00000002;
-  DDVPD_ID                = $00000004;
-  DDVPD_CAPS              = $00000008;
-  DDVPD_FX                = $00000010;
-  DDVPD_AUTOFLIP          = $00000020;
-  DDVPD_ALIGN             = $00000040;
+ * All flags are bit flags.
-  DDVPD_PREFERREDAUTOFLIP = $00000080;
+ *
-  DDVPD_FILTERQUALITY     = $00000100;
+ *==========================================================================*)
+(****************************************************************************
+ *
-{ TDDVideoportConnect flags }
+ * VIDEOPORT TDDVideoPortConnect FLAGS
+ *
+ ****************************************************************************)
+(*
+ * When this is set by the driver and passed to the client, this
+ * indicates that the video port is capable of double clocking the data.
+ * When this is set by the client, this indicates that the video port
+ * should enable double clocking.  This flag is only valid with external
+ * syncs.
+ *)
-  DDVPCONNECT_DOUBLECLOCK      = $00000001;
+  DDVPCONNECT_DOUBLECLOCK = $00000001;
+(*
+ * When this is set by the driver and passed to the client, this
+ * indicates that the video port is capable of using an external VACT
+ * signal. When this is set by the client, this indicates that the
+ * video port should use the external VACT signal.
+ *)
-  DDVPCONNECT_VACT             = $00000002;
+  DDVPCONNECT_VACT = $00000002;
+(*
+ * When this is set by the driver and passed to the client, this
+ * indicates that the video port is capable of treating even fields
+ * like odd fields and visa versa.  When this is set by the client,
+ * this indicates that the video port should treat even fields like odd
+ * fields.
+ *)
-  DDVPCONNECT_INVERTPOLARITY   = $00000004;
+  DDVPCONNECT_INVERTPOLARITY = $00000004;
+(*
+ * Indicates that any data written to the video port during the VREF
+ * period will not be written into the frame buffer. This flag is read only.
+ *)
   DDVPCONNECT_DISCARDSVREFDATA = $00000008;
+(*
+ * When this is set be the driver and passed to the client, this
+ * indicates that the device will write half lines into the frame buffer
+ * if half lines are provided by the decoder.  If this is set by the client,
+ * this indicates that the decoder will be supplying half lines.
+ *)
-  DDVPCONNECT_HALFLINE         = $00000010;
+  DDVPCONNECT_HALFLINE = $00000010;
+(*
+ * Indicates that the signal is interlaced. This flag is only
+ * set by the client.
+ *)
-  DDVPCONNECT_INTERLACED       = $00000020;
+  DDVPCONNECT_INTERLACED = $00000020;
+(*
+ * Indicates that video port is shareable and that this video port
+ * will use the even fields.  This flag is only set by the client.
+ *)
-  DDVPCONNECT_SHAREEVEN        = $00000040;
+  DDVPCONNECT_SHAREEVEN = $00000040;
+(*
+ * Indicates that video port is shareable and that this video port
+ * will use the odd fields.  This flag is only set by the client.
+ *)
-  DDVPCONNECT_SHAREODD         = $00000080;
+  DDVPCONNECT_SHAREODD = $00000080;
+(****************************************************************************
+ *
-{ TDDVideoportDesc caps }
+ * VIDEOPORT TDDVideoPortDesc CAPS
+ *
+ ****************************************************************************)
+(*
+ * Flip can be performed automatically to avoid tearing.
+ *)
-  DDVPCAPS_AUTOFLIP               = $00000001;
+  DDVPCAPS_AUTOFLIP = $00000001;
+(*
+ * Supports interlaced video
+ *)
-  DDVPCAPS_INTERLACED             = $00000002;
+  DDVPCAPS_INTERLACED = $00000002;
+(*
+ * Supports non-interlaced video
+ *)
-  DDVPCAPS_NONINTERLACED          = $00000004;
+  DDVPCAPS_NONINTERLACED = $00000004;
+(*
+ * Indicates that the device can return whether the current field
+ * of an interlaced signal is even or odd.
+ *)
-  DDVPCAPS_READBACKFIELD          = $00000008;
+  DDVPCAPS_READBACKFIELD = $00000008;
+(*
+ * Indicates that the device can return the current line of video
+ * being written into the frame buffer.
+ *)
-  DDVPCAPS_READBACKLINE           = $00000010;
+  DDVPCAPS_READBACKLINE = $00000010;
+(*
+ * Allows two gen-locked video streams to share a single video port,
+ * where one stream uses the even fields and the other uses the odd
+ * fields. Separate parameters (including address, scaling,
+ * cropping, etc.) are maintained for both fields.)
+ *)
-  DDVPCAPS_SHAREABLE              = $00000020;
+  DDVPCAPS_SHAREABLE = $00000020;
+(*
+ * Even fields of video can be automatically discarded.
+ *)
-  DDVPCAPS_SKIPEVENFIELDS         = $00000040;
+  DDVPCAPS_SKIPEVENFIELDS = $00000040;
+(*
+ * Odd fields of video can be automatically discarded.
+ *)
-  DDVPCAPS_SKIPODDFIELDS          = $00000080;
+  DDVPCAPS_SKIPODDFIELDS = $00000080;
+(*
+ * Indicates that the device is capable of driving the graphics
+ * VSYNC with the video port VSYNC.
+ *)
-  DDVPCAPS_SYNCMASTER             = $00000100;
+  DDVPCAPS_SYNCMASTER = $00000100;
+(*
+ * Indicates that data within the vertical blanking interval can
+ * be written to a different surface.
+ *)
-  DDVPCAPS_VBISURFACE             = $00000200;
+  DDVPCAPS_VBISURFACE = $00000200;
+(*
+ * Indicates that the video port can perform color operations
+ * on the incoming data before it is written to the frame buffer.
+ *)
-  DDVPCAPS_COLORCONTROL           = $00000400;
+  DDVPCAPS_COLORCONTROL = $00000400;
+(*
+ * Indicates that the video port can accept VBI data in a different
+ * width or format than the regular video data.
+ *)
-  DDVPCAPS_OVERSAMPLEDVBI         = $00000800;
+  DDVPCAPS_OVERSAMPLEDVBI = $00000800;
+(*
+ * Indicates that the video port can write data directly to system memory
+ *)
-  DDVPCAPS_SYSTEMMEMORY           = $00001000;
+  DDVPCAPS_SYSTEMMEMORY = $00001000;
+(*
+ * Indicates that the VBI and video portions of the video stream can
+ * be controlled by an independent processes.
+ *)
-  DDVPCAPS_VBIANDVIDEOINDEPENDENT = $00002000;
+  DDVPCAPS_VBIANDVIDEOINDEPENDENT       = $00002000;
+(*
+ * Indicates that the video port contains high quality hardware
+ * de-interlacing hardware that should be used instead of the
+ * bob/weave algorithms.
+ *)
-  DDVPCAPS_HARDWAREDEINTERLACE    = $00004000;
+  DDVPCAPS_HARDWAREDEINTERLACE          = $00004000;
+(****************************************************************************
+ *
-{ TDDVideoportDesc FX }
+ * VIDEOPORT TDDVideoPortDesc FX
+ *
+ ****************************************************************************)
+(*
+ * Limited cropping is available to crop out the vertical interval data.
+ *)
-  DDVPFX_CROPTOPDATA     = $00000001;
+  DDVPFX_CROPTOPDATA = $00000001;
+(*
+ * Incoming data can be cropped in the X direction before it is written
+ * to the surface.
+ *)
-  DDVPFX_CROPX           = $00000002;
+  DDVPFX_CROPX = $00000002;
+(*
+ * Incoming data can be cropped in the Y direction before it is written
+ * to the surface.
+ *)
-  DDVPFX_CROPY           = $00000004;
+  DDVPFX_CROPY = $00000004;
+(*
+ * Supports interleaving interlaced fields in memory.
+ *)
-  DDVPFX_INTERLEAVE      = $00000008;
+  DDVPFX_INTERLEAVE = $00000008;
+(*
+ * Supports mirroring left to right as the video data is written
+ * into the frame buffer.
+ *)
   DDVPFX_MIRRORLEFTRIGHT = $00000010;
+(*
+ * Supports mirroring top to bottom as the video data is written
+ * into the frame buffer.
+ *)
-  DDVPFX_MIRRORUPDOWN    = $00000020;
+  DDVPFX_MIRRORUPDOWN = $00000020;
+(*
+ * Data can be arbitrarily shrunk in the X direction before it
+ * is written to the surface.
+ *)
-  DDVPFX_PRESHRINKX      = $00000040;
+  DDVPFX_PRESHRINKX = $00000040;
+(*
+ * Data can be arbitrarily shrunk in the Y direction before it
+ * is written to the surface.
+ *)
-  DDVPFX_PRESHRINKY      = $00000080;
+  DDVPFX_PRESHRINKY = $00000080;
+(*
+ * Data can be binary shrunk (1/2, 1/4, 1/8, etc.) in the X
+ * direction before it is written to the surface.
+ *)
-  DDVPFX_PRESHRINKXB     = $00000100;
+  DDVPFX_PRESHRINKXB = $00000100;
+(*
+ * Data can be binary shrunk (1/2, 1/4, 1/8, etc.) in the Y
+ * direction before it is written to the surface.
+ *)
-  DDVPFX_PRESHRINKYB     = $00000200;
+  DDVPFX_PRESHRINKYB = $00000200;
+(*
+ * Data can be shrunk in increments of 1/x in the X direction
+ * (where X is specified in the TDDVideoPortCaps.dwPreshrinkXStep)
+ * before it is written to the surface.
+ *)
-  DDVPFX_PRESHRINKXS     = $00000400;
+  DDVPFX_PRESHRINKXS = $00000400;
+(*
+ * Data can be shrunk in increments of 1/x in the Y direction
+ * (where X is specified in the TDDVideoPortCaps.dwPreshrinkYStep)
+ * before it is written to the surface.
+ *)
-  DDVPFX_PRESHRINKYS     = $00000800;
+  DDVPFX_PRESHRINKYS = $00000800;
+(*
+ * Data can be arbitrarily stretched in the X direction before
+ * it is written to the surface.
+ *)
-  DDVPFX_PRESTRETCHX     = $00001000;
+  DDVPFX_PRESTRETCHX = $00001000;
+(*
+ * Data can be arbitrarily stretched in the Y direction before
+ * it is written to the surface.
+ *)
-  DDVPFX_PRESTRETCHY     = $00002000;
+  DDVPFX_PRESTRETCHY = $00002000;
+(*
+ * Data can be integer stretched in the X direction before it is
+ * written to the surface.
+ *)
-  DDVPFX_PRESTRETCHXN    = $00004000;
+  DDVPFX_PRESTRETCHXN = $00004000;
+(*
+ * Data can be integer stretched in the Y direction before it is
+ * written to the surface.
+ *)
-  DDVPFX_PRESTRETCHYN    = $00008000;
+  DDVPFX_PRESTRETCHYN = $00008000;
+(*
+ * Indicates that data within the vertical blanking interval can
+ * be converted independently of the remaining video data.
+ *)
-  DDVPFX_VBICONVERT      = $00010000;
+  DDVPFX_VBICONVERT = $00010000;
+(*
+ * Indicates that scaling can be disabled for data within the
+ * vertical blanking interval.
+ *)
-  DDVPFX_VBINOSCALE      = $00020000;
+  DDVPFX_VBINOSCALE = $00020000;
+(*
+ * Indicates that the video data can ignore the left and right
+ * cropping coordinates when cropping oversampled VBI data.
+ *)
-  DDVPFX_IGNOREVBIXCROP  = $00040000;
+  DDVPFX_IGNOREVBIXCROP = $00040000;
+(*
+ * Indicates that interleaving can be disabled for data within the
+ * vertical blanking interval.
+ *)
-  DDVPFX_VBINOINTERLEAVE = $00080000;
+  DDVPFX_VBINOINTERLEAVE     = $00080000;
+(****************************************************************************
+ *
-{ TDDVideoportInfo flags }
+ * VIDEOPORT TDDVideoPortInfo FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Perform automatic flipping.   Auto-flipping is performed between
+ * the overlay surface that was attached to the video port using
+ * IDirectDrawVideoPort::AttachSurface and the overlay surfaces that
+ * are attached to the surface via the IDirectDrawSurface::AttachSurface
+ * method.  The flip order is the order in which the overlay surfaces
+ * were. attached.
+ *)
-  DDVP_AUTOFLIP            = $00000001;
+  DDVP_AUTOFLIP = $00000001;
+(*
+ * Perform conversion using the ddpfOutputFormat information.
+ *)
-  DDVP_CONVERT             = $00000002;
+  DDVP_CONVERT = $00000002;
+(*
+ * Perform cropping using the specified rectangle.
+ *)
-  DDVP_CROP                = $00000004;
+  DDVP_CROP = $00000004;
+(*
+ * Indicates that interlaced fields should be interleaved in memory.
+ *)
-  DDVP_INTERLEAVE          = $00000008;
+  DDVP_INTERLEAVE = $00000008;
+(*
+ * Indicates that the data should be mirrored left to right as it's
+ * written into the frame buffer.
+ *)
-  DDVP_MIRRORLEFTRIGHT     = $00000010;
+  DDVP_MIRRORLEFTRIGHT = $00000010;
+(*
+ * Indicates that the data should be mirrored top to bottom as it's
+ * written into the frame buffer.
+ *)
-  DDVP_MIRRORUPDOWN        = $00000020;
+  DDVP_MIRRORUPDOWN = $00000020;
+(*
+ * Perform pre-scaling/zooming based on the pre-scale parameters.
+ *)
-  DDVP_PRESCALE            = $00000040;
+  DDVP_PRESCALE = $00000040;
+(*
+ * Ignore input of even fields.
+ *)
-  DDVP_SKIPEVENFIELDS      = $00000080;
+  DDVP_SKIPEVENFIELDS = $00000080;
+(*
+ * Ignore input of odd fields.
+ *)
-  DDVP_SKIPODDFIELDS       = $00000100;
+  DDVP_SKIPODDFIELDS = $00000100;
+(*
+ * Drive the graphics VSYNCs using the video port VYSNCs.
+ *)
-  DDVP_SYNCMASTER          = $00000200;
+  DDVP_SYNCMASTER = $00000200;
+(*
+ * The ddpfVBIOutputFormatFormat member contains data that should be used
+ * to convert the data within the vertical blanking interval.
+ *)
-  DDVP_VBICONVERT          = $00000400;
+  DDVP_VBICONVERT = $00000400;
+(*
+ * Indicates that data within the vertical blanking interval
+ * should not be scaled.
+ *)
-  DDVP_VBINOSCALE          = $00000800;
+  DDVP_VBINOSCALE = $00000800;
+(*
+ * Indicates that these bob/weave decisions should not be
+ * overriden by other interfaces.
+ *)
-  DDVP_OVERRIDEBOBWEAVE    = $00001000;
+  DDVP_OVERRIDEBOBWEAVE = $00001000;
+(*
+ * Indicates that the video data should ignore the left and right
+ * cropping coordinates when cropping the VBI data.
+ *)
-  DDVP_IGNOREVBIXCROP      = $00002000;
+  DDVP_IGNOREVBIXCROP = $00002000;
+(*
+ * Indicates that interleaving can be disabled for data within the
+ * vertical blanking interval.
+ *)
+  DDVP_VBINOINTERLEAVE                  = $00004000;
+(*
+ * Indicates that the video port should use the hardware
+ * de-interlacing hardware.
+ *)
-  DDVP_HARDWAREDEINTERLACE = $00008000;
+  DDVP_HARDWAREDEINTERLACE              = $00008000;
+(****************************************************************************
+ *
-{ DirectDrawVideoport GetInputFormat/GetOutputFormat flags }
+ * DIRIRECTDRAWVIDEOPORT GETINPUTFORMAT/GETOUTPUTFORMAT FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Return formats for the video data
+ *)
   DDVPFORMAT_VIDEO = $00000001;
+(*
+ * Return formats for the VBI data
+ *)
   DDVPFORMAT_VBI = $00000002;
+(****************************************************************************
+ *
-{ DirectDrawVideoport SetTargetSurface flags }
+ * DIRIRECTDRAWVIDEOPORT SETTARGETSURFACE FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Surface should receive video data (and VBI data if a surface
+ * is not explicitly attached for that purpose)
+ *)
   DDVPTARGET_VIDEO = $00000001;
+(*
+ * Surface should receive VBI data
+ *)
   DDVPTARGET_VBI = $00000002;
+(****************************************************************************
+ *
-{ DirectDrawVideoport WaitForSync flags }
+ * DIRIRECTDRAWVIDEOPORT WAITFORSYNC FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Waits until the beginning of the next VSYNC
+ *)
   DDVPWAIT_BEGIN = $00000001;
+(*
+ * Waits until the end of the next/current VSYNC
+ *)
   DDVPWAIT_END = $00000002;
+(*
+ * Waits until the beginning of the specified line
+ *)
   DDVPWAIT_LINE = $00000003;
+(****************************************************************************
+ *
-{ DirectDrawVideoport flip flags }
+ * DIRECTDRAWVIDEOPORT FLIP FLAGS
+ *
+ ****************************************************************************)
+(*
+ * Flips the normal video surface
+ *)
   DDVPFLIP_VIDEO = $00000001;
+(*
+ * Flips the VBI surface
+ *)
   DDVPFLIP_VBI = $00000002;
+(****************************************************************************
+ *
-{ DirectDrawVideoport GetVideoSiginalStatus values }
+ * DIRIRECTDRAWVIDEOPORT GETVIDEOSIGNALSTATUS VALUES
+ *
+ ****************************************************************************)
+(*
+ * No video signal is present at the video port
+ *)
   DDVPSQ_NOSIGNAL = $00000001;
+(*
+ * A valid video signal is present at the video port
+ *)
   DDVPSQ_SIGNALOK = $00000002;
+(****************************************************************************
+ *
-{ TDDVideoportBandWidth Flags }
+ * VIDEOPORTBANDWIDTH Flags
+ *
+ ****************************************************************************)
+(*
+ * The specified height/width refer to the size of the video port data
+ * written into memory, after prescaling has occured.
+ *)
   DDVPB_VIDEOPORT = $00000001;
+(*
+ * The specified height/width refer to the source size of the overlay.
+ *)
   DDVPB_OVERLAY = $00000002;
+(*
+ * This is a query for the device to return which caps this device requires.
+ *)
   DDVPB_TYPE = $00000004;
+(****************************************************************************
+ *
-{ TDDVideoportBandWidth Caps }
+ * VIDEOPORTBANDWIDTH Caps
+ *
+ ****************************************************************************)
+(*
+ * The bandwidth for this device is dependant on the overlay source size.
+ *)
   DDVPBCAPS_SOURCE = $00000001;
+(*
+ * The bandwidth for this device is dependant on the overlay destination
+ * size.
+ *)
   DDVPBCAPS_DESTINATION = $00000002;
+(****************************************************************************
+ *
-{ IDDVideoportContainer.CreateVideoPort flags }
+ * DDVIDEOPORTCONTAINER CreateVideoPort flags
+ *
+ ****************************************************************************)
+(*
+ * The process only wants to control the VBI portion of the video stream.
+ *)
-  DDVPCREATE_VBIONLY   = $00000001;
+  DDVPCREATE_VBIONLY                    = $00000001;
+(*
+ * The process only wants to control the non-VBI (video) portion of
+ * the video stream.
+ *)
-  DDVPCREATE_VIDEOONLY = $00000002;
+  DDVPCREATE_VIDEOONLY                  = $00000002;
+(****************************************************************************
+ *
-{ TDDVideoportStatus flags }
+ * DDVIDEOPORTSTATUS flags
+ *
+ ****************************************************************************)
+(*
+ * The video port interface is only controlling the VBI portion of the
+ * video stream
+ *)
-  DDVPSTATUS_VBIONLY   = $00000001;
+  DDVPSTATUS_VBIONLY                    = $00000001;
+(*
+ * The video port interface is only controlling the video portion of the
+ * video stream
+ *)
-  DDVPSTATUS_VIDEOONLY = $00000002;
+  DDVPSTATUS_VIDEOONLY                  = $00000002;
+type
+(*
+ * API's
+ *)
+  TDDEnumVideoCallback = function (lpTDDVideoPortCaps: PDDVideoPortCaps;
+      lpContext: Pointer) : HResult; stdcall;
+(*
+ * INTERACES FOLLOW:
+ *      IDirectDrawVideoPort
+ *      IVideoPort
+ *)
+(*
+ * IDirectDrawVideoPort
+ *)
+  IDirectDrawVideoPort = interface (IUnknown)
+    ['{B36D93E0-2B43-11CF-A2DE-00AA00B93356}']
+    (*** IDirectDrawVideoPort methods ***)
+    function Flip(lpDDSurface: IDirectDrawSurface; dwFlags: DWORD) : HResult; stdcall;
+    function GetBandwidthInfo(var lpddpfFormat: TDDPixelFormat;
+        dwWidth: DWORD; dwHeight: DWORD; dwFlags: DWORD;
+        var lpBandwidth: TDDVideoPortBandWidth) : HResult; stdcall;
+    function GetColorControls(var lpColorControl: TDDColorControl) : HResult; stdcall;
+    function GetInputFormats(var lpNumFormats: DWORD; var lpFormats:
+        TDDPixelFormat; dwFlags: DWORD) : HResult; stdcall;
+    function GetOutputFormats(var lpInputFormat: TDDPixelFormat;
+        var lpNumFormats: DWORD; lpFormats: PDDPixelFormat; dwFlags: DWORD)
+        : HResult; stdcall;
+    function GetFieldPolarity(var lpbVideoField: BOOL) : HResult; stdcall;
+    function GetVideoLine(var lpdwLine: DWORD) : HResult; stdcall;
+    function GetVideoSignalStatus(varlpdwStatus: DWORD) : HResult; stdcall;
+    function SetColorControls(var lpColorControl: TDDColorControl) : HResult; stdcall;
+    function SetTargetSurface(lpDDSurface: IDirectDrawSurface; dwFlags: DWORD) :
+        HResult; stdcall;
+    function StartVideo(var lpVideoInfo: TDDVideoPortInfo) : HResult; stdcall;
+    function StopVideo: HResult; stdcall;
+    function UpdateVideo(var lpVideoInfo: TDDVideoPortInfo) : HResult; stdcall;
+    function WaitForSync(dwFlags: DWORD; dwLine: DWORD; dwTimeout: DWORD) :
+        HResult; stdcall;
+  end;
+(*
+ * IDirectDrawVideoPortContainer
+ *)
+  IDDVideoPortContainer = interface (IUnknown)
+    ['{6C142760-A733-11CE-A521-0020AF0BE560}']
+    (*** IDDVideoPortContainer methods ***)
+    function CreateVideoPort(dwFlags: DWORD; var lpTDDVideoPortDesc:
+        TDDVideoPortDesc; var lplpDDVideoPort: IDirectDrawVideoPort;
+        pUnkOuter: IUnknown) : HResult; stdcall;
+    function EnumVideoPorts(dwFlags: DWORD;
+        lpTDDVideoPortCaps: PDDVideoPortCaps; lpContext: Pointer;
+        lpEnumVideoCallback: TDDEnumVideoCallback) : HResult; stdcall;
+    function GetVideoPortConnectInfo(dwPortId: DWORD; var lpNumEntries: DWORD;
+        lpConnectInfo: PDDVideoPortConnect) : HResult; stdcall;
+    function QueryVideoPortStatus(dwPortId: DWORD;
+        var lpVPStatus: TDDVideoPortStatus) : HResult; stdcall;
+  end;
+  IID_IDDVideoPortContainer = IDDVideoPortContainer;
+  IID_IDirectDrawVideoPort = IDirectDrawVideoPort;
+//Direct3D file
 (*==========================================================================;
+ *
- *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *  Copyright (C) 1995-1998 Microsoft Corporation.  All Rights Reserved.
+ *
- *  File:       d3dtypes.h
+ *  Files:   d3dtypes.h d3dcaps.h d3d.h
+ *
- *  Content:    Direct3D types include file
+ *  DirectX 7.0 Delphi adaptation by Erik Unger
+ *
+ *  Modyfied: 26-Jun-2000
+ *
+ *  Download: http://www.delphi-jedi.org/DelphiGraphics/
+ *  E-Mail: DelphiDirectX@next-reality.com
+ *
  ***************************************************************************)
-type
-  TD3DValue = Single;
-  D3DValue = TD3DValue;
+(* TD3DValue is the fundamental Direct3D fractional data type *)
-  TD3DFixed = Longint;
+type
-  D3DFIXED = TD3DFixed;
+  TRefClsID = TGUID;
+type
+  TD3DValue = Single;
+  TD3DFixed = LongInt;
+  float = TD3DValue;
+  PD3DColor = ^TD3DColor;
   TD3DColor = DWORD;
-  D3DCOLOR = TD3DColor;
-function D3DVALP(val: TD3DValue; prec: Integer): TD3DValue;
-function D3DVAL(val: TD3DValue): TD3DValue;
+function D3DVal(val: variant) : float;
-function D3DDivide(a, b: TD3DValue): TD3DValue;
+function D3DDivide(a,b: double) : float;
-function D3DMultiply(a, b: TD3DValue): TD3DValue;
+function D3DMultiply(a,b: double) : float;
 (*
  * Format of CI colors is
  *  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  *  |    alpha      |         color index           |   fraction    |
  *  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  *)
+// #define CI_GETALPHA(ci)    ((ci) >> 24)
-function CI_GETALPHA(ci: Integer): Byte;
+function CI_GETALPHA(ci: DWORD) : DWORD;
+// #define CI_GETINDEX(ci)    (((ci) >> 8) & 0xffff)
-function CI_GETINDEX(ci: Integer): Word;
+function CI_GETINDEX(ci: DWORD) : DWORD;
+// #define CI_GETFRACTION(ci) ((ci) & 0xff)
-function CI_GETFRACTION(ci: Integer): Byte;
+function CI_GETFRACTION(ci: DWORD) : DWORD;
+// #define CI_ROUNDINDEX(ci)  CI_GETINDEX((ci) + 0x80)
-function CI_ROUNDINDEX(ci: Integer): Integer;
+function CI_ROUNDINDEX(ci: DWORD) : DWORD;
+// #define CI_MASKALPHA(ci)   ((ci) & 0xffffff)
-function CI_MASKALPHA(ci: Integer): Integer;
+function CI_MASKALPHA(ci: DWORD) : DWORD;
+// #define CI_MAKE(a, i, f)    (((a) << 24) | ((i) << 8) | (f))
-function CI_MAKE(a: Byte; i: Word; f: Byte): Integer;
+function CI_MAKE(a,i,f: DWORD) : DWORD;
 (*
  * Format of RGBA colors is
  *  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  *  |    alpha      |      red      |     green     |     blue      |
  *  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  *)
+// #define RGBA_GETALPHA(rgb)      ((rgb) >> 24)
-function RGBA_GETALPHA(rgb: TD3DColor): Byte;
+function RGBA_GETALPHA(rgb: TD3DColor) : DWORD;
+// #define RGBA_GETRED(rgb)        (((rgb) >> 16) & 0xff)
-function RGBA_GETRED(rgb: TD3DColor): Byte;
+function RGBA_GETRED(rgb: TD3DColor) : DWORD;
+// #define RGBA_GETGREEN(rgb)      (((rgb) >> 8) & 0xff)
-function RGBA_GETGREEN(rgb: TD3DColor): Byte;
+function RGBA_GETGREEN(rgb: TD3DColor) : DWORD;
+// #define RGBA_GETBLUE(rgb)       ((rgb) & 0xff)
-function RGBA_GETBLUE(rgb: TD3DColor): Byte;
+function RGBA_GETBLUE(rgb: TD3DColor) : DWORD;
+// #define RGBA_MAKE(r, g, b, a)   ((TD3DColor) (((a) << 24) | ((r) << 16) | ((g) << 8) | (b)))
-function RGBA_MAKE(r, g, b, a: Byte): TD3DColor;
+function RGBA_MAKE(r, g, b, a: DWORD) : TD3DColor;
 (* D3DRGB and D3DRGBA may be used as initialisers for D3DCOLORs
  * The float values must be in the range 0..1
  *)
+// #define D3DRGB(r, g, b) \
+//     (0xff000000L | (((long)((r) * 255)) << 16) | (((long)((g) * 255)) << 8) | (long)((b) * 255))
-function D3DRGB(r, g, b: TD3DValue): TD3DColor;
+function D3DRGB(r, g, b: float) : TD3DColor;
+// #define D3DRGBA(r, g, b, a) \
+//     (  (((long)((a) * 255)) << 24) | (((long)((r) * 255)) << 16) \
+//     |   (((long)((g) * 255)) << 8) | (long)((b) * 255) \
+//    )
-function D3DRGBA(r, g, b, a: TD3DValue): TD3DColor;
+function D3DRGBA(r, g, b, a: float) : TD3DColor;
 (*
  * Format of RGB colors is
  *  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  *  |    ignored    |      red      |     green     |     blue      |
  *  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  *)
+// #define RGB_GETRED(rgb)         (((rgb) >> 16) & 0xff)
-function RGB_GETRED(rgb: TD3DColor): Byte;
+function RGB_GETRED(rgb: TD3DColor) : DWORD;
+// #define RGB_GETGREEN(rgb)       (((rgb) >> 8) & 0xff)
-function RGB_GETGREEN(rgb: TD3DColor): Byte;
+function RGB_GETGREEN(rgb: TD3DColor) : DWORD;
+// #define RGB_GETBLUE(rgb)        ((rgb) & 0xff)
-function RGB_GETBLUE(rgb: TD3DColor): Byte;
+function RGB_GETBLUE(rgb: TD3DColor) : DWORD;
+// #define RGBA_SETALPHA(rgba, x) (((x) << 24) | ((rgba) & 0x00ffffff))
-function RGBA_SETALPHA(rgba: TD3DColor; x: Byte): TD3DColor;
+function RGBA_SETALPHA(rgba: TD3DColor; x: DWORD) : TD3DColor;
+// #define RGB_MAKE(r, g, b)       ((TD3DColor) (((r) << 16) | ((g) << 8) | (b)))
-function RGB_MAKE(r, g, b: Byte): TD3DColor;
+function RGB_MAKE(r, g, b: DWORD) : TD3DColor;
+// #define RGBA_TORGB(rgba)       ((TD3DColor) ((rgba) & 0xffffff))
-function RGBA_TORGB(rgba: TD3DColor): TD3DColor;
+function RGBA_TORGB(rgba: TD3DColor) : TD3DColor;
+// #define RGB_TORGBA(rgb)        ((TD3DColor) ((rgb) | 0xff000000))
-function RGB_TORGBA(rgb: TD3DColor): TD3DColor;
+function RGB_TORGBA(rgb: TD3DColor) : TD3DColor;
+(*
+ * Flags for Enumerate functions
+ *)
 const
+(*
-{ Flags for Enumerate functions }
+ * Stop the enumeration
+ *)
-  D3DENUMRET_CANCEL = DDENUMRET_CANCEL;
+  D3DENUMRET_CANCEL                        = DDENUMRET_CANCEL;
+(*
+ * Continue the enumeration
+ *)
-  D3DENUMRET_OK     = DDENUMRET_OK;
+  D3DENUMRET_OK                            = DDENUMRET_OK;
 type
-  TD3DValidateCallback = function(lpUserArg: Pointer; dwOffset: DWORD): HResult; stdcall;
+  TD3DValidateCallback = function (lpUserArg: Pointer;
-  LPD3DVALIDATECALLBACK = TD3DValidateCallback;
+      dwOffset: DWORD): HResult; stdcall;
-  TD3DEnumTextureFormatsCalback = function(const lpDdsd: TDDSurfaceDesc;
+  TD3DEnumTextureFormatsCallback = function (var lpDdsd: TDDSurfaceDesc;
       lpContext: Pointer): HResult; stdcall;
-  LPD3DENUMTEXTUREFORMATSCALLBACK = TD3DEnumTextureFormatsCalback;
-  TD3DEnumPixelFormatsCallback = function(const lpDDPixFmt: TDDPixelFormat;
+  TD3DEnumPixelFormatsCallback = function (var lpDDPixFmt: TDDPixelFormat;
       lpContext: Pointer): HResult; stdcall;
+  PD3DMaterialHandle = ^TD3DMaterialHandle;
   TD3DMaterialHandle = DWORD;
-  D3DMATERIALHANDLE = TD3DMaterialHandle;
+  PD3DTextureHandle = ^TD3DTextureHandle;
   TD3DTextureHandle = DWORD;
-  D3DTEXTUREHANDLE = TD3DTextureHandle;
+  PD3DMatrixHandle = ^TD3DMatrixHandle;
   TD3DMatrixHandle = DWORD;
-  D3DMATRIXHANDLE = TD3DMatrixHandle;
-{ TD3DColorValue structure }
   PD3DColorValue = ^TD3DColorValue;
-  TD3DColorValue = record
+  TD3DColorValue = packed record
     case Integer of
 : (
       r: TD3DValue;
       g: TD3DValue;
       b: TD3DValue;
       a: TD3DValue;
-      );
+     );
 : (
       dvR: TD3DValue;
       dvG: TD3DValue;
       dvB: TD3DValue;
       dvA: TD3DValue;
-      );
+     );
   end;
-  D3DCOLORVALUE = TD3DColorValue;
-{ TD3DRect structure }
   PD3DRect = ^TD3DRect;
-  TD3DRect = record
+  TD3DRect = packed record
     case Integer of
 : (
-      x1: Longint;
+      x1: LongInt;
-      y1: Longint;
+      y1: LongInt;
-      x2: Longint;
+      x2: LongInt;
-      y2: Longint;
+      y2: LongInt;
-      );
+     );
 : (
-      lX1: Longint;
+      lX1: LongInt;
-      lY1: Longint;
+      lY1: LongInt;
-      lX2: Longint;
+      lX2: LongInt;
-      lY2: Longint;
+      lY2: LongInt;
+     );
+: (
+       a: array[0..3] of LongInt;
-      );
+     );
   end;
-  D3DRECT = TD3DRect;
-  LPD3DRECT = PD3DRect;
-{ TD3DVector structure }
   PD3DVector = ^TD3DVector;
-  TD3DVector = record
+  TD3DVector = packed record
     case Integer of
 : (
       x: TD3DValue;
       y: TD3DValue;
       z: TD3DValue;
-      );
+     );
 : (
       dvX: TD3DValue;
       dvY: TD3DValue;
       dvZ: TD3DValue;
-      );
+     );
   end;
+(******************************************************************
+ *                                                                *
+ *   D3DVec.inl                                                   *
+ *                                                                *
-  D3DVECTOR = TD3DVector;
+ *   Float-valued 3D vector class for Direct3D.                   *
+ *                                                                *
-  LPD3DVECTOR = PD3DVector;
+ *   Copyright (c) 1996-1998 Microsoft Corp. All rights reserved. *
+ *                                                                *
+ ******************************************************************)
-// Addition and subtraction
+    // Addition and subtraction
-function VectorAdd(v1, v2: TD3DVector) : TD3DVector;
+  function VectorAdd(const v1, v2: TD3DVector) : TD3DVector;
-function VectorSub(v1, v2: TD3DVector) : TD3DVector;
+  function VectorSub(const v1, v2: TD3DVector) : TD3DVector;
-// Scalar multiplication and division
+    // Scalar multiplication and division
-function VectorMulS(v: TD3DVector; s: TD3DValue) : TD3DVector;
+  function VectorMulS(const v: TD3DVector; s: TD3DValue) : TD3DVector;
-function VectorDivS(v: TD3DVector; s: TD3DValue) : TD3DVector;
+  function VectorDivS(const v: TD3DVector; s: TD3DValue) : TD3DVector;
-// Memberwise multiplication and division
+    // Memberwise multiplication and division
-function VectorMul(v1, v2: TD3DVector) : TD3DVector;
+  function VectorMul(const v1, v2: TD3DVector) : TD3DVector;
-function VectorDiv(v1, v2: TD3DVector) : TD3DVector;
+  function VectorDiv(const v1, v2: TD3DVector) : TD3DVector;
-// Vector dominance
+    // Vector dominance
-function VectorSmaller(v1, v2: TD3DVector) : boolean;
+  function VectorSmaller(v1, v2: TD3DVector) : boolean;
-function VectorSmallerEquel(v1, v2: TD3DVector) : boolean;
+  function VectorSmallerEquel(v1, v2: TD3DVector) : boolean;
-// Bitwise equality
+    // Bitwise equality
-function VectorEquel(v1, v2: TD3DVector) : boolean;
+  function VectorEquel(v1, v2: TD3DVector) : boolean;
-// Length-related functions
+    // Length-related functions
-function VectorSquareMagnitude(v: TD3DVector) : TD3DValue;
+  function VectorSquareMagnitude(v: TD3DVector) : TD3DValue;
-function VectorMagnitude(v: TD3DVector) : TD3DValue;
+  function VectorMagnitude(v: TD3DVector) : TD3DValue;
-// Returns vector with same direction and unit length
+    // Returns vector with same direction and unit length
-function VectorNormalize(v: TD3DVector) : TD3DVector;
+  function VectorNormalize(const v: TD3DVector) : TD3DVector;
-// Return min/max component of the input vector
+    // Return min/max component of the input vector
-function VectorMin(v: TD3DVector) : TD3DValue;
+  function VectorMin(v: TD3DVector) : TD3DValue;
-function VectorMax(v: TD3DVector) : TD3DValue;
+  function VectorMax(v: TD3DVector) : TD3DValue;
-// Return memberwise min/max of input vectors
+    // Return memberwise min/max of input vectors
-function VectorMinimize(v1, v2: TD3DVector) : TD3DVector;
+  function VectorMinimize(const v1, v2: TD3DVector) : TD3DVector;
-function VectorMaximize(v1, v2: TD3DVector) : TD3DVector;
+  function VectorMaximize(const v1, v2: TD3DVector) : TD3DVector;
-// Dot and cross product
+    // Dot and cross product
-function VectorDotProduct(v1, v2: TD3DVector) : TD3DValue;
+  function VectorDotProduct(v1, v2: TD3DVector) : TD3DValue;
-function VectorCrossProduct(v1, v2: TD3DVector) : TD3DVector;
+  function VectorCrossProduct(const v1, v2: TD3DVector) : TD3DVector;
 type
+(*
-{ Vertex data types supported in an ExecuteBuffer. }
+ * Vertex data types supported in an ExecuteBuffer.
+ *)
+(*
-{ TD3DHVertex structure }
+ * Homogeneous vertices
+ *)
   PD3DHVertex = ^TD3DHVertex;
-  TD3DHVertex = record
+  TD3DHVertex = packed record
-    dwFlags: DWORD;        // Homogeneous clipping flags
+    dwFlags: DWORD;        (* Homogeneous clipping flags *)
     case Integer of
 : (
       hx: TD3DValue;
       hy: TD3DValue;
       hz: TD3DValue;
-      );
+     );
 : (
       dvHX: TD3DValue;
       dvHY: TD3DValue;
       dvHZ: TD3DValue;
-      );
+     );
   end;
-  D3DHVERTEX = TD3DHVertex;
+(*
-{ TD3DTLVertex structure }
+ * Transformed/lit vertices
+ *)
   PD3DTLVertex = ^TD3DTLVertex;
-  TD3DTLVertex = record
+  TD3DTLVertex = packed record
     case Integer of
 : (
-      sx: TD3DValue;             // Screen coordinates
+      sx: TD3DValue;             (* Screen coordinates *)
       sy: TD3DValue;
       sz: TD3DValue;
-      rhw: TD3DValue;            // Reciprocal of homogeneous w
+      rhw: TD3DValue;            (* Reciprocal of homogeneous w *)
-      color: TD3DColor;          // Vertex color
+      color: TD3DColor;          (* Vertex color *)
-      specular: TD3DColor;       // Specular component of vertex
+      specular: TD3DColor;       (* Specular component of vertex *)
-      tu: TD3DValue;             // Texture coordinates
+      tu: TD3DValue;             (* Texture coordinates *)
       tv: TD3DValue;
-      );
+     );
 : (
       dvSX: TD3DValue;
       dvSY: TD3DValue;
       dvSZ: TD3DValue;
       dvRHW: TD3DValue;
       dcColor: TD3DColor;
       dcSpecular: TD3DColor;
       dvTU: TD3DValue;
       dvTV: TD3DValue;
-      );
+     );
   end;
-  D3DTLVERTEX = TD3DTLVertex;
+(*
-{ TD3DLVertex structure }
+ * Untransformed/lit vertices
+ *)
   PD3DLVertex = ^TD3DLVertex;
-  TD3DLVertex = record
+  TD3DLVertex = packed record
     case Integer of
 : (
-      x: TD3DValue;             // Homogeneous coordinates
+      x: TD3DValue;             (* Homogeneous coordinates *)
       y: TD3DValue;
       z: TD3DValue;
       dwReserved: DWORD;
-      color: TD3DColor;         // Vertex color
+      color: TD3DColor;         (* Vertex color *)
-      specular: TD3DColor;      // Specular component of vertex
+      specular: TD3DColor;      (* Specular component of vertex *)
-      tu: TD3DValue;            // Texture coordinates
+      tu: TD3DValue;            (* Texture coordinates *)
       tv: TD3DValue;
-      );
+     );
 : (
       dvX: TD3DValue;
       dvY: TD3DValue;
       dvZ: TD3DValue;
-      _union1d: DWORD;
+      UNIONFILLER1d: DWORD;
       dcColor: TD3DColor;
       dcSpecular: TD3DColor;
       dvTU: TD3DValue;
       dvTV: TD3DValue;
-      );
+     );
   end;
-  D3DLVERTEX = TD3DLVertex;
+(*
-{ TD3DVertex structure }
+ * Untransformed/unlit vertices
+ *)
   PD3DVertex = ^TD3DVertex;
-  TD3DVertex = record
+  TD3DVertex = packed record
     case Integer of
 : (
-      x: TD3DValue;             // Homogeneous coordinates
+      x: TD3DValue;             (* Homogeneous coordinates *)
       y: TD3DValue;
       z: TD3DValue;
-      nx: TD3DValue;            // Normal
+      nx: TD3DValue;            (* Normal *)
       ny: TD3DValue;
       nz: TD3DValue;
-      tu: TD3DValue;            // Texture coordinates
+      tu: TD3DValue;            (* Texture coordinates *)
       tv: TD3DValue;
-      );
+     );
 : (
       dvX: TD3DValue;
       dvY: TD3DValue;
       dvZ: TD3DValue;
       dvNX: TD3DValue;
       dvNY: TD3DValue;
       dvNZ: TD3DValue;
       dvTU: TD3DValue;
       dvTV: TD3DValue;
-      );
+     );
   end;
-  D3DVERTEX = TD3DVertex;
+(*
-{ TD3DMatrix structure }
+ * Matrix, viewport, and tranformation structures and definitions.
+ *)
   PD3DMatrix = ^TD3DMatrix;
-  TD3DMatrix = record
+  TD3DMatrix = packed record
+    case integer of
-    _11, _12, _13, _14: TD3DValue;
+: (_11, _12, _13, _14: TD3DValue;
-    _21, _22, _23, _24: TD3DValue;
+           _21, _22, _23, _24: TD3DValue;
-    _31, _32, _33, _34: TD3DValue;
+           _31, _32, _33, _34: TD3DValue;
-    _41, _42, _43, _44: TD3DValue;
+           _41, _42, _43, _44: TD3DValue);
+: (m : array [0..3, 0..3] of TD3DValue);
   end;
-  D3DMATRIX = TD3DMatrix;
-{ TD3DViewport structure }
   PD3DViewport = ^TD3DViewport;
-  TD3DViewport = record
+  TD3DViewport = packed record
     dwSize: DWORD;
     dwX: DWORD;
-    dwY: DWORD;               // Top left
+    dwY: DWORD;                (* Top left *)
     dwWidth: DWORD;
-    dwHeight: DWORD;          // Dimensions
+    dwHeight: DWORD;           (* Dimensions *)
-    dvScaleX: TD3DValue;       // Scale homogeneous to screen
+    dvScaleX: TD3DValue;       (* Scale homogeneous to screen *)
-    dvScaleY: TD3DValue;       // Scale homogeneous to screen
+    dvScaleY: TD3DValue;       (* Scale homogeneous to screen *)
-    dvMaxX: TD3DValue;         // Min/max homogeneous x coord
+    dvMaxX: TD3DValue;         (* Min/max homogeneous x coord *)
-    dvMaxY: TD3DValue;         // Min/max homogeneous y coord
+    dvMaxY: TD3DValue;         (* Min/max homogeneous y coord *)
     dvMinZ: TD3DValue;
-    dvMaxZ: TD3DValue;         // Min/max homogeneous z coord
+    dvMaxZ: TD3DValue;         (* Min/max homogeneous z coord *)
   end;
-  D3DVIEWPORT = TD3DViewport;
-{ TD3DViewport2 structure }
   PD3DViewport2 = ^TD3DViewport2;
-  TD3DViewport2 = record
+  TD3DViewport2 = packed record
     dwSize: DWORD;
     dwX: DWORD;
-    dwY: DWORD;               // Top left
+    dwY: DWORD;                (* Viewport Top left *)
     dwWidth: DWORD;
-    dwHeight: DWORD;          // Dimensions
+    dwHeight: DWORD;           (* Viewport Dimensions *)
-    dvClipX: TD3DValue;        // Top left of clip volume
+    dvClipX: TD3DValue;        (* Top left of clip volume *)
     dvClipY: TD3DValue;
-    dvClipWidth: TD3DValue;    // Clip Volume Dimensions
+    dvClipWidth: TD3DValue;    (* Clip Volume Dimensions *)
     dvClipHeight: TD3DValue;
+    dvMinZ: TD3DValue;         (* Min/max of clip Volume *)
-    dvMinZ: TD3DValue;
+    dvMaxZ: TD3DValue;
-    dvMaxZ: TD3DValue;         // Min/max homogeneous z coord
   end;
-  D3DVIEWPORT2 = TD3DViewport2;
-{ TD3DViewport2 structure }
   PD3DViewport7 = ^TD3DViewport7;
-  TD3DViewport7 = record
+  TD3DViewport7 = packed record
     dwX: DWORD;
-    dwY: DWORD;               // Top left
+    dwY: DWORD;                (* Viewport Top left *)
     dwWidth: DWORD;
-    dwHeight: DWORD;          // Dimensions
+    dwHeight: DWORD;           (* Viewport Dimensions *)
+    dvMinZ: TD3DValue;         (* Min/max of clip Volume *)
-    dvMinZ: TD3DValue;
+    dvMaxZ: TD3DValue;
-    dvMaxZ: TD3DValue;         // Min/max homogeneous z coord
   end;
+(*
-  D3DVIEWPORT7 = TD3DViewport7;
+ * Values for clip fields.
+ *)
 const
-{ Max number of user clipping planes, supported in D3D. }
+// Max number of user clipping planes, supported in D3D.
-  D3DMAXUSERCLIPPLANES = 32;
+  D3DMAXUSERCLIPPLANES  = 32;
-{ These bits could be ORed together to use with D3DRENDERSTATE_CLIPPLANEENABLE }
+// These bits could be ORed together to use with D3DRENDERSTATE_CLIPPLANEENABLE
+//
-  D3DCLIPPLANE0 = 1 shl 0;
+  D3DCLIPPLANE0 = (1 shl 0);
-  D3DCLIPPLANE1 = 1 shl 1;
+  D3DCLIPPLANE1 = (1 shl 1);
-  D3DCLIPPLANE2 = 1 shl 2;
+  D3DCLIPPLANE2 = (1 shl 2);
-  D3DCLIPPLANE3 = 1 shl 3;
+  D3DCLIPPLANE3 = (1 shl 3);
-  D3DCLIPPLANE4 = 1 shl 4;
+  D3DCLIPPLANE4 = (1 shl 4);
-  D3DCLIPPLANE5 = 1 shl 5;
+  D3DCLIPPLANE5 = (1 shl 5);
-{ Values for clip fields. }
+const
-  D3DCLIP_LEFT   = $00000001;
+  D3DCLIP_LEFT                            = $00000001;
-  D3DCLIP_RIGHT  = $00000002;
+  D3DCLIP_RIGHT                           = $00000002;
-  D3DCLIP_TOP    = $00000004;
+  D3DCLIP_TOP                             = $00000004;
-  D3DCLIP_BOTTOM = $00000008;
+  D3DCLIP_BOTTOM                          = $00000008;
-  D3DCLIP_FRONT  = $00000010;
+  D3DCLIP_FRONT                           = $00000010;
-  D3DCLIP_BACK   = $00000020;
+  D3DCLIP_BACK                            = $00000020;
-  D3DCLIP_GEN0   = $00000040;
+  D3DCLIP_GEN0                            = $00000040;
-  D3DCLIP_GEN1   = $00000080;
+  D3DCLIP_GEN1                            = $00000080;
-  D3DCLIP_GEN2   = $00000100;
+  D3DCLIP_GEN2                            = $00000100;
-  D3DCLIP_GEN3   = $00000200;
+  D3DCLIP_GEN3                            = $00000200;
-  D3DCLIP_GEN4   = $00000400;
+  D3DCLIP_GEN4                            = $00000400;
-  D3DCLIP_GEN5   = $00000800;
+  D3DCLIP_GEN5                            = $00000800;
+(*
-{ Values for d3d status. }
+ * Values for d3d status.
+ *)
-  D3DSTATUS_CLIPUNIONLEFT   = D3DCLIP_LEFT;
+  D3DSTATUS_CLIPUNIONLEFT                 = D3DCLIP_LEFT;
-  D3DSTATUS_CLIPUNIONRIGHT  = D3DCLIP_RIGHT;
+  D3DSTATUS_CLIPUNIONRIGHT                = D3DCLIP_RIGHT;
-  D3DSTATUS_CLIPUNIONTOP    = D3DCLIP_TOP;
+  D3DSTATUS_CLIPUNIONTOP                  = D3DCLIP_TOP;
-  D3DSTATUS_CLIPUNIONBOTTOM = D3DCLIP_BOTTOM;
+  D3DSTATUS_CLIPUNIONBOTTOM               = D3DCLIP_BOTTOM;
-  D3DSTATUS_CLIPUNIONFRONT  = D3DCLIP_FRONT;
+  D3DSTATUS_CLIPUNIONFRONT                = D3DCLIP_FRONT;
-  D3DSTATUS_CLIPUNIONBACK   = D3DCLIP_BACK;
+  D3DSTATUS_CLIPUNIONBACK                 = D3DCLIP_BACK;
-  D3DSTATUS_CLIPUNIONGEN0   = D3DCLIP_GEN0;
+  D3DSTATUS_CLIPUNIONGEN0                 = D3DCLIP_GEN0;
-  D3DSTATUS_CLIPUNIONGEN1   = D3DCLIP_GEN1;
+  D3DSTATUS_CLIPUNIONGEN1                 = D3DCLIP_GEN1;
-  D3DSTATUS_CLIPUNIONGEN2   = D3DCLIP_GEN2;
+  D3DSTATUS_CLIPUNIONGEN2                 = D3DCLIP_GEN2;
-  D3DSTATUS_CLIPUNIONGEN3   = D3DCLIP_GEN3;
+  D3DSTATUS_CLIPUNIONGEN3                 = D3DCLIP_GEN3;
-  D3DSTATUS_CLIPUNIONGEN4   = D3DCLIP_GEN4;
+  D3DSTATUS_CLIPUNIONGEN4                 = D3DCLIP_GEN4;
-  D3DSTATUS_CLIPUNIONGEN5   = D3DCLIP_GEN5;
+  D3DSTATUS_CLIPUNIONGEN5                 = D3DCLIP_GEN5;
-  D3DSTATUS_CLIPINTERSECTIONLEFT   = $00001000;
+  D3DSTATUS_CLIPINTERSECTIONLEFT          = $00001000;
-  D3DSTATUS_CLIPINTERSECTIONRIGHT  = $00002000;
+  D3DSTATUS_CLIPINTERSECTIONRIGHT         = $00002000;
-  D3DSTATUS_CLIPINTERSECTIONTOP    = $00004000;
+  D3DSTATUS_CLIPINTERSECTIONTOP           = $00004000;
-  D3DSTATUS_CLIPINTERSECTIONBOTTOM = $00008000;
+  D3DSTATUS_CLIPINTERSECTIONBOTTOM        = $00008000;
-  D3DSTATUS_CLIPINTERSECTIONFRONT  = $00010000;
+  D3DSTATUS_CLIPINTERSECTIONFRONT         = $00010000;
-  D3DSTATUS_CLIPINTERSECTIONBACK   = $00020000;
+  D3DSTATUS_CLIPINTERSECTIONBACK          = $00020000;
-  D3DSTATUS_CLIPINTERSECTIONGEN0   = $00040000;
+  D3DSTATUS_CLIPINTERSECTIONGEN0          = $00040000;
-  D3DSTATUS_CLIPINTERSECTIONGEN1   = $00080000;
+  D3DSTATUS_CLIPINTERSECTIONGEN1          = $00080000;
-  D3DSTATUS_CLIPINTERSECTIONGEN2   = $00100000;
+  D3DSTATUS_CLIPINTERSECTIONGEN2          = $00100000;
-  D3DSTATUS_CLIPINTERSECTIONGEN3   = $00200000;
+  D3DSTATUS_CLIPINTERSECTIONGEN3          = $00200000;
-  D3DSTATUS_CLIPINTERSECTIONGEN4   = $00400000;
+  D3DSTATUS_CLIPINTERSECTIONGEN4          = $00400000;
-  D3DSTATUS_CLIPINTERSECTIONGEN5   = $00800000;
+  D3DSTATUS_CLIPINTERSECTIONGEN5          = $00800000;
-  D3DSTATUS_ZNOTVISIBLE            = $01000000;
+  D3DSTATUS_ZNOTVISIBLE                   = $01000000;
+(* Do not use 0x80000000 for any status flags in future as it is reserved *)
-  D3DSTATUS_CLIPUNIONALL =
+  D3DSTATUS_CLIPUNIONALL = (
-    D3DSTATUS_CLIPUNIONLEFT or
+            D3DSTATUS_CLIPUNIONLEFT or
-    D3DSTATUS_CLIPUNIONRIGHT or
+            D3DSTATUS_CLIPUNIONRIGHT or
-    D3DSTATUS_CLIPUNIONTOP or
+            D3DSTATUS_CLIPUNIONTOP or
-    D3DSTATUS_CLIPUNIONBOTTOM or
+            D3DSTATUS_CLIPUNIONBOTTOM or
-    D3DSTATUS_CLIPUNIONFRONT or
+            D3DSTATUS_CLIPUNIONFRONT or
-    D3DSTATUS_CLIPUNIONBACK or
+            D3DSTATUS_CLIPUNIONBACK or
-    D3DSTATUS_CLIPUNIONGEN0 or
+            D3DSTATUS_CLIPUNIONGEN0 or
-    D3DSTATUS_CLIPUNIONGEN1 or
+            D3DSTATUS_CLIPUNIONGEN1 or
-    D3DSTATUS_CLIPUNIONGEN2 or
+            D3DSTATUS_CLIPUNIONGEN2 or
-    D3DSTATUS_CLIPUNIONGEN3 or
+            D3DSTATUS_CLIPUNIONGEN3 or
-    D3DSTATUS_CLIPUNIONGEN4 or
+            D3DSTATUS_CLIPUNIONGEN4 or
-    D3DSTATUS_CLIPUNIONGEN5;
+            D3DSTATUS_CLIPUNIONGEN5);
-  D3DSTATUS_CLIPINTERSECTIONALL =
+  D3DSTATUS_CLIPINTERSECTIONALL = (
-    D3DSTATUS_CLIPINTERSECTIONLEFT or
+            D3DSTATUS_CLIPINTERSECTIONLEFT or
-    D3DSTATUS_CLIPINTERSECTIONRIGHT or
+            D3DSTATUS_CLIPINTERSECTIONRIGHT or
-    D3DSTATUS_CLIPINTERSECTIONTOP or
+            D3DSTATUS_CLIPINTERSECTIONTOP or
-    D3DSTATUS_CLIPINTERSECTIONBOTTOM or
+            D3DSTATUS_CLIPINTERSECTIONBOTTOM or
-    D3DSTATUS_CLIPINTERSECTIONFRONT or
+            D3DSTATUS_CLIPINTERSECTIONFRONT or
-    D3DSTATUS_CLIPINTERSECTIONBACK or
+            D3DSTATUS_CLIPINTERSECTIONBACK or
-    D3DSTATUS_CLIPINTERSECTIONGEN0 or
+            D3DSTATUS_CLIPINTERSECTIONGEN0 or
-    D3DSTATUS_CLIPINTERSECTIONGEN1 or
+            D3DSTATUS_CLIPINTERSECTIONGEN1 or
-    D3DSTATUS_CLIPINTERSECTIONGEN2 or
+            D3DSTATUS_CLIPINTERSECTIONGEN2 or
-    D3DSTATUS_CLIPINTERSECTIONGEN3 or
+            D3DSTATUS_CLIPINTERSECTIONGEN3 or
-    D3DSTATUS_CLIPINTERSECTIONGEN4 or
+            D3DSTATUS_CLIPINTERSECTIONGEN4 or
-    D3DSTATUS_CLIPINTERSECTIONGEN5;
+            D3DSTATUS_CLIPINTERSECTIONGEN5);
   D3DSTATUS_DEFAULT = (
-    D3DSTATUS_CLIPINTERSECTIONALL or
+            D3DSTATUS_CLIPINTERSECTIONALL or
-    D3DSTATUS_ZNOTVISIBLE );
+            D3DSTATUS_ZNOTVISIBLE);
+(*
-{ Options for direct transform calls }
+ * Options for direct transform calls
+ *)
   D3DTRANSFORM_CLIPPED       = $00000001;
   D3DTRANSFORM_UNCLIPPED     = $00000002;
 type
-{ TD3DTransformData structure }
   PD3DTransformData = ^TD3DTransformData;
-  TD3DTransformData = record
+  TD3DTransformData = packed record
     dwSize: DWORD;
-    lpIn: Pointer;             // Input vertices
+    lpIn: Pointer;             (* Input vertices *)
-    dwInSize: DWORD;           // Stride of input vertices
+    dwInSize: DWORD;           (* Stride of input vertices *)
-    lpOut: Pointer;            // Output vertices
+    lpOut: Pointer;            (* Output vertices *)
-    dwOutSize: DWORD;          // Stride of output vertices
+    dwOutSize: DWORD;          (* Stride of output vertices *)
-    lpHOut: PD3DHVertex;       // Output homogeneous vertices
+    lpHOut: ^TD3DHVertex;       (* Output homogeneous vertices *)
-    dwClip: DWORD;             // Clipping hint
+    dwClip: DWORD;             (* Clipping hint *)
     dwClipIntersection: DWORD;
-    dwClipUnion: DWORD;        // Union of all clip flags
+    dwClipUnion: DWORD;        (* Union of all clip flags *)
-    drExtent: TD3DRect;         // Extent of transformed vertices
+    drExtent: TD3DRect;         (* Extent of transformed vertices *)
   end;
-  D3DTRANSFORMDATA = TD3DTransformData;
-  LPD3DTRANSFORMDATA = PD3DTransformData;
+(*
-{ TD3DLightingElement structure }
+ * Structure defining position and direction properties for lighting.
+ *)
   PD3DLightingElement = ^TD3DLightingElement;
-  TD3DLightingElement = record
+  TD3DLightingElement = packed record
-    dvPosition: TD3DVector;           // Lightable point in model space
+    dvPosition: TD3DVector;           (* Lightable point in model space *)
-    dvNormal: TD3DVector;             // Normalised unit vector
+    dvNormal: TD3DVector;             (* Normalised unit vector *)
   end;
-  D3DLIGHTINGELEMENT = TD3DLightingElement;
-  LPD3DLIGHTINGELEMENT = PD3DLightingElement;
+(*
-{ TD3DMaterial structure }
+ * Structure defining material properties for lighting.
+ *)
   PD3DMaterial = ^TD3DMaterial;
-  TD3DMaterial = record
+  TD3DMaterial = packed record
     dwSize: DWORD;
     case Integer of
 : (
-      diffuse: TD3DColorValue;        // Diffuse color RGBA
+      diffuse: TD3DColorValue;        (* Diffuse color RGBA *)
-      ambient: TD3DColorValue;        // Ambient color RGB
+      ambient: TD3DColorValue;        (* Ambient color RGB *)
-      specular: TD3DColorValue;       // Specular 'shininess'
+      specular: TD3DColorValue;       (* Specular 'shininess' *)
-      emissive: TD3DColorValue;       // Emissive color RGB
+      emissive: TD3DColorValue;       (* Emissive color RGB *)
-      power: TD3DValue;               // Sharpness if specular highlight
+      power: TD3DValue;               (* Sharpness if specular highlight *)
-      hTexture: TD3DTextureHandle;    // Handle to texture map
+      hTexture: TD3DTextureHandle;    (* Handle to texture map *)
       dwRampSize: DWORD;
-      );
+     );
 : (
       dcvDiffuse: TD3DColorValue;
       dcvAmbient: TD3DColorValue;
       dcvSpecular: TD3DColorValue;
       dcvEmissive: TD3DColorValue;
       dvPower: TD3DValue;
-      );
+     );
   end;
-  D3DMATERIAL = TD3DMaterial;
-  LPD3DMATERIAL = PD3DMaterial;
-{ TD3DMaterial7 structure }
   PD3DMaterial7 = ^TD3DMaterial7;
-  TD3DMaterial7 = record
+  TD3DMaterial7 = packed record
     case Integer of
 : (
-      diffuse: TD3DColorValue;        // Diffuse color RGBA
+      diffuse: TD3DColorValue;        (* Diffuse color RGBA *)
-      ambient: TD3DColorValue;        // Ambient color RGB
+      ambient: TD3DColorValue;        (* Ambient color RGB *)
-      specular: TD3DColorValue;       // Specular 'shininess'
+      specular: TD3DColorValue;       (* Specular 'shininess' *)
-      emissive: TD3DColorValue;       // Emissive color RGB
+      emissive: TD3DColorValue;       (* Emissive color RGB *)
-      power: TD3DValue;               // Sharpness if specular highlight
+      power: TD3DValue;               (* Sharpness if specular highlight *)
-      );
+     );
 : (
       dcvDiffuse: TD3DColorValue;
       dcvAmbient: TD3DColorValue;
       dcvSpecular: TD3DColorValue;
       dcvEmissive: TD3DColorValue;
       dvPower: TD3DValue;
-      );
+     );
   end;
-  D3DMATERIAL7 = TD3DMaterial7;
+  PD3DLightType = ^TD3DLightType;
-  LPD3DMATERIAL7 = PD3DMaterial7;
-{ TD3DLightType }
   TD3DLightType = (
     D3DLIGHT_INVALID_0,
     D3DLIGHT_POINT,
     D3DLIGHT_SPOT,
     D3DLIGHT_DIRECTIONAL,
+// Note: The following light type (D3DLIGHT_PARALLELPOINT)
+// is no longer supported from D3D for DX7 onwards.
-    D3DLIGHT_PARALLELPOINT
+    D3DLIGHT_PARALLELPOINT,
-{$IFNDEF SupportDirectX5},D3DLIGHT_GLSPOT{$ENDIF}
+    D3DLIGHT_GLSPOT);
-  );
-  D3DLIGHTTYPE = TD3DLightType;
+(*
-{ TD3DLight structure }
+ * Structure defining a light source and its properties.
+ *)
   PD3DLight = ^TD3DLight;
-  TD3DLight = record
+  TD3DLight = packed record
     dwSize: DWORD;
-    dltType: TD3DLightType;     // Type of light source
+    dltType: TD3DLightType;     (* Type of light source *)
-    dcvColor: TD3DColorValue;   // Color of light
+    dcvColor: TD3DColorValue;   (* Color of light *)
-    dvPosition: TD3DVector;     // Position in world space
+    dvPosition: TD3DVector;     (* Position in world space *)
-    dvDirection: TD3DVector;    // Direction in world space
+    dvDirection: TD3DVector;    (* Direction in world space *)
-    dvRange: TD3DValue;         // Cutoff range
+    dvRange: TD3DValue;         (* Cutoff range *)
-    dvFalloff: TD3DValue;       // Falloff
+    dvFalloff: TD3DValue;       (* Falloff *)
-    dvAttenuation0: TD3DValue;  // Constant attenuation
+    dvAttenuation0: TD3DValue;  (* Constant attenuation *)
-    dvAttenuation1: TD3DValue;  // Linear attenuation
+    dvAttenuation1: TD3DValue;  (* Linear attenuation *)
-    dvAttenuation2: TD3DValue;  // Quadratic attenuation
+    dvAttenuation2: TD3DValue;  (* Quadratic attenuation *)
-    dvTheta: TD3DValue;         // Inner angle of spotlight cone
+    dvTheta: TD3DValue;         (* Inner angle of spotlight cone *)
-    dvPhi: TD3DValue;           // Outer angle of spotlight cone
+    dvPhi: TD3DValue;           (* Outer angle of spotlight cone *)
   end;
-  D3DLIGHT = TD3DLight;
-  LPD3DLIGHT = PD3DLight;
-{ TD3DLight7 structure }
   PD3DLight7 = ^TD3DLight7;
-  TD3DLight7 = record
+  TD3DLight7 = packed record
-    dltType: TD3DLightType;     // Type of light source
+    dltType: TD3DLightType;     (* Type of light source *)
-    dcvDiffuse: TD3DColorValue; // Diffuse color of light
+    dcvDiffuse: TD3DColorValue; (* Diffuse color of light *)
-    dcvSpecular: TD3DColorValue;// Specular color of light
+    dcvSpecular: TD3DColorValue;(* Specular color of light *)
-    dcvAmbient: TD3DColorValue; // Ambient color of light
+    dcvAmbient: TD3DColorValue; (* Ambient color of light *)
-    dvPosition: TD3DVector;     // Position in world space
+    dvPosition: TD3DVector;     (* Position in world space *)
-    dvDirection: TD3DVector;    // Direction in world space
+    dvDirection: TD3DVector;    (* Direction in world space *)
-    dvRange: TD3DValue;         // Cutoff range
+    dvRange: TD3DValue;         (* Cutoff range *)
-    dvFalloff: TD3DValue;       // Falloff
+    dvFalloff: TD3DValue;       (* Falloff *)
-    dvAttenuation0: TD3DValue;  // Constant attenuation
+    dvAttenuation0: TD3DValue;  (* Constant attenuation *)
-    dvAttenuation1: TD3DValue;  // Linear attenuation
+    dvAttenuation1: TD3DValue;  (* Linear attenuation *)
-    dvAttenuation2: TD3DValue;  // Quadratic attenuation
+    dvAttenuation2: TD3DValue;  (* Quadratic attenuation *)
-    dvTheta: TD3DValue;         // Inner angle of spotlight cone
+    dvTheta: TD3DValue;         (* Inner angle of spotlight cone *)
-    dvPhi: TD3DValue;           // Outer angle of spotlight cone
+    dvPhi: TD3DValue;           (* Outer angle of spotlight cone *)
   end;
-  D3DLIGHT7 = TD3DLight7;
-  LPD3DLIGHT7 = PD3DLight7;
+(*
-{ Structure defining a light source and its properties. }
+ * Structure defining a light source and its properties.
+ *)
+(* flags bits *)
 const
-{ flags bits }
   D3DLIGHT_ACTIVE                       = $00000001;
-  D3DLIGHT_NO_SPECULAR                  = $00000002;
+  D3DLIGHT_NO_SPECULAR  = $00000002;
-  D3DLIGHT_ALL                          = D3DLIGHT_ACTIVE or D3DLIGHT_NO_SPECULAR;
+  D3DLIGHT_ALL = D3DLIGHT_ACTIVE or D3DLIGHT_ACTIVE;
-{ maximum valid light range }
+(* maximum valid light range *)
-  D3DLIGHT_RANGE_MAX: TD3DValue = 3.4 * 10e+38;
+  D3DLIGHT_RANGE_MAX            = 1.8439088915e+18; //sqrt(FLT_MAX);
 type
-{ TD3DLight2 structure }
   PD3DLight2 = ^TD3DLight2;
-  TD3DLight2 = record
+  TD3DLight2 = packed record
     dwSize: DWORD;
-    dltType: TD3DLightType;     // Type of light source
+    dltType: TD3DLightType;     (* Type of light source *)
-    dcvColor: TD3DColorValue;   // Color of light
+    dcvColor: TD3DColorValue;   (* Color of light *)
-    dvPosition: TD3DVector;     // Position in world space
+    dvPosition: TD3DVector;     (* Position in world space *)
-    dvDirection: TD3DVector;    // Direction in world space
+    dvDirection: TD3DVector;    (* Direction in world space *)
-    dvRange: TD3DValue;         // Cutoff range
+    dvRange: TD3DValue;         (* Cutoff range *)
-    dvFalloff: TD3DValue;       // Falloff
+    dvFalloff: TD3DValue;       (* Falloff *)
-    dvAttenuation0: TD3DValue;  // Constant attenuation
+    dvAttenuation0: TD3DValue;  (* Constant attenuation *)
-    dvAttenuation1: TD3DValue;  // Linear attenuation
+    dvAttenuation1: TD3DValue;  (* Linear attenuation *)
-    dvAttenuation2: TD3DValue;  // Quadratic attenuation
+    dvAttenuation2: TD3DValue;  (* Quadratic attenuation *)
-    dvTheta: TD3DValue;         // Inner angle of spotlight cone
+    dvTheta: TD3DValue;         (* Inner angle of spotlight cone *)
-    dvPhi: TD3DValue;           // Outer angle of spotlight cone
+    dvPhi: TD3DValue;           (* Outer angle of spotlight cone *)
     dwFlags: DWORD;
   end;
-  D3DLIGHT2 = TD3DLight2;
-  LPD3DLIGHT2 = PD3DLight2;
-{ TD3DLightData structure }
   PD3DLightData = ^TD3DLightData;
-  TD3DLightData = record
+  TD3DLightData = packed record
     dwSize: DWORD;
-    lpIn: PD3DLightingElement;   // Input positions and normals
+    lpIn: ^TD3DLightingElement;   (* Input positions and normals *)
-    dwInSize: DWORD;             // Stride of input elements
+    dwInSize: DWORD;             (* Stride of input elements *)
-    lpOut: PD3DTLVertex;         // Output colors
+    lpOut: ^TD3DTLVertex;         (* Output colors *)
-    dwOutSize: DWORD;            // Stride of output colors
+    dwOutSize: DWORD;            (* Stride of output colors *)
   end;
-  D3DLIGHTDATA = TD3DLightData;
-  LPD3DLIGHTDATA = PD3DLightData;
 (*
  * Before DX5, these values were in an enum called
- * D3DCOLORMODEL. This was not correct, since they are
+ * TD3DColorModel. This was not correct, since they are
  * bit flags. A driver can surface either or both flags
  * in the dcmColorModel member of D3DDEVICEDESC.
  *)
 type
   TD3DColorModel = DWORD;
-  D3DCOLORMODEL = TD3DColorModel;
 const
-  D3DCOLOR_INVALID_0 = 0;
   D3DCOLOR_MONO = 1;
-  D3DCOLOR_RGB = 2;
+  D3DCOLOR_RGB  = 2;
+(*
-{ Options for clearing }
+ * Options for clearing
+ *)
 const
-  D3DCLEAR_TARGET  = $00000001; // Clear target surface
+  D3DCLEAR_TARGET            = $00000001; (* Clear target surface *)
-  D3DCLEAR_ZBUFFER = $00000002; // Clear target z buffer
+  D3DCLEAR_ZBUFFER           = $00000002; (* Clear target z buffer *)
-  D3DCLEAR_STENCIL = $00000004; // Clear stencil planes
+  D3DCLEAR_STENCIL           = $00000004; (* Clear stencil planes *)
+(*
+ * Execute buffers are allocated via Direct3D.  These buffers may then
+ * be filled by the application with instructions to execute along with
+ * vertex data.
+ *)
+(*
-{ Supported op codes for execute instructions. }
+ * Supported op codes for execute instructions.
+ *)
 type
+  PD3DOpcode = ^TD3DOpcode;
   TD3DOpcode = (
     D3DOP_INVALID_0,
     D3DOP_POINT,
     D3DOP_LINE,
     D3DOP_TRIANGLE,
     D3DOP_MATRIXLOAD,
     D3DOP_MATRIXMULTIPLY,
     D3DOP_STATETRANSFORM,
     D3DOP_STATELIGHT,
     D3DOP_STATERENDER,
     D3DOP_PROCESSVERTICES,
     D3DOP_TEXTURELOAD,
     D3DOP_EXIT,
     D3DOP_BRANCHFORWARD,
     D3DOP_SPAN,
-    D3DOP_SETSTATUS
+    D3DOP_SETSTATUS);
-  );
-  D3DOPCODE = TD3DOpcode;
-{ TD3DInstruction structure }
+  PD3DInstruction = ^TD3DInstruction;
-  TD3DInstruction = record
+  TD3DInstruction = packed record
-    bOpcode: Byte;   // Instruction opcode
+    bOpcode: BYTE;   (* Instruction opcode *)
-    bSize: Byte;     // Size of each instruction data unit
+    bSize: BYTE;     (* Size of each instruction data unit *)
-    wCount: WORD;    // Count of instruction data units to follow
+    wCount: WORD;    (* Count of instruction data units to follow *)
   end;
-  D3DINSTRUCTION = TD3DInstruction;
+(*
-{ TD3DTextureLoad structure }
+ * Structure for texture loads
+ *)
+  PD3DTextureLoad = ^TD3DTextureLoad;
-  TD3DTextureLoad = record
+  TD3DTextureLoad = packed record
     hDestTexture: TD3DTextureHandle;
     hSrcTexture: TD3DTextureHandle;
   end;
-  D3DTEXTURELOAD = TD3DTextureLoad;
+(*
-{ TD3DPickRecord structure }
+ * Structure for picking
+ *)
+  PD3DPickRecord = ^TD3DPickRecord;
-  TD3DPickRecord = record
+  TD3DPickRecord = packed record
     bOpcode: BYTE;
     bPad: BYTE;
     dwOffset: DWORD;
     dvZ: TD3DValue;
   end;
-  D3DPICKRECORD = TD3DPickRecord;
+(*
+ * The following defines the rendering states which can be set in the
-{ TD3DShadeMode }
+ * execute buffer.
+ *)
+  PD3DShadeMode = ^TD3DShadeMode;
   TD3DShadeMode = (
     D3DSHADE_INVALID_0,
     D3DSHADE_FLAT,
     D3DSHADE_GOURAUD,
-    D3DSHADE_PHONG
+    D3DSHADE_PHONG);
-  );
-  D3DSHADEMODE = TD3DShadeMode;
-{ TD3DFillMode }
+  PD3DFillMode = ^TD3DFillMode;
   TD3DFillMode = (
     D3DFILL_INVALID_0,
     D3DFILL_POINT,
     D3DFILL_WIREFRAME,
-    D3DFILL_SOLID
+    D3DFILL_SOLID);
-  );
-  D3DFILLMODE = TD3DFillMode;
-{ TD3DLinePattern structure }
+  PD3DLinePattern = ^TD3DLinePattern;
-  TD3DLinePattern = record
+  TD3DLinePattern = packed record
     wRepeatFactor: WORD;
     wLinePattern: WORD;
   end;
-  D3DLINEPATTERN = TD3DLinePattern;
+  PD3DTextureFilter = ^TD3DTextureFilter;
-{ TD3DTextureFilter }
   TD3DTextureFilter = (
     D3DFILTER_INVALID_0,
     D3DFILTER_NEAREST,
     D3DFILTER_LINEAR,
     D3DFILTER_MIPNEAREST,
     D3DFILTER_MIPLINEAR,
     D3DFILTER_LINEARMIPNEAREST,
-    D3DFILTER_LINEARMIPLINEAR
+    D3DFILTER_LINEARMIPLINEAR);
-  );
-  D3DTEXTUREFILTER = TD3DTextureFilter;
-{ TD3DBlend }
+  PD3DBlend = ^TD3DBlend;
   TD3DBlend = (
     D3DBLEND_INVALID_0,
     D3DBLEND_ZERO,
     D3DBLEND_ONE,
     D3DBLEND_SRCCOLOR,
     D3DBLEND_INVSRCCOLOR,
     D3DBLEND_SRCALPHA,
     D3DBLEND_INVSRCALPHA,
     D3DBLEND_DESTALPHA,
     D3DBLEND_INVDESTALPHA,
     D3DBLEND_DESTCOLOR,
     D3DBLEND_INVDESTCOLOR,
     D3DBLEND_SRCALPHASAT,
     D3DBLEND_BOTHSRCALPHA,
-    D3DBLEND_BOTHINVSRCALPHA
+    D3DBLEND_BOTHINVSRCALPHA);
-  );
-  D3DBLEND = TD3DBlend;
-{ TD3DTextureBlend }
+  PD3DTextureBlend = ^TD3DTextureBlend;
   TD3DTextureBlend = (
     D3DTBLEND_INVALID_0,
     D3DTBLEND_DECAL,
     D3DTBLEND_MODULATE,
     D3DTBLEND_DECALALPHA,
     D3DTBLEND_MODULATEALPHA,
     D3DTBLEND_DECALMASK,
     D3DTBLEND_MODULATEMASK,
     D3DTBLEND_COPY,
-    D3DTBLEND_ADD
+    D3DTBLEND_ADD);
-  );
-  D3DTEXTUREBLEND = TD3DTextureBlend;
-{ TD3DTextureAddress }
+  PD3DTextureAddress = ^TD3DTextureAddress;
   TD3DTextureAddress = (
     D3DTADDRESS_INVALID_0,
     D3DTADDRESS_WRAP,
     D3DTADDRESS_MIRROR,
     D3DTADDRESS_CLAMP,
-    D3DTADDRESS_BORDER
+    D3DTADDRESS_BORDER);
-  );
-  D3DTEXTUREADDRESS = TD3DTextureAddress;
-{ TD3DCull }
+  PD3DCull = ^TD3DCull;
   TD3DCull = (
     D3DCULL_INVALID_0,
     D3DCULL_NONE,
     D3DCULL_CW,
-    D3DCULL_CCW
+    D3DCULL_CCW);
-  );
-  D3DCULL = TD3DCull;
-{ TD3DCmpFunc }
+  PD3DCmpFunc = ^TD3DCmpFunc;
   TD3DCmpFunc = (
     D3DCMP_INVALID_0,
     D3DCMP_NEVER,
     D3DCMP_LESS,
     D3DCMP_EQUAL,
     D3DCMP_LESSEQUAL,
     D3DCMP_GREATER,
     D3DCMP_NOTEQUAL,
     D3DCMP_GREATEREQUAL,
-    D3DCMP_ALWAYS
+    D3DCMP_ALWAYS);
-  );
-  D3DCMPFUNC = TD3DCmpFunc;
-{ TD3DStencilOp }
+  PD3DStencilOp = ^TD3DStencilOp;
   TD3DStencilOp = (
     D3DSTENCILOP_INVALID_0,
     D3DSTENCILOP_KEEP,
     D3DSTENCILOP_ZERO,
     D3DSTENCILOP_REPLACE,
     D3DSTENCILOP_INCRSAT,
     D3DSTENCILOP_DECRSAT,
     D3DSTENCILOP_INVERT,
     D3DSTENCILOP_INCR,
-    D3DSTENCILOP_DECR
+    D3DSTENCILOP_DECR);
-  );
-  D3DSTENCILOP = TD3DStencilOp;
-{ TD3DFogMode }
+  PD3DFogMode = ^TD3DFogMode;
   TD3DFogMode = (
     D3DFOG_NONE,
     D3DFOG_EXP,
     D3DFOG_EXP2,
-    D3DFOG_LINEAR
+    D3DFOG_LINEAR);
-  );
-  D3DFOGMODE = TD3DFogMode;
-{ TD3DZBufferType }
+  PD3DZBufferType = ^TD3DZBufferType;
   TD3DZBufferType = (
     D3DZB_FALSE,
-    D3DZB_TRUE,     // Z buffering
+    D3DZB_TRUE,   // Z buffering
-    D3DZB_USEW      // W buffering
+    D3DZB_USEW);  // W buffering
-  );
-  D3DZBUFFERTYPE = TD3DZBufferType;
-{ TD3DAntialiasMode }
+  PD3DAntialiasMode = ^TD3DAntialiasMode;
   TD3DAntialiasMode = (
     D3DANTIALIAS_NONE,
     D3DANTIALIAS_SORTDEPENDENT,
-    D3DANTIALIAS_SORTINDEPENDENT
+    D3DANTIALIAS_SORTINDEPENDENT);
-  );
-  D3DANTIALIASMODE = TD3DAntialiasMode;
-{ TD3DVertexType }
+// Vertex types supported by Direct3D
+  PD3DVertexType = ^TD3DVertexType;
   TD3DVertexType = (
     D3DVT_INVALID_0,
     D3DVT_VERTEX,
     D3DVT_LVERTEX,
-    D3DVT_TLVERTEX
+    D3DVT_TLVERTEX);
-  );
-  D3DVERTEXTYPE = TD3DVertexType;
-{ TD3DPrimitiveType }
+// Primitives supported by draw-primitive API
+  PD3DPrimitiveType = ^TD3DPrimitiveType;
   TD3DPrimitiveType = (
     D3DPT_INVALID_0,
     D3DPT_POINTLIST,
     D3DPT_LINELIST,
     D3DPT_LINESTRIP,
     D3DPT_TRIANGLELIST,
     D3DPT_TRIANGLESTRIP,
-    D3DPT_TRIANGLEFAN
+    D3DPT_TRIANGLEFAN);
-  );
-  D3DPRIMITIVETYPE = TD3DPrimitiveType;
+(*
-{ Amount to add to a state to generate the override for that state. }
+ * Amount to add to a state to generate the override for that state.
+ *)
 const
-  D3DSTATE_OVERRIDE_BIAS = 256;
+  D3DSTATE_OVERRIDE_BIAS          = 256;
+(*
-function D3DSTATE_OVERRIDE(typ: DWORD): DWORD;
+ * A state which sets the override flag for the specified state type.
+ *)
-{ A state which sets the override flag for the specified state type. }
+function D3DSTATE_OVERRIDE(StateType: DWORD) : DWORD;
 type
-{ TD3DTransformStateType }
+  PD3DTransformStateType = ^TD3DTransformStateType;
-  TD3DTransformStateType = (
+  TD3DTransformStateType = DWORD;
-    D3DTRANSFORMSTATE_INVALID_0,
-    D3DTRANSFORMSTATE_WORLD,
-    D3DTRANSFORMSTATE_VIEW,
-    D3DTRANSFORMSTATE_PROJECTION,
+const
-    D3DTRANSFORMSTATE_WORLD1,
+  D3DTRANSFORMSTATE_WORLD         = 1;
-    D3DTRANSFORMSTATE_WORLD2,
+  D3DTRANSFORMSTATE_VIEW          = 2;
-    D3DTRANSFORMSTATE_WORLD3,
-    D3DTRANSFORMSTATE_INVALID_7,
-    D3DTRANSFORMSTATE_INVALID_8,
-    D3DTRANSFORMSTATE_INVALID_9,
+  D3DTRANSFORMSTATE_PROJECTION    = 3;
-    D3DTRANSFORMSTATE_INVALID_10,
-    D3DTRANSFORMSTATE_INVALID_11,
-    D3DTRANSFORMSTATE_INVALID_12,
+  D3DTRANSFORMSTATE_WORLD1        = 4;  // 2nd matrix to blend
-    D3DTRANSFORMSTATE_INVALID_13,
+  D3DTRANSFORMSTATE_WORLD2        = 5;  // 3rd matrix to blend
-    D3DTRANSFORMSTATE_INVALID_14,
+  D3DTRANSFORMSTATE_WORLD3        = 6;  // 4th matrix to blend
-    D3DTRANSFORMSTATE_INVALID_15,
-    D3DTRANSFORMSTATE_TEXTURE0,
+  D3DTRANSFORMSTATE_TEXTURE0      = 16;
-    D3DTRANSFORMSTATE_TEXTURE1,
+  D3DTRANSFORMSTATE_TEXTURE1      = 17;
-    D3DTRANSFORMSTATE_TEXTURE2,
+  D3DTRANSFORMSTATE_TEXTURE2      = 18;
-    D3DTRANSFORMSTATE_TEXTURE3,
+  D3DTRANSFORMSTATE_TEXTURE3      = 19;
-    D3DTRANSFORMSTATE_TEXTURE4,
+  D3DTRANSFORMSTATE_TEXTURE4      = 20;
-    D3DTRANSFORMSTATE_TEXTURE5,
+  D3DTRANSFORMSTATE_TEXTURE5      = 21;
-    D3DTRANSFORMSTATE_TEXTURE6,
+  D3DTRANSFORMSTATE_TEXTURE6      = 22;
-    D3DTRANSFORMSTATE_TEXTURE7
+  D3DTRANSFORMSTATE_TEXTURE7      = 23;
-  );
-  D3DTRANSFORMSTATETYPE = TD3DTransformStateType;
-{ TD3DLightStateType }
+type
+  PD3DLightStateType = ^TD3DLightStateType;
   TD3DLightStateType = (
     D3DLIGHTSTATE_INVALID_0,
     D3DLIGHTSTATE_MATERIAL,
     D3DLIGHTSTATE_AMBIENT,
     D3DLIGHTSTATE_COLORMODEL,
     D3DLIGHTSTATE_FOGMODE,
     D3DLIGHTSTATE_FOGSTART,
     D3DLIGHTSTATE_FOGEND,
     D3DLIGHTSTATE_FOGDENSITY,
-    D3DLIGHTSTATE_COLORVERTEX
+    D3DLIGHTSTATE_COLORVERTEX);
-  );
-  D3DLIGHTSTATETYPE = TD3DLightStateType;
-{ TD3DRenderStateType }
-  TD3DRenderStateType = (
-    D3DRENDERSTATE_INVALID_0,
-    D3DRENDERSTATE_TEXTUREHANDLE,       // Texture handle for legacy interfaces (Texture,Texture2)
-    D3DRENDERSTATE_ANTIALIAS,           // TD3DAntialiasMode
-    D3DRENDERSTATE_TEXTUREADDRESS,      // TD3DTextureAddress
-    D3DRENDERSTATE_TEXTUREPERSPECTIVE,  // TRUE for perspective correction
-    D3DRENDERSTATE_WRAPU,               // TRUE for wrapping in u
-    D3DRENDERSTATE_WRAPV,               // TRUE for wrapping in v
-    D3DRENDERSTATE_ZENABLE,             // TD3DZBufferType (or TRUE/FALSE for legacy)
-    D3DRENDERSTATE_FILLMODE,            // TD3DFillMode
-    D3DRENDERSTATE_SHADEMODE,           // TD3DShadeMode
-    D3DRENDERSTATE_LINEPATTERN,         // TD3DLinePattern
-    D3DRENDERSTATE_MONOENABLE,          // TRUE to enable mono rasterization
-    D3DRENDERSTATE_ROP2,                // ROP2
-    D3DRENDERSTATE_PLANEMASK,           // DWORD physical plane mask
-    D3DRENDERSTATE_ZWRITEENABLE,        // TRUE to enable z writes
-    D3DRENDERSTATE_ALPHATESTENABLE,     // TRUE to enable alpha tests
-    D3DRENDERSTATE_LASTPIXEL,           // TRUE for last-pixel on lines
-    D3DRENDERSTATE_TEXTUREMAG,          // TD3DTextureFilter
-    D3DRENDERSTATE_TEXTUREMIN,          // TD3DTextureFilter
-    D3DRENDERSTATE_SRCBLEND,            // TD3DBlend
-    D3DRENDERSTATE_DESTBLEND,           // TD3DBlend
-    D3DRENDERSTATE_TEXTUREMAPBLEND,     // TD3DTextureBlend
-    D3DRENDERSTATE_CULLMODE,            // TD3DCull
-    D3DRENDERSTATE_ZFUNC,               // TD3DCmpFunc
-    D3DRENDERSTATE_ALPHAREF,            // TD3DFixed
-    D3DRENDERSTATE_ALPHAFUNC,           // TD3DCmpFunc
-    D3DRENDERSTATE_DITHERENABLE,        // TRUE to enable dithering
-    D3DRENDERSTATE_ALPHABLENDENABLE,    // TRUE to enable alpha blending
-    D3DRENDERSTATE_FOGENABLE,           // TRUE to enable fog
-    D3DRENDERSTATE_SPECULARENABLE,      // TRUE to enable specular
-    D3DRENDERSTATE_ZVISIBLE,            // TRUE to enable z checking
-    D3DRENDERSTATE_SUBPIXEL,            // TRUE to enable subpixel correction
-    D3DRENDERSTATE_SUBPIXELX,           // TRUE to enable correction in X only
-    D3DRENDERSTATE_STIPPLEDALPHA,       // TRUE to enable stippled alpha
-    D3DRENDERSTATE_FOGCOLOR,            // TD3DColor
-    D3DRENDERSTATE_FOGTABLEMODE,        // TD3DFogMode
-    D3DRENDERSTATE_FOGSTART,            // Fog start (for both vertex and pixel fog)
-    D3DRENDERSTATE_FOGEND,              // Fog end
-    D3DRENDERSTATE_FOGDENSITY,          // Fog density
-    D3DRENDERSTATE_STIPPLEENABLE,       // TRUE to enable stippling
-    D3DRENDERSTATE_EDGEANTIALIAS,       // TRUE to enable edge antialiasing
-    D3DRENDERSTATE_COLORKEYENABLE,      // TRUE to enable source colorkeyed textures
-    D3DRENDERSTATE_BORDERCOLOR,         // Border color for texturing w/border
-    D3DRENDERSTATE_TEXTUREADDRESSU,     // Texture addressing mode for U coordinate
-    D3DRENDERSTATE_TEXTUREADDRESSV,     // Texture addressing mode for V coordinate
-    D3DRENDERSTATE_MIPMAPLODBIAS,       // TD3DValue Mipmap LOD bias
-    D3DRENDERSTATE_ZBIAS,               // LONG Z bias
-    D3DRENDERSTATE_RANGEFOGENABLE,      // Enables range-based fog
-    D3DRENDERSTATE_ANISOTROPY,          // Max. anisotropy. 1 = no anisotropy
-    D3DRENDERSTATE_FLUSHBATCH,          // Explicit flush for DP batching (DX5 Only)
-    D3DRENDERSTATE_TRANSLUCENTSORTINDEPENDENT,// BOOL enable sort-independent transparency
-    D3DRENDERSTATE_STENCILENABLE,       // BOOL enable/disable stenciling
-    D3DRENDERSTATE_STENCILFAIL,         // TD3DStencilOp to do if stencil test fails
-    D3DRENDERSTATE_STENCILZFAIL,        // TD3DStencilOp to do if stencil test passes and Z test fails
-    D3DRENDERSTATE_STENCILPASS,         // TD3DStencilOp to do if both stencil and Z tests pass
-    D3DRENDERSTATE_STENCILFUNC ,        // TD3DCmpFunc fn.  Stencil Test passes if ((ref & mask) stencilfn (stencil & mask)) is true
-    D3DRENDERSTATE_STENCILREF,          // Reference value used in stencil test
-    D3DRENDERSTATE_STENCILMASK,         // Mask value used in stencil test
-    D3DRENDERSTATE_STENCILWRITEMASK,    // Write mask applied to values written to stencil buffer
-    D3DRENDERSTATE_TEXTUREFACTOR,       // TD3DColor used for multi-texture blend
-    D3DRENDERSTATE_INVALID_61,
-    D3DRENDERSTATE_INVALID_62,
-    D3DRENDERSTATE_INVALID_63,
-    D3DRENDERSTATE_STIPPLEPATTERN00,    // Stipple pattern 01...
-    D3DRENDERSTATE_STIPPLEPATTERN01,
-    D3DRENDERSTATE_STIPPLEPATTERN02,
-    D3DRENDERSTATE_STIPPLEPATTERN03,
-    D3DRENDERSTATE_STIPPLEPATTERN04,
-    D3DRENDERSTATE_STIPPLEPATTERN05,
-    D3DRENDERSTATE_STIPPLEPATTERN06,
-    D3DRENDERSTATE_STIPPLEPATTERN07,
-    D3DRENDERSTATE_STIPPLEPATTERN08,
-    D3DRENDERSTATE_STIPPLEPATTERN09,
-    D3DRENDERSTATE_STIPPLEPATTERN10,
-    D3DRENDERSTATE_STIPPLEPATTERN11,
-    D3DRENDERSTATE_STIPPLEPATTERN12,
-    D3DRENDERSTATE_STIPPLEPATTERN13,
-    D3DRENDERSTATE_STIPPLEPATTERN14,
-    D3DRENDERSTATE_STIPPLEPATTERN15,
-    D3DRENDERSTATE_STIPPLEPATTERN16,
-    D3DRENDERSTATE_STIPPLEPATTERN17,
-    D3DRENDERSTATE_STIPPLEPATTERN18,
-    D3DRENDERSTATE_STIPPLEPATTERN19,
-    D3DRENDERSTATE_STIPPLEPATTERN20,
-    D3DRENDERSTATE_STIPPLEPATTERN21,
-    D3DRENDERSTATE_STIPPLEPATTERN22,
-    D3DRENDERSTATE_STIPPLEPATTERN23,
-    D3DRENDERSTATE_STIPPLEPATTERN24,
-    D3DRENDERSTATE_STIPPLEPATTERN25,
-    D3DRENDERSTATE_STIPPLEPATTERN26,
-    D3DRENDERSTATE_STIPPLEPATTERN27,
-    D3DRENDERSTATE_STIPPLEPATTERN28,
-    D3DRENDERSTATE_STIPPLEPATTERN29,
-    D3DRENDERSTATE_STIPPLEPATTERN30,
-    D3DRENDERSTATE_STIPPLEPATTERN31,
-    D3DRENDERSTATE_INVALID_95,
-    D3DRENDERSTATE_INVALID_96,
-    D3DRENDERSTATE_INVALID_97,
-    D3DRENDERSTATE_INVALID_98,
-    D3DRENDERSTATE_INVALID_99,
-    D3DRENDERSTATE_INVALID_100,
-    D3DRENDERSTATE_INVALID_101,
-    D3DRENDERSTATE_INVALID_102,
-    D3DRENDERSTATE_INVALID_103,
-    D3DRENDERSTATE_INVALID_104,
-    D3DRENDERSTATE_INVALID_105,
-    D3DRENDERSTATE_INVALID_106,
-    D3DRENDERSTATE_INVALID_107,
-    D3DRENDERSTATE_INVALID_108,
-    D3DRENDERSTATE_INVALID_109,
-    D3DRENDERSTATE_INVALID_110,
-    D3DRENDERSTATE_INVALID_111,
-    D3DRENDERSTATE_INVALID_112,
-    D3DRENDERSTATE_INVALID_113,
-    D3DRENDERSTATE_INVALID_114,
-    D3DRENDERSTATE_INVALID_115,
-    D3DRENDERSTATE_INVALID_116,
-    D3DRENDERSTATE_INVALID_117,
-    D3DRENDERSTATE_INVALID_118,
-    D3DRENDERSTATE_INVALID_119,
-    D3DRENDERSTATE_INVALID_120,
-    D3DRENDERSTATE_INVALID_121,
-    D3DRENDERSTATE_INVALID_122,
-    D3DRENDERSTATE_INVALID_123,
-    D3DRENDERSTATE_INVALID_124,
-    D3DRENDERSTATE_INVALID_125,
-    D3DRENDERSTATE_INVALID_126,
-    D3DRENDERSTATE_INVALID_127,
-    //
-    // 128 values [128, 255] are reserved for texture coordinate wrap flags.
-    // These are constructed with the D3DWRAP_U and D3DWRAP_V macros. Using
-    // a flags word preserves forward compatibility with texture coordinates
-    // that are >2D.
-    //
-    D3DRENDERSTATE_WRAP0,               // wrap for 1st texture coord. set
-    D3DRENDERSTATE_WRAP1,               // wrap for 2nd texture coord. set
-    D3DRENDERSTATE_WRAP2,               // wrap for 3rd texture coord. set
-    D3DRENDERSTATE_WRAP3,               // wrap for 4th texture coord. set
-    D3DRENDERSTATE_WRAP4,               // wrap for 5th texture coord. set
-    D3DRENDERSTATE_WRAP5,               // wrap for 6th texture coord. set
-    D3DRENDERSTATE_WRAP6,               // wrap for 7th texture coord. set
-    D3DRENDERSTATE_WRAP7,               // wrap for 8th texture coord. set
-    D3DRENDERSTATE_CLIPPING,
-    D3DRENDERSTATE_LIGHTING,
-    D3DRENDERSTATE_EXTENTS,
-    D3DRENDERSTATE_AMBIENT,
-    D3DRENDERSTATE_FOGVERTEXMODE,
-    D3DRENDERSTATE_COLORVERTEX,
-    D3DRENDERSTATE_LOCALVIEWER,
-    D3DRENDERSTATE_NORMALIZENORMALS,
-    D3DRENDERSTATE_COLORKEYBLENDENABLE,
-    D3DRENDERSTATE_DIFFUSEMATERIALSOURCE,
-    D3DRENDERSTATE_SPECULARMATERIALSOURCE,
-    D3DRENDERSTATE_AMBIENTMATERIALSOURCE,
-    D3DRENDERSTATE_EMISSIVEMATERIALSOURCE,
-    D3DRENDERSTATE_INVALID_149,
-    D3DRENDERSTATE_INVALID_150,
-    D3DRENDERSTATE_VERTEXBLEND,
-    D3DRENDERSTATE_CLIPPLANEENABLE
-  );
-  D3DRENDERSTATETYPE = TD3DRenderStateType;
+  PD3DRenderStateType = ^TD3DRenderStateType;
+  TD3DRenderStateType = DWORD;
+const
+    D3DRENDERSTATE_ANTIALIAS          = 2;    (* D3DANTIALIASMODE *)
+    D3DRENDERSTATE_TEXTUREPERSPECTIVE = 4;    (* TRUE for perspective correction *)
+    D3DRENDERSTATE_ZENABLE            = 7;    (* D3DZBUFFERTYPE (or TRUE/FALSE for legacy) *)
+    D3DRENDERSTATE_FILLMODE           = 8;    (* D3DFILL_MODE        *)
+    D3DRENDERSTATE_SHADEMODE          = 9;    (* D3DSHADEMODE *)
+    D3DRENDERSTATE_LINEPATTERN        = 10;   (* D3DLINEPATTERN *)
+    D3DRENDERSTATE_ZWRITEENABLE       = 14;   (* TRUE to enable z writes *)
+    D3DRENDERSTATE_ALPHATESTENABLE    = 15;   (* TRUE to enable alpha tests *)
+    D3DRENDERSTATE_LASTPIXEL          = 16;   (* TRUE for last-pixel on lines *)
+    D3DRENDERSTATE_SRCBLEND           = 19;   (* D3DBLEND *)
+    D3DRENDERSTATE_DESTBLEND          = 20;   (* D3DBLEND *)
+    D3DRENDERSTATE_CULLMODE           = 22;   (* D3DCULL *)
+    D3DRENDERSTATE_ZFUNC              = 23;   (* D3DCMPFUNC *)
+    D3DRENDERSTATE_ALPHAREF           = 24;   (* D3DFIXED *)
+    D3DRENDERSTATE_ALPHAFUNC          = 25;   (* D3DCMPFUNC *)
+    D3DRENDERSTATE_DITHERENABLE       = 26;   (* TRUE to enable dithering *)
+    D3DRENDERSTATE_ALPHABLENDENABLE   = 27;   (* TRUE to enable alpha blending *)
+    D3DRENDERSTATE_FOGENABLE          = 28;   (* TRUE to enable fog blending *)
+    D3DRENDERSTATE_SPECULARENABLE     = 29;   (* TRUE to enable specular *)
+    D3DRENDERSTATE_ZVISIBLE           = 30;   (* TRUE to enable z checking *)
+    D3DRENDERSTATE_STIPPLEDALPHA      = 33;   (* TRUE to enable stippled alpha (RGB device only) *)
+    D3DRENDERSTATE_FOGCOLOR           = 34;   (* D3DCOLOR *)
+    D3DRENDERSTATE_FOGTABLEMODE       = 35;   (* D3DFOGMODE *)
+    D3DRENDERSTATE_FOGSTART           = 36;   (* Fog start (for both vertex and pixel fog) *)
+    D3DRENDERSTATE_FOGEND             = 37;   (* Fog end      *)
+    D3DRENDERSTATE_FOGDENSITY         = 38;   (* Fog density  *)
+    D3DRENDERSTATE_EDGEANTIALIAS      = 40;   (* TRUE to enable edge antialiasing *)
+    D3DRENDERSTATE_COLORKEYENABLE     = 41;   (* TRUE to enable source colorkeyed textures *)
+    D3DRENDERSTATE_ZBIAS              = 47;   (* LONG Z bias *)
+    D3DRENDERSTATE_RANGEFOGENABLE     = 48;   (* Enables range-based fog *)
+    D3DRENDERSTATE_STENCILENABLE      = 52;   (* BOOL enable/disable stenciling *)
+    D3DRENDERSTATE_STENCILFAIL        = 53;   (* D3DSTENCILOP to do if stencil test fails *)
+    D3DRENDERSTATE_STENCILZFAIL       = 54;   (* D3DSTENCILOP to do if stencil test passes and Z test fails *)
+    D3DRENDERSTATE_STENCILPASS        = 55;   (* D3DSTENCILOP to do if both stencil and Z tests pass *)
+    D3DRENDERSTATE_STENCILFUNC        = 56;   (* D3DCMPFUNC fn.  Stencil Test passes if ((ref & mask) stencilfn (stencil & mask)) is true *)
+    D3DRENDERSTATE_STENCILREF         = 57;   (* Reference value used in stencil test *)
+    D3DRENDERSTATE_STENCILMASK        = 58;   (* Mask value used in stencil test *)
+    D3DRENDERSTATE_STENCILWRITEMASK   = 59;   (* Write mask applied to values written to stencil buffer *)
+    D3DRENDERSTATE_TEXTUREFACTOR      = 60;   (* D3DCOLOR used for multi-texture blend *)
+    (*
+     * 128 values [128; 255] are reserved for texture coordinate wrap flags.
+     * These are constructed with the D3DWRAP_U and D3DWRAP_V macros. Using
+     * a flags word preserves forward compatibility with texture coordinates
+     * that are >2D.
+     *)
+    D3DRENDERSTATE_WRAP0              = 128;  (* wrap for 1st texture coord. set *)
+    D3DRENDERSTATE_WRAP1              = 129;  (* wrap for 2nd texture coord. set *)
+    D3DRENDERSTATE_WRAP2              = 130;  (* wrap for 3rd texture coord. set *)
+    D3DRENDERSTATE_WRAP3              = 131;  (* wrap for 4th texture coord. set *)
+    D3DRENDERSTATE_WRAP4              = 132;  (* wrap for 5th texture coord. set *)
+    D3DRENDERSTATE_WRAP5              = 133;  (* wrap for 6th texture coord. set *)
+    D3DRENDERSTATE_WRAP6              = 134;  (* wrap for 7th texture coord. set *)
+    D3DRENDERSTATE_WRAP7              = 135;  (* wrap for 8th texture coord. set *)
+    D3DRENDERSTATE_CLIPPING            = 136;
+    D3DRENDERSTATE_LIGHTING            = 137;
+    D3DRENDERSTATE_EXTENTS             = 138;
+    D3DRENDERSTATE_AMBIENT             = 139;
+    D3DRENDERSTATE_FOGVERTEXMODE       = 140;
+    D3DRENDERSTATE_COLORVERTEX         = 141;
+    D3DRENDERSTATE_LOCALVIEWER         = 142;
+    D3DRENDERSTATE_NORMALIZENORMALS    = 143;
+    D3DRENDERSTATE_COLORKEYBLENDENABLE = 144;
+    D3DRENDERSTATE_DIFFUSEMATERIALSOURCE    = 145;
+    D3DRENDERSTATE_SPECULARMATERIALSOURCE   = 146;
+    D3DRENDERSTATE_AMBIENTMATERIALSOURCE    = 147;
+    D3DRENDERSTATE_EMISSIVEMATERIALSOURCE   = 148;
+    D3DRENDERSTATE_VERTEXBLEND              = 151;
+    D3DRENDERSTATE_CLIPPLANEENABLE          = 152;
+//
+// retired renderstates - not supported for DX7 interfaces
+//
+    D3DRENDERSTATE_TEXTUREHANDLE      = 1;    (* Texture handle for legacy interfaces (Texture;Texture2) *)
+    D3DRENDERSTATE_TEXTUREADDRESS     = 3;    (* D3DTEXTUREADDRESS  *)
+    D3DRENDERSTATE_WRAPU              = 5;    (* TRUE for wrapping in u *)
+    D3DRENDERSTATE_WRAPV              = 6;    (* TRUE for wrapping in v *)
+    D3DRENDERSTATE_MONOENABLE         = 11;   (* TRUE to enable mono rasterization *)
+    D3DRENDERSTATE_ROP2               = 12;   (* ROP2 *)
+    D3DRENDERSTATE_PLANEMASK          = 13;   (* DWORD physical plane mask *)
+    D3DRENDERSTATE_TEXTUREMAG         = 17;   (* D3DTEXTUREFILTER *)
+    D3DRENDERSTATE_TEXTUREMIN         = 18;   (* D3DTEXTUREFILTER *)
+    D3DRENDERSTATE_TEXTUREMAPBLEND    = 21;   (* D3DTEXTUREBLEND *)
+    D3DRENDERSTATE_SUBPIXEL           = 31;   (* TRUE to enable subpixel correction *)
+    D3DRENDERSTATE_SUBPIXELX          = 32;   (* TRUE to enable correction in X only *)
+    D3DRENDERSTATE_STIPPLEENABLE      = 39;   (* TRUE to enable stippling *)
+    D3DRENDERSTATE_BORDERCOLOR        = 43;   (* Border color for texturing w/border *)
+    D3DRENDERSTATE_TEXTUREADDRESSU    = 44;   (* Texture addressing mode for U coordinate *)
+    D3DRENDERSTATE_TEXTUREADDRESSV    = 45;   (* Texture addressing mode for V coordinate *)
+    D3DRENDERSTATE_MIPMAPLODBIAS      = 46;   (* D3DVALUE Mipmap LOD bias *)
+    D3DRENDERSTATE_ANISOTROPY         = 49;   (* Max. anisotropy. 1 = no anisotropy *)
+    D3DRENDERSTATE_FLUSHBATCH         = 50;   (* Explicit flush for DP batching (DX5 Only) *)
+    D3DRENDERSTATE_TRANSLUCENTSORTINDEPENDENT=51; (* BOOL enable sort-independent transparency *)
+    D3DRENDERSTATE_STIPPLEPATTERN00   = 64;   (* Stipple pattern 01...  *)
+    D3DRENDERSTATE_STIPPLEPATTERN01   = 65;
+    D3DRENDERSTATE_STIPPLEPATTERN02   = 66;
+    D3DRENDERSTATE_STIPPLEPATTERN03   = 67;
+    D3DRENDERSTATE_STIPPLEPATTERN04   = 68;
+    D3DRENDERSTATE_STIPPLEPATTERN05   = 69;
+    D3DRENDERSTATE_STIPPLEPATTERN06   = 70;
+    D3DRENDERSTATE_STIPPLEPATTERN07   = 71;
+    D3DRENDERSTATE_STIPPLEPATTERN08   = 72;
+    D3DRENDERSTATE_STIPPLEPATTERN09   = 73;
+    D3DRENDERSTATE_STIPPLEPATTERN10   = 74;
+    D3DRENDERSTATE_STIPPLEPATTERN11   = 75;
+    D3DRENDERSTATE_STIPPLEPATTERN12   = 76;
+    D3DRENDERSTATE_STIPPLEPATTERN13   = 77;
+    D3DRENDERSTATE_STIPPLEPATTERN14   = 78;
+    D3DRENDERSTATE_STIPPLEPATTERN15   = 79;
+    D3DRENDERSTATE_STIPPLEPATTERN16   = 80;
+    D3DRENDERSTATE_STIPPLEPATTERN17   = 81;
+    D3DRENDERSTATE_STIPPLEPATTERN18   = 82;
+    D3DRENDERSTATE_STIPPLEPATTERN19   = 83;
+    D3DRENDERSTATE_STIPPLEPATTERN20   = 84;
+    D3DRENDERSTATE_STIPPLEPATTERN21   = 85;
+    D3DRENDERSTATE_STIPPLEPATTERN22   = 86;
+    D3DRENDERSTATE_STIPPLEPATTERN23   = 87;
+    D3DRENDERSTATE_STIPPLEPATTERN24   = 88;
+    D3DRENDERSTATE_STIPPLEPATTERN25   = 89;
+    D3DRENDERSTATE_STIPPLEPATTERN26   = 90;
+    D3DRENDERSTATE_STIPPLEPATTERN27   = 91;
+    D3DRENDERSTATE_STIPPLEPATTERN28   = 92;
+    D3DRENDERSTATE_STIPPLEPATTERN29   = 93;
+    D3DRENDERSTATE_STIPPLEPATTERN30   = 94;
+    D3DRENDERSTATE_STIPPLEPATTERN31   = 95;
+//
+// retired renderstate names - the values are still used under new naming conventions
+//
+    D3DRENDERSTATE_FOGTABLESTART      = 36;   (* Fog table start    *)
+    D3DRENDERSTATE_FOGTABLEEND        = 37;   (* Fog table end      *)
+    D3DRENDERSTATE_FOGTABLEDENSITY    = 38;   (* Fog table density  *)
+type
+// Values for material source
+  PD3DMateralColorSource = ^TD3DMateralColorSource;
-  TD3DMaterialColorSource = (
+  TD3DMateralColorSource = (
-    D3DMCS_MATERIAL,                   // Color from material is used
+    D3DMCS_MATERIAL,              // Color from material is used
-    D3DMCS_COLOR1,                     // Diffuse vertex color is used
+    D3DMCS_COLOR1,                // Diffuse vertex color is used
-    D3DMCS_COLOR2                      // Specular vertex color is used
+    D3DMCS_COLOR2                 // Specular vertex color is used
-  );                                   // force 32-bit size enum
+  );
 const
-{ For back-compatibility with legacy compilations }
+  // For back-compatibility with legacy compilations
-  D3DRENDERSTATE_BLENDENABLE     = D3DRENDERSTATE_ALPHABLENDENABLE;
+  D3DRENDERSTATE_BLENDENABLE = D3DRENDERSTATE_ALPHABLENDENABLE;
-  D3DRENDERSTATE_FOGTABLESTART   = D3DRENDERSTATE_FOGSTART;
-  D3DRENDERSTATE_FOGTABLEEND     = D3DRENDERSTATE_FOGEND;
-  D3DRENDERSTATE_FOGTABLEDENSITY = D3DRENDERSTATE_FOGDENSITY;
-{ Bias to apply to the texture coordinate set to apply a wrap to. }
-  D3DRENDERSTATE_WRAPBIAS = TD3DRenderStateType(128);
+// Bias to apply to the texture coordinate set to apply a wrap to.
+   D3DRENDERSTATE_WRAPBIAS                = 128;
-{ Flags to construct the WRAP render states }
+(* Flags to construct the WRAP render states *)
-  D3DWRAP_U = $00000001;
+  D3DWRAP_U   = $00000001;
-  D3DWRAP_V = $00000002;
+  D3DWRAP_V   = $00000002;
-{ Flags to construct the WRAP render states for 1D thru 4D texture coordinates }
+(* Flags to construct the WRAP render states for 1D thru 4D texture coordinates *)
-  D3DWRAPCOORD_0 = $00000001;    // same as D3DWRAP_U
+  D3DWRAPCOORD_0   = $00000001;    // same as D3DWRAP_U
-  D3DWRAPCOORD_1 = $00000002;    // same as D3DWRAP_V
+  D3DWRAPCOORD_1   = $00000002;    // same as D3DWRAP_V
-  D3DWRAPCOORD_2 = $00000004;
+  D3DWRAPCOORD_2   = $00000004;
-  D3DWRAPCOORD_3 = $00000008;
+  D3DWRAPCOORD_3   = $00000008;
-function D3DRENDERSTATE_STIPPLEPATTERN(y: DWORD): TD3DRenderStateType;
+function D3DRENDERSTATE_STIPPLEPATTERN(y: integer) : TD3DRenderStateType;
 type
+  PD3DState = ^TD3DState;
-  TD3DState = record
+  TD3DState = packed record
     case Integer of
 : (
       dtstTransformStateType: TD3DTransformStateType;
-      dwArg: array[0..0] of DWORD;
+      dwArg: Array [ 0..0 ] of DWORD;
-      );
+     );
 : (
       dlstLightStateType: TD3DLightStateType;
-      dvArg: array[0..0] of TD3DValue;
+      dvArg: Array [ 0..0 ] of TD3DValue;
-      );
+     );
 : (
       drstRenderStateType: TD3DRenderStateType;
-      );
+     );
   end;
+(*
+ * Operation used to load matrices
-  D3DSTATE = TD3DState;
+ * hDstMat = hSrcMat
+ *)
-{ TD3DMatrixLoad structure }
+  PD3DMatrixLoad = ^TD3DMatrixLoad;
-  TD3DMatrixLoad = record
+  TD3DMatrixLoad = packed record
-    hDestMatrix: TD3DMatrixHandle;   // Destination matrix
+    hDestMatrix: TD3DMatrixHandle;   (* Destination matrix *)
-    hSrcMatrix: TD3DMatrixHandle;    // Source matrix
+    hSrcMatrix: TD3DMatrixHandle;    (* Source matrix *)
   end;
+(*
+ * Operation used to multiply matrices
-  D3DMATRIXLOAD = TD3DMatrixLoad;
+ * hDstMat = hSrcMat1 * hSrcMat2
+ *)
-{ TD3DMatrixMultiply structure }
+  PD3DMatrixMultiply = ^TD3DMatrixMultiply;
-  TD3DMatrixMultiply = record
+  TD3DMatrixMultiply = packed record
-    hDestMatrix: TD3DMatrixHandle;   // Destination matrix
+    hDestMatrix: TD3DMatrixHandle;   (* Destination matrix *)
-    hSrcMatrix1: TD3DMatrixHandle;   // First source matrix
+    hSrcMatrix1: TD3DMatrixHandle;   (* First source matrix *)
-    hSrcMatrix2: TD3DMatrixHandle;   // Second source matrix
+    hSrcMatrix2: TD3DMatrixHandle;   (* Second source matrix *)
   end;
+(*
-  D3DMATRIXMULTIPLY = TD3DMatrixMultiply;
+ * Operation used to transform and light vertices.
+ *)
-{ TD3DProcessVertices structure }
+  PD3DProcessVertices = ^TD3DProcessVertices;
-  TD3DProcessVertices = record
+  TD3DProcessVertices = packed record
-    dwFlags: DWORD;           // Do we transform or light or just copy?
+    dwFlags: DWORD;           (* Do we transform or light or just copy? *)
-    wStart: WORD;             // Index to first vertex in source
+    wStart: WORD;             (* Index to first vertex in source *)
-    wDest: WORD;              // Index to first vertex in local buffer
+    wDest: WORD;              (* Index to first vertex in local buffer *)
-    dwCount: DWORD;           // Number of vertices to be processed
+    dwCount: DWORD;           (* Number of vertices to be processed *)
-    dwReserved: DWORD;        // Must be zero
+    dwReserved: DWORD;        (* Must be zero *)
   end;
-  D3DPROCESSVERTICES = TD3DProcessVertices;
 const
   D3DPROCESSVERTICES_TRANSFORMLIGHT       = $00000000;
   D3DPROCESSVERTICES_TRANSFORM            = $00000001;
   D3DPROCESSVERTICES_COPY                 = $00000002;
   D3DPROCESSVERTICES_OPMASK               = $00000007;
   D3DPROCESSVERTICES_UPDATEEXTENTS        = $00000008;
   D3DPROCESSVERTICES_NOCOLOR              = $00000010;
-{ TD3DTextureStagesStateType }
+(*
+ * State enumerants for per-stage texture processing.
+ *)
 type
-  TD3DTextureStagesStateType = (
+  PD3DTextureStageStateType = ^TD3DTextureStageStateType;
-    D3DTSS_INVALID_0,
+  TD3DTextureStageStateType = DWORD;
+const
-    D3DTSS_COLOROP,           // TD3DTextureOp - per-stage blending controls for color channels
+  D3DTSS_COLOROP        =  1; (* D3DTEXTUREOP - per-stage blending controls for color channels *)
-    D3DTSS_COLORARG1,         // D3DTA_* (texture arg)
+  D3DTSS_COLORARG1      =  2; (* D3DTA_* (texture arg) *)
-    D3DTSS_COLORARG2,         // D3DTA_* (texture arg)
+  D3DTSS_COLORARG2      =  3; (* D3DTA_* (texture arg) *)
-    D3DTSS_ALPHAOP,           // TD3DTextureOp - per-stage blending controls for alpha channel
+  D3DTSS_ALPHAOP        =  4; (* D3DTEXTUREOP - per-stage blending controls for alpha channel *)
-    D3DTSS_ALPHAARG1,         // D3DTA_* (texture arg)
+  D3DTSS_ALPHAARG1      =  5; (* D3DTA_* (texture arg) *)
-    D3DTSS_ALPHAARG2,         // D3DTA_* (texture arg)
+  D3DTSS_ALPHAARG2      =  6; (* D3DTA_* (texture arg) *)
-    D3DTSS_BUMPENVMAT00,      // TD3DValue (bump mapping matrix)
+  D3DTSS_BUMPENVMAT00   =  7; (* D3DVALUE (bump mapping matrix) *)
-    D3DTSS_BUMPENVMAT01,      // TD3DValue (bump mapping matrix)
+  D3DTSS_BUMPENVMAT01   =  8; (* D3DVALUE (bump mapping matrix) *)
-    D3DTSS_BUMPENVMAT10,      // TD3DValue (bump mapping matrix)
+  D3DTSS_BUMPENVMAT10   =  9; (* D3DVALUE (bump mapping matrix) *)
-    D3DTSS_BUMPENVMAT11,      // TD3DValue (bump mapping matrix)
+  D3DTSS_BUMPENVMAT11   = 10; (* D3DVALUE (bump mapping matrix) *)
-    D3DTSS_TEXCOORDINDEX,     // identifies which set of texture coordinates index this texture
+  D3DTSS_TEXCOORDINDEX  = 11; (* identifies which set of texture coordinates index this texture *)
-    D3DTSS_ADDRESS,           // TD3DTextureAddress for both coordinates
+  D3DTSS_ADDRESS        = 12; (* D3DTEXTUREADDRESS for both coordinates *)
-    D3DTSS_ADDRESSU,          // TD3DTextureAddress for U coordinate
+  D3DTSS_ADDRESSU       = 13; (* D3DTEXTUREADDRESS for U coordinate *)
-    D3DTSS_ADDRESSV,          // TD3DTextureAddress for V coordinate
+  D3DTSS_ADDRESSV       = 14; (* D3DTEXTUREADDRESS for V coordinate *)
-    D3DTSS_BORDERCOLOR,       // TD3DColor
+  D3DTSS_BORDERCOLOR    = 15; (* D3DCOLOR *)
-    D3DTSS_MAGFILTER,         // TD3DTextureMagFilter filter to use for magnification
+  D3DTSS_MAGFILTER      = 16; (* D3DTEXTUREMAGFILTER filter to use for magnification *)
-    D3DTSS_MINFILTER,         // TD3DTextureMinFilter filter to use for minification
+  D3DTSS_MINFILTER      = 17; (* D3DTEXTUREMINFILTER filter to use for minification *)
-    D3DTSS_MIPFILTER,         // TD3DTextureMipFilter filter to use between mipmaps during minification
+  D3DTSS_MIPFILTER      = 18; (* D3DTEXTUREMIPFILTER filter to use between mipmaps during minification *)
-    D3DTSS_MIPMAPLODBIAS,     // D3DVALUE Mipmap LOD bias
+  D3DTSS_MIPMAPLODBIAS  = 19; (* D3DVALUE Mipmap LOD bias *)
-    D3DTSS_MAXMIPLEVEL,       // DWORD 0..(n-1) LOD index of largest map to use (0 == largest)
+  D3DTSS_MAXMIPLEVEL    = 20; (* DWORD 0..(n-1) LOD index of largest map to use (0 == largest) *)
-    D3DTSS_MAXANISOTROPY,     // DWORD maximum anisotropy
+  D3DTSS_MAXANISOTROPY  = 21; (* DWORD maximum anisotropy *)
-    D3DTSS_BUMPENVLSCALE,     // TD3DValue scale for bump map luminance
+  D3DTSS_BUMPENVLSCALE  = 22; (* D3DVALUE scale for bump map luminance *)
-    D3DTSS_BUMPENVLOFFSET,    // TD3DValue offset for bump map luminance
+  D3DTSS_BUMPENVLOFFSET = 23; (* D3DVALUE offset for bump map luminance *)
-    D3DTSS_TEXTURETRANSFORMFLAGS // D3DTEXTURETRANSFORMFLAGS controls texture transform
+  D3DTSS_TEXTURETRANSFORMFLAGS = 24; (* D3DTEXTURETRANSFORMFLAGS controls texture transform *)
-  );
-  D3DTEXTURESTAGESTATETYPE = TD3DTextureStagesStateType;
-const
-{ Values, used with D3DTSS_TEXCOORDINDEX, to specify that the vertex data(position     }
+// Values, used with D3DTSS_TEXCOORDINDEX, to specify that the vertex data(position
-{ and normal in the camera space) should be taken as texture coordinates               }
+// and normal in the camera space) should be taken as texture coordinates
-{ Low 16 bits are used to specify texture coordinate index, to take the WRAP mode from }
+// Low 16 bits are used to specify texture coordinate index, to take the WRAP mode from
+//
-   D3DTSS_TCI_PASSTHRU                    = $00000000;
+  D3DTSS_TCI_PASSTHRU                             = $00000000;
-   D3DTSS_TCI_CAMERASPACENORMAL           = $00010000;
+  D3DTSS_TCI_CAMERASPACENORMAL                    = $00010000;
-   D3DTSS_TCI_CAMERASPACEPOSITION         = $00020000;
+  D3DTSS_TCI_CAMERASPACEPOSITION                  = $00020000;
-   D3DTSS_TCI_CAMERASPACEREFLECTIONVECTOR = $00030000;
+  D3DTSS_TCI_CAMERASPACEREFLECTIONVECTOR          = $00030000;
-{ TD3DTextureOp }
 type
+(*
+ * Enumerations for COLOROP and ALPHAOP texture blending operations set in
+ * texture processing stage controls in D3DRENDERSTATE.
+ *)
+  PD3DTextureOp = ^TD3DTextureOp;
   TD3DTextureOp = (
     D3DTOP_INVALID_0,
-    // Control
+// Control
-    D3DTOP_DISABLE,                    // disables stage
+    D3DTOP_DISABLE   ,      // disables stage
-    D3DTOP_SELECTARG1,                 // the default
+    D3DTOP_SELECTARG1,      // the default
     D3DTOP_SELECTARG2,
-    // Modulate
+// Modulate
-    D3DTOP_MODULATE,                   // multiply args together
+    D3DTOP_MODULATE  ,      // multiply args together
-    D3DTOP_MODULATE2X,                 // multiply and  1 bit
+    D3DTOP_MODULATE2X,      // multiply and  1 bit
-    D3DTOP_MODULATE4X,                 // multiply and  2 bits
+    D3DTOP_MODULATE4X,      // multiply and  2 bits
-    // Add
+// Add
-    D3DTOP_ADD,                        // add arguments together
+    D3DTOP_ADD        ,   // add arguments together
-    D3DTOP_ADDSIGNED,                  // add with -0.5 bias
+    D3DTOP_ADDSIGNED  ,   // add with -0.5 bias
-    D3DTOP_ADDSIGNED2X,                // as above but left  1 bit
+    D3DTOP_ADDSIGNED2X,   // as above but left  1 bit
-    D3DTOP_SUBTRACT,                   // Arg1 - Arg2, with no saturation
+    D3DTOP_SUBTRACT   ,   // Arg1 - Arg2, with no saturation
-    D3DTOP_ADDSMOOTH,                  // add 2 args, subtract product
+    D3DTOP_ADDSMOOTH  ,   // add 2 args, subtract product
-                                       // Arg1 + Arg2 - Arg1*Arg2
+                          // Arg1 + Arg2 - Arg1*Arg2
-                                       // = Arg1 + (1-Arg1)*Arg2
+                          // = Arg1 + (1-Arg1)*Arg2
-    // Linear alpha blend: Arg1*(Alpha) + Arg2*(1-Alpha)
+// Linear alpha blend: Arg1*(Alpha) + Arg2*(1-Alpha)
-    D3DTOP_BLENDDIFFUSEALPHA,          // iterated alpha
+    D3DTOP_BLENDDIFFUSEALPHA  , // iterated alpha
-    D3DTOP_BLENDTEXTUREALPHA,          // texture alpha
+    D3DTOP_BLENDTEXTUREALPHA  , // texture alpha
-    D3DTOP_BLENDFACTORALPHA,           // alpha from D3DRENDERSTATE_TEXTUREFACTOR
+    D3DTOP_BLENDFACTORALPHA   , // alpha from D3DRENDERSTATE_TEXTUREFACTOR
     // Linear alpha blend with pre-multiplied arg1 input: Arg1 + Arg2*(1-Alpha)
-    D3DTOP_BLENDTEXTUREALPHAPM,        // texture alpha
+    D3DTOP_BLENDTEXTUREALPHAPM, // texture alpha
-    D3DTOP_BLENDCURRENTALPHA,          // by alpha of current color
+    D3DTOP_BLENDCURRENTALPHA  , // by alpha of current color
-    // Specular mapping
+// Specular mapping
-    D3DTOP_PREMODULATE,                // modulate with next texture before use
+    D3DTOP_PREMODULATE           ,     // modulate with next texture before use
     D3DTOP_MODULATEALPHA_ADDCOLOR,     // Arg1.RGB + Arg1.A*Arg2.RGB
                                        // COLOROP only
     D3DTOP_MODULATECOLOR_ADDALPHA,     // Arg1.RGB*Arg2.RGB + Arg1.A
-                                       // COLOROP only
+                                            // COLOROP only
     D3DTOP_MODULATEINVALPHA_ADDCOLOR,  // (1-Arg1.A)*Arg2.RGB + Arg1.RGB
                                        // COLOROP only
     D3DTOP_MODULATEINVCOLOR_ADDALPHA,  // (1-Arg1.RGB)*Arg2.RGB + Arg1.A
-                                       // COLOROP only
+                                            // COLOROP only
-    // Bump mapping
+// Bump mapping
-    D3DTOP_BUMPENVMAP,                 // per pixel env map perturbation
+    D3DTOP_BUMPENVMAP         , // per pixel env map perturbation
-    D3DTOP_BUMPENVMAPLUMINANCE,        // with luminance channel
+    D3DTOP_BUMPENVMAPLUMINANCE, // with luminance channel
     // This can do either diffuse or specular bump mapping with correct input.
     // Performs the function (Arg1.R*Arg2.R + Arg1.G*Arg2.G + Arg1.B*Arg2.B)
     // where each component has been scaled and offset to make it signed.
     // The result is replicated into all four (including alpha) channels.
     // This is a valid COLOROP only.
     D3DTOP_DOTPRODUCT3
   );
-  D3DTEXTUREOP = TD3DTextureOp;
+(*
-{ Values for COLORARG1,2 and ALPHAARG1,2 texture blending operations
+ * Values for COLORARG1,2 and ALPHAARG1,2 texture blending operations
-  set in texture processing stage controls in D3DRENDERSTATE. }
+ * set in texture processing stage controls in D3DRENDERSTATE.
+ *)
 const
-  D3DTA_SELECTMASK     = $0000000f;  // mask for arg selector
+  D3DTA_SELECTMASK        = $0000000f;  // mask for arg selector
-  D3DTA_DIFFUSE        = $00000000;  // select diffuse color
+  D3DTA_DIFFUSE           = $00000000;  // select diffuse color
-  D3DTA_CURRENT        = $00000001;  // select result of previous stage
+  D3DTA_CURRENT           = $00000001;  // select result of previous stage
-  D3DTA_TEXTURE        = $00000002;  // select texture color
+  D3DTA_TEXTURE           = $00000002;  // select texture color
-  D3DTA_TFACTOR        = $00000003;  // select RENDERSTATE_TEXTUREFACTOR
+  D3DTA_TFACTOR           = $00000003;  // select RENDERSTATE_TEXTUREFACTOR
-  D3DTA_SPECULAR       = $00000004;  // select specular color
+  D3DTA_SPECULAR          = $00000004;  // select specular color
-  D3DTA_COMPLEMENT     = $00000010;  // take 1.0 - x
+  D3DTA_COMPLEMENT        = $00000010;  // take 1.0 - x
-  D3DTA_ALPHAREPLICATE = $00000020;  // replicate alpha to color components
+  D3DTA_ALPHAREPLICATE    = $00000020;  // replicate alpha to color components
+(*
-{ IDirect3DTexture2 State Filter Types }
+ *  IDirect3DTexture2 State Filter Types
+ *)
 type
+  PD3DTextureMagFilter = ^TD3DTextureMagFilter;
   TD3DTextureMagFilter = (
     D3DTFG_INVALID_0,
-    D3DTFG_POINT,          // nearest
+    D3DTFG_POINT        ,    // nearest
-    D3DTFG_LINEAR,         // linear interpolation
+    D3DTFG_LINEAR       ,    // linear interpolation
-    D3DTFG_FLATCUBIC,      // cubic
+    D3DTFG_FLATCUBIC    ,    // cubic
-    D3DTFG_GAUSSIANCUBIC,  // different cubic kernel
+    D3DTFG_GAUSSIANCUBIC,    // different cubic kernel
     D3DTFG_ANISOTROPIC
   );
-  D3DTEXTUREMAGFILTER = TD3DTextureMagFilter;
+  PD3DTextureMinFilter = ^TD3DTextureMinFilter;
   TD3DTextureMinFilter = (
     D3DTFN_INVALID_0,
-    D3DTFN_POINT,          // nearest
+    D3DTFN_POINT      ,    // nearest
-    D3DTFN_LINEAR,         // linear interpolation
+    D3DTFN_LINEAR     ,    // linear interpolation
     D3DTFN_ANISOTROPIC
   );
-  D3DTEXTUREMINFILTER = TD3DTextureMinFilter;
+  PD3DTextureMipFilter = ^TD3DTextureMipFilter;
   TD3DTextureMipFilter = (
     D3DTFP_INVALID_0,
-    D3DTFP_NONE,           // mipmapping disabled (use MAG filter)
+    D3DTFP_NONE   ,    // mipmapping disabled (use MAG filter)
-    D3DTFP_POINT,          // nearest
+    D3DTFP_POINT  ,    // nearest
-    D3DTFP_LINEAR          // linear interpolation
+    D3DTFP_LINEAR      // linear interpolation
   );
-  D3DTEXTUREMIPFILTER = TD3DTextureMipFilter;
+(*
-{ Triangle flags }
+ * Triangle flags
+ *)
+(*
+ * Tri strip and fan flags.
+ * START loads all three vertices
+ * EVEN and ODD load just v3 with even or odd culling
+ * START_FLAT contains a count from 0 to 29 that allows the
+ * whole strip or fan to be culled in one hit.
+ * e.g. for a quad len = 1
+ *)
 const
   D3DTRIFLAG_START                        = $00000000;
-  D3DTRIFLAG_ODD                          = $0000001e;
-  D3DTRIFLAG_EVEN                         = $0000001f;
+// #define D3DTRIFLAG_STARTFLAT(len) (len)         (* 0 < len < 30 *)
-function D3DTRIFLAG_STARTFLAT(len: DWORD): DWORD;
+function D3DTRIFLAG_STARTFLAT(len: DWORD) : DWORD;
-{ Triangle edge flags }
 const
-  D3DTRIFLAG_EDGEENABLE1                  = $00000100; // v0-v1 edge
+  D3DTRIFLAG_ODD                          = $0000001e;
-  D3DTRIFLAG_EDGEENABLE2                  = $00000200; // v1-v2 edge
+  D3DTRIFLAG_EVEN                         = $0000001f;
-  D3DTRIFLAG_EDGEENABLE3                  = $00000400; // v2-v0 edge
-  D3DTRIFLAG_EDGEENABLETRIANGLE =
-      D3DTRIFLAG_EDGEENABLE1 or D3DTRIFLAG_EDGEENABLE2 or D3DTRIFLAG_EDGEENABLE3;
+(*
-{ TD3DTriangle structure }
+ * Triangle edge flags
+ * enable edges for wireframe or antialiasing
+ *)
+  D3DTRIFLAG_EDGEENABLE1                  = $00000100; (* v0-v1 edge *)
+  D3DTRIFLAG_EDGEENABLE2                  = $00000200; (* v1-v2 edge *)
+  D3DTRIFLAG_EDGEENABLE3                  = $00000400; (* v2-v0 edge *)
+  D3DTRIFLAG_EDGEENABLETRIANGLE = (
+      D3DTRIFLAG_EDGEENABLE1 or D3DTRIFLAG_EDGEENABLE2 or D3DTRIFLAG_EDGEENABLE3);
+(*
+ * Primitive structures and related defines.  Vertex offsets are to types
+ * TD3DVertex, TD3DLVertex, or TD3DTLVertex.
+ *)
+(*
+ * Triangle list primitive structure
+ *)
 type
   PD3DTriangle = ^TD3DTriangle;
-  TD3DTriangle = record
+  TD3DTriangle = packed record
     case Integer of
 : (
-      v1: WORD;            // Vertex indices
+      v1: WORD;            (* Vertex indices *)
       v2: WORD;
       v3: WORD;
-      wFlags: WORD;        // Edge (and other) flags
+      wFlags: WORD;        (* Edge (and other) flags *)
-      );
+     );
 : (
       wV1: WORD;
       wV2: WORD;
       wV3: WORD;
-      );
+     );
   end;
-  D3DTRIANGLE = TD3DTriangle;
-  LPD3DTRIANGLE = PD3DTriangle;
+(*
-{ TD3DLine structure }
+ * Line strip structure.
+ * The instruction count - 1 defines the number of line segments.
+ *)
   PD3DLine = ^TD3DLine;
-  TD3DLine = record
+  TD3DLine = packed record
     case Integer of
 : (
-      v1: WORD;            // Vertex indices
+      v1: WORD;            (* Vertex indices *)
       v2: WORD;
-      );
+     );
 : (
       wV1: WORD;
       wV2: WORD;
-      );
+     );
   end;
-  D3DLINE = TD3DLine;
-  LPD3DLINE = PD3DLine;
+(*
-{ TD3DSpan structure }
+ * Span structure
+ * Spans join a list of points with the same y value.
+ * If the y value changes, a new span is started.
+ *)
   PD3DSpan = ^TD3DSpan;
-  TD3DSpan = record
+  TD3DSpan = packed record
-    wCount: WORD;        // Number of spans
+    wCount: WORD;        (* Number of spans *)
-    wFirst: WORD;        // Index to first vertex
+    wFirst: WORD;        (* Index to first vertex *)
   end;
-  D3DSPAN = TD3DSpan;
-  LPD3DSPAN = PD3DSpan;
+(*
-{ TD3DPoint structure }
+ * Point structure
+ *)
   PD3DPoint = ^TD3DPoint;
-  TD3DPoint = record
+  TD3DPoint = packed record
-    wCount: WORD;        // number of points
+    wCount: WORD;        (* number of points         *)
-    wFirst: WORD;        // index to first vertex
+    wFirst: WORD;        (* index to first vertex    *)
   end;
-  D3DPOINT = TD3DPoint;
-  LPD3DPOINT = PD3DPoint;
+(*
-{ TD3DBranch structure }
+ * Forward branch structure.
+ * Mask is logically anded with the driver status mask
+ * if the result equals 'value', the branch is taken.
+ *)
   PD3DBranch = ^TD3DBranch;
-  TD3DBranch = record
+  TD3DBranch = packed record
-    dwMask: DWORD;         // Bitmask against D3D status
+    dwMask: DWORD;         (* Bitmask against D3D status *)
     dwValue: DWORD;
-    bNegate: BOOL;         // TRUE to negate comparison
+    bNegate: BOOL;         (* TRUE to negate comparison *)
-    dwOffset: DWORD;       // How far to branch forward (0 for exit)
+    dwOffset: DWORD;       (* How far to branch forward (0 for exit)*)
   end;
+(*
-  D3DBRANCH = TD3DBranch;
+ * Status used for set status instruction.
-  LPD3DBRANCH = PD3DBranch;
+ * The D3D status is initialised on device creation
-{ TD3DStatus structure }
+ * and is modified by all execute calls.
+ *)
   PD3DStatus = ^TD3DStatus;
-  TD3DStatus = record
+  TD3DStatus = packed record
-    dwFlags: DWORD;        // Do we set extents or status
+    dwFlags: DWORD;        (* Do we set extents or status *)
-    dwStatus: DWORD;       // D3D status
+    dwStatus: DWORD;       (* D3D status *)
     drExtent: TD3DRect;
   end;
-  D3DSTATUS = TD3DStatus;
-  LPD3DSTATUS = PD3DStatus;
 const
-  D3DSETSTATUS_STATUS   = $00000001;
+  D3DSETSTATUS_STATUS    = $00000001;
-  D3DSETSTATUS_EXTENTS  = $00000002;
+  D3DSETSTATUS_EXTENTS   = $00000002;
-  D3DSETSTATUS_ALL      = D3DSETSTATUS_STATUS or D3DSETSTATUS_EXTENTS;
+  D3DSETSTATUS_ALL      = (D3DSETSTATUS_STATUS or D3DSETSTATUS_EXTENTS);
-{ TD3DClipStatus structure }
 type
   PD3DClipStatus = ^TD3DClipStatus;
-  TD3DClipStatus = record
+  TD3DClipStatus = packed record
-    dwFlags: DWORD;     // Do we set 2d extents, 3D extents or status
+    dwFlags : DWORD; (* Do we set 2d extents, 3D extents or status *)
-    dwStatus: DWORD;    // Clip status
+    dwStatus : DWORD; (* Clip status *)
-    minx, maxx: Single; // X extents
+    minx, maxx : float; (* X extents *)
-    miny, maxy: Single; // Y extents
+    miny, maxy : float; (* Y extents *)
-    minz, maxz: Single; // Z extents
+    minz, maxz : float; (* Z extents *)
   end;
-  D3DCLIPSTATUS = TD3DClipStatus;
-  LPD3DCLIPSTATUS = PD3DClipStatus;
 const
   D3DCLIPSTATUS_STATUS        = $00000001;
   D3DCLIPSTATUS_EXTENTS2      = $00000002;
   D3DCLIPSTATUS_EXTENTS3      = $00000004;
+(*
-{ TD3DStats structure }
+ * Statistics structure
+ *)
 type
   PD3DStats = ^TD3DStats;
-  TD3DStats = record
+  TD3DStats = packed record
     dwSize: DWORD;
     dwTrianglesDrawn: DWORD;
     dwLinesDrawn: DWORD;
     dwPointsDrawn: DWORD;
     dwSpansDrawn: DWORD;
     dwVerticesProcessed: DWORD;
   end;
-  D3DSTATS = TD3DStats;
-  LPD3DSTATS = PD3DStats;
+(*
-{ Execute options. }
+ * Execute options.
+ * When calling using D3DEXECUTE_UNCLIPPED all the primitives
+ * inside the buffer must be contained within the viewport.
+ *)
 const
   D3DEXECUTE_CLIPPED       = $00000001;
   D3DEXECUTE_UNCLIPPED     = $00000002;
-{ TD3DExecuteData structure }
 type
   PD3DExecuteData = ^TD3DExecuteData;
-  TD3DExecuteData = record
+  TD3DExecuteData = packed record
     dwSize: DWORD;
     dwVertexOffset: DWORD;
     dwVertexCount: DWORD;
     dwInstructionOffset: DWORD;
     dwInstructionLength: DWORD;
     dwHVertexOffset: DWORD;
-    dsStatus: D3DSTATUS;       // Status after execute
+    dsStatus: TD3DStatus;       (* Status after execute *)
   end;
-  D3DEXECUTEDATA = TD3DExecuteData;
-  LPD3DEXECUTEDATA = PD3DExecuteData;
+(*
-{ Palette flags. }
+ * Palette flags.
+ * This are or'ed with the peFlags in the PALETTEENTRYs passed to DirectDraw.
+ *)
 const
-  D3DPAL_FREE     = $00;    // Renderer may use this entry freely
+  D3DPAL_FREE     = $00;    (* Renderer may use this entry freely *)
-  D3DPAL_READONLY = $40;    // Renderer may not set this entry
+  D3DPAL_READONLY = $40;    (* Renderer may not set this entry *)
-  D3DPAL_RESERVED = $80;    // Renderer may not use this entry
+  D3DPAL_RESERVED = $80;    (* Renderer may not use this entry *)
-{ TD3DVertexBufferDesc structure }
 type
   PD3DVertexBufferDesc = ^TD3DVertexBufferDesc;
-  TD3DVertexBufferDesc = record
+  TD3DVertexBufferDesc = packed record
-    dwSize: DWORD;
+    dwSize : DWORD;
-    dwCaps: DWORD;
+    dwCaps : DWORD;
-    dwFVF: DWORD;
+    dwFVF : DWORD;
-    dwNumVertices: DWORD;
+    dwNumVertices : DWORD;
   end;
-  D3DVERTEXBUFFERDESC = TD3DVertexBufferDesc;
-  LPD3DVERTEXBUFFERDESC = PD3DVertexBufferDesc;
-{ These correspond to DDSCAPS_* flags }
 const
+(* These correspond to DDSCAPS_* flags *)
-  D3DVBCAPS_SYSTEMMEMORY = $00000800;
+  D3DVBCAPS_SYSTEMMEMORY      = $00000800;
-  D3DVBCAPS_WRITEONLY    = $00010000;
+  D3DVBCAPS_WRITEONLY         = $00010000;
-  D3DVBCAPS_OPTIMIZED    = $80000000;
+  D3DVBCAPS_OPTIMIZED         = $80000000;
-  D3DVBCAPS_DONOTCLIP    = $00000001;
+  D3DVBCAPS_DONOTCLIP         = $00000001;
-{ Vertex Operations for ProcessVertices }
+(* Vertex Operations for ProcessVertices *)
+  D3DVOP_LIGHT      = (1 shl 10);
+  D3DVOP_TRANSFORM  = (1 shl 0);
+  D3DVOP_CLIP       = (1 shl 2);
+  D3DVOP_EXTENTS    = (1 shl 3);
-  D3DVOP_LIGHT     = 1 shl 10;
-  D3DVOP_TRANSFORM = 1 shl 0;
-  D3DVOP_CLIP      = 1 shl 2;
-  D3DVOP_EXTENTS   = 1 shl 3;
-{ The maximum number of vertices user can pass to any d3d
+(* The maximum number of vertices user can pass to any d3d
-   drawing function or to create vertex buffer with }
+   drawing function or to create vertex buffer with
+*)
-  D3DMAXNUMVERTICES = (1 shl 16)-1;
+  D3DMAXNUMVERTICES  =  ((1 shl 16) - 1);
-{ The maximum number of primitives user can pass to any d3d drawing function. }
+(* The maximum number of primitives user can pass to any d3d
+   drawing function.
+*)
-  D3DMAXNUMPRIMITIVES = (1 shl 16)-1;
+  D3DMAXNUMPRIMITIVES = ((1 shl 16) - 1);
-{ Bits for dwFlags in ProcessVertices call }
+(* Bits for dwFlags in ProcessVertices call *)
-  D3DPV_DONOTCOPYDATA = 1 shl 0;
+  D3DPV_DONOTCOPYDATA = (1 shl 0);
-{ Flexible vertex format bits }
+//-------------------------------------------------------------------
+// Flexible vertex format bits
+//
-  D3DFVF_RESERVED0      = $001;
+  D3DFVF_RESERVED0        = $001;
-  D3DFVF_POSITION_MASK  = $00E;
+  D3DFVF_POSITION_MASK    = $00E;
-  D3DFVF_XYZ            = $002;
+  D3DFVF_XYZ              = $002;
-  D3DFVF_XYZRHW         = $004;
+  D3DFVF_XYZRHW           = $004;
-  D3DFVF_XYZB1          = $006;
+  D3DFVF_XYZB1            = $006;
-  D3DFVF_XYZB2          = $008;
+  D3DFVF_XYZB2            = $008;
-  D3DFVF_XYZB3          = $00a;
+  D3DFVF_XYZB3            = $00a;
-  D3DFVF_XYZB4          = $00c;
+  D3DFVF_XYZB4            = $00c;
-  D3DFVF_XYZB5          = $00e;
+  D3DFVF_XYZB5            = $00e;
-  D3DFVF_NORMAL         = $010;
+  D3DFVF_NORMAL           = $010;
-  D3DFVF_RESERVED1      = $020;
+  D3DFVF_RESERVED1        = $020;
-  D3DFVF_DIFFUSE        = $040;
+  D3DFVF_DIFFUSE          = $040;
-  D3DFVF_SPECULAR       = $080;
+  D3DFVF_SPECULAR         = $080;
-  D3DFVF_TEXCOUNT_MASK  = $f00;
+  D3DFVF_TEXCOUNT_MASK    = $f00;
-  D3DFVF_TEXCOUNT_SHIFT = 8;
+  D3DFVF_TEXCOUNT_SHIFT   = 8;
-  D3DFVF_TEX0           = $000;
+  D3DFVF_TEX0             = $000;
-  D3DFVF_TEX1           = $100;
+  D3DFVF_TEX1             = $100;
-  D3DFVF_TEX2           = $200;
+  D3DFVF_TEX2             = $200;
-  D3DFVF_TEX3           = $300;
+  D3DFVF_TEX3             = $300;
-  D3DFVF_TEX4           = $400;
+  D3DFVF_TEX4             = $400;
-  D3DFVF_TEX5           = $500;
+  D3DFVF_TEX5             = $500;
-  D3DFVF_TEX6           = $600;
+  D3DFVF_TEX6             = $600;
-  D3DFVF_TEX7           = $700;
+  D3DFVF_TEX7             = $700;
-  D3DFVF_TEX8           = $800;
+  D3DFVF_TEX8             = $800;
-  D3DFVF_RESERVED2      = $F000; // 4 reserved bits
+  D3DFVF_RESERVED2        = $f000;  // 4 reserved bits
-  D3DFVF_VERTEX         = D3DFVF_XYZ or D3DFVF_NORMAL or D3DFVF_TEX1;
-  D3DFVF_LVERTEX        = D3DFVF_XYZ or D3DFVF_RESERVED1 or D3DFVF_DIFFUSE or
-                            D3DFVF_SPECULAR or D3DFVF_TEX1;
-  D3DFVF_TLVERTEX       = D3DFVF_XYZRHW or D3DFVF_DIFFUSE or D3DFVF_SPECULAR or
-                            D3DFVF_TEX1;
+  D3DFVF_VERTEX = ( D3DFVF_XYZ or D3DFVF_NORMAL or D3DFVF_TEX1 );
+  D3DFVF_LVERTEX = ( D3DFVF_XYZ or D3DFVF_RESERVED1 or D3DFVF_DIFFUSE or
+                         D3DFVF_SPECULAR or D3DFVF_TEX1 );
+  D3DFVF_TLVERTEX = ( D3DFVF_XYZRHW or D3DFVF_DIFFUSE or D3DFVF_SPECULAR or
-{ TD3DDP_PtrStride }
+                          D3DFVF_TEX1 );
 type
+  PD3DDP_PtrStride = ^TD3DDP_PtrStride;
-  TD3DDP_PtrStride = record
+  TD3DDP_PtrStride = packed record
-    lpvData: Pointer;
+    lpvData : pointer;
-    dwStride: DWORD;
+    dwStride : DWORD;
   end;
-  D3DDP_PTRSTRIDE = TD3DDP_PtrStride;
 const
   D3DDP_MAXTEXCOORD = 8;
 type
   PD3DDrawPrimitiveStridedData = ^TD3DDrawPrimitiveStridedData;
-  TD3DDrawPrimitiveStridedData = record
+  TD3DDrawPrimitiveStridedData = packed record
-    position: TD3DDP_PtrStride;
+    position : TD3DDP_PtrStride;
-    normal: TD3DDP_PtrStride;
+    normal : TD3DDP_PtrStride;
-    diffuse: TD3DDP_PtrStride;
+    diffuse : TD3DDP_PtrStride;
-    specular: TD3DDP_PtrStride;
+    specular : TD3DDP_PtrStride;
-    textureCoords: array[0..D3DDP_MAXTEXCOORD-1] of TD3DDP_PtrStride;
+    textureCoords : array [0..D3DDP_MAXTEXCOORD-1] of TD3DDP_PtrStride;
   end;
-  D3DDRAWPRIMITIVESTRIDEDDATA = TD3DDrawPrimitiveStridedData;
-  LPD3DDRAWPRIMITIVESTRIDEDDATA = PD3DDrawPrimitiveStridedData;
+//---------------------------------------------------------------------
-{ ComputeSphereVisibility return values }
+// ComputeSphereVisibility return values
+//
 const
-  D3DVIS_INSIDE_FRUSTUM    = 0;
+  D3DVIS_INSIDE_FRUSTUM      = 0;
-  D3DVIS_INTERSECT_FRUSTUM = 1;
+  D3DVIS_INTERSECT_FRUSTUM   = 1;
-  D3DVIS_OUTSIDE_FRUSTUM   = 2;
+  D3DVIS_OUTSIDE_FRUSTUM     = 2;
-  D3DVIS_INSIDE_LEFT       = 0;
+  D3DVIS_INSIDE_LEFT         = 0;
-  D3DVIS_INTERSECT_LEFT    = 1 shl 2;
+  D3DVIS_INTERSECT_LEFT      = (1 shl 2);
-  D3DVIS_OUTSIDE_LEFT      = 2 shl 2;
+  D3DVIS_OUTSIDE_LEFT        = (2 shl 2);
-  D3DVIS_INSIDE_RIGHT      = 0;
+  D3DVIS_INSIDE_RIGHT        = 0;
-  D3DVIS_INTERSECT_RIGHT   = 1 shl 4;
+  D3DVIS_INTERSECT_RIGHT     = (1 shl 4);
-  D3DVIS_OUTSIDE_RIGHT     = 2 shl 4;
+  D3DVIS_OUTSIDE_RIGHT       = (2 shl 4);
-  D3DVIS_INSIDE_TOP        = 0;
+  D3DVIS_INSIDE_TOP          = 0;
-  D3DVIS_INTERSECT_TOP     = 1 shl 6;
+  D3DVIS_INTERSECT_TOP       = (1 shl 6);
-  D3DVIS_OUTSIDE_TOP       = 2 shl 6;
+  D3DVIS_OUTSIDE_TOP         = (2 shl 6);
-  D3DVIS_INSIDE_BOTTOM     = 0;
+  D3DVIS_INSIDE_BOTTOM       = 0;
-  D3DVIS_INTERSECT_BOTTOM  = 1 shl 8;
+  D3DVIS_INTERSECT_BOTTOM    = (1 shl 8);
-  D3DVIS_OUTSIDE_BOTTOM    = 2 shl 8;
+  D3DVIS_OUTSIDE_BOTTOM      = (2 shl 8);
-  D3DVIS_INSIDE_NEAR       = 0;
+  D3DVIS_INSIDE_NEAR         = 0;
-  D3DVIS_INTERSECT_NEAR    = 1 shl 10;
+  D3DVIS_INTERSECT_NEAR      = (1 shl 10);
-  D3DVIS_OUTSIDE_NEAR      = 2 shl 10;
+  D3DVIS_OUTSIDE_NEAR        = (2 shl 10);
-  D3DVIS_INSIDE_FAR        = 0;
+  D3DVIS_INSIDE_FAR          = 0;
-  D3DVIS_INTERSECT_FAR     = 1 shl 12;
+  D3DVIS_INTERSECT_FAR       = (1 shl 12);
-  D3DVIS_OUTSIDE_FAR       = 2 shl 12;
+  D3DVIS_OUTSIDE_FAR         = (2 shl 12);
-  D3DVIS_MASK_FRUSTUM      = 3 shl 0;
+  D3DVIS_MASK_FRUSTUM        = (3 shl 0);
-  D3DVIS_MASK_LEFT         = 3 shl 2;
+  D3DVIS_MASK_LEFT           = (3 shl 2);
-  D3DVIS_MASK_RIGHT        = 3 shl 4;
+  D3DVIS_MASK_RIGHT          = (3 shl 4);
-  D3DVIS_MASK_TOP          = 3 shl 6;
+  D3DVIS_MASK_TOP            = (3 shl 6);
-  D3DVIS_MASK_BOTTOM       = 3 shl 8;
+  D3DVIS_MASK_BOTTOM         = (3 shl 8);
-  D3DVIS_MASK_NEAR         = 3 shl 10;
+  D3DVIS_MASK_NEAR           = (3 shl 10);
-  D3DVIS_MASK_FAR          = 3 shl 12;
+  D3DVIS_MASK_FAR            = (3 shl 12);
-{ To be used with GetInfo() }
+// To be used with GetInfo()
   D3DDEVINFOID_TEXTUREMANAGER    = 1;
   D3DDEVINFOID_D3DTEXTUREMANAGER = 2;
   D3DDEVINFOID_TEXTURING         = 3;
 type
-{ TD3DStateBlockType }
+  PD3DStateBlockType = ^TD3DStateBlockType;
   TD3DStateBlockType = (
-    D3DBST_INVALID_0,
+    D3DSBT_INVALID_0   ,
+    D3DSBT_ALL         , // capture all state
-    D3DSBT_PIXELSTATE,        // capture pixel state
+    D3DSBT_PIXELSTATE  , // capture pixel state
-    D3DSBT_VERTEXSTATE        // capture vertex state
+    D3DSBT_VERTEXSTATE   // capture vertex state
   );
-  D3DSTATEBLOCKTYPE = TD3DStateBlockType;
+// The D3DVERTEXBLENDFLAGS type is used with D3DRENDERSTATE_VERTEXBLEND state.
+//
-{ TD3DVertexBlendFlags }
+  PD3DVertexBlendFlags = ^TD3DVertexBlendFlags;
   TD3DVertexBlendFlags = (
-    D3DVBLEND_DISABLE,        // Disable vertex blending
+    D3DVBLEND_DISABLE , // Disable vertex blending
-    D3DVBLEND_1WEIGHT,        // blend between 2 matrices
+    D3DVBLEND_1WEIGHT , // blend between 2 matrices
-    D3DVBLEND_2WEIGHTS,       // blend between 3 matrices
+    D3DVBLEND_2WEIGHTS, // blend between 3 matrices
-    D3DVBLEND_3WEIGHTS        // blend between 4 matrices
+    D3DVBLEND_3WEIGHTS  // blend between 4 matrices
   );
-  D3DVERTEXBLENDFLAGS = TD3DVertexBlendFlags;
+  PD3DTextureTransformFlags = ^TD3DTextureTransformFlags;
-{ TD3DTextureTransformFlags }
   TD3DTextureTransformFlags = (
-    D3DTTFF_DISABLE,   // texture coordinates are passed directly
+    D3DTTFF_DISABLE ,    // texture coordinates are passed directly
-    D3DTTFF_COUNT1,    // rasterizer should expect 1-D texture coords
+    D3DTTFF_COUNT1  ,    // rasterizer should expect 1-D texture coords
-    D3DTTFF_COUNT2,    // rasterizer should expect 2-D texture coords
+    D3DTTFF_COUNT2  ,    // rasterizer should expect 2-D texture coords
-    D3DTTFF_COUNT3,    // rasterizer should expect 3-D texture coords
+    D3DTTFF_COUNT3  ,    // rasterizer should expect 3-D texture coords
-    D3DTTFF_COUNT4,    // rasterizer should expect 4-D texture coords
+    D3DTTFF_COUNT4       // rasterizer should expect 4-D texture coords
-    D3DTIFF_INVALID_5,
-    D3DTIFF_INVALID_6,
-    D3DTIFF_INVALID_7,
-    D3DTIFF_INVALID_8,
-    D3DTIFF_INVALID_9,
-    D3DTIFF_INVALID_10,
-    D3DTIFF_INVALID_11,
-    D3DTIFF_INVALID_12,
-    D3DTIFF_INVALID_13,
-    D3DTIFF_INVALID_14,
-    D3DTIFF_INVALID_15,
-    D3DTIFF_INVALID_16,
-    D3DTIFF_INVALID_17,
-    D3DTIFF_INVALID_18,
-    D3DTIFF_INVALID_19,
-    D3DTIFF_INVALID_20,
-    D3DTIFF_INVALID_21,
-    D3DTIFF_INVALID_22,
-    D3DTIFF_INVALID_23,
-    D3DTIFF_INVALID_24,
-    D3DTIFF_INVALID_25,
-    D3DTIFF_INVALID_26,
-    D3DTIFF_INVALID_27,
-    D3DTIFF_INVALID_28,
-    D3DTIFF_INVALID_29,
-    D3DTIFF_INVALID_30,
-    D3DTIFF_INVALID_31,
-    D3DTIFF_INVALID_32,
-    D3DTIFF_INVALID_33,
-    D3DTIFF_INVALID_34,
-    D3DTIFF_INVALID_35,
-    D3DTIFF_INVALID_36,
-    D3DTIFF_INVALID_37,
-    D3DTIFF_INVALID_38,
-    D3DTIFF_INVALID_39,
-    D3DTIFF_INVALID_40,
-    D3DTIFF_INVALID_41,
-    D3DTIFF_INVALID_42,
-    D3DTIFF_INVALID_43,
-    D3DTIFF_INVALID_44,
-    D3DTIFF_INVALID_45,
-    D3DTIFF_INVALID_46,
-    D3DTIFF_INVALID_47,
-    D3DTIFF_INVALID_48,
-    D3DTIFF_INVALID_49,
-    D3DTIFF_INVALID_50,
-    D3DTIFF_INVALID_51,
-    D3DTIFF_INVALID_52,
-    D3DTIFF_INVALID_53,
-    D3DTIFF_INVALID_54,
-    D3DTIFF_INVALID_55,
-    D3DTIFF_INVALID_56,
-    D3DTIFF_INVALID_57,
-    D3DTIFF_INVALID_58,
-    D3DTIFF_INVALID_59,
-    D3DTIFF_INVALID_60,
-    D3DTIFF_INVALID_61,
-    D3DTIFF_INVALID_62,
-    D3DTIFF_INVALID_63,
-    D3DTIFF_INVALID_64,
-    D3DTIFF_INVALID_65,
-    D3DTIFF_INVALID_66,
-    D3DTIFF_INVALID_67,
-    D3DTIFF_INVALID_68,
-    D3DTIFF_INVALID_69,
-    D3DTIFF_INVALID_70,
-    D3DTIFF_INVALID_71,
-    D3DTIFF_INVALID_72,
-    D3DTIFF_INVALID_73,
-    D3DTIFF_INVALID_74,
-    D3DTIFF_INVALID_75,
-    D3DTIFF_INVALID_76,
-    D3DTIFF_INVALID_77,
-    D3DTIFF_INVALID_78,
-    D3DTIFF_INVALID_79,
-    D3DTIFF_INVALID_80,
-    D3DTIFF_INVALID_81,
-    D3DTIFF_INVALID_82,
-    D3DTIFF_INVALID_83,
-    D3DTIFF_INVALID_84,
-    D3DTIFF_INVALID_85,
-    D3DTIFF_INVALID_86,
-    D3DTIFF_INVALID_87,
-    D3DTIFF_INVALID_88,
-    D3DTIFF_INVALID_89,
-    D3DTIFF_INVALID_90,
-    D3DTIFF_INVALID_91,
-    D3DTIFF_INVALID_92,
-    D3DTIFF_INVALID_93,
-    D3DTIFF_INVALID_94,
-    D3DTIFF_INVALID_95,
-    D3DTIFF_INVALID_96,
-    D3DTIFF_INVALID_97,
-    D3DTIFF_INVALID_98,
-    D3DTIFF_INVALID_99,
-    D3DTIFF_INVALID_100,
-    D3DTIFF_INVALID_101,
-    D3DTIFF_INVALID_102,
-    D3DTIFF_INVALID_103,
-    D3DTIFF_INVALID_104,
-    D3DTIFF_INVALID_105,
-    D3DTIFF_INVALID_106,
-    D3DTIFF_INVALID_107,
-    D3DTIFF_INVALID_108,
-    D3DTIFF_INVALID_109,
-    D3DTIFF_INVALID_110,
-    D3DTIFF_INVALID_111,
-    D3DTIFF_INVALID_112,
-    D3DTIFF_INVALID_113,
-    D3DTIFF_INVALID_114,
-    D3DTIFF_INVALID_115,
-    D3DTIFF_INVALID_116,
-    D3DTIFF_INVALID_117,
-    D3DTIFF_INVALID_118,
-    D3DTIFF_INVALID_119,
-    D3DTIFF_INVALID_120,
-    D3DTIFF_INVALID_121,
-    D3DTIFF_INVALID_122,
-    D3DTIFF_INVALID_123,
-    D3DTIFF_INVALID_124,
-    D3DTIFF_INVALID_125,
-    D3DTIFF_INVALID_126,
-    D3DTIFF_INVALID_127,
-    D3DTIFF_INVALID_128,
-    D3DTIFF_INVALID_129,
-    D3DTIFF_INVALID_130,
-    D3DTIFF_INVALID_131,
-    D3DTIFF_INVALID_132,
-    D3DTIFF_INVALID_133,
-    D3DTIFF_INVALID_134,
-    D3DTIFF_INVALID_135,
-    D3DTIFF_INVALID_136,
-    D3DTIFF_INVALID_137,
-    D3DTIFF_INVALID_138,
-    D3DTIFF_INVALID_139,
-    D3DTIFF_INVALID_140,
-    D3DTIFF_INVALID_141,
-    D3DTIFF_INVALID_142,
-    D3DTIFF_INVALID_143,
-    D3DTIFF_INVALID_144,
-    D3DTIFF_INVALID_145,
-    D3DTIFF_INVALID_146,
-    D3DTIFF_INVALID_147,
-    D3DTIFF_INVALID_148,
-    D3DTIFF_INVALID_149,
-    D3DTIFF_INVALID_150,
-    D3DTIFF_INVALID_151,
-    D3DTIFF_INVALID_152,
-    D3DTIFF_INVALID_153,
-    D3DTIFF_INVALID_154,
-    D3DTIFF_INVALID_155,
-    D3DTIFF_INVALID_156,
-    D3DTIFF_INVALID_157,
-    D3DTIFF_INVALID_158,
-    D3DTIFF_INVALID_159,
-    D3DTIFF_INVALID_160,
-    D3DTIFF_INVALID_161,
-    D3DTIFF_INVALID_162,
-    D3DTIFF_INVALID_163,
-    D3DTIFF_INVALID_164,
-    D3DTIFF_INVALID_165,
-    D3DTIFF_INVALID_166,
-    D3DTIFF_INVALID_167,
-    D3DTIFF_INVALID_168,
-    D3DTIFF_INVALID_169,
-    D3DTIFF_INVALID_170,
-    D3DTIFF_INVALID_171,
-    D3DTIFF_INVALID_172,
-    D3DTIFF_INVALID_173,
-    D3DTIFF_INVALID_174,
-    D3DTIFF_INVALID_175,
-    D3DTIFF_INVALID_176,
-    D3DTIFF_INVALID_177,
-    D3DTIFF_INVALID_178,
-    D3DTIFF_INVALID_179,
-    D3DTIFF_INVALID_180,
-    D3DTIFF_INVALID_181,
-    D3DTIFF_INVALID_182,
-    D3DTIFF_INVALID_183,
-    D3DTIFF_INVALID_184,
-    D3DTIFF_INVALID_185,
-    D3DTIFF_INVALID_186,
-    D3DTIFF_INVALID_187,
-    D3DTIFF_INVALID_188,
-    D3DTIFF_INVALID_189,
-    D3DTIFF_INVALID_190,
-    D3DTIFF_INVALID_191,
-    D3DTIFF_INVALID_192,
-    D3DTIFF_INVALID_193,
-    D3DTIFF_INVALID_194,
-    D3DTIFF_INVALID_195,
-    D3DTIFF_INVALID_196,
-    D3DTIFF_INVALID_197,
-    D3DTIFF_INVALID_198,
-    D3DTIFF_INVALID_199,
-    D3DTIFF_INVALID_200,
-    D3DTIFF_INVALID_201,
-    D3DTIFF_INVALID_202,
-    D3DTIFF_INVALID_203,
-    D3DTIFF_INVALID_204,
-    D3DTIFF_INVALID_205,
-    D3DTIFF_INVALID_206,
-    D3DTIFF_INVALID_207,
-    D3DTIFF_INVALID_208,
-    D3DTIFF_INVALID_209,
-    D3DTIFF_INVALID_210,
-    D3DTIFF_INVALID_211,
-    D3DTIFF_INVALID_212,
-    D3DTIFF_INVALID_213,
-    D3DTIFF_INVALID_214,
-    D3DTIFF_INVALID_215,
-    D3DTIFF_INVALID_216,
-    D3DTIFF_INVALID_217,
-    D3DTIFF_INVALID_218,
-    D3DTIFF_INVALID_219,
-    D3DTIFF_INVALID_220,
-    D3DTIFF_INVALID_221,
-    D3DTIFF_INVALID_222,
-    D3DTIFF_INVALID_223,
-    D3DTIFF_INVALID_224,
-    D3DTIFF_INVALID_225,
-    D3DTIFF_INVALID_226,
-    D3DTIFF_INVALID_227,
-    D3DTIFF_INVALID_228,
-    D3DTIFF_INVALID_229,
-    D3DTIFF_INVALID_230,
-    D3DTIFF_INVALID_231,
-    D3DTIFF_INVALID_232,
-    D3DTIFF_INVALID_233,
-    D3DTIFF_INVALID_234,
-    D3DTIFF_INVALID_235,
-    D3DTIFF_INVALID_236,
-    D3DTIFF_INVALID_237,
-    D3DTIFF_INVALID_238,
-    D3DTIFF_INVALID_239,
-    D3DTIFF_INVALID_240,
-    D3DTIFF_INVALID_241,
-    D3DTIFF_INVALID_242,
-    D3DTIFF_INVALID_243,
-    D3DTIFF_INVALID_244,
-    D3DTIFF_INVALID_245,
-    D3DTIFF_INVALID_246,
-    D3DTIFF_INVALID_247,
-    D3DTIFF_INVALID_248,
-    D3DTIFF_INVALID_249,
-    D3DTIFF_INVALID_250,
-    D3DTIFF_INVALID_251,
-    D3DTIFF_INVALID_252,
-    D3DTIFF_INVALID_253,
-    D3DTIFF_INVALID_254,
-    D3DTIFF_INVALID_255,
-    D3DTTFF_PROJECTED  // texcoords to be divided by COUNTth element
   );
-{ Macros to set texture coordinate format bits in the FVF id }
 const
+  D3DTTFF_PROJECTED       = TD3DTextureTransformFlags(256); // texcoords to be divided by COUNTth element
+// Macros to set texture coordinate format bits in the FVF id
-  D3DFVF_TEXTUREFORMAT2 = 0;         // Two floating point values
+D3DFVF_TEXTUREFORMAT2 = 0;         // Two floating point values
-  D3DFVF_TEXTUREFORMAT1 = 3;         // One floating point value
+D3DFVF_TEXTUREFORMAT1 = 3;         // One floating point value
-  D3DFVF_TEXTUREFORMAT3 = 1;         // Three floating point values
+D3DFVF_TEXTUREFORMAT3 = 1;         // Three floating point values
-  D3DFVF_TEXTUREFORMAT4 = 2;         // Four floating point values
+D3DFVF_TEXTUREFORMAT4 = 2;         // Four floating point values
-function D3DFVF_TEXCOORDSIZE3(CoordIndex: DWORD): DWORD;
+function D3DFVF_TEXCOORDSIZE3(CoordIndex: DWORD) : DWORD;
-function D3DFVF_TEXCOORDSIZE2(CoordIndex: DWORD): DWORD;
+function D3DFVF_TEXCOORDSIZE2(CoordIndex: DWORD) : DWORD;
-function D3DFVF_TEXCOORDSIZE4(CoordIndex: DWORD): DWORD;
+function D3DFVF_TEXCOORDSIZE4(CoordIndex: DWORD) : DWORD;
-function D3DFVF_TEXCOORDSIZE1(CoordIndex: DWORD): DWORD;
+function D3DFVF_TEXCOORDSIZE1(CoordIndex: DWORD) : DWORD;
 (*==========================================================================;
+ *
- *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *
  *  File:       d3dcaps.h
  *  Content:    Direct3D capabilities include file
+ *
  ***************************************************************************)
-{ Description of capabilities of transform }
+(* Description of capabilities of transform *)
 type
   PD3DTransformCaps = ^TD3DTransformCaps;
-  TD3DTransformCaps = record
+  TD3DTransformCaps = packed record
     dwSize: DWORD;
     dwCaps: DWORD;
   end;
-  D3DTRANSFORMCAPS = TD3DTransformCaps;
-  LPD3DTRANSFORMCAPS = PD3DTransformCaps;
 const
-  D3DTRANSFORMCAPS_CLIP = $00000001; // Will clip whilst transforming
+  D3DTRANSFORMCAPS_CLIP         = $00000001; (* Will clip whilst transforming *)
-{ Description of capabilities of lighting }
+(* Description of capabilities of lighting *)
 type
   PD3DLightingCaps = ^TD3DLightingCaps;
-  TD3DLightingCaps = record
+  TD3DLightingCaps = packed record
     dwSize: DWORD;
-    dwCaps: DWORD;            // Lighting caps
+    dwCaps: DWORD;                   (* Lighting caps *)
-    dwLightingModel: DWORD;   // Lighting model - RGB or mono
+    dwLightingModel: DWORD;          (* Lighting model - RGB or mono *)
-    dwNumLights: DWORD;       // Number of lights that can be handled
+    dwNumLights: DWORD;              (* Number of lights that can be handled *)
   end;
-  D3DLIGHTINGCAPS = TD3DLightingCaps;
-  LPD3DLIGHTINGCAPS = PD3DLightingCaps;
 const
-  D3DLIGHTINGMODEL_RGB        = $00000001;
+  D3DLIGHTINGMODEL_RGB            = $00000001;
-  D3DLIGHTINGMODEL_MONO       = $00000002;
+  D3DLIGHTINGMODEL_MONO           = $00000002;
-  D3DLIGHTCAPS_POINT          = $00000001; // Point lights supported
+  D3DLIGHTCAPS_POINT              = $00000001; (* Point lights supported *)
-  D3DLIGHTCAPS_SPOT           = $00000002; // Spot lights supported
+  D3DLIGHTCAPS_SPOT               = $00000002; (* Spot lights supported *)
-  D3DLIGHTCAPS_DIRECTIONAL    = $00000004; // Directional lights supported
+  D3DLIGHTCAPS_DIRECTIONAL        = $00000004; (* Directional lights supported *)
-  D3DLIGHTCAPS_PARALLELPOINT  = $00000008; // Parallel point lights supported
+  D3DLIGHTCAPS_PARALLELPOINT      = $00000008; (* Parallel point lights supported *)
-  D3DLIGHTCAPS_GLSPOT         = $00000010; // GL syle spot lights supported
+  D3DLIGHTCAPS_GLSPOT             = $00000010; (* GL syle spot lights supported *)
-{ Description of capabilities for each primitive type }
+(* Description of capabilities for each primitive type *)
 type
   PD3DPrimCaps = ^TD3DPrimCaps;
-  TD3DPrimCaps = record
+  TD3DPrimCaps = packed record
     dwSize: DWORD;
-    dwMiscCaps: DWORD;                 // Capability flags
+    dwMiscCaps: DWORD;                 (* Capability flags *)
     dwRasterCaps: DWORD;
     dwZCmpCaps: DWORD;
     dwSrcBlendCaps: DWORD;
     dwDestBlendCaps: DWORD;
     dwAlphaCmpCaps: DWORD;
     dwShadeCaps: DWORD;
     dwTextureCaps: DWORD;
     dwTextureFilterCaps: DWORD;
     dwTextureBlendCaps: DWORD;
     dwTextureAddressCaps: DWORD;
-    dwStippleWidth: DWORD;             // maximum width and height of
+    dwStippleWidth: DWORD;             (* maximum width and height of *)
-    dwStippleHeight: DWORD;            // of supported stipple (up to 32x32)
+    dwStippleHeight: DWORD;            (* of supported stipple (up to 32x32) *)
   end;
-  D3DPRIMCAPS = TD3DPrimCaps;
-  LPD3DPRIMCAPS = PD3DPrimCaps;
-{ TD3DPrimCaps dwMiscCaps }
 const
+(* TD3DPrimCaps dwMiscCaps *)
   D3DPMISCCAPS_MASKPLANES         = $00000001;
   D3DPMISCCAPS_MASKZ              = $00000002;
   D3DPMISCCAPS_LINEPATTERNREP     = $00000004;
   D3DPMISCCAPS_CONFORMANT         = $00000008;
   D3DPMISCCAPS_CULLNONE           = $00000010;
   D3DPMISCCAPS_CULLCW             = $00000020;
   D3DPMISCCAPS_CULLCCW            = $00000040;
-{ TD3DPrimCaps dwRasterCaps }
+(* TD3DPrimCaps dwRasterCaps *)
-  D3DPRASTERCAPS_DITHER                     = $00000001;
+  D3DPRASTERCAPS_DITHER           = $00000001;
-  D3DPRASTERCAPS_ROP2                       = $00000002;
+  D3DPRASTERCAPS_ROP2             = $00000002;
-  D3DPRASTERCAPS_XOR                        = $00000004;
+  D3DPRASTERCAPS_XOR              = $00000004;
-  D3DPRASTERCAPS_PAT                        = $00000008;
+  D3DPRASTERCAPS_PAT              = $00000008;
-  D3DPRASTERCAPS_ZTEST                      = $00000010;
+  D3DPRASTERCAPS_ZTEST            = $00000010;
-  D3DPRASTERCAPS_SUBPIXEL                   = $00000020;
+  D3DPRASTERCAPS_SUBPIXEL         = $00000020;
-  D3DPRASTERCAPS_SUBPIXELX                  = $00000040;
+  D3DPRASTERCAPS_SUBPIXELX        = $00000040;
-  D3DPRASTERCAPS_FOGVERTEX                  = $00000080;
+  D3DPRASTERCAPS_FOGVERTEX        = $00000080;
-  D3DPRASTERCAPS_FOGTABLE                   = $00000100;
+  D3DPRASTERCAPS_FOGTABLE         = $00000100;
-  D3DPRASTERCAPS_STIPPLE                    = $00000200;
+  D3DPRASTERCAPS_STIPPLE          = $00000200;
-  D3DPRASTERCAPS_ANTIALIASSORTDEPENDENT     = $00000400;
+  D3DPRASTERCAPS_ANTIALIASSORTDEPENDENT   = $00000400;
-  D3DPRASTERCAPS_ANTIALIASSORTINDEPENDENT   = $00000800;
+  D3DPRASTERCAPS_ANTIALIASSORTINDEPENDENT = $00000800;
-  D3DPRASTERCAPS_ANTIALIASEDGES             = $00001000;
+  D3DPRASTERCAPS_ANTIALIASEDGES           = $00001000;
-  D3DPRASTERCAPS_MIPMAPLODBIAS              = $00002000;
+  D3DPRASTERCAPS_MIPMAPLODBIAS            = $00002000;
-  D3DPRASTERCAPS_ZBIAS                      = $00004000;
+  D3DPRASTERCAPS_ZBIAS                    = $00004000;
-  D3DPRASTERCAPS_ZBUFFERLESSHSR             = $00008000;
+  D3DPRASTERCAPS_ZBUFFERLESSHSR           = $00008000;
-  D3DPRASTERCAPS_FOGRANGE                   = $00010000;
+  D3DPRASTERCAPS_FOGRANGE                 = $00010000;
-  D3DPRASTERCAPS_ANISOTROPY                 = $00020000;
+  D3DPRASTERCAPS_ANISOTROPY               = $00020000;
-  D3DPRASTERCAPS_WBUFFER                    = $00040000;
+  D3DPRASTERCAPS_WBUFFER                      = $00040000;
-  D3DPRASTERCAPS_TRANSLUCENTSORTINDEPENDENT = $00080000;
+  D3DPRASTERCAPS_TRANSLUCENTSORTINDEPENDENT   = $00080000;
-  D3DPRASTERCAPS_WFOG                       = $00100000;
+  D3DPRASTERCAPS_WFOG                         = $00100000;
-  D3DPRASTERCAPS_ZFOG                       = $00200000;
+  D3DPRASTERCAPS_ZFOG                         = $00200000;
-{ TD3DPrimCaps dwZCmpCaps, dwAlphaCmpCaps }
+(* TD3DPrimCaps dwZCmpCaps, dwAlphaCmpCaps *)
+const
   D3DPCMPCAPS_NEVER               = $00000001;
   D3DPCMPCAPS_LESS                = $00000002;
   D3DPCMPCAPS_EQUAL               = $00000004;
   D3DPCMPCAPS_LESSEQUAL           = $00000008;
   D3DPCMPCAPS_GREATER             = $00000010;
   D3DPCMPCAPS_NOTEQUAL            = $00000020;
   D3DPCMPCAPS_GREATEREQUAL        = $00000040;
   D3DPCMPCAPS_ALWAYS              = $00000080;
-{ TD3DPrimCaps dwSourceBlendCaps, dwDestBlendCaps }
+(* TD3DPrimCaps dwSourceBlendCaps, dwDestBlendCaps *)
   D3DPBLENDCAPS_ZERO              = $00000001;
   D3DPBLENDCAPS_ONE               = $00000002;
   D3DPBLENDCAPS_SRCCOLOR          = $00000004;
   D3DPBLENDCAPS_INVSRCCOLOR       = $00000008;
   D3DPBLENDCAPS_SRCALPHA          = $00000010;
   D3DPBLENDCAPS_INVSRCALPHA       = $00000020;
   D3DPBLENDCAPS_DESTALPHA         = $00000040;
   D3DPBLENDCAPS_INVDESTALPHA      = $00000080;
   D3DPBLENDCAPS_DESTCOLOR         = $00000100;
   D3DPBLENDCAPS_INVDESTCOLOR      = $00000200;
   D3DPBLENDCAPS_SRCALPHASAT       = $00000400;
   D3DPBLENDCAPS_BOTHSRCALPHA      = $00000800;
   D3DPBLENDCAPS_BOTHINVSRCALPHA   = $00001000;
-{ TD3DPrimCaps dwShadeCaps }
+(* TD3DPrimCaps dwShadeCaps *)
   D3DPSHADECAPS_COLORFLATMONO             = $00000001;
   D3DPSHADECAPS_COLORFLATRGB              = $00000002;
   D3DPSHADECAPS_COLORGOURAUDMONO          = $00000004;
   D3DPSHADECAPS_COLORGOURAUDRGB           = $00000008;
   D3DPSHADECAPS_COLORPHONGMONO            = $00000010;
   D3DPSHADECAPS_COLORPHONGRGB             = $00000020;
   D3DPSHADECAPS_SPECULARFLATMONO          = $00000040;
   D3DPSHADECAPS_SPECULARFLATRGB           = $00000080;
   D3DPSHADECAPS_SPECULARGOURAUDMONO       = $00000100;
   D3DPSHADECAPS_SPECULARGOURAUDRGB        = $00000200;
   D3DPSHADECAPS_SPECULARPHONGMONO         = $00000400;
   D3DPSHADECAPS_SPECULARPHONGRGB          = $00000800;
   D3DPSHADECAPS_ALPHAFLATBLEND            = $00001000;
   D3DPSHADECAPS_ALPHAFLATSTIPPLED         = $00002000;
   D3DPSHADECAPS_ALPHAGOURAUDBLEND         = $00004000;
   D3DPSHADECAPS_ALPHAGOURAUDSTIPPLED      = $00008000;
   D3DPSHADECAPS_ALPHAPHONGBLEND           = $00010000;
   D3DPSHADECAPS_ALPHAPHONGSTIPPLED        = $00020000;
   D3DPSHADECAPS_FOGFLAT                   = $00040000;
   D3DPSHADECAPS_FOGGOURAUD                = $00080000;
   D3DPSHADECAPS_FOGPHONG                  = $00100000;
-{ TD3DPrimCaps dwTextureCaps }
+(* TD3DPrimCaps dwTextureCaps *)
+(*
+ * Perspective-correct texturing is supported
+ *)
-  D3DPTEXTURECAPS_PERSPECTIVE              = $00000001;
+  D3DPTEXTURECAPS_PERSPECTIVE     = $00000001;
+(*
+ * Power-of-2 texture dimensions are required
+ *)
-  D3DPTEXTURECAPS_POW2                     = $00000002;
+  D3DPTEXTURECAPS_POW2            = $00000002;
+(*
+ * Alpha in texture pixels is supported
+ *)
-  D3DPTEXTURECAPS_ALPHA                    = $00000004;
+  D3DPTEXTURECAPS_ALPHA           = $00000004;
+(*
+ * Color-keyed textures are supported
+ *)
-  D3DPTEXTURECAPS_TRANSPARENCY             = $00000008;
+  D3DPTEXTURECAPS_TRANSPARENCY    = $00000008;
+(*
+ * obsolete, see D3DPTADDRESSCAPS_BORDER
+ *)
-  D3DPTEXTURECAPS_BORDER                   = $00000010;
+  D3DPTEXTURECAPS_BORDER          = $00000010;
+(*
+ * Only square textures are supported
+ *)
-  D3DPTEXTURECAPS_SQUAREONLY               = $00000020;
+  D3DPTEXTURECAPS_SQUAREONLY      = $00000020;
+(*
+ * Texture indices are not scaled by the texture size prior
+ * to interpolation.
+ *)
   D3DPTEXTURECAPS_TEXREPEATNOTSCALEDBYSIZE = $00000040;
+(*
+ * Device can draw alpha from texture palettes
+ *)
-  D3DPTEXTURECAPS_ALPHAPALETTE             = $00000080;
+  D3DPTEXTURECAPS_ALPHAPALETTE    = $00000080;
+(*
+ * Device can use non-POW2 textures if:
+ *  1) D3DTEXTURE_ADDRESS is set to CLAMP for this texture's stage
+ *  2) D3DRS_WRAP(N) is zero for this texture's coordinates
+ *  3) mip mapping is not enabled (use magnification filter only)
+ *)
-  D3DPTEXTURECAPS_NONPOW2CONDITIONAL       = $00000100;
+  D3DPTEXTURECAPS_NONPOW2CONDITIONAL  = $00000100;
+// 0x00000200L unused
+(*
+ * Device can divide transformed texture coordinates by the
+ * COUNTth texture coordinate (can do D3DTTFF_PROJECTED)
+ *)
-  D3DPTEXTURECAPS_PROJECTED                = $00000400;
+  D3DPTEXTURECAPS_PROJECTED  = $00000400;
+(*
+ * Device can do cubemap textures
+ *)
-  D3DPTEXTURECAPS_CUBEMAP                  = $00000800;
+  D3DPTEXTURECAPS_CUBEMAP           = $00000800;
-  D3DPTEXTURECAPS_COLORKEYBLEND            = $00001000;
+  D3DPTEXTURECAPS_COLORKEYBLEND     = $00001000;
-{ TD3DPrimCaps dwTextureFilterCaps }
+(* TD3DPrimCaps dwTextureFilterCaps *)
-  D3DPTFILTERCAPS_NEAREST          = $00000001;
+  D3DPTFILTERCAPS_NEAREST         = $00000001;
-  D3DPTFILTERCAPS_LINEAR           = $00000002;
+  D3DPTFILTERCAPS_LINEAR          = $00000002;
-  D3DPTFILTERCAPS_MIPNEAREST       = $00000004;
+  D3DPTFILTERCAPS_MIPNEAREST      = $00000004;
-  D3DPTFILTERCAPS_MIPLINEAR        = $00000008;
+  D3DPTFILTERCAPS_MIPLINEAR       = $00000008;
   D3DPTFILTERCAPS_LINEARMIPNEAREST = $00000010;
-  D3DPTFILTERCAPS_LINEARMIPLINEAR  = $00000020;
+  D3DPTFILTERCAPS_LINEARMIPLINEAR = $00000020;
-{ Device3 Min Filter }
+(* Device3 Min Filter *)
   D3DPTFILTERCAPS_MINFPOINT       = $00000100;
   D3DPTFILTERCAPS_MINFLINEAR      = $00000200;
   D3DPTFILTERCAPS_MINFANISOTROPIC = $00000400;
-{ Device3 Mip Filter }
+(* Device3 Mip Filter *)
   D3DPTFILTERCAPS_MIPFPOINT       = $00010000;
   D3DPTFILTERCAPS_MIPFLINEAR      = $00020000;
-{ Device3 Mag Filter }
+(* Device3 Mag Filter *)
   D3DPTFILTERCAPS_MAGFPOINT         = $01000000;
   D3DPTFILTERCAPS_MAGFLINEAR        = $02000000;
   D3DPTFILTERCAPS_MAGFANISOTROPIC   = $04000000;
   D3DPTFILTERCAPS_MAGFAFLATCUBIC    = $08000000;
   D3DPTFILTERCAPS_MAGFGAUSSIANCUBIC = $10000000;
-{ TD3DPrimCaps dwTextureBlendCaps }
+(* TD3DPrimCaps dwTextureBlendCaps *)
   D3DPTBLENDCAPS_DECAL            = $00000001;
   D3DPTBLENDCAPS_MODULATE         = $00000002;
   D3DPTBLENDCAPS_DECALALPHA       = $00000004;
   D3DPTBLENDCAPS_MODULATEALPHA    = $00000008;
   D3DPTBLENDCAPS_DECALMASK        = $00000010;
   D3DPTBLENDCAPS_MODULATEMASK     = $00000020;
   D3DPTBLENDCAPS_COPY             = $00000040;
-  D3DPTBLENDCAPS_ADD              = $00000080;
+  D3DPTBLENDCAPS_ADD                      = $00000080;
-{ TD3DPrimCaps dwTextureAddressCaps }
+(* TD3DPrimCaps dwTextureAddressCaps *)
   D3DPTADDRESSCAPS_WRAP           = $00000001;
   D3DPTADDRESSCAPS_MIRROR         = $00000002;
   D3DPTADDRESSCAPS_CLAMP          = $00000004;
   D3DPTADDRESSCAPS_BORDER         = $00000008;
   D3DPTADDRESSCAPS_INDEPENDENTUV  = $00000010;
-{ D3DDEVICEDESC dwStencilCaps }
+(* D3DDEVICEDESC dwStencilCaps *)
-  D3DSTENCILCAPS_KEEP    = $00000001;
+  D3DSTENCILCAPS_KEEP     = $00000001;
-  D3DSTENCILCAPS_ZERO    = $00000002;
+  D3DSTENCILCAPS_ZERO     = $00000002;
-  D3DSTENCILCAPS_REPLACE = $00000004;
+  D3DSTENCILCAPS_REPLACE  = $00000004;
-  D3DSTENCILCAPS_INCRSAT = $00000008;
+  D3DSTENCILCAPS_INCRSAT  = $00000008;
-  D3DSTENCILCAPS_DECRSAT = $00000010;
+  D3DSTENCILCAPS_DECRSAT  = $00000010;
-  D3DSTENCILCAPS_INVERT  = $00000020;
+  D3DSTENCILCAPS_INVERT   = $00000020;
-  D3DSTENCILCAPS_INCR    = $00000040;
+  D3DSTENCILCAPS_INCR     = $00000040;
-  D3DSTENCILCAPS_DECR    = $00000080;
+  D3DSTENCILCAPS_DECR     = $00000080;
-{ D3DDEVICEDESC dwTextureOpCaps }
+(* D3DDEVICEDESC dwTextureOpCaps *)
   D3DTEXOPCAPS_DISABLE                    = $00000001;
   D3DTEXOPCAPS_SELECTARG1                 = $00000002;
   D3DTEXOPCAPS_SELECTARG2                 = $00000004;
   D3DTEXOPCAPS_MODULATE                   = $00000008;
   D3DTEXOPCAPS_MODULATE2X                 = $00000010;
   D3DTEXOPCAPS_MODULATE4X                 = $00000020;
   D3DTEXOPCAPS_ADD                        = $00000040;
   D3DTEXOPCAPS_ADDSIGNED                  = $00000080;
   D3DTEXOPCAPS_ADDSIGNED2X                = $00000100;
   D3DTEXOPCAPS_SUBTRACT                   = $00000200;
   D3DTEXOPCAPS_ADDSMOOTH                  = $00000400;
   D3DTEXOPCAPS_BLENDDIFFUSEALPHA          = $00000800;
   D3DTEXOPCAPS_BLENDTEXTUREALPHA          = $00001000;
   D3DTEXOPCAPS_BLENDFACTORALPHA           = $00002000;
   D3DTEXOPCAPS_BLENDTEXTUREALPHAPM        = $00004000;
   D3DTEXOPCAPS_BLENDCURRENTALPHA          = $00008000;
   D3DTEXOPCAPS_PREMODULATE                = $00010000;
   D3DTEXOPCAPS_MODULATEALPHA_ADDCOLOR     = $00020000;
   D3DTEXOPCAPS_MODULATECOLOR_ADDALPHA     = $00040000;
   D3DTEXOPCAPS_MODULATEINVALPHA_ADDCOLOR  = $00080000;
   D3DTEXOPCAPS_MODULATEINVCOLOR_ADDALPHA  = $00100000;
   D3DTEXOPCAPS_BUMPENVMAP                 = $00200000;
   D3DTEXOPCAPS_BUMPENVMAPLUMINANCE        = $00400000;
   D3DTEXOPCAPS_DOTPRODUCT3                = $00800000;
-{ D3DDEVICEDESC dwFVFCaps flags }
+(* D3DDEVICEDESC dwFVFCaps flags *)
-  D3DFVFCAPS_TEXCOORDCOUNTMASK  = $0000ffff; // mask for texture coordinate count field
+  D3DFVFCAPS_TEXCOORDCOUNTMASK    = $0000ffff; (* mask for texture coordinate count field *)
-  D3DFVFCAPS_DONOTSTRIPELEMENTS = $00080000; // Device prefers that vertex elements not be stripped
+  D3DFVFCAPS_DONOTSTRIPELEMENTS   = $00080000; (* Device prefers that vertex elements not be stripped *)
+(*
-{ Description for a device. }
+ * Description for a device.
+ * This is used to describe a device that is to be created or to query
+ * the current device.
+ *)
 type
-  PD3DDeviceDesc_DX3 = ^TD3DDeviceDesc_DX3;
+  PD3DDeviceDesc = ^TD3DDeviceDesc;
-  TD3DDeviceDesc_DX3 = record
+  TD3DDeviceDesc = packed record
-    dwSize: DWORD;                       // Size of D3DDEVICEDESC structure
+    dwSize: DWORD;                       (* Size of TD3DDeviceDesc structure *)
-    dwFlags: DWORD;                      // Indicates which fields have valid data
+    dwFlags: DWORD;                      (* Indicates which fields have valid data *)
-    dcmColorModel: TD3DColorModel;        // Color model of device
+    dcmColorModel: TD3DColorModel;        (* Color model of device *)
-    dwDevCaps: DWORD;                    // Capabilities of device
+    dwDevCaps: DWORD;                    (* Capabilities of device *)
-    dtcTransformCaps: TD3DTransformCaps; // Capabilities of transform
+    dtcTransformCaps: TD3DTransformCaps;  (* Capabilities of transform *)
-    bClipping: BOOL;                     // Device can do 3D clipping
+    bClipping: BOOL;                     (* Device can do 3D clipping *)
-    dlcLightingCaps: TD3DLightingCaps;   // Capabilities of lighting
+    dlcLightingCaps: TD3DLightingCaps;    (* Capabilities of lighting *)
     dpcLineCaps: TD3DPrimCaps;
     dpcTriCaps: TD3DPrimCaps;
-    dwDeviceRenderBitDepth: DWORD;       // One of DDBB_8, 16, etc..
+    dwDeviceRenderBitDepth: DWORD;       (* One of DDBB_8, 16, etc.. *)
-    dwDeviceZBufferBitDepth: DWORD;      // One of DDBD_16, 32, etc..
+    dwDeviceZBufferBitDepth: DWORD;      (* One of DDBD_16, 32, etc.. *)
-    dwMaxBufferSize: DWORD;              // Maximum execute buffer size
+    dwMaxBufferSize: DWORD;              (* Maximum execute buffer size *)
-    dwMaxVertexCount: DWORD;             // Maximum vertex count
+    dwMaxVertexCount: DWORD;             (* Maximum vertex count *)
-  end;
+    // *** New fields for DX5 *** //
-  PD3DDeviceDesc_DX5 = ^TD3DDeviceDesc_DX5;
-  TD3DDeviceDesc_DX5 = record
-    dwSize: DWORD;                       // Size of D3DDEVICEDESC structure
-    dwFlags: DWORD;                      // Indicates which fields have valid data
-    dcmColorModel: TD3DColorModel;        // Color model of device
-    dwDevCaps: DWORD;                    // Capabilities of device
-    dtcTransformCaps: TD3DTransformCaps; // Capabilities of transform
-    bClipping: BOOL;                     // Device can do 3D clipping
-    dlcLightingCaps: TD3DLightingCaps;   // Capabilities of lighting
-    dpcLineCaps: TD3DPrimCaps;
-    dpcTriCaps: TD3DPrimCaps;
-    dwDeviceRenderBitDepth: DWORD;       // One of DDBB_8, 16, etc..
-    dwDeviceZBufferBitDepth: DWORD;      // One of DDBD_16, 32, etc..
-    dwMaxBufferSize: DWORD;              // Maximum execute buffer size
-    dwMaxVertexCount: DWORD;             // Maximum vertex count
-    // New fields for DX5
-    // Width and height caps are 0 for legacy HALs.
-    dwMinTextureWidth, dwMinTextureHeight  : DWORD;
-    dwMaxTextureWidth, dwMaxTextureHeight  : DWORD;
-    dwMinStippleWidth, dwMaxStippleWidth   : DWORD;
-    dwMinStippleHeight, dwMaxStippleHeight : DWORD;
-  end;
-  PD3DDeviceDesc_DX6 = ^TD3DDeviceDesc_DX6;
-  TD3DDeviceDesc_DX6 = record
-    dwSize: DWORD;                       // Size of D3DDEVICEDESC structure
-    dwFlags: DWORD;                      // Indicates which fields have valid data
-    dcmColorModel: TD3DColorModel;        // Color model of device
-    dwDevCaps: DWORD;                    // Capabilities of device
-    dtcTransformCaps: TD3DTransformCaps; // Capabilities of transform
-    bClipping: BOOL;                     // Device can do 3D clipping
-    dlcLightingCaps: TD3DLightingCaps;   // Capabilities of lighting
-    dpcLineCaps: TD3DPrimCaps;
-    dpcTriCaps: TD3DPrimCaps;
-    dwDeviceRenderBitDepth: DWORD;       // One of DDBB_8, 16, etc..
-    dwDeviceZBufferBitDepth: DWORD;      // One of DDBD_16, 32, etc..
-    dwMaxBufferSize: DWORD;              // Maximum execute buffer size
-    dwMaxVertexCount: DWORD;             // Maximum vertex count
-    // New fields for DX5
     // Width and height caps are 0 for legacy HALs.
     dwMinTextureWidth, dwMinTextureHeight  : DWORD;
     dwMaxTextureWidth, dwMaxTextureHeight  : DWORD;
     dwMinStippleWidth, dwMaxStippleWidth   : DWORD;
     dwMinStippleHeight, dwMaxStippleHeight : DWORD;
     // New fields for DX6
-    dwMaxTextureRepeat: DWORD;
+    dwMaxTextureRepeat : DWORD;
-    dwMaxTextureAspectRatio: DWORD;
+    dwMaxTextureAspectRatio : DWORD;
-    dwMaxAnisotropy: DWORD;
+    dwMaxAnisotropy : DWORD;
     // Guard band that the rasterizer can accommodate
     // Screen-space vertices inside this space but outside the viewport
     // will get clipped properly.
-    dvGuardBandLeft: TD3DValue;
+    dvGuardBandLeft : TD3DValue;
-    dvGuardBandTop: TD3DValue;
+    dvGuardBandTop : TD3DValue;
-    dvGuardBandRight: TD3DValue;
+    dvGuardBandRight : TD3DValue;
-    dvGuardBandBottom: TD3DValue;
+    dvGuardBandBottom : TD3DValue;
-    dvExtentsAdjust: TD3DValue;
+    dvExtentsAdjust : TD3DValue;
-    dwStencilCaps: DWORD;
+    dwStencilCaps : DWORD;
-    dwFVFCaps: DWORD;           // low 4 bits: 0 implies TLVERTEX only, 1..8 imply FVF aware
+    dwFVFCaps : DWORD;  (* low 4 bits: 0 implies TLVERTEX only, 1..8 imply FVF aware *)
-    dwTextureOpCaps: DWORD;
+    dwTextureOpCaps : DWORD;
-    wMaxTextureBlendStages: Word;
+    wMaxTextureBlendStages : WORD;
-    wMaxSimultaneousTextures: Word;
+    wMaxSimultaneousTextures : WORD;
   end;
-{$IFDEF DirectX3}
-  TD3DDeviceDesc = TD3DDeviceDesc_DX3;
-  PD3DDeviceDesc = PD3DDeviceDesc_DX3;
-{$ENDIF}{$IFDEF DirectX5}
-  TD3DDeviceDesc = TD3DDeviceDesc_DX5;
-  PD3DDeviceDesc = PD3DDeviceDesc_DX5;
-{$ENDIF}{$IFDEF DirectX6}
-  TD3DDeviceDesc = TD3DDeviceDesc_DX6;
-  PD3DDeviceDesc = PD3DDeviceDesc_DX6;
-{$ENDIF}{$IFDEF DirectX7}
-  TD3DDeviceDesc = TD3DDeviceDesc_DX6;
-  PD3DDeviceDesc = PD3DDeviceDesc_DX6;
-{$ENDIF}
-  D3DDEVICEDESC = TD3DDeviceDesc;
-  LPD3DDEVICEDESC = PD3DDeviceDesc;
   PD3DDeviceDesc7 = ^TD3DDeviceDesc7;
-  TD3DDeviceDesc7 = record
+  TD3DDeviceDesc7 = packed record
-    dwDevCaps: DWORD;
+    dwDevCaps:               DWORD;             (* Capabilities of device *)
-    dpcLineCaps: TD3DPrimCaps;
+    dpcLineCaps:             TD3DPrimCaps;
-    dpcTriCaps: TD3DPrimCaps;
+    dpcTriCaps:              TD3DPrimCaps;
-    dwDeviceRenderBitDepth: DWORD;
+    dwDeviceRenderBitDepth:  DWORD;             (* One of DDBB_8, 16, etc.. *)
-    dwDeviceZBufferBitDepth: DWORD;
+    dwDeviceZBufferBitDepth: DWORD;             (* One of DDBD_16, 32, etc.. *)
-    dwMinTextureWidth: DWORD;
-    dwMinTextureHeight: DWORD;
+    dwMinTextureWidth, dwMinTextureHeight: DWORD;
-    dwMaxTextureWidth: DWORD;
-    dwMaxTextureHeight: DWORD;
+    dwMaxTextureWidth, dwMaxTextureHeight: DWORD;
-    dwMaxTextureRepeat: DWORD;
+    dwMaxTextureRepeat:                    DWORD;
-    dwMaxTextureAspectRatio: DWORD;
+    dwMaxTextureAspectRatio:               DWORD;
-    dwMaxAnisotropy: DWORD;
+    dwMaxAnisotropy:                       DWORD;
-    dvGuardBandLeft: TD3DValue;
+    dvGuardBandLeft:                       TD3DValue;
-    dvGuardBandTop: TD3DValue;
+    dvGuardBandTop:                        TD3DValue;
-    dvGuardBandRight: TD3DValue;
+    dvGuardBandRight:                      TD3DValue;
-    dvGuardBandBottom: TD3DValue;
+    dvGuardBandBottom:                     TD3DValue;
-    dvExtentsAdjust: TD3DValue;
+    dvExtentsAdjust:                       TD3DValue;
-    dwStencilCaps: DWORD;
+    dwStencilCaps:                         DWORD;
-    dwFVFCaps: DWORD;
+    dwFVFCaps:                             DWORD;
-    dwTextureOpCaps: DWORD;
+    dwTextureOpCaps:                       DWORD;
-    wMaxTextureBlendStages: Word;
+    wMaxTextureBlendStages:                WORD;
-    wMaxSimultaneousTextures: Word;
+    wMaxSimultaneousTextures:              WORD;
-    dwMaxActiveLights: DWORD;
+    dwMaxActiveLights:                     DWORD;
-    dvMaxVertexW: TD3DValue;
+    dvMaxVertexW:                          TD3DValue;
-    deviceGUID: TGUID;
+    deviceGUID:                            TGUID;
-    wMaxUserClipPlanes: Word;
+    wMaxUserClipPlanes:                    WORD;
-    wMaxVertexBlendMatrices: Word;
+    wMaxVertexBlendMatrices:               WORD;
-    dwVertexProcessingCaps: DWORD;
+    dwVertexProcessingCaps:                DWORD;
-    dwReserved1: DWORD;
+    dwReserved1:                           DWORD;
-    dwReserved2: DWORD;
+    dwReserved2:                           DWORD;
-    dwReserved3: DWORD;
+    dwReserved3:                           DWORD;
-    dwReserved4: DWORD;
+    dwReserved4:                           DWORD;
   end;
+const
+  D3DDEVICEDESCSIZE = sizeof(TD3DDeviceDesc);
+  D3DDEVICEDESC7SIZE = sizeof(TD3DDeviceDesc7);
 type
-  TD3DEnumDevicesCallback = function(const lpGuid: TGUID;
+  TD3DEnumDevicesCallbackA = function (lpGuid: PGUID; // nil for the default device
-      lpDeviceDescription: LPSTR; lpDeviceName: LPSTR;
+      lpDeviceDescription: PAnsiChar; lpDeviceName: PAnsiChar;
-      const lpD3DHWDeviceDesc: TD3DDeviceDesc;
+      var lpD3DHWDeviceDesc: TD3DDeviceDesc;
-      const lpD3DHELDeviceDesc: TD3DDeviceDesc;
+      var lpD3DHELDeviceDesc: TD3DDeviceDesc;
-      lpUserArg: Pointer): HResult; stdcall;
+      lpContext : pointer) : HResult; stdcall;
+  TD3DEnumDevicesCallback = TD3DEnumDevicesCallbackA;
+  TD3DEnumDevicesCallback7A = function (
+      lpDeviceDescription: PAnsiChar; lpDeviceName: PAnsiChar;
+      const lpD3DDeviceDesc: TD3DDeviceDesc7; lpContext: Pointer) : HResult; stdcall;
-  LPD3DENUMDEVICESCALLBACK = TD3DEnumDevicesCallback;
+  TD3DEnumDevicesCallback7 = TD3DEnumDevicesCallback7A;
+(* TD3DDeviceDesc dwFlags indicating valid fields *)
+const
+  D3DDD_COLORMODEL            = $00000001; (* dcmColorModel is valid *)
+  D3DDD_DEVCAPS               = $00000002; (* dwDevCaps is valid *)
+  D3DDD_TRANSFORMCAPS         = $00000004; (* dtcTransformCaps is valid *)
+  D3DDD_LIGHTINGCAPS          = $00000008; (* dlcLightingCaps is valid *)
+  D3DDD_BCLIPPING             = $00000010; (* bClipping is valid *)
+  D3DDD_LINECAPS              = $00000020; (* dpcLineCaps is valid *)
+  D3DDD_TRICAPS               = $00000040; (* dpcTriCaps is valid *)
+  D3DDD_DEVICERENDERBITDEPTH  = $00000080; (* dwDeviceRenderBitDepth is valid *)
+  D3DDD_DEVICEZBUFFERBITDEPTH = $00000100; (* dwDeviceZBufferBitDepth is valid *)
+  D3DDD_MAXBUFFERSIZE         = $00000200; (* dwMaxBufferSize is valid *)
+  D3DDD_MAXVERTEXCOUNT        = $00000400; (* dwMaxVertexCount is valid *)
+(* TD3DDeviceDesc dwDevCaps flags *)
+  D3DDEVCAPS_FLOATTLVERTEX        = $00000001; (* Device accepts floating point *)
+                                                    (* for post-transform vertex data *)
+  D3DDEVCAPS_SORTINCREASINGZ      = $00000002; (* Device needs data sorted for increasing Z*)
+  D3DDEVCAPS_SORTDECREASINGZ      = $00000004; (* Device needs data sorted for decreasing Z*)
+  D3DDEVCAPS_SORTEXACT            = $00000008; (* Device needs data sorted exactly *)
+  D3DDEVCAPS_EXECUTESYSTEMMEMORY  = $00000010; (* Device can use execute buffers from system memory *)
+  D3DDEVCAPS_EXECUTEVIDEOMEMORY   = $00000020; (* Device can use execute buffers from video memory *)
+  D3DDEVCAPS_TLVERTEXSYSTEMMEMORY = $00000040; (* Device can use TL buffers from system memory *)
+  D3DDEVCAPS_TLVERTEXVIDEOMEMORY  = $00000080; (* Device can use TL buffers from video memory *)
+  D3DDEVCAPS_TEXTURESYSTEMMEMORY  = $00000100; (* Device can texture from system memory *)
-  TD3DEnumDevicesCallback7 = function(lpDeviceDescription: LPSTR; lpDeviceName: LPSTR;
+  D3DDEVCAPS_TEXTUREVIDEOMEMORY   = $00000200; (* Device can texture from device memory *)
-      const lpD3DDeviceDesc: TD3DDeviceDesc7; lpUserArg: Pointer): HResult; stdcall;
+  D3DDEVCAPS_DRAWPRIMTLVERTEX     = $00000400; (* Device can draw TLVERTEX primitives *)
+  D3DDEVCAPS_CANRENDERAFTERFLIP   = $00000800; (* Device can render without waiting for flip to complete *)
+  D3DDEVCAPS_TEXTURENONLOCALVIDMEM   = $00001000; (* Device can texture from nonlocal video memory *)
+  D3DDEVCAPS_DRAWPRIMITIVES2         = $00002000; (* Device can support DrawPrimitives2 *)
+  D3DDEVCAPS_SEPARATETEXTUREMEMORIES = $00004000; (* Device is texturing from separate memory pools *)
+  D3DDEVCAPS_DRAWPRIMITIVES2EX       = $00008000; (* Device can support Extended DrawPrimitives2 i.e. DX7 compliant driver*)
+  D3DDEVCAPS_HWTRANSFORMANDLIGHT     = $00010000; (* Device can support transformation and lighting in hardware and DRAWPRIMITIVES2EX must be also *)
+  D3DDEVCAPS_CANBLTSYSTONONLOCAL     = $00020000; (* Device supports a Tex Blt from system memory to non-local vidmem *)
+  D3DDEVCAPS_HWRASTERIZATION         = $00080000; (* Device has HW acceleration for rasterization *)
-  LPD3DENUMDEVICESCALLBACK7 = TD3DEnumDevicesCallback7;
-{ TD3DDeviceDesc dwFlags indicating valid fields }
+(*
-const
-  D3DDD_COLORMODEL            = $00000001; // dcmColorModel is valid
-  D3DDD_DEVCAPS               = $00000002; // dwDevCaps is valid
-  D3DDD_TRANSFORMCAPS         = $00000004; // dtcTransformCaps is valid
-  D3DDD_LIGHTINGCAPS          = $00000008; // dlcLightingCaps is valid
-  D3DDD_BCLIPPING             = $00000010; // bClipping is valid
-  D3DDD_LINECAPS              = $00000020; // dpcLineCaps is valid
-  D3DDD_TRICAPS               = $00000040; // dpcTriCaps is valid
-  D3DDD_DEVICERENDERBITDEPTH  = $00000080; // dwDeviceRenderBitDepth is valid
-  D3DDD_DEVICEZBUFFERBITDEPTH = $00000100; // dwDeviceZBufferBitDepth is valid
-  D3DDD_MAXBUFFERSIZE         = $00000200; // dwMaxBufferSize is valid
-  D3DDD_MAXVERTEXCOUNT        = $00000400; // dwMaxVertexCount is valid
+ * These are the flags in the D3DDEVICEDESC7.dwVertexProcessingCaps field
-{ TD3DDeviceDesc dwDevCaps flags }
-  D3DDEVCAPS_FLOATTLVERTEX           = $00000001; // Device accepts floating point
-                                                 // for post-transform vertex data
-  D3DDEVCAPS_SORTINCREASINGZ         = $00000002; // Device needs data sorted for increasing Z
-  D3DDEVCAPS_SORTDECREASINGZ         = $00000004; // Device needs data sorted for decreasing Z
-  D3DDEVCAPS_SORTEXACT               = $00000008; // Device needs data sorted exactly
-  D3DDEVCAPS_EXECUTESYSTEMMEMORY     = $00000010; // Device can use execute buffers from system memory
-  D3DDEVCAPS_EXECUTEVIDEOMEMORY      = $00000020; // Device can use execute buffers from video memory
-  D3DDEVCAPS_TLVERTEXSYSTEMMEMORY    = $00000040; // Device can use TL buffers from system memory
-  D3DDEVCAPS_TLVERTEXVIDEOMEMORY     = $00000080; // Device can use TL buffers from video memory
-  D3DDEVCAPS_TEXTURESYSTEMMEMORY     = $00000100; // Device can texture from system memory
-  D3DDEVCAPS_TEXTUREVIDEOMEMORY      = $00000200; // Device can texture from device memory
-  D3DDEVCAPS_DRAWPRIMTLVERTEX        = $00000400; // Device can draw TLVERTEX primitives
-  D3DDEVCAPS_CANRENDERAFTERFLIP      = $00000800; // Device can render without waiting for flip to complete
-  D3DDEVCAPS_TEXTURENONLOCALVIDMEM   = $00001000; // Device can texture from nonlocal video memory
-  D3DDEVCAPS_DRAWPRIMITIVES2         = $00002000; // Device can support DrawPrimitives2
-  D3DDEVCAPS_SEPARATETEXTUREMEMORIES = $00004000; // Device is texturing from separate memory pools
-  D3DDEVCAPS_DRAWPRIMITIVES2EX       = $00008000; // Device can support Extended DrawPrimitives2 i.e. DX7 compliant driver
-  D3DDEVCAPS_HWTRANSFORMANDLIGHT     = $00010000; // Device can support transformation and lighting in hardware and DRAWPRIMITIVES2EX must be also
-  D3DDEVCAPS_CANBLTSYSTONONLOCAL     = $00020000; // Device supports a Tex Blt from system memory to non-local vidmem
-  D3DDEVCAPS_HWRASTERIZATION         = $00080000; // Device has HW acceleration for rasterization
+ *)
-{ TD3DDeviceDesc7.dwVertexProcessingCaps field }
+(* device can do texgen *)
-  D3DVTXPCAPS_TEXGEN            = $00000001;
+  D3DVTXPCAPS_TEXGEN              = $00000001;
+(* device can do IDirect3DDevice7 colormaterialsource ops *)
-  D3DVTXPCAPS_MATERIALSOURCE7   = $00000002;
+  D3DVTXPCAPS_MATERIALSOURCE7     = $00000002;
+(* device can do vertex fog *)
-  D3DVTXPCAPS_VERTEXFOG         = $00000004;
+  D3DVTXPCAPS_VERTEXFOG           = $00000004;
+(* device can do directional lights *)
-  D3DVTXPCAPS_DIRECTIONALLIGHTS = $00000008;
+  D3DVTXPCAPS_DIRECTIONALLIGHTS   = $00000008;
+(* device can do positional lights (includes point and spot) *)
-  D3DVTXPCAPS_POSITIONALLIGHTS  = $00000010;
+  D3DVTXPCAPS_POSITIONALLIGHTS    = $00000010;
+(* device can do local viewer *)
-  D3DVTXPCAPS_LOCALVIEWER       = $00000020;
+  D3DVTXPCAPS_LOCALVIEWER         = $00000020;
-  D3DFDS_COLORMODEL         = $00000001; // Match color model
+  D3DFDS_COLORMODEL        = $00000001; (* Match color model *)
-  D3DFDS_GUID               = $00000002; // Match guid
+  D3DFDS_GUID              = $00000002; (* Match guid *)
-  D3DFDS_HARDWARE           = $00000004; // Match hardware/software
+  D3DFDS_HARDWARE          = $00000004; (* Match hardware/software *)
-  D3DFDS_TRIANGLES          = $00000008; // Match in triCaps
+  D3DFDS_TRIANGLES         = $00000008; (* Match in triCaps *)
-  D3DFDS_LINES              = $00000010; // Match in lineCaps
+  D3DFDS_LINES             = $00000010; (* Match in lineCaps  *)
-  D3DFDS_MISCCAPS           = $00000020; // Match primCaps.dwMiscCaps
+  D3DFDS_MISCCAPS          = $00000020; (* Match primCaps.dwMiscCaps *)
-  D3DFDS_RASTERCAPS         = $00000040; // Match primCaps.dwRasterCaps
+  D3DFDS_RASTERCAPS        = $00000040; (* Match primCaps.dwRasterCaps *)
-  D3DFDS_ZCMPCAPS           = $00000080; // Match primCaps.dwZCmpCaps
+  D3DFDS_ZCMPCAPS          = $00000080; (* Match primCaps.dwZCmpCaps *)
-  D3DFDS_ALPHACMPCAPS       = $00000100; // Match primCaps.dwAlphaCmpCaps
+  D3DFDS_ALPHACMPCAPS      = $00000100; (* Match primCaps.dwAlphaCmpCaps *)
-  D3DFDS_SRCBLENDCAPS       = $00000200; // Match primCaps.dwSourceBlendCaps
+  D3DFDS_SRCBLENDCAPS      = $00000200; (* Match primCaps.dwSourceBlendCaps *)
-  D3DFDS_DSTBLENDCAPS       = $00000400; // Match primCaps.dwDestBlendCaps
+  D3DFDS_DSTBLENDCAPS      = $00000400; (* Match primCaps.dwDestBlendCaps *)
-  D3DFDS_SHADECAPS          = $00000800; // Match primCaps.dwShadeCaps
+  D3DFDS_SHADECAPS         = $00000800; (* Match primCaps.dwShadeCaps *)
-  D3DFDS_TEXTURECAPS        = $00001000; // Match primCaps.dwTextureCaps
+  D3DFDS_TEXTURECAPS       = $00001000; (* Match primCaps.dwTextureCaps *)
-  D3DFDS_TEXTUREFILTERCAPS  = $00002000; // Match primCaps.dwTextureFilterCaps
+  D3DFDS_TEXTUREFILTERCAPS = $00002000; (* Match primCaps.dwTextureFilterCaps *)
-  D3DFDS_TEXTUREBLENDCAPS   = $00004000; // Match primCaps.dwTextureBlendCaps
+  D3DFDS_TEXTUREBLENDCAPS  = $00004000; (* Match primCaps.dwTextureBlendCaps *)
-  D3DFDS_TEXTUREADDRESSCAPS = $00008000; // Match primCaps.dwTextureBlendCaps
+  D3DFDS_TEXTUREADDRESSCAPS  = $00008000; (* Match primCaps.dwTextureBlendCaps *)
-{ FindDevice arguments }
+(*
+ * FindDevice arguments
+ *)
 type
   PD3DFindDeviceSearch = ^TD3DFindDeviceSearch;
-  TD3DFindDeviceSearch = record
+  TD3DFindDeviceSearch = packed record
     dwSize: DWORD;
     dwFlags: DWORD;
     bHardware: BOOL;
     dcmColorModel: TD3DColorModel;
     guid: TGUID;
     dwCaps: DWORD;
     dpcPrimCaps: TD3DPrimCaps;
   end;
-  D3DFINDDEVICESEARCH = TD3DFindDeviceSearch;
-  LPD3DFINDDEVICESEARCH = PD3DFindDeviceSearch;
   PD3DFindDeviceResult = ^TD3DFindDeviceResult;
-  TD3DFindDeviceResult = record
+  TD3DFindDeviceResult = packed record
     dwSize: DWORD;
-    guid: TGUID;               // guid which matched
+    guid: TGUID;               (* guid which matched *)
-    ddHwDesc: TD3DDeviceDesc;   // hardware TD3DDeviceDesc
+    ddHwDesc: TD3DDeviceDesc;   (* hardware TD3DDeviceDesc *)
-    ddSwDesc: TD3DDeviceDesc;   // software TD3DDeviceDesc
+    ddSwDesc: TD3DDeviceDesc;   (* software TD3DDeviceDesc *)
   end;
-  D3DFINDDEVICERESULT = TD3DFindDeviceResult;
-  LPD3DFINDDEVICERESULT = PD3DFindDeviceResult;
+(*
-{ Description of execute buffer. }
+ * Description of execute buffer.
+ *)
   PD3DExecuteBufferDesc = ^TD3DExecuteBufferDesc;
-  TD3DExecuteBufferDesc = record
+  TD3DExecuteBufferDesc = packed record
-    dwSize: DWORD;         // size of this structure
+    dwSize: DWORD;         (* size of this structure *)
-    dwFlags: DWORD;        // flags indicating which fields are valid
+    dwFlags: DWORD;        (* flags indicating which fields are valid *)
-    dwCaps: DWORD;         // capabilities of execute buffer
+    dwCaps: DWORD;         (* capabilities of execute buffer *)
-    dwBufferSize: DWORD;   // size of execute buffer data
+    dwBufferSize: DWORD;   (* size of execute buffer data *)
-    lpData: Pointer;       // pointer to actual data
+    lpData: Pointer;       (* pointer to actual data *)
   end;
-  D3DEXECUTEBUFFERDESC = TD3DExecuteBufferDesc;
-  LPD3DEXECUTEBUFFERDESC = PD3DExecuteBufferDesc;
-{ D3DEXECUTEBUFFER dwFlags indicating valid fields }
+(* D3DEXECUTEBUFFER dwFlags indicating valid fields *)
 const
-  D3DDEB_BUFSIZE          = $00000001;     // buffer size valid
+  D3DDEB_BUFSIZE          = $00000001;     (* buffer size valid *)
-  D3DDEB_CAPS             = $00000002;     // caps valid
+  D3DDEB_CAPS             = $00000002;     (* caps valid *)
-  D3DDEB_LPDATA           = $00000004;     // lpData valid
+  D3DDEB_LPDATA           = $00000004;     (* lpData valid *)
-{ D3DEXECUTEBUFFER dwCaps }
+(* D3DEXECUTEBUFFER dwCaps *)
-  D3DDEBCAPS_SYSTEMMEMORY = $00000001;     // buffer in system memory
+  D3DDEBCAPS_SYSTEMMEMORY = $00000001;     (* buffer in system memory *)
-  D3DDEBCAPS_VIDEOMEMORY  = $00000002;     // buffer in device memory
+  D3DDEBCAPS_VIDEOMEMORY  = $00000002;     (* buffer in device memory *)
-  D3DDEBCAPS_MEM          = D3DDEBCAPS_SYSTEMMEMORY or D3DDEBCAPS_VIDEOMEMORY;
+  D3DDEBCAPS_MEM          = (D3DDEBCAPS_SYSTEMMEMORY or D3DDEBCAPS_VIDEOMEMORY);
 type
-{  TD3DDevInfo_TextureManager  }
   PD3DDevInfo_TextureManager = ^TD3DDevInfo_TextureManager;
-  TD3DDevInfo_TextureManager = record
+  TD3DDevInfo_TextureManager = packed record
-    bThrashing: BOOL;                // indicates if thrashing
+    bThrashing:              BOOL;       (* indicates if thrashing *)
-    dwApproxBytesDownloaded: DWORD;  // Approximate number of bytes downloaded by texture manager
+    dwApproxBytesDownloaded: DWORD;      (* Approximate number of bytes downloaded by texture manager *)
-    dwNumEvicts: DWORD;              // number of textures evicted
+    dwNumEvicts:             DWORD;      (* number of textures evicted *)
-    dwNumVidCreates: DWORD;          // number of textures created in video memory
+    dwNumVidCreates:         DWORD;      (* number of textures created in video memory *)
-    dwNumTexturesUsed: DWORD;        // number of textures used
+    dwNumTexturesUsed:       DWORD;      (* number of textures used *)
-    dwNumUsedTexInVid: DWORD;        // number of used textures present in video memory
+    dwNumUsedTexInVid:       DWORD;      (* number of used textures present in video memory *)
-    dwWorkingSet: DWORD;             // number of textures in video memory
+    dwWorkingSet:            DWORD;      (* number of textures in video memory *)
-    dwWorkingSetBytes: DWORD;        // number of bytes in video memory
+    dwWorkingSetBytes:       DWORD;      (* number of bytes in video memory *)
-    dwTotalManaged: DWORD;           // total number of managed textures
+    dwTotalManaged:          DWORD;      (* total number of managed textures *)
-    dwTotalBytes: DWORD;             // total number of bytes of managed textures
+    dwTotalBytes:            DWORD;      (* total number of bytes of managed textures *)
-    dwLastPri: DWORD;                // priority of last texture evicted
+    dwLastPri:               DWORD;      (* priority of last texture evicted *)
   end;
-  D3DDEVINFO_TEXTUREMANAGER = TD3DDevInfo_TextureManager;
-  LPD3DDEVINFO_TEXTUREMANAGER = PD3DDevInfo_TextureManager;
-{ TD3DDevInfo_Texturing }
   PD3DDevInfo_Texturing = ^TD3DDevInfo_Texturing;
-  TD3DDevInfo_Texturing = record
+  TD3DDevInfo_Texturing = packed record
-    dwNumLoads: DWORD;           // counts Load() API calls
+    dwNumLoads:          DWORD;          (* counts Load() API calls *)
-    dwApproxBytesLoaded: DWORD;  // Approximate number bytes loaded via Load()
+    dwApproxBytesLoaded: DWORD;          (* Approximate number bytes loaded via Load() *)
-    dwNumPreLoads: DWORD;        // counts PreLoad() API calls
+    dwNumPreLoads:       DWORD;          (* counts PreLoad() API calls *)
-    dwNumSet: DWORD;             // counts SetTexture() API calls
+    dwNumSet:            DWORD;          (* counts SetTexture() API calls *)
-    dwNumCreates: DWORD;         // counts texture creates
+    dwNumCreates:        DWORD;          (* counts texture creates *)
-    dwNumDestroys: DWORD;        // counts texture destroys
+    dwNumDestroys:       DWORD;          (* counts texture destroys *)
-    dwNumSetPriorities: DWORD;   // counts SetPriority() API calls
+    dwNumSetPriorities:  DWORD;          (* counts SetPriority() API calls *)
-    dwNumSetLODs: DWORD;         // counts SetLOD() API calls
+    dwNumSetLODs:        DWORD;          (* counts SetLOD() API calls *)
-    dwNumLocks: DWORD;           // counts number of texture locks
+    dwNumLocks:          DWORD;          (* counts number of texture locks *)
-    dwNumGetDCs: DWORD;          // counts number of GetDCs to textures
+    dwNumGetDCs:         DWORD;          (* counts number of GetDCs to textures *)
   end;
-  D3DDEVINFO_TEXTURING = TD3DDevInfo_Texturing;
-  LPD3DDEVINFO_TEXTURING = PD3DDevInfo_Texturing;
 (*==========================================================================;
+ *
- *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *
- *  File:       d3d.h
+ *  File:   d3d.h
  *  Content:    Direct3D include file
+ *
- ***************************************************************************)
+ ****************************************************************************)
+function D3DErrorString(Value: HResult) : string;
+(*
-{ Interface IID's }
+ * Interface IID's
+ *)
 const
-  IID_IDirect3D: TGUID = '{3BBA0080-2421-11CF-A31A-00AA00B93356}';
-  IID_IDirect3D2: TGUID = '{6AAE1EC1-662A-11D0-889D-00AA00BBB76A}';
-  IID_IDirect3D3: TGUID = '{BB223240-E72B-11D0-A9B4-00AA00C0993E}';
-  IID_IDirect3D7: TGUID = '{F5049E77-4861-11D2-A407-00A0C90629A8}';
+(*
-  IID_IDirect3DRampDevice: TGUID = '{F2086B20-259F-11CF-A31A-00AA00B93356}';
+ * Internal Guid to distinguish requested MMX from MMX being used as an RGB rasterizer
+ *)
-  IID_IDirect3DRGBDevice: TGUID = '{A4665C60-2673-11CF-A31A-00AA00B93356}';
+  IID_IDirect3DRampDevice: TGUID =
-  IID_IDirect3DHALDevice: TGUID = '{84E63DE0-46AA-11CF-816F-0000C020156E}';
+      (D1:$F2086B20;D2:$259F;D3:$11CF;D4:($A3,$1A,$00,$AA,$00,$B9,$33,$56));
-  IID_IDirect3DMMXDevice: TGUID = '{881949A1-D6F3-11D0-89AB-00A0C9054129}';
+  IID_IDirect3DRGBDevice: TGUID =
-  IID_IDirect3DRefDevice: TGUID = '{50936643-13E9-11D1-89AA-00A0C9054129}';
+      (D1:$A4665C60;D2:$2673;D3:$11CF;D4:($A3,$1A,$00,$AA,$00,$B9,$33,$56));
-  IID_IDirect3DNullDevice: TGUID = '{8767DF22-BACC-11D1-8969-00A0C90629A8}';
+  IID_IDirect3DHALDevice: TGUID =
-  IID_IDirect3DTnLHalDevice: TGUID = '{F5049E78-4861-11D2-A407-00A0C90629A8}';
+      (D1:$84E63dE0;D2:$46AA;D3:$11CF;D4:($81,$6F,$00,$00,$C0,$20,$15,$6E));
-  IID_IDirect3DDevice: TGUID = '{64108800-957D-11D0-89AB-00A0C9054129}';
+  IID_IDirect3DMMXDevice: TGUID =
-  IID_IDirect3DDevice2: TGUID = '{93281501-8CF8-11D0-89AB-00A0C9054129}';
+      (D1:$881949a1;D2:$d6f3;D3:$11d0;D4:($89,$ab,$00,$a0,$c9,$05,$41,$29));
-  IID_IDirect3DDevice3: TGUID = '{B0AB3B60-33D7-11D1-A981-00C04FD7B174}';
-  IID_IDirect3DDevice7: TGUID = '{F5049E79-4861-11D2-A407-00A0C90629A8}';
-  IID_IDirect3DTexture: TGUID ='{2CDCD9E0-25A0-11CF-A31A-00AA00B93356}';
+  IID_IDirect3DRefDevice: TGUID =
-  IID_IDirect3DTexture2: TGUID = '{93281502-8CF8-11D0-89AB-00A0C9054129}';
+      (D1:$50936643;D2:$13e9;D3:$11d1;D4:($89,$aa,$00,$a0,$c9,$05,$41,$29));
-  IID_IDirect3DLight: TGUID = '{4417C142-33AD-11CF-816F-0000C020156E}';
-  IID_IDirect3DMaterial: TGUID = '{4417C144-33AD-11CF-816F-0000C020156E}';
+  IID_IDirect3DNullDevice: TGUID =
-  IID_IDirect3DMaterial2: TGUID = '{93281503-8CF8-11D0-89AB-00A0C9054129}';
-  IID_IDirect3DMaterial3: TGUID = '{CA9C46F4-D3C5-11D1-B75A-00600852B312}';
-  IID_IDirect3DExecuteBuffer: TGUID = '{4417C145-33AD-11CF-816F-0000C020156E}';
-  IID_IDirect3DViewport: TGUID = '{4417C146-33AD-11CF-816F-0000C020156E}';
-  IID_IDirect3DViewport2: TGUID = '{93281500-8CF8-11D0-89AB-00A0C9054129}';
+      (D1:$8767df22;D2:$bacc;D3:$11d1;D4:($89,$69,$00,$a0,$c9,$06,$29,$a8));
-  IID_IDirect3DViewport3: TGUID = '{B0AB3B61-33D7-11D1-A981-00C04FD7B174}';
-  IID_IDirect3DVertexBuffer: TGUID = '{7A503555-4A83-11D1-A5DB-00A0C90367F8}';
-  IID_IDirect3DVertexBuffer7: TGUID = '{F5049E7D-4861-11D2-A407-00A0C90629A8}';
-{ Data structures }
+  IID_IDirect3DTnLHalDevice: TGUID = '{f5049e78-4861-11d2-a407-00a0c90629a8}';
 type
   IDirect3D = interface;
   IDirect3D2 = interface;
   IDirect3D3 = interface;
   IDirect3D7 = interface;
   IDirect3DDevice = interface;
   IDirect3DDevice2 = interface;
   IDirect3DDevice3 = interface;
   IDirect3DDevice7 = interface;
   IDirect3DExecuteBuffer = interface;
   IDirect3DLight = interface;
   IDirect3DMaterial = interface;
   IDirect3DMaterial2 = interface;
   IDirect3DMaterial3 = interface;
   IDirect3DTexture = interface;
   IDirect3DTexture2 = interface;
   IDirect3DViewport = interface;
   IDirect3DViewport2 = interface;
   IDirect3DViewport3 = interface;
   IDirect3DVertexBuffer = interface;
   IDirect3DVertexBuffer7 = interface;
+(*
+ * Direct3D interfaces
+ *)
-  IDirect3D = interface(IUnknown)
+  IDirect3D = interface (IUnknown)
     ['{3BBA0080-2421-11CF-A31A-00AA00B93356}']
-    // IDirect3D methods
+    (*** IDirect3D methods ***)
-    function Initialize(const lpREFIID: TGUID): HResult; stdcall;
+    function Initialize (lpREFIID: {REFIID} PGUID) : HResult; stdcall;
-    function EnumDevices(lpEnumDevicesCallback: TD3DEnumDevicesCallback;
+    function EnumDevices (lpEnumDevicesCallback: TD3DEnumDevicesCallback;
-        lpUserArg: Pointer): HResult; stdcall;
+        lpUserArg: Pointer) : HResult; stdcall;
-    function CreateLight(out lplpDirect3Dlight: IDirect3DLight;
+    function CreateLight (var lplpDirect3Dlight: IDirect3DLight;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreateMaterial(out lplpDirect3DMaterial: IDirect3DMaterial;
+    function CreateMaterial (var lplpDirect3DMaterial: IDirect3DMaterial;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreateViewport(out lplpD3DViewport: IDirect3DViewport;
+    function CreateViewport (var lplpD3DViewport: IDirect3DViewport;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function FindDevice(const lpD3DFDS: TD3DFindDeviceSearch;
+    function FindDevice (var lpD3DFDS: TD3DFindDeviceSearch;
-        var lpD3DFDR: TD3DFindDeviceResult): HResult; stdcall;
+        var lpD3DFDR: TD3DFindDeviceResult) : HResult; stdcall;
   end;
-  IDirect3D2 = interface(IUnknown)
+  IDirect3D2 = interface (IUnknown)
-    ['{6AAE1EC1-662A-11D0-889D-00AA00BBB76A}']
+    ['{6aae1ec1-662a-11d0-889d-00aa00bbb76a}']
-    // IDirect3D methods
+    (*** IDirect3D2 methods ***)
     function EnumDevices(lpEnumDevicesCallback: TD3DEnumDevicesCallback;
-        lpUserArg: Pointer): HResult; stdcall;
+        lpUserArg: pointer) : HResult; stdcall;
-    function CreateLight(out lplpDirect3Dlight: IDirect3DLight;
+    function CreateLight (var lplpDirect3Dlight: IDirect3DLight;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreateMaterial(out lplpDirect3DMaterial: IDirect3DMaterial2;
+    function CreateMaterial (var lplpDirect3DMaterial2: IDirect3DMaterial2;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreateViewport(out lplpD3DViewport: IDirect3DViewport2;
+    function CreateViewport (var lplpD3DViewport2: IDirect3DViewport2;
-        pUnkOuter: IUnknown ): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function FindDevice(const lpD3DFDS: TD3DFindDeviceSearch;
+    function FindDevice (var lpD3DFDS: TD3DFindDeviceSearch;
-        var lpD3DFDR: TD3DFindDeviceResult): HResult; stdcall;
+        var lpD3DFDR: TD3DFindDeviceResult) : HResult; stdcall;
-    // IDirect3D2 methods
-    function CreateDevice(const rclsid: TGUID; lpDDS: IDirectDrawSurface;
+    function CreateDevice (const rclsid: TRefClsID; lpDDS: IDirectDrawSurface;
-        out lplpD3DDevice2: IDirect3DDevice2): HResult; stdcall;
+        out lplpD3DDevice2: IDirect3DDevice2) : HResult; stdcall;
   end;
-  IDirect3D3 = interface(IUnknown)
+  IDirect3D3 = interface (IUnknown)
-    ['{BB223240-E72B-11D0-A9B4-00AA00C0993E}']
+    ['{bb223240-e72b-11d0-a9b4-00aa00c0993e}']
-    // IDirect3D methods
+    (*** IDirect3D3 methods ***)
     function EnumDevices(lpEnumDevicesCallback: TD3DEnumDevicesCallback;
-        lpUserArg: Pointer): HResult; stdcall;
+        lpUserArg: pointer) : HResult; stdcall;
-    function CreateLight(out lplpDirect3Dlight: IDirect3DLight;
+    function CreateLight (var lplpDirect3Dlight: IDirect3DLight;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreateMaterial(out lplpDirect3DMaterial: IDirect3DMaterial3;
+    function CreateMaterial (var lplpDirect3DMaterial3: IDirect3DMaterial3;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreateViewport(out lplpD3DViewport: IDirect3DViewport3;
+    function CreateViewport (var lplpD3DViewport3: IDirect3DViewport3;
-        pUnkOuter: IUnknown ): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function FindDevice(const lpD3DFDS: TD3DFindDeviceSearch;
+    function FindDevice (var lpD3DFDS: TD3DFindDeviceSearch;
-        var lpD3DFDR: TD3DFindDeviceResult): HResult; stdcall;
+        var lpD3DFDR: TD3DFindDeviceResult) : HResult; stdcall;
-    // IDirect3D2 methods
-    function CreateDevice(const rclsid: TGUID; lpDDS: IDirectDrawSurface4;
+    function CreateDevice (const rclsid: TRefClsID; lpDDS: IDirectDrawSurface4;
-        out lplpD3DDevice2: IDirect3DDevice3; pUnkOuter: IUnknown): HResult; stdcall;
+        out lplpD3DDevice: IDirect3DDevice3; pUnkOuter: IUnknown) : HResult; stdcall;
-    // IDirect3D3 methods
+    function CreateVertexBuffer (var lpVBDesc: TD3DVertexBufferDesc;
-    function CreateVertexBuffer(const lpVBDesc: TD3DVertexBufferDesc;
+        var lpD3DVertexBuffer: IDirect3DVertexBuffer;
-        out lpD3DVertexBuffer: IDirect3DVertexBuffer; dwFlags: DWORD; pUnkOuter: IUnknown): HResult; stdcall;
+        dwFlags: DWORD; pUnkOuter: IUnknown) : HResult; stdcall;
-    function EnumZBufferFormats(const riidDevice: TGUID; lpEnumCallback: TD3DEnumPixelFormatsCallback;
+    function EnumZBufferFormats (const riidDevice: TRefClsID; lpEnumCallback:
-      lpContext: Pointer): HResult; stdcall;
+        TD3DEnumPixelFormatsCallback; lpContext: pointer) : HResult; stdcall;
-    function EvictManagedTextures: HResult; stdcall;
+    function EvictManagedTextures : HResult; stdcall;
   end;
-  IDirect3D7 = interface(IUnknown)
+  IDirect3D7 = interface (IUnknown)
-    ['{F5049E77-4861-11D2-A407-00A0C90629A8}']
+    ['{f5049e77-4861-11d2-a407-00a0c90629a8}']
-    // IDirect3D7 methods
+    (*** IDirect3D7 methods ***)
     function EnumDevices(lpEnumDevicesCallback: TD3DEnumDevicesCallback7;
-        lpUserArg: Pointer): HResult; stdcall;
+        lpUserArg: pointer) : HResult; stdcall;
-    function CreateDevice(const rclsid: TGUID; lpDDS: IDirectDrawSurface7;
+    function CreateDevice (const rclsid: TGUID; lpDDS: IDirectDrawSurface7;
-        out lplpD3DDevice7: IDirect3DDevice7): HResult; stdcall;
+        out lplpD3DDevice: IDirect3DDevice7) : HResult; stdcall;
-    function CreateVertexBuffer(const lpVBDesc: TD3DVertexBufferDesc;
+    function CreateVertexBuffer (const lpVBDesc: TD3DVertexBufferDesc;
-        out lpD3DVertexBuffer: IDirect3DVertexBuffer7; dwFlags: DWORD): HResult; stdcall;
+        out lplpD3DVertexBuffer: IDirect3DVertexBuffer7;
+        dwFlags: DWORD) : HResult; stdcall;
-    function EnumZBufferFormats(const riidDevice: TGUID; lpEnumCallback: TD3DEnumPixelFormatsCallback;
+    function EnumZBufferFormats (const riidDevice: TGUID; lpEnumCallback:
-      lpContext: Pointer): HResult; stdcall;
+        TD3DEnumPixelFormatsCallback; lpContext: pointer) : HResult; stdcall;
-    function EvictManagedTextures: HResult; stdcall;
+    function EvictManagedTextures : HResult; stdcall;
   end;
+(*
+ * Direct3D Device interfaces
+ *)
-  IDirect3DDevice = interface(IUnknown)
+  IDirect3DDevice = interface (IUnknown)
-    ['{64108800-957D-11D0-89AB-00A0C9054129}']
+    ['{64108800-957d-11d0-89ab-00a0c9054129}']
-    // IDirect3DDevice methods
+    (*** IDirect3DDevice methods ***)
-    function Initialize(lpd3d: IDirect3D; const lpGUID: TGUID;
+    function Initialize (lpd3d: IDirect3D; lpGUID: PGUID;
-        const lpd3ddvdesc: TD3DDeviceDesc): HResult; stdcall;
+        var lpd3ddvdesc: TD3DDeviceDesc) : HResult; stdcall;
-    function GetCaps(var lpD3DHWDevDesc: TD3DDeviceDesc;
+    function GetCaps (var lpD3DHWDevDesc: TD3DDeviceDesc;
-        var lpD3DHELDevDesc: TD3DDeviceDesc): HResult; stdcall;
+        var lpD3DHELDevDesc: TD3DDeviceDesc) : HResult; stdcall;
-    function SwapTextureHandles(lpD3DTex1: IDirect3DTexture;
+    function SwapTextureHandles (lpD3DTex1: IDirect3DTexture;
-        lpD3DTex2: IDirect3DTexture): HResult; stdcall;
+        lpD3DTex2: IDirect3DTexture) : HResult; stdcall;
-    function CreateExecuteBuffer(const lpDesc: TD3DExecuteBufferDesc;
+    function CreateExecuteBuffer (var lpDesc: TD3DExecuteBufferDesc ;
-        out lplpDirect3DExecuteBuffer: IDirect3DExecuteBuffer;
+        var lplpDirect3DExecuteBuffer: IDirect3DExecuteBuffer;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function GetStats(var lpD3DStats: TD3DStats): HResult; stdcall;
+    function GetStats (var lpD3DStats: TD3DStats) : HResult; stdcall;
-    function Execute(lpDirect3DExecuteBuffer: IDirect3DExecuteBuffer;
+    function Execute (lpDirect3DExecuteBuffer: IDirect3DExecuteBuffer;
-        lpDirect3DViewport: IDirect3DViewport; dwFlags: DWORD): HResult; stdcall;
+        lpDirect3DViewport: IDirect3DViewport; dwFlags: DWORD) : HResult; stdcall;
-    function AddViewport(lpDirect3DViewport: IDirect3DViewport): HResult; stdcall;
+    function AddViewport (lpDirect3DViewport: IDirect3DViewport) : HResult; stdcall;
-    function DeleteViewport(lpDirect3DViewport: IDirect3DViewport): HResult; stdcall;
+    function DeleteViewport (lpDirect3DViewport: IDirect3DViewport) : HResult; stdcall;
-    function NextViewport(lpDirect3DViewport: IDirect3DViewport;
+    function NextViewport (lpDirect3DViewport: IDirect3DViewport;
-        out lplpDirect3DViewport: IDirect3DViewport; dwFlags: DWORD): HResult; stdcall;
+        var lplpDirect3DViewport: IDirect3DViewport; dwFlags: DWORD) : HResult; stdcall;
-    function Pick(lpDirect3DExecuteBuffer: IDirect3DExecuteBuffer;
+    function Pick (lpDirect3DExecuteBuffer: IDirect3DExecuteBuffer;
         lpDirect3DViewport: IDirect3DViewport; dwFlags: DWORD;
-        const lpRect: TD3DRect): HResult; stdcall;
+        var lpRect: TD3DRect) : HResult; stdcall;
-    function GetPickRecords(var lpCount: DWORD;
+    function GetPickRecords (var lpCount: DWORD;
-        var lpD3DPickRec: TD3DPickRecord): HResult; stdcall;
+        var lpD3DPickRec: TD3DPickRecord) : HResult; stdcall;
-    function EnumTextureFormats(lpd3dEnumTextureProc: TD3DEnumTextureFormatsCalback;
+    function EnumTextureFormats (lpd3dEnumTextureProc:
+        TD3DEnumTextureFormatsCallback; lpArg: Pointer) :
-        lpArg: Pointer): HResult; stdcall;
+        HResult; stdcall;
-    function CreateMatrix(var lpD3DMatHandle: TD3DMatrixHandle): HResult; stdcall;
+    function CreateMatrix (var lpD3DMatHandle: TD3DMatrixHandle) : HResult; stdcall;
-    function SetMatrix(d3dMatHandle: TD3DMatrixHandle;
+    function SetMatrix (d3dMatHandle: TD3DMatrixHandle;
-        const lpD3DMatrix: TD3DMatrix): HResult; stdcall;
+        var lpD3DMatrix: TD3DMatrix) : HResult; stdcall;
-    function GetMatrix(lpD3DMatHandle: TD3DMatrixHandle;
+    function GetMatrix (var lpD3DMatHandle: TD3DMatrixHandle;
-        var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
+        var lpD3DMatrix: TD3DMatrix) : HResult; stdcall;
-    function DeleteMatrix(d3dMatHandle: TD3DMatrixHandle): HResult; stdcall;
+    function DeleteMatrix (d3dMatHandle: TD3DMatrixHandle) : HResult; stdcall;
     function BeginScene: HResult; stdcall;
     function EndScene: HResult; stdcall;
-    function GetDirect3D(out lpD3D: IDirect3D): HResult; stdcall;
+    function GetDirect3D (var lpD3D: IDirect3D) : HResult; stdcall;
   end;
-  IDirect3DDevice2 = interface(IUnknown)
+  IDirect3DDevice2 = interface (IUnknown)
-    ['{93281501-8CF8-11D0-89AB-00A0C9054129}']
+    ['{93281501-8cf8-11d0-89ab-00a0c9054129}']
-    // IDirect3DDevice2 methods
+    (*** IDirect3DDevice2 methods ***)
-    function GetCaps(var lpD3DHWDevDesc: TD3DDeviceDesc;
+    function GetCaps (var lpD3DHWDevDesc: TD3DDeviceDesc;
-        var lpD3DHELDevDesc: TD3DDeviceDesc): HResult; stdcall;
+        var lpD3DHELDevDesc: TD3DDeviceDesc) : HResult; stdcall;
-    function SwapTextureHandles(lpD3DTex1: IDirect3DTexture2;
+    function SwapTextureHandles (lpD3DTex1: IDirect3DTexture2;
-        lpD3DTex2: IDirect3DTexture2): HResult; stdcall;
+        lpD3DTex2: IDirect3DTexture2) : HResult; stdcall;
-    function GetStats(var lpD3DStats: TD3DStats): HResult; stdcall;
+    function GetStats (var lpD3DStats: TD3DStats) : HResult; stdcall;
-    function AddViewport(lpDirect3DViewport: IDirect3DViewport2): HResult; stdcall;
+    function AddViewport (lpDirect3DViewport2: IDirect3DViewport2) : HResult; stdcall;
-    function DeleteViewport(lpDirect3DViewport: IDirect3DViewport2): HResult; stdcall;
+    function DeleteViewport (lpDirect3DViewport: IDirect3DViewport2) : HResult; stdcall;
-    function NextViewport(lpDirect3DViewport: IDirect3DViewport2;
+    function NextViewport (lpDirect3DViewport: IDirect3DViewport2;
-        out lplpDirect3DViewport: IDirect3DViewport2; dwFlags: DWORD): HResult; stdcall;
+        var lplpDirect3DViewport: IDirect3DViewport2; dwFlags: DWORD) :
+        HResult; stdcall;
+    function EnumTextureFormats (
-    function EnumTextureFormats(lpd3dEnumTextureProc: TD3DEnumTextureFormatsCalback;
+        lpd3dEnumTextureProc: TD3DEnumTextureFormatsCallback; lpArg: Pointer) :
-        lpArg: Pointer): HResult; stdcall;
+        HResult; stdcall;
     function BeginScene: HResult; stdcall;
     function EndScene: HResult; stdcall;
-    function GetDirect3D(out lpD3D: IDirect3D2): HResult; stdcall;
+    function GetDirect3D (var lpD3D: IDirect3D2) : HResult; stdcall;
+    (*** DrawPrimitive API ***)
-    function SetCurrentViewport(lpd3dViewport2: IDirect3DViewport2): HResult; stdcall;
+    function SetCurrentViewport (lpd3dViewport2: IDirect3DViewport2)
+        : HResult; stdcall;
-    function GetCurrentViewport(out lplpd3dViewport2: IDirect3DViewport2): HResult; stdcall;
+    function GetCurrentViewport (var lplpd3dViewport2: IDirect3DViewport2)
+        : HResult; stdcall;
-    function SetRenderTarget(lpNewRenderTarget: IDirectDrawSurface): HResult; stdcall;
+    function SetRenderTarget (lpNewRenderTarget: IDirectDrawSurface)
+        : HResult; stdcall;
-    function GetRenderTarget(out lplpNewRenderTarget: IDirectDrawSurface): HResult; stdcall;
+    function GetRenderTarget (var lplpNewRenderTarget: IDirectDrawSurface)
+        : HResult; stdcall;
-    function Begin_(d3dpt: TD3DPrimitiveType; d3dvt: TD3DVertexType;
+    function Begin_ (d3dpt: TD3DPrimitiveType; d3dvt: TD3DVertexType;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function BeginIndexed(dptPrimitiveType: TD3DPrimitiveType; dvtVertexType:
+    function BeginIndexed (dptPrimitiveType: TD3DPrimitiveType; dvtVertexType:
-        TD3DVertexType; const lpvVertices; dwNumVertices: DWORD;
+        TD3DVertexType; lpvVertices: pointer; dwNumVertices: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function Vertex(const lpVertexType): HResult; stdcall;
+    function Vertex (lpVertexType: pointer) : HResult;  stdcall;
-    function Index(wVertexIndex: WORD): HResult; stdcall;
+    function Index (wVertexIndex: WORD) : HResult;  stdcall;
-    function End_(dwFlags: DWORD): HResult; stdcall;
+    function End_ (dwFlags: DWORD) : HResult; stdcall;
-    function GetRenderState(dwRenderStateType: TD3DRenderStateType;
+    function GetRenderState (dwRenderStateType: TD3DRenderStateType;
-        var lpdwRenderState: DWORD): HResult; stdcall;
+        var lpdwRenderState) : HResult; stdcall;
-    function SetRenderState(dwRenderStateType: TD3DRenderStateType;
+    function SetRenderState (dwRenderStateType: TD3DRenderStateType;
-        dwRenderState: DWORD): HResult; stdcall;
+        dwRenderState: DWORD) : HResult; stdcall;
-    function GetLightState(dwLightStateType: TD3DLightStateType;
+    function GetLightState (dwLightStateType: TD3DLightStateType;
-        var lpdwLightState: DWORD): HResult; stdcall;
+        var lpdwLightState) : HResult; stdcall;
-    function SetLightState(dwLightStateType: TD3DLightStateType;
+    function SetLightState (dwLightStateType: TD3DLightStateType;
-        dwLightState: DWORD): HResult; stdcall;
+        dwLightState: DWORD) : HResult; stdcall;
-    function SetTransform(dtstTransformStateType: TD3DTransformStateType;
+    function SetTransform (dtstTransformStateType: TD3DTransformStateType;
-        const lpD3DMatrix: TD3DMatrix): HResult; stdcall;
+        var lpD3DMatrix: TD3DMatrix) : HResult; stdcall;
-    function GetTransform(dtstTransformStateType: TD3DTransformStateType;
+    function GetTransform (dtstTransformStateType: TD3DTransformStateType;
-        var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
+        var lpD3DMatrix: TD3DMatrix) : HResult; stdcall;
-    function MultiplyTransform(dtstTransformStateType: TD3DTransformStateType;
+    function MultiplyTransform (dtstTransformStateType: TD3DTransformStateType;
-        var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
+        var lpD3DMatrix: TD3DMatrix) : HResult; stdcall;
-    function DrawPrimitive(dptPrimitiveType: TD3DPrimitiveType;
+    function DrawPrimitive (dptPrimitiveType: TD3DPrimitiveType;
-        dvtVertexType: TD3DVertexType; const lpvVertices; dwVertexCount,
+        dvtVertexType: TD3DVertexType; var lpvVertices; dwVertexCount,
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function DrawIndexedPrimitive(dptPrimitiveType: TD3DPrimitiveType;
+    function DrawIndexedPrimitive (dptPrimitiveType: TD3DPrimitiveType;
-        dvtVertexType: TD3DVertexType; const lpvVertices;
-        dwVertexCount: DWORD; const dwIndices; dwIndexCount: DWORD;
+        dwVertexTypeDesc: DWORD; lpvVertices: pointer; dwVertexCount: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        var lpwIndices: WORD; dwIndexCount, dwFlags: DWORD) : HResult; stdcall;
-    function SetClipStatus(const lpD3DClipStatus: TD3DClipStatus): HResult; stdcall;
+    function SetClipStatus (var lpD3DClipStatus: TD3DClipStatus) : HResult; stdcall;
-    function GetClipStatus(var lpD3DClipStatus: TD3DClipStatus): HResult; stdcall;
+    function GetClipStatus (var lpD3DClipStatus: TD3DClipStatus) : HResult; stdcall;
   end;
-  IDirect3DDevice3 = interface(IUnknown)
+  IDirect3DDevice3 = interface (IUnknown)
-    ['{B0AB3B60-33D7-11D1-A981-00C04FD7B174}']
+    ['{b0ab3b60-33d7-11d1-a981-00c04fd7b174}']
-    // IDirect3DDevice3 methods
+    (*** IDirect3DDevice2 methods ***)
-    function GetCaps(var lpD3DHWDevDesc: TD3DDeviceDesc;
+    function GetCaps (var lpD3DHWDevDesc: TD3DDeviceDesc;
-        var lpD3DHELDevDesc: TD3DDeviceDesc): HResult; stdcall;
+        var lpD3DHELDevDesc: TD3DDeviceDesc) : HResult; stdcall;
-    function GetStats(var lpD3DStats: TD3DStats): HResult; stdcall;
+    function GetStats (var lpD3DStats: TD3DStats) : HResult; stdcall;
-    function AddViewport(lpDirect3DViewport: IDirect3DViewport3): HResult; stdcall;
+    function AddViewport (lpDirect3DViewport: IDirect3DViewport3) : HResult; stdcall;
-    function DeleteViewport(lpDirect3DViewport: IDirect3DViewport3): HResult; stdcall;
+    function DeleteViewport (lpDirect3DViewport: IDirect3DViewport3) : HResult; stdcall;
-    function NextViewport(lpDirect3DViewport: IDirect3DViewport3;
+    function NextViewport (lpDirect3DViewport: IDirect3DViewport3;
-        out lplpDirect3DViewport: IDirect3DViewport3; dwFlags: DWORD): HResult; stdcall;
+        var lplpAnotherViewport: IDirect3DViewport3; dwFlags: DWORD) : HResult; stdcall;
+    function EnumTextureFormats (
-    function EnumTextureFormats(lpd3dEnumPixelProc: TD3DEnumPixelFormatsCallback;
+        lpd3dEnumPixelProc: TD3DEnumPixelFormatsCallback; lpArg: Pointer) :
-        lpArg: Pointer): HResult; stdcall;
+        HResult; stdcall;
     function BeginScene: HResult; stdcall;
     function EndScene: HResult; stdcall;
-    function GetDirect3D(out lpD3D: IDirect3D3): HResult; stdcall;
+    function GetDirect3D (var lpD3D: IDirect3D3) : HResult; stdcall;
-    function SetCurrentViewport(lpd3dViewport: IDirect3DViewport3): HResult; stdcall;
+    function SetCurrentViewport (lpd3dViewport: IDirect3DViewport3)
+        : HResult; stdcall;
-    function GetCurrentViewport(out lplpd3dViewport: IDirect3DViewport3): HResult; stdcall;
+    function GetCurrentViewport (var lplpd3dViewport: IDirect3DViewport3)
+        : HResult; stdcall;
-    function SetRenderTarget(lpNewRenderTarget: IDirectDrawSurface4): HResult; stdcall;
+    function SetRenderTarget (lpNewRenderTarget: IDirectDrawSurface4)
+        : HResult; stdcall;
-    function GetRenderTarget(out lplpNewRenderTarget: IDirectDrawSurface4): HResult; stdcall;
+    function GetRenderTarget (var lplpNewRenderTarget: IDirectDrawSurface4)
+        : HResult; stdcall;
-    function Begin_(d3dpt: TD3DPrimitiveType; dwVertexTypeDesc: DWORD;
+    function Begin_ (d3dpt: TD3DPrimitiveType; dwVertexTypeDesc: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function BeginIndexed(dptPrimitiveType: TD3DPrimitiveType; dwVertexTypeDesc: DWORD;
+    function BeginIndexed (dptPrimitiveType: TD3DPrimitiveType;
+        dwVertexTypeDesc: DWORD; lpvVertices: pointer; dwNumVertices: DWORD;
-      const lpvVertices; dwNumVertices: DWORD; dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function Vertex(const lpVertexType): HResult; stdcall;
+    function Vertex (lpVertex: pointer) : HResult;  stdcall;
-    function Index(wVertexIndex: WORD): HResult; stdcall;
+    function Index (wVertexIndex: WORD) : HResult;  stdcall;
-    function End_(dwFlags: DWORD): HResult; stdcall;
+    function End_ (dwFlags: DWORD) : HResult; stdcall;
-    function GetRenderState(dwRenderStateType: TD3DRenderStateType;
+    function GetRenderState (dwRenderStateType: TD3DRenderStateType;
-        var lpdwRenderState: DWORD): HResult; stdcall;
+        var lpdwRenderState) : HResult; stdcall;
-    function SetRenderState(dwRenderStateType: TD3DRenderStateType;
+    function SetRenderState (dwRenderStateType: TD3DRenderStateType;
-        dwRenderState: DWORD): HResult; stdcall;
+        dwRenderState: DWORD) : HResult; stdcall;
-    function GetLightState(dwLightStateType: TD3DLightStateType;
+    function GetLightState (dwLightStateType: TD3DLightStateType;
-        var lpdwLightState: DWORD): HResult; stdcall;
+        var lpdwLightState) : HResult; stdcall;
-    function SetLightState(dwLightStateType: TD3DLightStateType;
+    function SetLightState (dwLightStateType: TD3DLightStateType;
-        dwLightState: DWORD): HResult; stdcall;
+        dwLightState: DWORD) : HResult; stdcall;
-    function SetTransform(dtstTransformStateType: TD3DTransformStateType;
+    function SetTransform (dtstTransformStateType: TD3DTransformStateType;
-        const lpD3DMatrix: TD3DMatrix): HResult; stdcall;
+        var lpD3DMatrix: TD3DMatrix) : HResult; stdcall;
-    function GetTransform(dtstTransformStateType: TD3DTransformStateType;
+    function GetTransform (dtstTransformStateType: TD3DTransformStateType;
-        var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
+        var lpD3DMatrix: TD3DMatrix) : HResult; stdcall;
-    function MultiplyTransform(dtstTransformStateType: TD3DTransformStateType;
+    function MultiplyTransform (dtstTransformStateType: TD3DTransformStateType;
-        var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
+        var lpD3DMatrix: TD3DMatrix) : HResult; stdcall;
-    function DrawPrimitive(dptPrimitiveType: TD3DPrimitiveType;
+    function DrawPrimitive (dptPrimitiveType: TD3DPrimitiveType;
-        dwVertexTypeDesc: DWORD; const lpvVertices; dwVertexCount,
-        dwFlags: DWORD): HResult; stdcall;
-    function DrawIndexedPrimitive(dptPrimitiveType: TD3DPrimitiveType;
         dwVertexTypeDesc: DWORD; const lpvVertices;
+        dwVertexCount, dwFlags: DWORD) : HResult; stdcall;
+    function DrawIndexedPrimitive (dptPrimitiveType: TD3DPrimitiveType;
-        dwVertexCount: DWORD; const dwIndices; dwIndexCount: DWORD;
+        dwVertexTypeDesc: DWORD; const lpvVertices; dwVertexCount: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        var lpwIndices: WORD; dwIndexCount, dwFlags: DWORD) : HResult; stdcall;
-    function SetClipStatus(const lpD3DClipStatus: TD3DClipStatus): HResult; stdcall;
+    function SetClipStatus (var lpD3DClipStatus: TD3DClipStatus) : HResult; stdcall;
-    function GetClipStatus(var lpD3DClipStatus: TD3DClipStatus): HResult; stdcall;
+    function GetClipStatus (var lpD3DClipStatus: TD3DClipStatus) : HResult; stdcall;
-    function DrawPrimitiveStrided(dptPrimitiveType: TD3DPrimitiveType;
+    function DrawPrimitiveStrided (dptPrimitiveType: TD3DPrimitiveType;
-        dwVertexTypeDesc: DWORD; const lpVertexArray;
+        dwVertexTypeDesc : DWORD;
+        var lpVertexArray: TD3DDrawPrimitiveStridedData;
-        dwVertexCount: DWORD; dwFlags: DWORD): HResult; stdcall;
+        dwVertexCount, dwFlags: DWORD) : HResult; stdcall;
-    function DrawIndexedPrimitiveStrided(dptPrimitiveType: TD3DPrimitiveType;
+    function DrawIndexedPrimitiveStrided (dptPrimitiveType: TD3DPrimitiveType;
-        dwVertexTypeDesc: DWORD; const lpVertexArray;
+        dwVertexTypeDesc : DWORD;
+        var lpVertexArray: TD3DDrawPrimitiveStridedData; dwVertexCount: DWORD;
-        dwVertexCount: DWORD; const lpwIndices; dwIndexCount: DWORD; dwFlags: DWORD): HResult; stdcall;
+        var lpwIndices: WORD; dwIndexCount, dwFlags: DWORD) : HResult; stdcall;
-    function DrawPrimitiveVB(dptPrimitiveType: TD3DPrimitiveType;
+    function DrawPrimitiveVB (dptPrimitiveType: TD3DPrimitiveType;
-        lpd3dVertexBuffer: IDirect3DVertexBuffer; dwStartVertex, dwNumVertices: DWORD;
+        lpd3dVertexBuffer: IDirect3DVertexBuffer;
-        dwFlags: DWORD): HResult; stdcall;
+        dwStartVertex, dwNumVertices, dwFlags: DWORD) : HResult; stdcall;
-    function DrawIndexedPrimitiveVB(dptPrimitiveType: TD3DPrimitiveType;
+    function DrawIndexedPrimitiveVB (dptPrimitiveType: TD3DPrimitiveType;
-        lpd3dVertexBuffer: IDirect3DVertexBuffer; const lpwIndices; dwIndexCount: DWORD;
+        lpd3dVertexBuffer: IDirect3DVertexBuffer; var lpwIndices: WORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwIndexCount, dwFlags: DWORD) : HResult; stdcall;
-    function ComputeSphereVisibility(const lpCenters; const lpRadii;
+    function ComputeSphereVisibility (var lpCenters: TD3DVector;
+        var lpRadii: TD3DValue; dwNumSpheres, dwFlags: DWORD;
-        dwNumSpheres: DWORD; dwFlags: DWORD; var lpdwReturnValues): HResult; stdcall;
+        var lpdwReturnValues: DWORD) : HResult; stdcall;
-    function GetTexture(dwStage: DWORD; out lplpTexture: IDirect3DTexture2): HResult; stdcall;
+    function GetTexture (dwStage: DWORD; var lplpTexture: IDirect3DTexture2)
+        : HResult; stdcall;
-    function SetTexture(dwStage: DWORD; lpTexture: IDirect3DTexture2): HResult; stdcall;
+    function SetTexture (dwStage: DWORD; lplpTexture: IDirect3DTexture2)
+        : HResult; stdcall;
-    function GetTextureStageState(dwStage: DWORD; dwState: TD3DTextureStagesStateType;
+    function GetTextureStageState (dwStage: DWORD;
-       var lpdwValue: DWORD): HResult; stdcall;
+        dwState: TD3DTextureStageStateType; var lpdwValue: DWORD) : HResult; stdcall;
-    function SetTextureStageState(dwStage: DWORD; dwState: TD3DTextureStagesStateType;
+    function SetTextureStageState (dwStage: DWORD;
-       lpdwValue: DWORD): HResult; stdcall;
+        dwState: TD3DTextureStageStateType; lpdwValue: DWORD) : HResult; stdcall;
-    function ValidateDevice(var lpdwPasses: DWORD): HResult; stdcall;
+    function ValidateDevice (var lpdwExtraPasses: DWORD) : HResult; stdcall;
   end;
-  IDirect3DDevice7 = interface(IUnknown)
+  IDirect3DDevice7 = interface (IUnknown)
-    ['{F5049E79-4861-11D2-A407-00A0C90629A8}']
+    ['{f5049e79-4861-11d2-a407-00a0c90629a8}']
-    // IDirect3DDevice7 methods
+    (*** IDirect3DDevice7 methods ***)
-    function GetCaps(var lpD3DDeviceDesc: TD3DDeviceDesc7): HResult; stdcall;
+    function GetCaps(out lpD3DDevDesc: TD3DDeviceDesc7) : HResult; stdcall;
-    function EnumTextureFormats(lpd3dEnumPixelProc: TD3DEnumPixelFormatsCallback;
+    function EnumTextureFormats(lpd3dEnumPixelProc: TD3DEnumPixelFormatsCallback; lpArg: Pointer) : HResult; stdcall;
-        lpArg: Pointer): HResult; stdcall;
     function BeginScene: HResult; stdcall;
     function EndScene: HResult; stdcall;
-    function GetDirect3D(out lplpD3D: IDirect3D7): HResult; stdcall;
+    function GetDirect3D(out lpD3D: IDirect3D7) : HResult; stdcall;
-    function SetRenderTarget(lpNewRenderTarget: IDirectDrawSurface7; dwFlags: DWORD): HResult; stdcall;
+    function SetRenderTarget(lpNewRenderTarget: IDirectDrawSurface7; dwFlags: DWORD) : HResult; stdcall;
-    function GetRenderTarget(out lplpRenderTarget: IDirectDrawSurface7): HResult; stdcall;
+    function GetRenderTarget(out lplpRenderTarget: IDirectDrawSurface7) : HResult; stdcall;
-    function Clear(dwCount: DWORD; const lpRects: TD3DRect; dwFlags: DWORD; dwColor: TD3DColor;
+    function Clear(dwCount: DWORD; lpRects: PD3DRect; dwFlags, dwColor: DWORD; dvZ: TD3DValue; dwStencil: DWORD) : HResult; stdcall;
+    function SetTransform(dtstTransformStateType: TD3DTransformStateType;
-        dvZ: TD3DValue; dwStencil: DWORD): HResult; stdcall;
+        const lpD3DMatrix: TD3DMatrix) : HResult; stdcall;
-    function SetTransform(dtstTransformStateType: TD3DTransformStateType; const lpD3DMatrix: TD3DMatrix): HResult; stdcall;
+    function GetTransform(dtstTransformStateType: TD3DTransformStateType;
-    function GetTransform(dtstTransformStateType: TD3DTransformStateType; var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
+        out lpD3DMatrix: TD3DMatrix) : HResult; stdcall;
-    function SetViewport(const lpViewport: TD3DViewport7): HResult; stdcall;
+    function SetViewport(const lpViewport: TD3DViewport7) : HResult; stdcall;
-    function MultiplyTransform(dtstTransformStateType: TD3DTransformStateType; const lpD3DMatrix: TD3DMatrix): HResult; stdcall;
+    function MultiplyTransform(dtstTransformStateType: TD3DTransformStateType;
+        const lpD3DMatrix: TD3DMatrix) : HResult; stdcall;
-    function GetViewport(var lpViewport: TD3DViewport7): HResult; stdcall;
+    function GetViewport(out lpViewport: TD3DViewport7) : HResult; stdcall;
-    function SetMaterial(const lpMaterial: TD3DMaterial7): HResult; stdcall;
+    function SetMaterial(const lpMaterial: TD3DMaterial7) : HResult; stdcall;
-    function GetMaterial(var lpMaterial: TD3DMaterial7): HResult; stdcall;
+    function GetMaterial(out lpMaterial: TD3DMaterial7) : HResult; stdcall;
-    function SetLight(dwLightIndex: DWORD; const lpLight: TD3DLight7): HResult; stdcall;
+    function SetLight(dwLightIndex: DWORD; const lpLight: TD3DLight7) : HResult; stdcall;
-    function GetLight(dwLightIndex: DWORD; var lpLight: TD3DLight7): HResult; stdcall;
+    function GetLight(dwLightIndex: DWORD; out lpLight: TD3DLight7) : HResult; stdcall;
-    function SetRenderState(dwRenderStateType: TD3DRenderStateType; dwRenderState: DWORD): HResult; stdcall;
+    function SetRenderState(dwRenderStateType: TD3DRenderStateType; dwRenderState: DWORD) : HResult; stdcall;
-    function GetRenderState(dwRenderStateType: TD3DRenderStateType; var lpdwRenderState: DWORD): HResult; stdcall;
+    function GetRenderState(dwRenderStateType: TD3DRenderStateType; out dwRenderState: DWORD) : HResult; stdcall;
-    function BeginStateBlock: HResult; stdcall;
+    function BeginStateBlock : HResult; stdcall;
-    function EndStateBlock(var lpdwBlockHandle: DWORD): HResult; stdcall;
+    function EndStateBlock(out lpdwBlockHandle: DWORD) : HResult; stdcall;
-    function PreLoad(lpddsTexture: IDirectDrawSurface7): HResult; stdcall;
+    function PreLoad(lpddsTexture: IDirectDrawSurface7) : HResult; stdcall;
-    function DrawPrimitive(dptPrimitiveType: TD3DPrimitiveType; dwVertexTypeDesc: DWORD;
+    function DrawPrimitive(dptPrimitiveType: TD3DPrimitiveType;
+        dwVertexTypeDesc: DWORD; const lpvVertices;
-        const lpvVertices; dwVertexCount: DWORD; dwFlags: DWORD): HResult; stdcall;
+        dwVertexCount, dwFlags: DWORD) : HResult; stdcall;
-    function DrawIndexedPrimitive(d3dptPrimitiveType: TD3DPrimitiveType; dwVertexTypeDesc: DWORD;
+    function DrawIndexedPrimitive(dptPrimitiveType: TD3DPrimitiveType;
+        dwVertexTypeDesc: DWORD; const lpvVertices; dwVertexCount: DWORD;
-        const lpvVertices; dwVertexCount: DWORD; const lpwIndices; dwIndexCount: DWORD; dwFlags: DWORD): HResult; stdcall;
+        const lpwIndices; dwIndexCount, dwFlags: DWORD) : HResult; stdcall;
-    function SetClipStatus(const lpD3DClipStatus: TD3DClipStatus): HResult; stdcall;
+    function SetClipStatus(const lpD3DClipStatus: TD3DClipStatus) : HResult; stdcall;
-    function GetClipStatus(var lpD3DClipStatus: TD3DClipStatus): HResult; stdcall;
+    function GetClipStatus(out lpD3DClipStatus: TD3DClipStatus) : HResult; stdcall;
-    function DrawPrimitiveStrided(dptPrimitiveType: TD3DPrimitiveType; dwVertexTypeDesc: DWORD;
+    function DrawPrimitiveStrided(dptPrimitiveType: TD3DPrimitiveType;
+        dwVertexTypeDesc : DWORD;
+        const lpVertexArray: TD3DDrawPrimitiveStridedData;
-        const lpVertexArray; dwVertexCount: DWORD; dwFlags: DWORD): HResult; stdcall;
+        dwVertexCount, dwFlags: DWORD) : HResult; stdcall;
-    function DrawIndexedPrimitiveStrided(d3dptPrimitiveType: TD3DPrimitiveType; dwVertexTypeDesc: DWORD;
+    function DrawIndexedPrimitiveStrided(dptPrimitiveType: TD3DPrimitiveType;
+        dwVertexTypeDesc : DWORD;
+        const lpVertexArray: TD3DDrawPrimitiveStridedData; dwVertexCount: DWORD;
-        const lpVertexArray; dwVertexCount: DWORD; const lpwIndices; dwIndexCount: DWORD; dwFlags: DWORD): HResult; stdcall;
+        var lpwIndices: WORD; dwIndexCount, dwFlags: DWORD) : HResult; stdcall;
-    function DrawPrimitiveVB(d3dptPrimitiveType: TD3DPrimitiveType; lpd3dVertexBuffer: IDirect3DVertexBuffer7;
+    function DrawPrimitiveVB(dptPrimitiveType: TD3DPrimitiveType;
+        lpd3dVertexBuffer: IDirect3DVertexBuffer7;
-        dwStartVertex: DWORD; dwNumVertices: DWORD; dwFlags: DWORD): HResult; stdcall;
+        dwStartVertex, dwNumVertices, dwFlags: DWORD) : HResult; stdcall;
-    function DrawIndexedPrimitiveVB(d3dptPrimitiveType: TD3DPrimitiveType; lpd3dVertexBuffer: IDirect3DVertexBuffer7;
+    function DrawIndexedPrimitiveVB(dptPrimitiveType: TD3DPrimitiveType;
+        lpd3dVertexBuffer: IDirect3DVertexBuffer7; dwStartVertex, dwNumVertices: DWORD;
-        dwStartVertex: DWORD; dwNumVertices: DWORD; const lpwIndices; dwIndexCount: DWORD; dwFlags: DWORD): HResult; stdcall;
+        var lpwIndices: WORD; dwIndexCount, dwFlags: DWORD) : HResult; stdcall;
-    function ComputeSphereVisibility(const lpCenters; const lpRadii; dwNumSpheres: DWORD; dwFlags: DWORD; var lpdwReturnValue): HResult; stdcall;
+    function ComputeSphereVisibility(const lpCenters: TD3DVector;
+        var lpRadii: TD3DValue; dwNumSpheres, dwFlags: DWORD;
+        var lpdwReturnValues: DWORD) : HResult; stdcall;
-    function GetTexture(dwStage: DWORD; out lplpTexture: IDirectDrawSurface7): HResult; stdcall;
+    function GetTexture(dwStage: DWORD; out lplpTexture: IDirectDrawSurface7) : HResult; stdcall;
-    function SetTexture(dwStage: DWORD; lpTexture: IDirectDrawSurface7): HResult; stdcall;
+    function SetTexture(dwStage: DWORD; lpTexture: IDirectDrawSurface7) : HResult; stdcall;
+    function GetTextureStageState(dwStage: DWORD;
-    function GetTextureStageState(dwStage: DWORD; dwState: TD3DTextureStagesStateType; var lpdwValue: DWORD): HResult; stdcall;
+        dwState: TD3DTextureStageStateType; out lpdwValue: DWORD) : HResult; stdcall;
+    function SetTextureStageState(dwStage: DWORD;
-    function SetTextureStageState(dwStage: DWORD; dwState: TD3DTextureStagesStateType; dwValue: DWORD): HResult; stdcall;
+        dwState: TD3DTextureStageStateType; lpdwValue: DWORD) : HResult; stdcall;
-    function ValidateDevice(var lpdwPasses: DWORD): HResult; stdcall;
+    function ValidateDevice(out lpdwExtraPasses: DWORD) : HResult; stdcall;
-    function ApplyStateBlock(dwBlockHandle: DWORD): HResult; stdcall;
+    function ApplyStateBlock(dwBlockHandle: DWORD) : HResult; stdcall;
-    function CaptureStateBlock(dwBlockHandle: DWORD): HResult; stdcall;
+    function CaptureStateBlock(dwBlockHandle: DWORD) : HResult; stdcall;
-    function DeleteStateBlock(dwBlockHandle: DWORD): HResult; stdcall;
+    function DeleteStateBlock(dwBlockHandle: DWORD) : HResult; stdcall;
-    function CreateStateBlock(d3dsbType: TD3DSTATEBLOCKTYPE; var lpdwBlockHandle: DWORD): HResult; stdcall;
+    function CreateStateBlock(d3dsbType: TD3DStateBlockType; out lpdwBlockHandle: DWORD) : HResult; stdcall;
+    function Load(lpDestTex: IDirectDrawSurface7; lpDestPoint: PPoint;
-    function Load(lpDestTex: IDirectDrawSurface7; const lpDestPoint: TPoint; lpSrcTex: IDirectDrawSurface7; const lprcSrcRect: TRect; dwFlags: DWORD): HResult; stdcall;
+        lpSrcTex: IDirectDrawSurface7; lprcSrcRect: PRect; dwFlags: DWORD) : HResult; stdcall;
-    function LightEnable(dwLightIndex: DWORD; bEnable: BOOL): HResult; stdcall;
+    function LightEnable(dwLightIndex: DWORD; bEnable: BOOL) : HResult; stdcall;
-    function GetLightEnable(dwLightIndex: DWORD; var pbEnable: BOOL): HResult; stdcall;
+    function GetLightEnable(dwLightIndex: DWORD; out bEnable: BOOL) : HResult; stdcall;
-    function SetClipPlane(dwIndex: DWORD; const pPlaneEquation): HResult; stdcall;
+    function SetClipPlane(dwIndex: DWORD; var pPlaneEquation: TD3DValue) : HResult; stdcall;
-    function GetClipPlane(dwIndex: DWORD; var pPlaneEquation): HResult; stdcall;
+    function GetClipPlane(dwIndex: DWORD; out pPlaneEquation: TD3DValue) : HResult; stdcall;
-    function GetInfo(dwDevInfoID: DWORD; pDevInfoStruct: Pointer; dwSize: DWORD): HResult; stdcall;
+    function GetInfo(dwDevInfoID: DWORD; pDevInfoStruct: Pointer; dwSize: DWORD) : HResult; stdcall;
   end;
+(*
+ * Execute Buffer interface
+ *)
-  IDirect3DExecuteBuffer = interface(IUnknown)
+  IDirect3DExecuteBuffer = interface (IUnknown)
     ['{4417C145-33AD-11CF-816F-0000C020156E}']
-    // IDirect3DExecuteBuffer methods
+    (*** IDirect3DExecuteBuffer methods ***)
-    function Initialize(lpDirect3DDevice: IDirect3DDevice;
+    function Initialize (lpDirect3DDevice: IDirect3DDevice;
-        const lpDesc: TD3DExecuteBufferDesc): HResult; stdcall;
+        var lpDesc: TD3DExecuteBufferDesc) : HResult; stdcall;
-    function Lock(var lpDesc: TD3DExecuteBufferDesc): HResult; stdcall;
+    function Lock (var lpDesc: TD3DExecuteBufferDesc) : HResult; stdcall;
     function Unlock: HResult; stdcall;
-    function SetExecuteData(const lpData: TD3DExecuteData): HResult; stdcall;
+    function SetExecuteData (var lpData: TD3DExecuteData) : HResult; stdcall;
-    function GetExecuteData(var lpData: TD3DExecuteData): HResult; stdcall;
+    function GetExecuteData (var lpData: TD3DExecuteData) : HResult; stdcall;
-    function Validate(var lpdwOffset: DWORD; lpFunc: TD3DValidateCallback;
+    function Validate (var lpdwOffset: DWORD; lpFunc: TD3DValidateCallback;
-        lpUserArg: Pointer; dwReserved: DWORD): HResult; stdcall;
+        lpUserArg: Pointer; dwReserved: DWORD) : HResult; stdcall;
+    (*** Warning!  Optimize is defined differently in the header files
+         and the online documentation ***)
-    function Optimize(dwFlags: DWORD): HResult; stdcall;
+    function Optimize (dwFlags: DWORD) : HResult; stdcall;
   end;
+(*
+ * Light interfaces
+ *)
-  IDirect3DLight = interface(IUnknown)
+  IDirect3DLight = interface (IUnknown)
     ['{4417C142-33AD-11CF-816F-0000C020156E}']
-    // IDirect3DLight methods
+    (*** IDirect3DLight methods ***)
-    function Initialize(lpDirect3D: IDirect3D): HResult; stdcall;
+    function Initialize (lpDirect3D: IDirect3D) : HResult; stdcall;
-    function SetLight(const lpLight: TD3DLight): HResult; stdcall;
+    function SetLight (var lpLight: TD3DLight2) : HResult; stdcall;
-    function GetLight(var lpLight: TD3DLight): HResult; stdcall;
+    function GetLight (var lpLight: TD3DLight2) : HResult; stdcall;
   end;
+(*
+ * Material interfaces
+ *)
-  IDirect3DMaterial = interface(IUnknown)
+  IDirect3DMaterial = interface (IUnknown)
     ['{4417C144-33AD-11CF-816F-0000C020156E}']
-    // IDirect3DMaterial methods
+    (*** IDirect3DMaterial methods ***)
-    function Initialize(lpDirect3D: IDirect3D): HResult; stdcall;
+    function Initialize (lpDirect3D: IDirect3D) : HResult; stdcall;
-    function SetMaterial(const lpMat: TD3DMaterial): HResult; stdcall;
+    function SetMaterial (var lpMat: TD3DMaterial) : HResult; stdcall;
-    function GetMaterial(var lpMat: TD3DMaterial): HResult; stdcall;
+    function GetMaterial (var lpMat: TD3DMaterial) : HResult; stdcall;
-    function GetHandle(lpDirect3DDevice: IDirect3DDevice;
+    function GetHandle (lpDirect3DDevice: IDirect3DDevice;
-        var lpHandle: TD3DMaterialHandle): HResult; stdcall;
+        var lpHandle: TD3DMaterialHandle) : HResult; stdcall;
     function Reserve: HResult; stdcall;
     function Unreserve: HResult; stdcall;
   end;
-  IDirect3DMaterial2 = interface(IUnknown)
+  IDirect3DMaterial2 = interface (IUnknown)
-    ['{93281503-8CF8-11D0-89AB-00A0C9054129}']
+    ['{93281503-8cf8-11d0-89ab-00a0c9054129}']
-    // IDirect3DMaterial2 methods
+    (*** IDirect3DMaterial2 methods ***)
-    function SetMaterial(const lpMat: TD3DMaterial): HResult; stdcall;
+    function SetMaterial (var lpMat: TD3DMaterial) : HResult; stdcall;
-    function GetMaterial(var lpMat: TD3DMaterial): HResult; stdcall;
+    function GetMaterial (var lpMat: TD3DMaterial) : HResult; stdcall;
-    function GetHandle(lpDirect3DDevice: IDirect3DDevice2;
+    function GetHandle (lpDirect3DDevice: IDirect3DDevice2;
-        var lpHandle: TD3DMaterialHandle): HResult; stdcall;
+        var lpHandle: TD3DMaterialHandle) : HResult; stdcall;
   end;
-  IDirect3DMaterial3 = interface(IUnknown)
+  IDirect3DMaterial3 = interface (IUnknown)
-    ['{CA9C46F4-D3C5-11D1-B75A-00600852B312}']
+    ['{ca9c46f4-d3c5-11d1-b75a-00600852b312}']
-    // IDirect3DMaterial3 methods
+    (*** IDirect3DMaterial2 methods ***)
-    function SetMaterial(const lpMat: TD3DMaterial): HResult; stdcall;
+    function SetMaterial (var lpMat: TD3DMaterial) : HResult; stdcall;
-    function GetMaterial(var lpMat: TD3DMaterial): HResult; stdcall;
+    function GetMaterial (var lpMat: TD3DMaterial) : HResult; stdcall;
-    function GetHandle(lpDirect3DDevice: IDirect3DDevice3;
+    function GetHandle (lpDirect3DDevice: IDirect3DDevice3;
-        var lpHandle: TD3DMaterialHandle): HResult; stdcall;
+        var lpHandle: TD3DMaterialHandle) : HResult; stdcall;
   end;
+(*
+ * Texture interfaces
+ *)
-  IDirect3DTexture = interface(IUnknown)
+  IDirect3DTexture = interface (IUnknown)
     ['{2CDCD9E0-25A0-11CF-A31A-00AA00B93356}']
-    // IDirect3DTexture methods
+    (*** IDirect3DTexture methods ***)
-    function Initialize(lpD3DDevice: IDirect3DDevice;
+    function Initialize (lpD3DDevice: IDirect3DDevice;
-        lpDDSurface: IDirectDrawSurface): HResult; stdcall;
+        lpDDSurface: IDirectDrawSurface) : HResult; stdcall;
-    function GetHandle(lpDirect3DDevice: IDirect3DDevice;
+    function GetHandle (lpDirect3DDevice: IDirect3DDevice;
-        var lpHandle: TD3DTextureHandle): HResult; stdcall;
+        var lpHandle: TD3DTextureHandle) : HResult; stdcall;
-    function PaletteChanged(dwStart: DWORD; dwCount: DWORD): HResult; stdcall;
+    function PaletteChanged (dwStart: DWORD; dwCount: DWORD) : HResult; stdcall;
-    function Load(lpD3DTexture: IDirect3DTexture): HResult; stdcall;
+    function Load (lpD3DTexture: IDirect3DTexture) : HResult; stdcall;
     function Unload: HResult; stdcall;
   end;
-  IDirect3DTexture2 = interface(IUnknown)
+  IDirect3DTexture2 = interface (IUnknown)
-    ['{93281502-8CF8-11D0-89AB-00A0C9054129}']
+    ['{93281502-8cf8-11d0-89ab-00a0c9054129}']
-    // IDirect3DTexture2 methods
+    (*** IDirect3DTexture2 methods ***)
-    function GetHandle(lpDirect3DDevice2: IDirect3DDevice2;
+    function GetHandle (lpDirect3DDevice: IDirect3DDevice2;
-        var lpHandle: TD3DTextureHandle): HResult; stdcall;
+        var lpHandle: TD3DTextureHandle) : HResult; stdcall;
-    function PaletteChanged(dwStart: DWORD; dwCount: DWORD): HResult; stdcall;
+    function PaletteChanged (dwStart: DWORD; dwCount: DWORD) : HResult; stdcall;
-    function Load(lpD3DTexture2: IDirect3DTexture2): HResult; stdcall;
+    function Load (lpD3DTexture: IDirect3DTexture2) : HResult; stdcall;
   end;
+(*
+ * Viewport interfaces
+ *)
-  IDirect3DViewport = interface(IUnknown)
+  IDirect3DViewport = interface (IUnknown)
     ['{4417C146-33AD-11CF-816F-0000C020156E}']
-    // IDirect3DViewport methods
+    (*** IDirect3DViewport methods ***)
-    function Initialize(lpDirect3D: IDirect3D): HResult; stdcall;
+    function Initialize (lpDirect3D: IDirect3D) : HResult; stdcall;
-    function GetViewport(var lpData: TD3DViewport): HResult; stdcall;
+    function GetViewport (out lpData: TD3DViewport) : HResult; stdcall;
-    function SetViewport(const lpData: TD3DViewport): HResult; stdcall;
+    function SetViewport (const lpData: TD3DViewport) : HResult; stdcall;
-    function TransformVertices(dwVertexCount: DWORD;
+    function TransformVertices (dwVertexCount: DWORD;
-        var lpData: TD3DTransformData; dwFlags: DWORD;
+        const lpData: TD3DTransformData; dwFlags: DWORD;
-        var lpOffscreen: DWORD): HResult; stdcall;
+        out lpOffscreen: DWORD) : HResult; stdcall;
-    function LightElements(dwElementCount: DWORD;
+    function LightElements (dwElementCount: DWORD;
-        var lpData: TD3DLightData): HResult; stdcall;
+        var lpData: TD3DLightData) : HResult; stdcall;
-    function SetBackground(hMat: TD3DMaterialHandle): HResult; stdcall;
+    function SetBackground (hMat: TD3DMaterialHandle) : HResult; stdcall;
-    function GetBackground(hMat: TD3DMaterialHandle): HResult; stdcall;
+    function GetBackground (out hMat: TD3DMaterialHandle) : HResult; stdcall;
-    function SetBackgroundDepth(lpDDSurface: IDirectDrawSurface): HResult; stdcall;
+    function SetBackgroundDepth (lpDDSurface: IDirectDrawSurface) :
+        HResult; stdcall;
-    function GetBackgroundDepth(out lplpDDSurface: IDirectDrawSurface;
+    function GetBackgroundDepth (out lplpDDSurface: IDirectDrawSurface;
-        var lpValid: BOOL): HResult; stdcall;
+        out lpValid: BOOL) : HResult; stdcall;
-    function Clear(dwCount: DWORD; const lpRects: TD3DRect; dwFlags: DWORD): HResult; stdcall;
+    function Clear (dwCount: DWORD; const lpRects: TD3DRect; dwFlags: DWORD) :
+        HResult; stdcall;
-    function AddLight(lpDirect3DLight: IDirect3DLight): HResult; stdcall;
+    function AddLight (lpDirect3DLight: IDirect3DLight) : HResult; stdcall;
-    function DeleteLight(lpDirect3DLight: IDirect3DLight): HResult; stdcall;
+    function DeleteLight (lpDirect3DLight: IDirect3DLight) : HResult; stdcall;
-    function NextLight(lpDirect3DLight: IDirect3DLight;
+     function NextLight (lpDirect3DLight: IDirect3DLight;
-        out lplpDirect3DLight: IDirect3DLight; dwFlags: DWORD): HResult; stdcall;
+        out lplpDirect3DLight: IDirect3DLight; dwFlags: DWORD) : HResult; stdcall;
   end;
-  IDirect3DViewport2 = interface(IDirect3DViewport)
+  IDirect3DViewport2 = interface (IUnknown)
-    ['{93281500-8CF8-11D0-89AB-00A0C9054129}']
+    ['{93281500-8cf8-11d0-89ab-00a0c9054129}']
+    (*** IDirect3DViewport2 methods ***)
+    function Initialize (lpDirect3D: IDirect3D) : HResult; stdcall;
+    function GetViewport (out lpData: TD3DViewport) : HResult; stdcall;
+    function SetViewport (const lpData: TD3DViewport) : HResult; stdcall;
+    function TransformVertices (dwVertexCount: DWORD;
+        const lpData: TD3DTransformData; dwFlags: DWORD;
+        out lpOffscreen: DWORD) : HResult; stdcall;
+    function LightElements (dwElementCount: DWORD;
+        var lpData: TD3DLightData) : HResult; stdcall;
+    function SetBackground (hMat: TD3DMaterialHandle) : HResult; stdcall;
+    function GetBackground (out hMat: TD3DMaterialHandle) : HResult; stdcall;
+    function SetBackgroundDepth (lpDDSurface: IDirectDrawSurface) :
+        HResult; stdcall;
+    function GetBackgroundDepth (out lplpDDSurface: IDirectDrawSurface;
+        out lpValid: BOOL) : HResult; stdcall;
+    function Clear (dwCount: DWORD; const lpRects: TD3DRect; dwFlags: DWORD) :
+        HResult; stdcall;
+    function AddLight (lpDirect3DLight: IDirect3DLight) : HResult; stdcall;
+    function DeleteLight (lpDirect3DLight: IDirect3DLight) : HResult; stdcall;
+    function NextLight (lpDirect3DLight: IDirect3DLight;
+        out lplpDirect3DLight: IDirect3DLight; dwFlags: DWORD) : HResult; stdcall;
-    // IDirect3DViewport2 methods
+    (*** IDirect3DViewport2 methods ***)
-    function GetViewport2(var lpData: TD3DViewport2): HResult; stdcall;
+    function GetViewport2 (out lpData: TD3DViewport2) : HResult; stdcall;
-    function SetViewport2(const lpData: TD3DViewport2): HResult; stdcall;
+    function SetViewport2 (const lpData: TD3DViewport2) : HResult; stdcall;
   end;
-  IDirect3DViewport3 = interface(IDirect3DViewport2)
+  IDirect3DViewport3 = interface (IUnknown)
-    ['{B0AB3B61-33D7-11D1-A981-00C04FD7B174}']
+    ['{b0ab3b61-33d7-11d1-a981-00c04fd7b174}']
-    // IDirect3DViewport3 methods
+    (*** IDirect3DViewport3 methods ***)
+    function Initialize (lpDirect3D: IDirect3D) : HResult; stdcall;
+    function GetViewport (out lpData: TD3DViewport) : HResult; stdcall;
+    function SetViewport (const lpData: TD3DViewport) : HResult; stdcall;
+    function TransformVertices (dwVertexCount: DWORD;
+        const lpData: TD3DTransformData; dwFlags: DWORD;
+        out lpOffscreen: DWORD) : HResult; stdcall;
+    function LightElements (dwElementCount: DWORD;
+        var lpData: TD3DLightData) : HResult; stdcall;
-    function SetBackgroundDepth2(lpDDS: IDirectDrawSurface4): HResult; stdcall;
+    function SetBackground (hMat: TD3DMaterialHandle) : HResult; stdcall;
+    function GetBackground (var hMat: TD3DMaterialHandle) : HResult; stdcall;
+    function SetBackgroundDepth (
+        lpDDSurface: IDirectDrawSurface) : HResult; stdcall;
+    function GetBackgroundDepth (out lplpDDSurface: IDirectDrawSurface;
+        out lpValid: BOOL) : HResult; stdcall;
+    function Clear (dwCount: DWORD; const lpRects: TD3DRect; dwFlags: DWORD) :
+        HResult; stdcall;
+    function AddLight (lpDirect3DLight: IDirect3DLight) : HResult; stdcall;
+    function DeleteLight (lpDirect3DLight: IDirect3DLight) : HResult; stdcall;
+    function NextLight (lpDirect3DLight: IDirect3DLight;
+        out lplpDirect3DLight: IDirect3DLight; dwFlags: DWORD) : HResult; stdcall;
+    function GetViewport2 (out lpData: TD3DViewport2) : HResult; stdcall;
+    function SetViewport2 (const lpData: TD3DViewport2) : HResult; stdcall;
+    function SetBackgroundDepth2 (
+        lpDDSurface: IDirectDrawSurface4) : HResult; stdcall;
-    function GetBackgroundDepth2(out lplpDDS: IDirectDrawSurface4; var lpValid: BOOL): HResult; stdcall;
+    function GetBackgroundDepth2 (out lplpDDSurface: IDirectDrawSurface4;
+        out lpValid: BOOL) : HResult; stdcall;
-    function Clear2(dwCount: DWORD; const lpRects: TD3DRect; dwFlags: DWORD;
+    function Clear2 (dwCount: DWORD; const lpRects: TD3DRect; dwFlags: DWORD;
-        dwColor: DWORD; dvZ: TD3DValue; dwStencil: DWORD): HResult; stdcall;
+        dwColor: DWORD; dvZ: TD3DValue; dwStencil: DWORD) : HResult; stdcall;
   end;
-  IDirect3DVertexBuffer = interface(IUnknown)
+  IDirect3DVertexBuffer = interface (IUnknown)
-    ['{7A503555-4A83-11D1-A5DB-00A0C90367F8}']
+    ['{7a503555-4a83-11d1-a5db-00a0c90367f8}']
-    // IDirect3DVertexBuffer methods
+    (*** IDirect3DVertexBuffer methods ***)
-    function Lock(dwFlags: DWORD; var lplpData: Pointer; var lpdwSize: DWORD): HResult; stdcall;
+    function Lock (dwFlags: DWORD; var lplpData: pointer; var lpdwSize: DWORD)
+        : HResult; stdcall;
-    function Unlock: HResult; stdcall;
+    function Unlock : HResult; stdcall;
-    function ProcessVertices(dwVertexOp: DWORD; dwDestIndex: DWORD; dwCount: DWORD;
+    function ProcessVertices (dwVertexOp, dwDestIndex, dwCount: DWORD;
-      lpSrcBuffer: IDirect3DVertexBuffer; dwSrcIndex: DWORD;
+        lpSrcBuffer: IDirect3DVertexBuffer; dwSrcIndex: DWORD;
-      lpD3DDevice: IDirect3DDevice3; dwFlags: DWORD): HResult; stdcall;
+        lpD3DDevice: IDirect3DDevice3; dwFlags: DWORD) : HResult; stdcall;
-    function GetVertexBufferDesc(var lpVBDesc: TD3DVertexBufferDesc): HResult; stdcall;
+    function GetVertexBufferDesc (var lpVBDesc: TD3DVertexBufferDesc) : HResult; stdcall;
-    function Optimize(lpD3DDevice: IDirect3DDevice3; dwFlags: DWORD): HResult; stdcall;
+    function Optimize(lpD3DDevice: IDirect3DDevice3; dwFlags: DWORD) : HResult; stdcall;
   end;
-  IDirect3DVertexBuffer7 = interface(IUnknown)
+  IDirect3DVertexBuffer7 = interface (IUnknown)
-    ['{F5049E7D-4861-11D2-A407-00A0C90629A8}']
+    ['{f5049e7d-4861-11d2-a407-00a0c90629a8}']
-    // IDirect3DVertexBuffer7 methods
+    (*** IDirect3DVertexBuffer methods ***)
-    function Lock(dwFlags: DWORD; var lplpData: Pointer; var lpdwSize: DWORD): HResult; stdcall;
+    function Lock (dwFlags: DWORD; out lplpData: Pointer; out lpdwSize: DWORD) : HResult; stdcall;
-    function Unlock: HResult; stdcall;
+    function Unlock : HResult; stdcall;
-    function ProcessVertices(dwVertexOp: DWORD; dwDestIndex: DWORD; dwCount: DWORD;
+    function ProcessVertices (dwVertexOp, dwDestIndex, dwCount: DWORD;
+        lpSrcBuffer: IDirect3DVertexBuffer7; dwSrcIndex: DWORD;
-      lpSrcBuffer: IDirect3DVertexBuffer7; dwSrcIndex: DWORD; lpD3DDevice: IDirect3DDevice7; dwFlags: DWORD): HResult; stdcall;
+        lpD3DDevice: IDirect3DDevice7; dwFlags: DWORD) : HResult; stdcall;
-    function GetVertexBufferDesc(var lpVBDesc: TD3DVertexBufferDesc): HResult; stdcall;
+    function GetVertexBufferDesc (out lpVBDesc: TD3DVertexBufferDesc) : HResult; stdcall;
-    function Optimize(lpD3DDevice: IDirect3DDevice7; dwFlags: DWORD): HResult; stdcall;
+    function Optimize(lpD3DDevice: IDirect3DDevice7; dwFlags: DWORD) : HResult; stdcall;
-    function ProcessVerticesStrided(dwVertexOp: DWORD; dwDestIndex: DWORD; dwCount: DWORD;
+    function ProcessVerticesStrided(dwVertexOp, dwDestIndex, dwCount: DWORD;
+      lpVertexArray: TD3DDrawPrimitiveStridedData; dwVertexTypeDesc: DWORD;
-      const lpVertexArray; dwSrcIndex: DWORD; lpD3DDevice: IDirect3DDevice7; dwFlags: DWORD): HResult; stdcall;
+      lpD3DDevice: IDirect3DDevice7; dwFlags: DWORD) : HResult; stdcall;
   end;
-const
+type
+  IID_IDirect3D = IDirect3D;
+  IID_IDirect3D2 = IDirect3D2;
+  IID_IDirect3D3 = IDirect3D3;
+  IID_IDirect3D7 = IDirect3D7;
+  IID_IDirect3DDevice = IDirect3DDevice;
+  IID_IDirect3DDevice2 = IDirect3DDevice2;
+  IID_IDirect3DDevice3 = IDirect3DDevice3;
+  IID_IDirect3DDevice7 = IDirect3DDevice7;
+  IID_IDirect3DTexture = IDirect3DTexture;
+  IID_IDirect3DTexture2 = IDirect3DTexture2;
+  IID_IDirect3DLight = IDirect3DLight;
+  IID_IDirect3DMaterial = IDirect3DMaterial;
+  IID_IDirect3DMaterial2 = IDirect3DMaterial2;
+  IID_IDirect3DMaterial3 = IDirect3DMaterial3;
+  IID_IDirect3DExecuteBuffer = IDirect3DExecuteBuffer;
+  IID_IDirect3DViewport = IDirect3DViewport;
+  IID_IDirect3DViewport2 = IDirect3DViewport2;
+  IID_IDirect3DViewport3 = IDirect3DViewport3;
+  IID_IDirect3DVertexBuffer = IDirect3DVertexBuffer;
+  IID_IDirect3DVertexBuffer7 = IDirect3DVertexBuffer7;
-{ Flags for IDirect3DDevice::NextViewport }
+const
+(****************************************************************************
+ *
+ * Flags for IDirect3DDevice::NextViewport
+ *
+ ****************************************************************************)
+(*
+ * Return the next viewport
+ *)
-  D3DNEXT_NEXT = $00000001;
+  D3DNEXT_NEXT =        $00000001;
+(*
+ * Return the first viewport
+ *)
-  D3DNEXT_HEAD = $00000002;
+  D3DNEXT_HEAD =        $00000002;
+(*
+ * Return the last viewport
+ *)
-  D3DNEXT_TAIL = $00000004;
+  D3DNEXT_TAIL =        $00000004;
-{ Flags for DrawPrimitive/DrawIndexedPrimitive
-   Also valid for Begin/BeginIndexed }
+(****************************************************************************
+ *
+ * Flags for DrawPrimitive/DrawIndexedPrimitive
+ *   Also valid for Begin/BeginIndexed
+ *   Also valid for VertexBuffer::CreateVertexBuffer
+ ****************************************************************************)
+(*
+ * Wait until the device is ready to draw the primitive
+ * This will cause DP to not return DDERR_WASSTILLDRAWING
+ *)
-  D3DDP_WAIT               = $00000001;
+  D3DDP_WAIT =                                  $00000001;
+(*
+ * Hint that it is acceptable to render the primitive out of order.
+ *)
-  D3DDP_OUTOFORDER         = $00000002;
+  D3DDP_OUTOFORDER            = $00000002;
+(*
+ * Hint that the primitives have been clipped by the application.
+ *)
-  D3DDP_DONOTCLIP          = $00000004;
+  D3DDP_DONOTCLIP =                             $00000004;
+(*
+ * Hint that the extents need not be updated.
+ *)
-  D3DDP_DONOTUPDATEEXTENTS = $00000008;
+  D3DDP_DONOTUPDATEEXTENTS =    $00000008;
+(*
+ * Hint that the lighting should not be applied on vertices.
+ *)
-  D3DDP_DONOTLIGHT         = $00000010;
+  D3DDP_DONOTLIGHT            = $00000010;
+(*
-{ Direct3D Errors }
+ * Direct3D Errors
+ * DirectDraw error codes are used when errors not specified here.
+ *)
+const
+  MAKE_D3DHRESULT = HResult($88760000);
+  D3D_OK                          = DD_OK;
+  D3DERR_BADMAJORVERSION          = MAKE_D3DHRESULT + 700;
+  D3DERR_BADMINORVERSION          = MAKE_D3DHRESULT + 701;
+(*
+ * An invalid device was requested by the application.
+ *)
+  D3DERR_INVALID_DEVICE   = MAKE_D3DHRESULT + 705;
+  D3DERR_INITFAILED       = MAKE_D3DHRESULT + 706;
+(*
+ * SetRenderTarget attempted on a device that was
+ * QI'd off the render target.
+ *)
+  D3DERR_DEVICEAGGREGATED = MAKE_D3DHRESULT + 707;
+  D3DERR_EXECUTE_CREATE_FAILED    = MAKE_D3DHRESULT + 710;
+  D3DERR_EXECUTE_DESTROY_FAILED   = MAKE_D3DHRESULT + 711;
+  D3DERR_EXECUTE_LOCK_FAILED      = MAKE_D3DHRESULT + 712;
+  D3DERR_EXECUTE_UNLOCK_FAILED    = MAKE_D3DHRESULT + 713;
+  D3DERR_EXECUTE_LOCKED           = MAKE_D3DHRESULT + 714;
+  D3DERR_EXECUTE_NOT_LOCKED       = MAKE_D3DHRESULT + 715;
+  D3DERR_EXECUTE_FAILED           = MAKE_D3DHRESULT + 716;
+  D3DERR_EXECUTE_CLIPPED_FAILED   = MAKE_D3DHRESULT + 717;
+  D3DERR_TEXTURE_NO_SUPPORT       = MAKE_D3DHRESULT + 720;
+  D3DERR_TEXTURE_CREATE_FAILED    = MAKE_D3DHRESULT + 721;
+  D3DERR_TEXTURE_DESTROY_FAILED   = MAKE_D3DHRESULT + 722;
+  D3DERR_TEXTURE_LOCK_FAILED      = MAKE_D3DHRESULT + 723;
+  D3DERR_TEXTURE_UNLOCK_FAILED    = MAKE_D3DHRESULT + 724;
+  D3DERR_TEXTURE_LOAD_FAILED      = MAKE_D3DHRESULT + 725;
+  D3DERR_TEXTURE_SWAP_FAILED      = MAKE_D3DHRESULT + 726;
+  D3DERR_TEXTURE_LOCKED           = MAKE_D3DHRESULT + 727;
+  D3DERR_TEXTURE_NOT_LOCKED       = MAKE_D3DHRESULT + 728;
+  D3DERR_TEXTURE_GETSURF_FAILED   = MAKE_D3DHRESULT + 729;
+  D3DERR_MATRIX_CREATE_FAILED     = MAKE_D3DHRESULT + 730;
+  D3DERR_MATRIX_DESTROY_FAILED    = MAKE_D3DHRESULT + 731;
+  D3DERR_MATRIX_SETDATA_FAILED    = MAKE_D3DHRESULT + 732;
+  D3DERR_MATRIX_GETDATA_FAILED    = MAKE_D3DHRESULT + 733;
+  D3DERR_SETVIEWPORTDATA_FAILED   = MAKE_D3DHRESULT + 734;
+  D3DERR_INVALIDCURRENTVIEWPORT   = MAKE_D3DHRESULT + 735;
+  D3DERR_INVALIDPRIMITIVETYPE     = MAKE_D3DHRESULT + 736;
+  D3DERR_INVALIDVERTEXTYPE        = MAKE_D3DHRESULT + 737;
+  D3DERR_TEXTURE_BADSIZE          = MAKE_D3DHRESULT + 738;
+  D3DERR_INVALIDRAMPTEXTURE       = MAKE_D3DHRESULT + 739;
+  D3DERR_MATERIAL_CREATE_FAILED   = MAKE_D3DHRESULT + 740;
+  D3DERR_MATERIAL_DESTROY_FAILED  = MAKE_D3DHRESULT + 741;
+  D3DERR_MATERIAL_SETDATA_FAILED  = MAKE_D3DHRESULT + 742;
+  D3DERR_MATERIAL_GETDATA_FAILED  = MAKE_D3DHRESULT + 743;
+  D3DERR_INVALIDPALETTE           = MAKE_D3DHRESULT + 744;
+  D3DERR_ZBUFF_NEEDS_SYSTEMMEMORY = MAKE_D3DHRESULT + 745;
+  D3DERR_ZBUFF_NEEDS_VIDEOMEMORY  = MAKE_D3DHRESULT + 746;
+  D3DERR_SURFACENOTINVIDMEM       = MAKE_D3DHRESULT + 747;
+  D3DERR_LIGHT_SET_FAILED         = MAKE_D3DHRESULT + 750;
+  D3DERR_LIGHTHASVIEWPORT         = MAKE_D3DHRESULT + 751;
+  D3DERR_LIGHTNOTINTHISVIEWPORT   = MAKE_D3DHRESULT + 752;
+  D3DERR_SCENE_IN_SCENE           = MAKE_D3DHRESULT + 760;
+  D3DERR_SCENE_NOT_IN_SCENE       = MAKE_D3DHRESULT + 761;
+  D3DERR_SCENE_BEGIN_FAILED       = MAKE_D3DHRESULT + 762;
+  D3DERR_SCENE_END_FAILED         = MAKE_D3DHRESULT + 763;
+  D3DERR_INBEGIN                  = MAKE_D3DHRESULT + 770;
+  D3DERR_NOTINBEGIN               = MAKE_D3DHRESULT + 771;
+  D3DERR_NOVIEWPORTS              = MAKE_D3DHRESULT + 772;
+  D3DERR_VIEWPORTDATANOTSET       = MAKE_D3DHRESULT + 773;
+  D3DERR_VIEWPORTHASNODEVICE      = MAKE_D3DHRESULT + 774;
+  D3DERR_NOCURRENTVIEWPORT        = MAKE_D3DHRESULT + 775;
+  D3DERR_INVALIDVERTEXFORMAT      = MAKE_D3DHRESULT + 2048;
+(*
+ * Attempted to CreateTexture on a surface that had a color key
+ *)
+  D3DERR_COLORKEYATTACHED                 = MAKE_D3DHRESULT + 2050;
+  D3DERR_VERTEXBUFFEROPTIMIZED            = MAKE_D3DHRESULT + 2060;
+  D3DERR_VBUF_CREATE_FAILED               = MAKE_D3DHRESULT + 2061;
+  D3DERR_VERTEXBUFFERLOCKED               = MAKE_D3DHRESULT + 2062;
+  D3DERR_ZBUFFER_NOTPRESENT               = MAKE_D3DHRESULT + 2070;
+  D3DERR_STENCILBUFFER_NOTPRESENT         = MAKE_D3DHRESULT + 2071;
+  D3DERR_WRONGTEXTUREFORMAT               = MAKE_D3DHRESULT + 2072;
+  D3DERR_UNSUPPORTEDCOLOROPERATION        = MAKE_D3DHRESULT + 2073;
+  D3DERR_UNSUPPORTEDCOLORARG              = MAKE_D3DHRESULT + 2074;
+  D3DERR_UNSUPPORTEDALPHAOPERATION        = MAKE_D3DHRESULT + 2075;
+  D3DERR_UNSUPPORTEDALPHAARG              = MAKE_D3DHRESULT + 2076;
+  D3DERR_TOOMANYOPERATIONS                = MAKE_D3DHRESULT + 2077;
+  D3DERR_CONFLICTINGTEXTUREFILTER         = MAKE_D3DHRESULT + 2078;
+  D3DERR_UNSUPPORTEDFACTORVALUE           = MAKE_D3DHRESULT + 2079;
+  D3DERR_CONFLICTINGRENDERSTATE           = MAKE_D3DHRESULT + 2081;
+  D3DERR_UNSUPPORTEDTEXTUREFILTER         = MAKE_D3DHRESULT + 2082;
+  D3DERR_TOOMANYPRIMITIVES                = MAKE_D3DHRESULT + 2083;
+  D3DERR_INVALIDMATRIX                    = MAKE_D3DHRESULT + 2084;
+  D3DERR_TOOMANYVERTICES                  = MAKE_D3DHRESULT + 2085;
+  D3DERR_CONFLICTINGTEXTUREPALETTE        = MAKE_D3DHRESULT + 2086;
+  D3DERR_INVALIDSTATEBLOCK        = MAKE_D3DHRESULT + 2100;
+  D3DERR_INBEGINSTATEBLOCK        = MAKE_D3DHRESULT + 2101;
+  D3DERR_NOTINBEGINSTATEBLOCK     = MAKE_D3DHRESULT + 2102;
+procedure DisableFPUExceptions;
+procedure EnableFPUExceptions;
+(***************************************************************************
+ *
+ *  Copyright (C) 1998-1999 Microsoft Corporation.  All Rights Reserved.
+ *
+ *  File:       dxfile.h
+ *
+ *  Content:    DirectX File public header file
+ *
+ ***************************************************************************)
+var
+  DXFileDLL : HMODULE;
+function DXFileErrorString(Value: HResult) : string;
+type
+  TDXFileFormat = (
+    DXFILEFORMAT_BINARY,
+    DXFILEFORMAT_TEXT,
+    DXFILEFORMAT_COMPRESSED
+  );
+  TDXFileLoadOptions = (
+    DXFILELOAD_FROMFILE,
+    DXFILELOAD_FROMRESOURCE,
+    DXFILELOAD_FROMMEMORY,
+    DXFILELOAD_INVALID_3,
+    DXFILELOAD_FROMSTREAM,
+    DXFILELOAD_INVALID_5,
+    DXFILELOAD_INVALID_6,
+    DXFILELOAD_INVALID_7,
+    DXFILELOAD_FROMURL
+  );
+  PDXFileLoadResource = ^TDXFileLoadResource;
+  TDXFileLoadResource = packed record
+    hModule: HModule;
+    lpName: PAnsiChar;
+    lpType: PAnsiChar;
+  end;
+  PDXFileLoadMemory = ^TDXFileLoadMemory;
+  TDXFileLoadMemory = packed record
+    lpMemory: Pointer;
+    dSize: DWORD;
+  end;
+(*
+ * DirectX File object types.
+ *)
+  IDirectXFile = interface;
+  IDirectXFileEnumObject = interface;
+  IDirectXFileSaveObject = interface;
+  IDirectXFileObject = interface;
+  IDirectXFileData = interface;
+  IDirectXFileDataReference = interface;
+  IDirectXFileBinary = interface;
+(*
+ * DirectX File interfaces.
+ *)
+  IDirectXFile = interface (IUnknown)
+    ['{3d82ab40-62da-11cf-ab39-0020af71e433}']
+    function CreateEnumObject (pvSource: Pointer;
+        dwLoadOptions: TDXFileLoadOptions;
+        var ppEnumObj: IDirectXFileEnumObject) : HResult; stdcall;
+    function CreateSaveObject (szFileName: PChar; dwFileFormat: TDXFileFormat;
+        var ppSaveObj: IDirectXFileSaveObject) : HResult; stdcall;
+    function RegisterTemplates (pvData: Pointer; cbSize: DWORD) : HResult; stdcall;
+  end;
+  IDirectXFileEnumObject = interface (IUnknown)
+    ['{3d82ab41-62da-11cf-ab39-0020af71e433}']
+    function GetNextDataObject (var ppDataObj: IDirectXFileData) : HResult; stdcall;
+    function GetDataObjectById
+        (const rguid: TGUID; var ppDataObj: IDirectXFileData) : HResult; stdcall;
+    function GetDataObjectByName
+        (szName: PChar; var ppDataObj: IDirectXFileData) : HResult; stdcall;
+  end;
+  IDirectXFileSaveObject = interface (IUnknown)
+    ['{3d82ab42-62da-11cf-ab39-0020af71e433}']
+    function SaveTemplates
+        (cTemplates: DWORD; var ppguidTemplates: PGUID) : HResult; stdcall;
+    function CreateDataObject (const rguidTemplate: TGUID; szName: PChar;
+        pguid: PGUID; cbSize: DWORD; pvData: Pointer;
+        var ppDataObj: IDirectXFileData) : HResult; stdcall;
+    function SaveData (pDataObj: IDirectXFileData) : HResult; stdcall;
+  end;
+  IDirectXFileObject = interface (IUnknown)
+    ['{3d82ab43-62da-11cf-ab39-0020af71e433}']
+    function GetName (pstrNameBuf: PChar; var dwBufLen: DWORD) : HResult; stdcall;
+    function GetId (var pGuidBuf: TGUID) : HResult; stdcall;
+  end;
+  IDirectXFileData = interface (IDirectXFileObject)
+    ['{3d82ab44-62da-11cf-ab39-0020af71e433}']
+    function GetData
+        (szMember: PChar; var pcbSize: DWORD; var ppvData: Pointer) : HResult; stdcall;
+    function GetType (var ppguid: PGUID) : HResult; stdcall;
+    function GetNextObject (var ppChildObj: IDirectXFileObject) : HResult; stdcall;
+    function AddDataObject (pDataObj: IDirectXFileData) : HResult; stdcall;
+    function AddDataReference (szRef: PChar; pguidRef: PGUID) : HResult; stdcall;
+    function AddBinaryObject (szName: PChar; pguid: PGUID; szMimeType: PChar;
+        pvData: Pointer; cbSize: DWORD) : HResult; stdcall;
+  end;
+  IDirectXFileDataReference = interface (IDirectXFileObject)
+    ['{3d82ab45-62da-11cf-ab39-0020af71e433}']
+    function Resolve (var ppDataObj: IDirectXFileData) : HResult; stdcall;
+  end;
+  IDirectXFileBinary = interface (IDirectXFileObject)
+    ['{3d82ab46-62da-11cf-ab39-0020af71e433}']
+    function GetSize (var pcbSize: DWORD) : HResult; stdcall;
+    function GetMimeType (var pszMimeType: PChar) : HResult; stdcall;
+    function Read(pvData: Pointer; cbSize: DWORD; pcbRead: PDWORD{?}) : HResult; stdcall;
+  end;
+const
+(*
+ * DirectXFile Object Class Id (for CoCreateInstance())
+ *)
+   CLSID_CDirectXFile: TGUID =
+       (D1:$4516ec43;D2:$8f20;D3:$11d0;D4:($9b,$6d,$00,$00,$c0,$78,$1b,$c3));
+(*
+ * DirectX File Interface GUIDs.
+ *)
+type
+  IID_IDirectXFile = IDirectXFile;
+  IID_IDirectXFileEnumObject = IDirectXFileEnumObject;
+  IID_IDirectXFileSaveObject = IDirectXFileSaveObject;
+  IID_IDirectXFileObject = IDirectXFileObject;
+  IID_IDirectXFileData = IDirectXFileData;
+  IID_IDirectXFileDataReference = IDirectXFileDataReference;
+  IID_IDirectXFileBinary = IDirectXFileBinary;
+(*
+ * DirectX File Header template's GUID.
+ *)
+const
+  TID_DXFILEHeader: TGUID =
+      (D1:$3d82ab43;D2:$62da;D3:$11cf;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
+(*
+ * DirectX File errors.
+ *)
 const
-  D3D_OK                  = HResult(DD_OK);
+  DXFILE_OK = 0;
-  D3DERR_BADMAJORVERSION  = HResult($88760000 + 700);
-  D3DERR_BADMINORVERSION  = HResult($88760000 + 701);
+  DXFILEERR_BADOBJECT                 = MAKE_D3DHRESULT or 850;
+  DXFILEERR_BADVALUE                  = MAKE_D3DHRESULT or 851;
-{ An invalid device was requested by the application. }
+  DXFILEERR_BADTYPE                   = MAKE_D3DHRESULT or 852;
+  DXFILEERR_BADSTREAMHANDLE           = MAKE_D3DHRESULT or 853;
-  D3DERR_INVALID_DEVICE   = HResult($88760000 + 705);
+  DXFILEERR_BADALLOC                  = MAKE_D3DHRESULT or 854;
-  D3DERR_INITFAILED       = HResult($88760000 + 706);
+  DXFILEERR_NOTFOUND                  = MAKE_D3DHRESULT or 855;
+  DXFILEERR_NOTDONEYET                = MAKE_D3DHRESULT or 856;
-{ SetRenderTarget attempted on a device that was
+  DXFILEERR_FILENOTFOUND              = MAKE_D3DHRESULT or 857;
-  QI'd off the render target. }
+  DXFILEERR_RESOURCENOTFOUND          = MAKE_D3DHRESULT or 858;
+  DXFILEERR_URLNOTFOUND               = MAKE_D3DHRESULT or 859;
-  D3DERR_DEVICEAGGREGATED          = HResult($88760000 + 707);
+  DXFILEERR_BADRESOURCE               = MAKE_D3DHRESULT or 860;
+  DXFILEERR_BADFILETYPE               = MAKE_D3DHRESULT or 861;
-  D3DERR_EXECUTE_CREATE_FAILED     = HResult($88760000 + 710);
+  DXFILEERR_BADFILEVERSION            = MAKE_D3DHRESULT or 862;
-  D3DERR_EXECUTE_DESTROY_FAILED    = HResult($88760000 + 711);
+  DXFILEERR_BADFILEFLOATSIZE          = MAKE_D3DHRESULT or 863;
-  D3DERR_EXECUTE_LOCK_FAILED       = HResult($88760000 + 712);
+  DXFILEERR_BADFILECOMPRESSIONTYPE    = MAKE_D3DHRESULT or 864;
-  D3DERR_EXECUTE_UNLOCK_FAILED     = HResult($88760000 + 713);
+  DXFILEERR_BADFILE                   = MAKE_D3DHRESULT or 865;
-  D3DERR_EXECUTE_LOCKED            = HResult($88760000 + 714);
+  DXFILEERR_PARSEERROR                = MAKE_D3DHRESULT or 866;
-  D3DERR_EXECUTE_NOT_LOCKED        = HResult($88760000 + 715);
+  DXFILEERR_NOTEMPLATE                = MAKE_D3DHRESULT or 867;
+  DXFILEERR_BADARRAYSIZE              = MAKE_D3DHRESULT or 868;
-  D3DERR_EXECUTE_FAILED            = HResult($88760000 + 716);
+  DXFILEERR_BADDATAREFERENCE          = MAKE_D3DHRESULT or 869;
-  D3DERR_EXECUTE_CLIPPED_FAILED    = HResult($88760000 + 717);
+  DXFILEERR_INTERNALERROR             = MAKE_D3DHRESULT or 870;
+  DXFILEERR_NOMOREOBJECTS             = MAKE_D3DHRESULT or 871;
-  D3DERR_TEXTURE_NO_SUPPORT        = HResult($88760000 + 720);
+  DXFILEERR_BADINTRINSICS             = MAKE_D3DHRESULT or 872;
-  D3DERR_TEXTURE_CREATE_FAILED     = HResult($88760000 + 721);
+  DXFILEERR_NOMORESTREAMHANDLES       = MAKE_D3DHRESULT or 873;
-  D3DERR_TEXTURE_DESTROY_FAILED    = HResult($88760000 + 722);
+  DXFILEERR_NOMOREDATA                = MAKE_D3DHRESULT or 874;
-  D3DERR_TEXTURE_LOCK_FAILED       = HResult($88760000 + 723);
+  DXFILEERR_BADCACHEFILE              = MAKE_D3DHRESULT or 875;
-  D3DERR_TEXTURE_UNLOCK_FAILED     = HResult($88760000 + 724);
+  DXFILEERR_NOINTERNET                = MAKE_D3DHRESULT or 876;
-  D3DERR_TEXTURE_LOAD_FAILED       = HResult($88760000 + 725);
-  D3DERR_TEXTURE_SWAP_FAILED       = HResult($88760000 + 726);
+{$IFDEF D3DRM}
-  D3DERR_TEXTURE_LOCKED            = HResult($88760000 + 727);
+(*
-  D3DERR_TEXTURE_NOT_LOCKED        = HResult($88760000 + 728);
+ * API for creating IDirectXFile interface.
-  D3DERR_TEXTURE_GETSURF_FAILED    = HResult($88760000 + 729);
+ *)
-  D3DERR_MATRIX_CREATE_FAILED      = HResult($88760000 + 730);
+var
-  D3DERR_MATRIX_DESTROY_FAILED     = HResult($88760000 + 731);
+  DirectXFileCreate : function
-  D3DERR_MATRIX_SETDATA_FAILED     = HResult($88760000 + 732);
+    (out lplpDirectXFile: IDirectXFile) : HResult; stdcall;
-  D3DERR_MATRIX_GETDATA_FAILED     = HResult($88760000 + 733);
-  D3DERR_SETVIEWPORTDATA_FAILED    = HResult($88760000 + 734);
+(* D3DRM XFile templates in binary form *)
+const
-  D3DERR_INVALIDCURRENTVIEWPORT    = HResult($88760000 + 735);
+  D3DRM_XTEMPLATE_BYTES = 3215;
-  D3DERR_INVALIDPRIMITIVETYPE      = HResult($88760000 + 736);
+  D3DRM_XTEMPLATES: array [0..D3DRM_XTEMPLATE_BYTES-1] of byte = (
-  D3DERR_INVALIDVERTEXTYPE         = HResult($88760000 + 737);
+        $78, $6f, $66, $20, $30, $33, $30, $32, $62,
-  D3DERR_TEXTURE_BADSIZE           = HResult($88760000 + 738);
+        $69, $6e, $20, $30, $30, $36, $34, $1f, 0, $1,
-  D3DERR_INVALIDRAMPTEXTURE        = HResult($88760000 + 739);
+, $6, 0, 0, 0, $48, $65, $61, $64, $65,
+        $72, $a, 0, $5, 0, $43, $ab, $82, $3d, $da,
-  D3DERR_MATERIAL_CREATE_FAILED    = HResult($88760000 + 740);
+        $62, $cf, $11, $ab, $39, 0, $20, $af, $71, $e4,
-  D3DERR_MATERIAL_DESTROY_FAILED   = HResult($88760000 + 741);
+        $33, $28, 0, $1, 0, $5, 0, 0, 0, $6d,
-  D3DERR_MATERIAL_SETDATA_FAILED   = HResult($88760000 + 742);
+        $61, $6a, $6f, $72, $14, 0, $28, 0, $1, 0,
-  D3DERR_MATERIAL_GETDATA_FAILED   = HResult($88760000 + 743);
+        $5, 0, 0, 0, $6d, $69, $6e, $6f, $72, $14,
+, $29, 0, $1, 0, $5, 0, 0, 0, $66,
-  D3DERR_INVALIDPALETTE            = HResult($88760000 + 744);
+        $6c, $61, $67, $73, $14, 0, $b, 0, $1f, 0,
+        $1, 0, $6, 0, 0, 0, $56, $65, $63, $74,
-  D3DERR_ZBUFF_NEEDS_SYSTEMMEMORY  = HResult($88760000 + 745);
+        $6f, $72, $a, 0, $5, 0, $5e, $ab, $82, $3d,
-  D3DERR_ZBUFF_NEEDS_VIDEOMEMORY   = HResult($88760000 + 746);
+        $da, $62, $cf, $11, $ab, $39, 0, $20, $af, $71,
-  D3DERR_SURFACENOTINVIDMEM        = HResult($88760000 + 747);
+        $e4, $33, $2a, 0, $1, 0, $1, 0, 0, 0,
+        $78, $14, 0, $2a, 0, $1, 0, $1, 0, 0,
-  D3DERR_LIGHT_SET_FAILED          = HResult($88760000 + 750);
+, $79, $14, 0, $2a, 0, $1, 0, $1, 0,
-  D3DERR_LIGHTHASVIEWPORT          = HResult($88760000 + 751);
+, 0, $7a, $14, 0, $b, 0, $1f, 0, $1,
-  D3DERR_LIGHTNOTINTHISVIEWPORT    = HResult($88760000 + 752);
+, $8, 0, 0, 0, $43, $6f, $6f, $72, $64,
+        $73, $32, $64, $a, 0, $5, 0, $44, $3f, $f2,
-  D3DERR_SCENE_IN_SCENE            = HResult($88760000 + 760);
+        $f6, $86, $76, $cf, $11, $8f, $52, 0, $40, $33,
-  D3DERR_SCENE_NOT_IN_SCENE        = HResult($88760000 + 761);
+        $35, $94, $a3, $2a, 0, $1, 0, $1, 0, 0,
-  D3DERR_SCENE_BEGIN_FAILED        = HResult($88760000 + 762);
+, $75, $14, 0, $2a, 0, $1, 0, $1, 0,
-  D3DERR_SCENE_END_FAILED          = HResult($88760000 + 763);
+, 0, $76, $14, 0, $b, 0, $1f, 0, $1,
+, $9, 0, 0, 0, $4d, $61, $74, $72, $69,
-  D3DERR_INBEGIN                   = HResult($88760000 + 770);
+        $78, $34, $78, $34, $a, 0, $5, 0, $45, $3f,
-  D3DERR_NOTINBEGIN                = HResult($88760000 + 771);
+        $f2, $f6, $86, $76, $cf, $11, $8f, $52, 0, $40,
-  D3DERR_NOVIEWPORTS               = HResult($88760000 + 772);
+        $33, $35, $94, $a3, $34, 0, $2a, 0, $1, 0,
-  D3DERR_VIEWPORTDATANOTSET        = HResult($88760000 + 773);
+        $6, 0, 0, 0, $6d, $61, $74, $72, $69, $78,
-  D3DERR_VIEWPORTHASNODEVICE       = HResult($88760000 + 774);
+        $e, 0, $3, 0, $10, 0, 0, 0, $f, 0,
-  D3DERR_NOCURRENTVIEWPORT         = HResult($88760000 + 775);
+        $14, 0, $b, 0, $1f, 0, $1, 0, $9, 0,
+, 0, $43, $6f, $6c, $6f, $72, $52, $47, $42,
-  D3DERR_INVALIDVERTEXFORMAT       = HResult($88760000 + 2048);
+        $41, $a, 0, $5, 0, $e0, $44, $ff, $35, $7c,
+        $6c, $cf, $11, $8f, $52, 0, $40, $33, $35, $94,
-  D3DERR_COLORKEYATTACHED          = HResult($88760000 + 2050);
+        $a3, $2a, 0, $1, 0, $3, 0, 0, 0, $72,
+        $65, $64, $14, 0, $2a, 0, $1, 0, $5, 0,
-  D3DERR_VERTEXBUFFEROPTIMIZED     = HResult($88760000 + 2060);
+, 0, $67, $72, $65, $65, $6e, $14, 0, $2a,
-  D3DERR_VBUF_CREATE_FAILED        = HResult($88760000 + 2061);
+, $1, 0, $4, 0, 0, 0, $62, $6c, $75,
-  D3DERR_VERTEXBUFFERLOCKED        = HResult($88760000 + 2062);
+        $65, $14, 0, $2a, 0, $1, 0, $5, 0, 0,
-  D3DERR_VERTEXBUFFERUNLOCKFAILED  = HResult($88760000 + 2063);
+, $61, $6c, $70, $68, $61, $14, 0, $b, 0,
+        $1f, 0, $1, 0, $8, 0, 0, 0, $43, $6f,
-  D3DERR_ZBUFFER_NOTPRESENT        = HResult($88760000 + 2070);
+        $6c, $6f, $72, $52, $47, $42, $a, 0, $5, 0,
-  D3DERR_STENCILBUFFER_NOTPRESENT  = HResult($88760000 + 2071);
+        $81, $6e, $e1, $d3, $35, $78, $cf, $11, $8f, $52,
+, $40, $33, $35, $94, $a3, $2a, 0, $1, 0,
-  D3DERR_WRONGTEXTUREFORMAT        = HResult($88760000 + 2072);
+        $3, 0, 0, 0, $72, $65, $64, $14, 0, $2a,
-  D3DERR_UNSUPPORTEDCOLOROPERATION = HResult($88760000 + 2073);
+, $1, 0, $5, 0, 0, 0, $67, $72, $65,
-  D3DERR_UNSUPPORTEDCOLORARG       = HResult($88760000 + 2074);
+        $65, $6e, $14, 0, $2a, 0, $1, 0, $4, 0,
-  D3DERR_UNSUPPORTEDALPHAOPERATION = HResult($88760000 + 2075);
+, 0, $62, $6c, $75, $65, $14, 0, $b, 0,
-  D3DERR_UNSUPPORTEDALPHAARG       = HResult($88760000 + 2076);
+        $1f, 0, $1, 0, $c, 0, 0, 0, $49, $6e,
-  D3DERR_TOOMANYOPERATIONS         = HResult($88760000 + 2077);
+        $64, $65, $78, $65, $64, $43, $6f, $6c, $6f, $72,
-  D3DERR_CONFLICTINGTEXTUREFILTER  = HResult($88760000 + 2078);
+        $a, 0, $5, 0, $20, $b8, $30, $16, $42, $78,
-  D3DERR_UNSUPPORTEDFACTORVALUE    = HResult($88760000 + 2079);
+        $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3,
-  D3DERR_CONFLICTINGRENDERSTATE    = HResult($88760000 + 2081);
+        $29, 0, $1, 0, $5, 0, 0, 0, $69, $6e,
-  D3DERR_UNSUPPORTEDTEXTUREFILTER  = HResult($88760000 + 2082);
+        $64, $65, $78, $14, 0, $1, 0, $9, 0, 0,
-  D3DERR_TOOMANYPRIMITIVES         = HResult($88760000 + 2083);
+, $43, $6f, $6c, $6f, $72, $52, $47, $42, $41,
-  D3DERR_INVALIDMATRIX             = HResult($88760000 + 2084);
+        $1, 0, $a, 0, 0, 0, $69, $6e, $64, $65,
-  D3DERR_TOOMANYVERTICES           = HResult($88760000 + 2085);
+        $78, $43, $6f, $6c, $6f, $72, $14, 0, $b, 0,
-  D3DERR_CONFLICTINGTEXTUREPALETTE = HResult($88760000 + 2086);
+        $1f, 0, $1, 0, $7, 0, 0, 0, $42, $6f,
+        $6f, $6c, $65, $61, $6e, $a, 0, $5, 0, $a0,
-  D3DERR_INVALIDSTATEBLOCK         = HResult($88760000 + 2100);
+        $a6, $7d, $53, $37, $ca, $d0, $11, $94, $1c, 0,
-  D3DERR_INBEGINSTATEBLOCK         = HResult($88760000 + 2101);
+        $80, $c8, $c, $fa, $7b, $29, 0, $1, 0, $9,
-  D3DERR_NOTINBEGINSTATEBLOCK      = HResult($88760000 + 2102);
+, 0, 0, $74, $72, $75, $65, $66, $61, $6c,
+        $73, $65, $14, 0, $b, 0, $1f, 0, $1, 0,
+        $9, 0, 0, 0, $42, $6f, $6f, $6c, $65, $61,
+        $6e, $32, $64, $a, 0, $5, 0, $63, $ae, $85,
+        $48, $e8, $78, $cf, $11, $8f, $52, 0, $40, $33,
+        $35, $94, $a3, $1, 0, $7, 0, 0, 0, $42,
+        $6f, $6f, $6c, $65, $61, $6e, $1, 0, $1, 0,
+, 0, $75, $14, 0, $1, 0, $7, 0, 0,
+, $42, $6f, $6f, $6c, $65, $61, $6e, $1, 0,
+        $1, 0, 0, 0, $76, $14, 0, $b, 0, $1f,
+, $1, 0, $c, 0, 0, 0, $4d, $61, $74,
+        $65, $72, $69, $61, $6c, $57, $72, $61, $70, $a,
+, $5, 0, $60, $ae, $85, $48, $e8, $78, $cf,
+        $11, $8f, $52, 0, $40, $33, $35, $94, $a3, $1,
+, $7, 0, 0, 0, $42, $6f, $6f, $6c, $65,
+        $61, $6e, $1, 0, $1, 0, 0, 0, $75, $14,
+, $1, 0, $7, 0, 0, 0, $42, $6f, $6f,
+        $6c, $65, $61, $6e, $1, 0, $1, 0, 0, 0,
+        $76, $14, 0, $b, 0, $1f, 0, $1, 0, $f,
+, 0, 0, $54, $65, $78, $74, $75, $72, $65,
+        $46, $69, $6c, $65, $6e, $61, $6d, $65, $a, 0,
+        $5, 0, $e1, $90, $27, $a4, $10, $78, $cf, $11,
+        $8f, $52, 0, $40, $33, $35, $94, $a3, $31, 0,
+        $1, 0, $8, 0, 0, 0, $66, $69, $6c, $65,
+        $6e, $61, $6d, $65, $14, 0, $b, 0, $1f, 0,
+        $1, 0, $8, 0, 0, 0, $4d, $61, $74, $65,
+        $72, $69, $61, $6c, $a, 0, $5, 0, $4d, $ab,
+        $82, $3d, $da, $62, $cf, $11, $ab, $39, 0, $20,
+        $af, $71, $e4, $33, $1, 0, $9, 0, 0, 0,
+        $43, $6f, $6c, $6f, $72, $52, $47, $42, $41, $1,
+, $9, 0, 0, 0, $66, $61, $63, $65, $43,
+        $6f, $6c, $6f, $72, $14, 0, $2a, 0, $1, 0,
+        $5, 0, 0, 0, $70, $6f, $77, $65, $72, $14,
+, $1, 0, $8, 0, 0, 0, $43, $6f, $6c,
+        $6f, $72, $52, $47, $42, $1, 0, $d, 0, 0,
+, $73, $70, $65, $63, $75, $6c, $61, $72, $43,
+        $6f, $6c, $6f, $72, $14, 0, $1, 0, $8, 0,
+, 0, $43, $6f, $6c, $6f, $72, $52, $47, $42,
+        $1, 0, $d, 0, 0, 0, $65, $6d, $69, $73,
+        $73, $69, $76, $65, $43, $6f, $6c, $6f, $72, $14,
+, $e, 0, $12, 0, $12, 0, $12, 0, $f,
+, $b, 0, $1f, 0, $1, 0, $8, 0, 0,
+, $4d, $65, $73, $68, $46, $61, $63, $65, $a,
+, $5, 0, $5f, $ab, $82, $3d, $da, $62, $cf,
+        $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $29,
+, $1, 0, $12, 0, 0, 0, $6e, $46, $61,
+        $63, $65, $56, $65, $72, $74, $65, $78, $49, $6e,
+        $64, $69, $63, $65, $73, $14, 0, $34, 0, $29,
+, $1, 0, $11, 0, 0, 0, $66, $61, $63,
+        $65, $56, $65, $72, $74, $65, $78, $49, $6e, $64,
+        $69, $63, $65, $73, $e, 0, $1, 0, $12, 0,
+, 0, $6e, $46, $61, $63, $65, $56, $65, $72,
+        $74, $65, $78, $49, $6e, $64, $69, $63, $65, $73,
+        $f, 0, $14, 0, $b, 0, $1f, 0, $1, 0,
+        $d, 0, 0, 0, $4d, $65, $73, $68, $46, $61,
+        $63, $65, $57, $72, $61, $70, $73, $a, 0, $5,
+, $c0, $c5, $1e, $ed, $a8, $c0, $d0, $11, $94,
+        $1c, 0, $80, $c8, $c, $fa, $7b, $29, 0, $1,
+, $f, 0, 0, 0, $6e, $46, $61, $63, $65,
+        $57, $72, $61, $70, $56, $61, $6c, $75, $65, $73,
+        $14, 0, $34, 0, $1, 0, $9, 0, 0, 0,
+        $42, $6f, $6f, $6c, $65, $61, $6e, $32, $64, $1,
+, $e, 0, 0, 0, $66, $61, $63, $65, $57,
+        $72, $61, $70, $56, $61, $6c, $75, $65, $73, $e,
+, $1, 0, $f, 0, 0, 0, $6e, $46, $61,
+        $63, $65, $57, $72, $61, $70, $56, $61, $6c, $75,
+        $65, $73, $f, 0, $14, 0, $b, 0, $1f, 0,
+        $1, 0, $11, 0, 0, 0, $4d, $65, $73, $68,
+        $54, $65, $78, $74, $75, $72, $65, $43, $6f, $6f,
+        $72, $64, $73, $a, 0, $5, 0, $40, $3f, $f2,
+        $f6, $86, $76, $cf, $11, $8f, $52, 0, $40, $33,
+        $35, $94, $a3, $29, 0, $1, 0, $e, 0, 0,
+, $6e, $54, $65, $78, $74, $75, $72, $65, $43,
+        $6f, $6f, $72, $64, $73, $14, 0, $34, 0, $1,
+, $8, 0, 0, 0, $43, $6f, $6f, $72, $64,
+        $73, $32, $64, $1, 0, $d, 0, 0, 0, $74,
+        $65, $78, $74, $75, $72, $65, $43, $6f, $6f, $72,
+        $64, $73, $e, 0, $1, 0, $e, 0, 0, 0,
+        $6e, $54, $65, $78, $74, $75, $72, $65, $43, $6f,
+        $6f, $72, $64, $73, $f, 0, $14, 0, $b, 0,
+        $1f, 0, $1, 0, $10, 0, 0, 0, $4d, $65,
+        $73, $68, $4d, $61, $74, $65, $72, $69, $61, $6c,
+        $4c, $69, $73, $74, $a, 0, $5, 0, $42, $3f,
+        $f2, $f6, $86, $76, $cf, $11, $8f, $52, 0, $40,
+        $33, $35, $94, $a3, $29, 0, $1, 0, $a, 0,
+, 0, $6e, $4d, $61, $74, $65, $72, $69, $61,
+        $6c, $73, $14, 0, $29, 0, $1, 0, $c, 0,
+, 0, $6e, $46, $61, $63, $65, $49, $6e, $64,
+        $65, $78, $65, $73, $14, 0, $34, 0, $29, 0,
+        $1, 0, $b, 0, 0, 0, $66, $61, $63, $65,
+        $49, $6e, $64, $65, $78, $65, $73, $e, 0, $1,
+, $c, 0, 0, 0, $6e, $46, $61, $63, $65,
+        $49, $6e, $64, $65, $78, $65, $73, $f, 0, $14,
+, $e, 0, $1, 0, $8, 0, 0, 0, $4d,
+        $61, $74, $65, $72, $69, $61, $6c, $f, 0, $b,
+, $1f, 0, $1, 0, $b, 0, 0, 0, $4d,
+        $65, $73, $68, $4e, $6f, $72, $6d, $61, $6c, $73,
+        $a, 0, $5, 0, $43, $3f, $f2, $f6, $86, $76,
+        $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3,
+        $29, 0, $1, 0, $8, 0, 0, 0, $6e, $4e,
+        $6f, $72, $6d, $61, $6c, $73, $14, 0, $34, 0,
+        $1, 0, $6, 0, 0, 0, $56, $65, $63, $74,
+        $6f, $72, $1, 0, $7, 0, 0, 0, $6e, $6f,
+        $72, $6d, $61, $6c, $73, $e, 0, $1, 0, $8,
+, 0, 0, $6e, $4e, $6f, $72, $6d, $61, $6c,
+        $73, $f, 0, $14, 0, $29, 0, $1, 0, $c,
+, 0, 0, $6e, $46, $61, $63, $65, $4e, $6f,
+        $72, $6d, $61, $6c, $73, $14, 0, $34, 0, $1,
+, $8, 0, 0, 0, $4d, $65, $73, $68, $46,
+        $61, $63, $65, $1, 0, $b, 0, 0, 0, $66,
+        $61, $63, $65, $4e, $6f, $72, $6d, $61, $6c, $73,
+        $e, 0, $1, 0, $c, 0, 0, 0, $6e, $46,
+        $61, $63, $65, $4e, $6f, $72, $6d, $61, $6c, $73,
+        $f, 0, $14, 0, $b, 0, $1f, 0, $1, 0,
+        $10, 0, 0, 0, $4d, $65, $73, $68, $56, $65,
+        $72, $74, $65, $78, $43, $6f, $6c, $6f, $72, $73,
+        $a, 0, $5, 0, $21, $b8, $30, $16, $42, $78,
+        $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3,
+        $29, 0, $1, 0, $d, 0, 0, 0, $6e, $56,
+        $65, $72, $74, $65, $78, $43, $6f, $6c, $6f, $72,
+        $73, $14, 0, $34, 0, $1, 0, $c, 0, 0,
+, $49, $6e, $64, $65, $78, $65, $64, $43, $6f,
+        $6c, $6f, $72, $1, 0, $c, 0, 0, 0, $76,
+        $65, $72, $74, $65, $78, $43, $6f, $6c, $6f, $72,
+        $73, $e, 0, $1, 0, $d, 0, 0, 0, $6e,
+        $56, $65, $72, $74, $65, $78, $43, $6f, $6c, $6f,
+        $72, $73, $f, 0, $14, 0, $b, 0, $1f, 0,
+        $1, 0, $4, 0, 0, 0, $4d, $65, $73, $68,
+        $a, 0, $5, 0, $44, $ab, $82, $3d, $da, $62,
+        $cf, $11, $ab, $39, 0, $20, $af, $71, $e4, $33,
+        $29, 0, $1, 0, $9, 0, 0, 0, $6e, $56,
+        $65, $72, $74, $69, $63, $65, $73, $14, 0, $34,
+, $1, 0, $6, 0, 0, 0, $56, $65, $63,
+        $74, $6f, $72, $1, 0, $8, 0, 0, 0, $76,
+        $65, $72, $74, $69, $63, $65, $73, $e, 0, $1,
+, $9, 0, 0, 0, $6e, $56, $65, $72, $74,
+        $69, $63, $65, $73, $f, 0, $14, 0, $29, 0,
+        $1, 0, $6, 0, 0, 0, $6e, $46, $61, $63,
+        $65, $73, $14, 0, $34, 0, $1, 0, $8, 0,
+, 0, $4d, $65, $73, $68, $46, $61, $63, $65,
+        $1, 0, $5, 0, 0, 0, $66, $61, $63, $65,
+        $73, $e, 0, $1, 0, $6, 0, 0, 0, $6e,
+        $46, $61, $63, $65, $73, $f, 0, $14, 0, $e,
+, $12, 0, $12, 0, $12, 0, $f, 0, $b,
+, $1f, 0, $1, 0, $14, 0, 0, 0, $46,
+        $72, $61, $6d, $65, $54, $72, $61, $6e, $73, $66,
+        $6f, $72, $6d, $4d, $61, $74, $72, $69, $78, $a,
+, $5, 0, $41, $3f, $f2, $f6, $86, $76, $cf,
+        $11, $8f, $52, 0, $40, $33, $35, $94, $a3, $1,
+, $9, 0, 0, 0, $4d, $61, $74, $72, $69,
+        $78, $34, $78, $34, $1, 0, $b, 0, 0, 0,
+        $66, $72, $61, $6d, $65, $4d, $61, $74, $72, $69,
+        $78, $14, 0, $b, 0, $1f, 0, $1, 0, $5,
+, 0, 0, $46, $72, $61, $6d, $65, $a, 0,
+        $5, 0, $46, $ab, $82, $3d, $da, $62, $cf, $11,
+        $ab, $39, 0, $20, $af, $71, $e4, $33, $e, 0,
+        $12, 0, $12, 0, $12, 0, $f, 0, $b, 0,
+        $1f, 0, $1, 0, $9, 0, 0, 0, $46, $6c,
+        $6f, $61, $74, $4b, $65, $79, $73, $a, 0, $5,
+, $a9, $46, $dd, $10, $5b, $77, $cf, $11, $8f,
+        $52, 0, $40, $33, $35, $94, $a3, $29, 0, $1,
+, $7, 0, 0, 0, $6e, $56, $61, $6c, $75,
+        $65, $73, $14, 0, $34, 0, $2a, 0, $1, 0,
+        $6, 0, 0, 0, $76, $61, $6c, $75, $65, $73,
+        $e, 0, $1, 0, $7, 0, 0, 0, $6e, $56,
+        $61, $6c, $75, $65, $73, $f, 0, $14, 0, $b,
+, $1f, 0, $1, 0, $e, 0, 0, 0, $54,
+        $69, $6d, $65, $64, $46, $6c, $6f, $61, $74, $4b,
+        $65, $79, $73, $a, 0, $5, 0, $80, $b1, $6,
+        $f4, $3b, $7b, $cf, $11, $8f, $52, 0, $40, $33,
+        $35, $94, $a3, $29, 0, $1, 0, $4, 0, 0,
+, $74, $69, $6d, $65, $14, 0, $1, 0, $9,
+, 0, 0, $46, $6c, $6f, $61, $74, $4b, $65,
+        $79, $73, $1, 0, $6, 0, 0, 0, $74, $66,
+        $6b, $65, $79, $73, $14, 0, $b, 0, $1f, 0,
+        $1, 0, $c, 0, 0, 0, $41, $6e, $69, $6d,
+        $61, $74, $69, $6f, $6e, $4b, $65, $79, $a, 0,
+        $5, 0, $a8, $46, $dd, $10, $5b, $77, $cf, $11,
+        $8f, $52, 0, $40, $33, $35, $94, $a3, $29, 0,
+        $1, 0, $7, 0, 0, 0, $6b, $65, $79, $54,
+        $79, $70, $65, $14, 0, $29, 0, $1, 0, $5,
+, 0, 0, $6e, $4b, $65, $79, $73, $14, 0,
+        $34, 0, $1, 0, $e, 0, 0, 0, $54, $69,
+        $6d, $65, $64, $46, $6c, $6f, $61, $74, $4b, $65,
+        $79, $73, $1, 0, $4, 0, 0, 0, $6b, $65,
+        $79, $73, $e, 0, $1, 0, $5, 0, 0, 0,
+        $6e, $4b, $65, $79, $73, $f, 0, $14, 0, $b,
+, $1f, 0, $1, 0, $10, 0, 0, 0, $41,
+        $6e, $69, $6d, $61, $74, $69, $6f, $6e, $4f, $70,
+        $74, $69, $6f, $6e, $73, $a, 0, $5, 0, $c0,
+        $56, $bf, $e2, $f, $84, $cf, $11, $8f, $52, 0,
+        $40, $33, $35, $94, $a3, $29, 0, $1, 0, $a,
+, 0, 0, $6f, $70, $65, $6e, $63, $6c, $6f,
+        $73, $65, $64, $14, 0, $29, 0, $1, 0, $f,
+, 0, 0, $70, $6f, $73, $69, $74, $69, $6f,
+        $6e, $71, $75, $61, $6c, $69, $74, $79, $14, 0,
+        $b, 0, $1f, 0, $1, 0, $9, 0, 0, 0,
+        $41, $6e, $69, $6d, $61, $74, $69, $6f, $6e, $a,
+, $5, 0, $4f, $ab, $82, $3d, $da, $62, $cf,
+        $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $e,
+, $12, 0, $12, 0, $12, 0, $f, 0, $b,
+, $1f, 0, $1, 0, $c, 0, 0, 0, $41,
+        $6e, $69, $6d, $61, $74, $69, $6f, $6e, $53, $65,
+        $74, $a, 0, $5, 0, $50, $ab, $82, $3d, $da,
+        $62, $cf, $11, $ab, $39, 0, $20, $af, $71, $e4,
+        $33, $e, 0, $1, 0, $9, 0, 0, 0, $41,
+        $6e, $69, $6d, $61, $74, $69, $6f, $6e, $f, 0,
+        $b, 0, $1f, 0, $1, 0, $a, 0, 0, 0,
+        $49, $6e, $6c, $69, $6e, $65, $44, $61, $74, $61,
+        $a, 0, $5, 0, $a0, $ee, $23, $3a, $b1, $94,
+        $d0, $11, $ab, $39, 0, $20, $af, $71, $e4, $33,
+        $e, 0, $1, 0, $6, 0, 0, 0, $42, $49,
+        $4e, $41, $52, $59, $f, 0, $b, 0, $1f, 0,
+        $1, 0, $3, 0, 0, 0, $55, $72, $6c, $a,
+, $5, 0, $a1, $ee, $23, $3a, $b1, $94, $d0,
+        $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $29,
+, $1, 0, $5, 0, 0, 0, $6e, $55, $72,
+        $6c, $73, $14, 0, $34, 0, $31, 0, $1, 0,
+        $4, 0, 0, 0, $75, $72, $6c, $73, $e, 0,
+        $1, 0, $5, 0, 0, 0, $6e, $55, $72, $6c,
+        $73, $f, 0, $14, 0, $b, 0, $1f, 0, $1,
+, $f, 0, 0, 0, $50, $72, $6f, $67, $72,
+        $65, $73, $73, $69, $76, $65, $4d, $65, $73, $68,
+        $a, 0, $5, 0, $60, $c3, $63, $8a, $7d, $99,
+        $d0, $11, $94, $1c, 0, $80, $c8, $c, $fa, $7b,
+        $e, 0, $1, 0, $3, 0, 0, 0, $55, $72,
+        $6c, $13, 0, $1, 0, $a, 0, 0, 0, $49,
+        $6e, $6c, $69, $6e, $65, $44, $61, $74, $61, $f,
+, $b, 0, $1f, 0, $1, 0, $4, 0, 0,
+, $47, $75, $69, $64, $a, 0, $5, 0, $e0,
+        $90, $27, $a4, $10, $78, $cf, $11, $8f, $52, 0,
+        $40, $33, $35, $94, $a3, $29, 0, $1, 0, $5,
+, 0, 0, $64, $61, $74, $61, $31, $14, 0,
+        $28, 0, $1, 0, $5, 0, 0, 0, $64, $61,
+        $74, $61, $32, $14, 0, $28, 0, $1, 0, $5,
+, 0, 0, $64, $61, $74, $61, $33, $14, 0,
+        $34, 0, $2d, 0, $1, 0, $5, 0, 0, 0,
+        $64, $61, $74, $61, $34, $e, 0, $3, 0, $8,
+, 0, 0, $f, 0, $14, 0, $b, 0, $1f,
+, $1, 0, $e, 0, 0, 0, $53, $74, $72,
+        $69, $6e, $67, $50, $72, $6f, $70, $65, $72, $74,
+        $79, $a, 0, $5, 0, $e0, $21, $f, $7f, $e1,
+        $bf, $d1, $11, $82, $c0, 0, $a0, $c9, $69, $72,
+        $71, $31, 0, $1, 0, $3, 0, 0, 0, $6b,
+        $65, $79, $14, 0, $31, 0, $1, 0, $5, 0,
+, 0, $76, $61, $6c, $75, $65, $14, 0, $b,
+, $1f, 0, $1, 0, $b, 0, 0, 0, $50,
+        $72, $6f, $70, $65, $72, $74, $79, $42, $61, $67,
+        $a, 0, $5, 0, $e1, $21, $f, $7f, $e1, $bf,
+        $d1, $11, $82, $c0, 0, $a0, $c9, $69, $72, $71,
+        $e, 0, $1, 0, $e, 0, 0, 0, $53, $74,
+        $72, $69, $6e, $67, $50, $72, $6f, $70, $65, $72,
+        $74, $79, $f, 0, $b, 0, $1f, 0, $1, 0,
+        $e, 0, 0, 0, $45, $78, $74, $65, $72, $6e,
+        $61, $6c, $56, $69, $73, $75, $61, $6c, $a, 0,
+        $5, 0, $a0, $6a, $11, $98, $ba, $bd, $d1, $11,
+        $82, $c0, 0, $a0, $c9, $69, $72, $71, $1, 0,
+        $4, 0, 0, 0, $47, $75, $69, $64, $1, 0,
+        $12, 0, 0, 0, $67, $75, $69, $64, $45, $78,
+        $74, $65, $72, $6e, $61, $6c, $56, $69, $73, $75,
+        $61, $6c, $14, 0, $e, 0, $12, 0, $12, 0,
+        $12, 0, $f, 0, $b, 0);
+//---------------
+//Direct3DRM file
+(*==========================================================================;
+ *
+ *  Copyright (C) 1994-1997 Microsoft Corporation.  All Rights Reserved.
+ *
+ *  Files:      D3DRMDef.h D3DRMObj.h D3DRM.h D3DRMWin.h RMXFGUID.h RMXFTmpl.h
+ *  Content:    Direct3D Retained Mode include files
+ *
+ *  DirectX 7.0 Delphi adaptation by Erik Unger
+ *
+ *  Modified: 10-Sep-2000
+ *
+ *  Download: http://www.delphi-jedi.org/DelphiGraphics/
+ *  E-Mail: DelphiDirectX@next-reality.com
+ *
+ *
+ ***************************************************************************)
+var
+  D3DRMDLL : HMODULE = 0;
 (*==========================================================================;
+ *
  *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *
  *  File:       d3drmdef.h
  *  Content:    Direct3DRM include file
+ *
  ***************************************************************************)
-{ TD3DRMVector4D structure }
 type
   PD3DRMVector4D = ^TD3DRMVector4D;
-  TD3DRMVector4D = record
+  TD3DRMVector4D = packed record
     x, y, z, w: TD3DValue;
   end;
-  D3DRMVECTOR4D = TD3DRMVector4D;
+  PD3DRMMatrix4D = ^TD3DRMMatrix4D;
-  LPD3DRMVECTOR4D = PD3DRMVector4D;
-{ TD3DRMMatrix4D structure }
-  TD3DRMMatrix4D = array[0..3, 0..3] of TD3DValue;
+  TD3DRMMatrix4D = array [0..3, 0..3] of TD3DValue;
-  D3DRMMATRIX4D = TD3DRMMatrix4D;
-{ TD3DRMQuaternion structure }
   PD3DRMQuaternion = ^TD3DRMQuaternion;
-  TD3DRMQuaternion = record
+  TD3DRMQuaternion = packed record
     s: TD3DValue;
     v: TD3DVector;
   end;
-  D3DRMQUATERNION = TD3DRMQuaternion;
-  LPD3DRMQUATERNION = PD3DRMQUATERNION;
-{ TD3DRMRay structure }
   PD3DRMRay = ^TD3DRMRay;
-  TD3DRMRay = record
+  TD3DRMRay = packed record
     dvDir: TD3DVector;
     dvPos: TD3DVector;
   end;
-  D3DRMRAY = TD3DRMRay;
-  LPD3DRMRAY = PD3DRMRay;
-{ TD3DRMBox structure }
   PD3DRMBox = ^TD3DRMBox;
-  TD3DRMBox = record
+  TD3DRMBox = packed record
     min, max: TD3DVector;
   end;
-  D3DRMBOX = TD3DRMBox;
-  LPD3DRMBOX = PD3DRMBox;
-{ TD3DRMWrapCallback }
-  TD3DRMWrapCallback = procedure(var lpD3DVector: TD3DVector; var lpU: Integer;
+  TD3DRMWrapCallback = procedure (var lpD3DVector: TD3DVector;
-      var lpV: Integer; var lpD3DRMVA: TD3DVector; lpD3DRMVB: TD3DVector;
+      var lpU, lpV: Integer; var lpD3DRMVA, lpD3DRMVB: TD3DVector; lpArg:
-      lpArg: Pointer); stdcall;
+      Pointer); stdcall; // unused ?
-  D3DRMWRAPCALLBACK = TD3DRMWrapCallback;
-{  TD3DRMLightType  }
+  PD3DRMLightType = ^TD3DRMLightType; // is it 16 or 32 bit ?
   TD3DRMLightType = (
     D3DRMLIGHT_AMBIENT,
     D3DRMLIGHT_POINT,
     D3DRMLIGHT_SPOT,
     D3DRMLIGHT_DIRECTIONAL,
     D3DRMLIGHT_PARALLELPOINT
   );
-  D3DRMLIGHTTYPE = TD3DRMLightType;
+  PD3DRMShadeMode = ^TD3DRMShadeMode;
-{ TD3DRMShadeMode }
-  TD3DRMShadeMode = Word;
+  TD3DRMShadeMode = WORD;
-  D3DRMSHADEMODE = TD3DRMShadeMode;
 const
   D3DRMSHADE_FLAT = 0;
   D3DRMSHADE_GOURAUD = 1;
   D3DRMSHADE_PHONG = 2;
   D3DRMSHADE_MASK = 7;
   D3DRMSHADE_MAX = 8;
-{ TD3DRMLightMode }
 type
-  TD3DRMLightMode = Word;
+  PD3DRMLightMode = ^TD3DRMLightMode;
-  D3DRMLIGHTMODE = TD3DRMLightMode;
+  TD3DRMLightMode = WORD;
 const
   D3DRMLIGHT_OFF  = 0 * D3DRMSHADE_MAX;
   D3DRMLIGHT_ON   = 1 * D3DRMSHADE_MAX;
   D3DRMLIGHT_MASK = 7 * D3DRMSHADE_MAX;
   D3DRMLIGHT_MAX  = 8 * D3DRMSHADE_MAX;
-{ TD3DRMFillMode }
 type
-  TD3DRMFillMode = Word;
+  PD3DRMFillMode = ^TD3DRMFillMode;
-  D3DRMFILLMODE = TD3DRMFillMode;
+  TD3DRMFillMode = WORD;
 const
   D3DRMFILL_POINTS    = 0 * D3DRMLIGHT_MAX;
   D3DRMFILL_WIREFRAME = 1 * D3DRMLIGHT_MAX;
   D3DRMFILL_SOLID     = 2 * D3DRMLIGHT_MAX;
   D3DRMFILL_MASK      = 7 * D3DRMLIGHT_MAX;
   D3DRMFILL_MAX       = 8 * D3DRMLIGHT_MAX;
-{ TD3DRMRenderQuality }
 type
+  PD3DRMRenderQuality = ^TD3DRMRenderQuality;
   TD3DRMRenderQuality = DWORD;
-  D3DRMRENDERQUALITY = TD3DRMRenderQuality;
 const
+  D3DRMRENDER_WIREFRAME   =
-  D3DRMRENDER_WIREFRAME   = D3DRMSHADE_FLAT + D3DRMLIGHT_OFF + D3DRMFILL_WIREFRAME;
+      (D3DRMSHADE_FLAT + D3DRMLIGHT_OFF + D3DRMFILL_WIREFRAME);
+  D3DRMRENDER_UNLITFLAT   =
-  D3DRMRENDER_UNLITFLAT   = D3DRMSHADE_FLAT + D3DRMLIGHT_OFF + D3DRMFILL_SOLID;
+      (D3DRMSHADE_FLAT + D3DRMLIGHT_OFF + D3DRMFILL_SOLID);
+  D3DRMRENDER_FLAT        =
-  D3DRMRENDER_FLAT        = D3DRMSHADE_FLAT + D3DRMLIGHT_ON + D3DRMFILL_SOLID;
+      (D3DRMSHADE_FLAT + D3DRMLIGHT_ON + D3DRMFILL_SOLID);
+  D3DRMRENDER_GOURAUD     =
-  D3DRMRENDER_GOURAUD     = D3DRMSHADE_GOURAUD + D3DRMLIGHT_ON + D3DRMFILL_SOLID;
+      (D3DRMSHADE_GOURAUD + D3DRMLIGHT_ON + D3DRMFILL_SOLID);
+  D3DRMRENDER_PHONG       =
-  D3DRMRENDER_PHONG       = D3DRMSHADE_PHONG + D3DRMLIGHT_ON + D3DRMFILL_SOLID;
+      (D3DRMSHADE_PHONG + D3DRMLIGHT_ON + D3DRMFILL_SOLID);
-  D3DRMRENDERMODE_BLENDEDTRANSPARENCY      = 1;
+  D3DRMRENDERMODE_BLENDEDTRANSPARENCY   =  1;
-  D3DRMRENDERMODE_SORTEDTRANSPARENCY       = 2;
+  D3DRMRENDERMODE_SORTEDTRANSPARENCY    =  2;
-  D3DRMRENDERMODE_LIGHTINMODELSPACE        = 8;
+  D3DRMRENDERMODE_LIGHTINMODELSPACE     =  8;
-  D3DRMRENDERMODE_VIEWDEPENDENTSPECULAR    = 16;
+  D3DRMRENDERMODE_VIEWDEPENDENTSPECULAR = 16;
-  D3DRMRENDERMODE_DISABLESORTEDALPHAZWRITE = 32;
-{ TD3DRMTextureQuality }
 type
+  PD3DRMTextureQuality = ^TD3DRMTextureQuality;
   TD3DRMTextureQuality = (
-    D3DRMTEXTURE_NEAREST,               // choose nearest texel
+    D3DRMTEXTURE_NEAREST,               (* choose nearest texel *)
-    D3DRMTEXTURE_LINEAR,                // interpolate 4 texels
+    D3DRMTEXTURE_LINEAR,                (* interpolate 4 texels *)
-    D3DRMTEXTURE_MIPNEAREST,            // nearest texel in nearest mipmap
+    D3DRMTEXTURE_MIPNEAREST,            (* nearest texel in nearest mipmap  *)
-    D3DRMTEXTURE_MIPLINEAR,             // interpolate 2 texels from 2 mipmaps
+    D3DRMTEXTURE_MIPLINEAR,             (* interpolate 2 texels from 2 mipmaps *)
-    D3DRMTEXTURE_LINEARMIPNEAREST,      // interpolate 4 texels in nearest mipmap
+    D3DRMTEXTURE_LINEARMIPNEAREST,      (* interpolate 4 texels in nearest mipmap *)
-    D3DRMTEXTURE_LINEARMIPLINEAR        // interpolate 8 texels from 2 mipmaps
+    D3DRMTEXTURE_LINEARMIPLINEAR        (* interpolate 8 texels from 2 mipmaps *)
   );
-  D3DRMTEXTUREQUALITY = TD3DRMTextureQuality;
-{ Texture flags }
-const
-  D3DRMTEXTURE_FORCERESIDENT          = $00000001; // texture should be kept in video memory
-  D3DRMTEXTURE_STATIC                 = $00000002; // texture will not change
-  D3DRMTEXTURE_DOWNSAMPLEPOINT        = $00000004; // point filtering should be used when downsampling
-  D3DRMTEXTURE_DOWNSAMPLEBILINEAR     = $00000008; // bilinear filtering should be used when downsampling
-  D3DRMTEXTURE_DOWNSAMPLEREDUCEDEPTH  = $00000010; // reduce bit depth when downsampling
-  D3DRMTEXTURE_DOWNSAMPLENONE         = $00000020; // texture should never be downsampled
-  D3DRMTEXTURE_CHANGEDPIXELS          = $00000040; // pixels have changed
-  D3DRMTEXTURE_CHANGEDPALETTE         = $00000080; // palette has changed
-  D3DRMTEXTURE_INVALIDATEONLY         = $00000100; // dirty regions are invalid
-{ Shadow flags }
 const
+(*
+ * Texture flags
+ *)
+  D3DRMTEXTURE_FORCERESIDENT          = $00000001; (* texture should be kept in video memory *)
+  D3DRMTEXTURE_STATIC                 = $00000002; (* texture will not change *)
+  D3DRMTEXTURE_DOWNSAMPLEPOINT        = $00000004; (* point filtering should be used when downsampling *)
-  D3DRMSHADOW_TRUEALPHA = $00000001; // shadow should render without artifacts when true alpha is on
+  D3DRMTEXTURE_DOWNSAMPLEBILINEAR     = $00000008; (* bilinear filtering should be used when downsampling *)
+  D3DRMTEXTURE_DOWNSAMPLEREDUCEDEPTH  = $00000010; (* reduce bit depth when downsampling *)
+  D3DRMTEXTURE_DOWNSAMPLENONE         = $00000020; (* texture should never be downsampled *)
+  D3DRMTEXTURE_CHANGEDPIXELS          = $00000040; (* pixels have changed *)
+  D3DRMTEXTURE_CHANGEDPALETTE         = $00000080; (* palette has changed *)
+  D3DRMTEXTURE_INVALIDATEONLY         = $00000100; (* dirty regions are invalid *)
+(*
-{ TD3DRMCombineType }
+ * Shadow flags
+ *)
+   D3DRMSHADOW_TRUEALPHA               = $00000001; (* shadow should render without artifacts when true alpha is on *)
 type
+  PD3DRMCombineType = ^TD3DRMCombineType;
   TD3DRMCombineType = (
-     D3DRMCOMBINE_REPLACE,
+    D3DRMCOMBINE_REPLACE,
-     D3DRMCOMBINE_BEFORE,
+    D3DRMCOMBINE_BEFORE,
-     D3DRMCOMBINE_AFTER
+    D3DRMCOMBINE_AFTER
   );
-  D3DRMCOMBINETYPE = TD3DRMCombineType;
+  PD3DRMColorModel = ^TD3DRMColorModel;
-{ TD3DRMColorModel }
   TD3DRMColorModel = TD3DColorModel;
-  D3DRMCOLORMODEL = TD3DRMColorModel;
-{ TD3DRMPaletteFlags }
+  PD3DRMPaletteFlags = ^TD3DRMPaletteFlags;
   TD3DRMPaletteFlags = (
-    D3DRMPALETTE_FREE,                  // renderer may use this entry freely
+    D3DRMPALETTE_FREE,                  (* renderer may use this entry freely *)
-    D3DRMPALETTE_READONLY,              // fixed but may be used by renderer
+    D3DRMPALETTE_READONLY,              (* fixed but may be used by renderer *)
-    D3DRMPALETTE_RESERVED               // may not be used by renderer
+    D3DRMPALETTE_RESERVED               (* may not be used by renderer *)
   );
-  D3DRMPALETTEFLAGS = TD3DRMPaletteFlags;
-{ TD3DRMPaletteEntry structure }
   PD3DRMPaletteEntry = ^TD3DRMPaletteEntry;
-  TD3DRMPaletteEntry = record
+  TD3DRMPaletteEntry = packed record
-    red: Byte;          // 0 .. 255
+    red: Byte;          (* 0 .. 255 *)
-    green: Byte;        // 0 .. 255
+    green: Byte;        (* 0 .. 255 *)
-    blue: Byte;         // 0 .. 255
+    blue: Byte;         (* 0 .. 255 *)
-    flags: Byte;        // one of TD3DRMPaletteFlags
+    flags: Byte;        (* one of D3DRMPALETTEFLAGS *)
   end;
-  D3DRMPALETTEENTRY = TD3DRMPaletteEntry;
-  LPD3DRMPALETTEENTRY = PD3DRMPaletteEntry;
-{ TD3DRMImage structure }
   PD3DRMImage = ^TD3DRMImage;
-  TD3DRMImage = record
+  TD3DRMImage = packed record
     width, height: Integer;    (* width and height in pixels *)
     aspectx, aspecty: Integer; (* aspect ratio for non-square pixels *)
     depth: Integer;            (* bits per pixel *)
     rgb: Integer;              (* if false, pixels are indices into a
                                    palette otherwise, pixels encode
                                    RGB values. *)
     bytes_per_line: Integer;   (* number of bytes of memory for a
                                    scanline. This must be a multiple
                                    of 4. *)
     buffer1: Pointer;          (* memory to render into (first buffer). *)
     buffer2: Pointer;          (* second rendering buffer for double
                                    buffering, set to NULL for single
                                    buffering. *)
-    red_mask: Longint;
+    red_mask: DWORD;
-    green_mask: Longint;
+    green_mask: DWORD;
-    blue_mask: Longint;
+    blue_mask: DWORD;
-    alpha_mask: Longint;       (* if rgb is true, these are masks for
+    alpha_mask: DWORD;        (* if rgb is true, these are masks for
                                    the red, green and blue parts of a
                                    pixel.  Otherwise, these are masks
                                    for the significant bits of the
                                    red, green and blue elements in the
                                    palette.  For instance, most SVGA
                                    displays use 64 intensities of red,
                                    green and blue, so the masks should
                                    all be set to = $fc. *)
     palette_size: Integer;     (* number of entries in palette *)
     palette: PD3DRMPaletteEntry; (* description of the palette (only if
                                    rgb is false).  Must be (1<<depth)
                                    elements. *)
   end;
-  D3DRMIMAGE = TD3DRMImage;
+  PD3DRMWrapType = ^TD3DRMWrapType;
-  LPD3DRMIMAGE = PD3DRMImage;
-{ TD3DRMWrapType }
   TD3DRMWrapType = (
     D3DRMWRAP_FLAT,
     D3DRMWRAP_CYLINDER,
     D3DRMWRAP_SPHERE,
     D3DRMWRAP_CHROME,
     D3DRMWRAP_SHEET,
     D3DRMWRAP_BOX
   );
-  D3DRMWRAPTYPE = TD3DRMWrapType;
 const
-  D3DRMWIREFRAME_CULL             = 1; // cull backfaces
+  D3DRMWIREFRAME_CULL             = 1; (* cull backfaces *)
-  D3DRMWIREFRAME_HIDDENLINE       = 2; // lines are obscured by closer objects
+  D3DRMWIREFRAME_HIDDENLINE       = 2; (* lines are obscured by closer objects *)
-{ TD3DRMProjectionType }
 type
+(*
+ * Do not use righthanded perspective in Viewport2::SetProjection().
+ * Set up righthanded mode by using IDirect3DRM3::SetOptions().
+ *)
+  PD3DRMProjectionType = ^TD3DRMProjectionType;
   TD3DRMProjectionType = (
     D3DRMPROJECT_PERSPECTIVE,
     D3DRMPROJECT_ORTHOGRAPHIC,
-    D3DRMPROJECT_RIGHTHANDPERSPECTIVE,  // Only valid pre-DX6
+    D3DRMPROJECT_RIGHTHANDPERSPECTIVE, (* Only valid pre-DX6 *)
-    D3DRMPROJECT_RIGHTHANDORTHOGRAPHIC  // Only valid pre-DX6
+    D3DRMPROJECT_RIGHTHANDORTHOGRAPHIC (* Only valid pre-DX6 *)
   );
-  D3DRMPROJECTIONTYPE = TD3DRMProjectionType;
 const
-  D3DRMOPTIONS_LEFTHANDED  = $00000001; // Default
+  D3DRMOPTIONS_LEFTHANDED  = 00000001; (* Default *)
-  D3DRMOPTIONS_RIGHTHANDED = $00000002;
+  D3DRMOPTIONS_RIGHTHANDED = 00000002;
-{ TD3DRMXOFFormat }
 type
+  PD3DRMXOFFormat = ^TD3DRMXOFFormat;
   TD3DRMXOFFormat = (
     D3DRMXOF_BINARY,
     D3DRMXOF_COMPRESSED,
     D3DRMXOF_TEXT
   );
-  D3DRMXOFFORMAT = TD3DRMXOFFormat;
-{ TD3DRMSaveOptions }
   TD3DRMSaveOptions = DWORD;
-  D3DRMSAVEOPTIONS = TD3DRMSaveOptions;
 const
   D3DRMXOFSAVE_NORMALS = 1;
   D3DRMXOFSAVE_TEXTURECOORDINATES = 2;
   D3DRMXOFSAVE_MATERIALS = 4;
   D3DRMXOFSAVE_TEXTURENAMES = 8;
   D3DRMXOFSAVE_ALL = 15;
   D3DRMXOFSAVE_TEMPLATES = 16;
   D3DRMXOFSAVE_TEXTURETOPOLOGY = 32;
-{ TD3DRMColorSource }
 type
+  PD3DRMColorSource = ^TD3DRMColorSource;
   TD3DRMColorSource = (
     D3DRMCOLOR_FROMFACE,
     D3DRMCOLOR_FROMVERTEX
   );
-  D3DRMCOLORSOURCE = TD3DRMColorSource;
+  PD3DRMFrameConstraint = ^TD3DRMFrameConstraint;
-{ TD3DRMFrameConstraint }
   TD3DRMFrameConstraint = (
-    D3DRMCONSTRAIN_Z,           // use only X and Y rotations
+    D3DRMCONSTRAIN_Z,           (* use only X and Y rotations *)
-    D3DRMCONSTRAIN_Y,           // use only X and Z rotations
+    D3DRMCONSTRAIN_Y,           (* use only X and Z rotations *)
-    D3DRMCONSTRAIN_X            // use only Y and Z rotations
+    D3DRMCONSTRAIN_X            (* use only Y and Z rotations *)
   );
-  D3DRMFRAMECONSTRAINT = TD3DRMFrameConstraint;
+  PD3DRMMaterialMode = ^TD3DRMMaterialMode;
-{ TD3DRMMaterialMode }
   TD3DRMMaterialMode = (
     D3DRMMATERIAL_FROMMESH,
     D3DRMMATERIAL_FROMPARENT,
     D3DRMMATERIAL_FROMFRAME
   );
-  D3DRMMATERIALMODE = TD3DRMMaterialMode;
+  PD3DRMFogMode = ^TD3DRMFogMode;
-{ TD3DRMFogMode }
   TD3DRMFogMode = (
-    D3DRMFOG_LINEAR,            // linear between start and end
+    D3DRMFOG_LINEAR,            (* linear between start and end *)
-    D3DRMFOG_EXPONENTIAL,       // density * exp(-distance)
+    D3DRMFOG_EXPONENTIAL,       (* density * exp(-distance) *)
-    D3DRMFOG_EXPONENTIALSQUARED // density * exp(-distance*distance)
+    D3DRMFOG_EXPONENTIALSQUARED (* density * exp(-distance*distance) *)
   );
-  D3DRMFOGMODE = TD3DRMFogMode;
+  PD3DRMZBufferMode = ^TD3DRMZBufferMode;
-{ TD3DRMZBufferMode }
   TD3DRMZBufferMode = (
-    D3DRMZBUFFER_FROMPARENT,    // default
+    D3DRMZBUFFER_FROMPARENT,    (* default *)
-    D3DRMZBUFFER_ENABLE,        // enable zbuffering
+    D3DRMZBUFFER_ENABLE,        (* enable zbuffering *)
-    D3DRMZBUFFER_DISABLE        // disable zbuffering
+    D3DRMZBUFFER_DISABLE        (* disable zbuffering *)
   );
-  D3DRMZBUFFERMODE = TD3DRMZBufferMode;
+  PD3DRMSortMode = ^TD3DRMSortMode;
-{ TD3DRMSortMode }
   TD3DRMSortMode = (
-    D3DRMSORT_FROMPARENT,       // default
+    D3DRMSORT_FROMPARENT,       (* default *)
-    D3DRMSORT_NONE,             // don't sort child frames
+    D3DRMSORT_NONE,             (* don't sort child frames *)
-    D3DRMSORT_FRONTTOBACK,      // sort child frames front-to-back
+    D3DRMSORT_FRONTTOBACK,      (* sort child frames front-to-back *)
-    D3DRMSORT_BACKTOFRONT       // sort child frames back-to-front
+    D3DRMSORT_BACKTOFRONT       (* sort child frames back-to-front *)
   );
-  D3DRMSORTMODE = TD3DRMSortMode;
-{ TD3DRMMaterialOverride structure }
-  PD3DRMMaterialOverride = ^TD3DRMMaterialOverride;
-  TD3DRMMaterialOverride = record
+  TD3DRMMaterialOverride = packed record
-    dwSize: DWORD;              // Size of this structure
+    dwSize : DWORD;       (* Size of this structure *)
-    dwFlags: DWORD;             // Indicate which fields are valid
+    dwFlags : DWORD;      (* Indicate which fields are valid *)
-    dcDiffuse: TD3DColorValue;  // RGBA
+    dcDiffuse : TD3DColorValue;    (* RGBA *)
-    dcAmbient: TD3DColorValue;  // RGB
+    dcAmbient : TD3DColorValue;    (* RGB *)
-    dcEmissive: TD3DColorValue; // RGB
+    dcEmissive : TD3DColorValue;   (* RGB *)
-    dcSpecular: TD3DColorValue; // RGB
+    dcSpecular : TD3DColorValue;   (* RGB *)
-    dvPower: TD3DValue;
+    dvPower : TD3DValue;
-    lpD3DRMTex: IUnknown;
+    lpD3DRMTex : IUnknown;
   end;
-  D3DRMMATERIALOVERRIDE = TD3DRMMaterialOverride;
-  LPD3DRMMATERIALOVERRIDE = PD3DRMMaterialOverride;
 const
   D3DRMMATERIALOVERRIDE_DIFFUSE_ALPHAONLY     = $00000001;
   D3DRMMATERIALOVERRIDE_DIFFUSE_RGBONLY       = $00000002;
   D3DRMMATERIALOVERRIDE_DIFFUSE               = $00000003;
   D3DRMMATERIALOVERRIDE_AMBIENT               = $00000004;
   D3DRMMATERIALOVERRIDE_EMISSIVE              = $00000008;
   D3DRMMATERIALOVERRIDE_SPECULAR              = $00000010;
   D3DRMMATERIALOVERRIDE_POWER                 = $00000020;
   D3DRMMATERIALOVERRIDE_TEXTURE               = $00000040;
   D3DRMMATERIALOVERRIDE_DIFFUSE_ALPHAMULTIPLY = $00000080;
   D3DRMMATERIALOVERRIDE_ALL                   = $000000FF;
-  D3DRMFPTF_ALPHA         = $00000001;
+  D3DRMFPTF_ALPHA                           = $00000001;
-  D3DRMFPTF_NOALPHA       = $00000002;
+  D3DRMFPTF_NOALPHA                         = $00000002;
-  D3DRMFPTF_PALETTIZED    = $00000004;
+  D3DRMFPTF_PALETTIZED                      = $00000004;
-  D3DRMFPTF_NOTPALETTIZED = $00000008;
+  D3DRMFPTF_NOTPALETTIZED                   = $00000008;
-  D3DRMSTATECHANGE_UPDATEONLY  = $000000001;
+  D3DRMSTATECHANGE_UPDATEONLY               = $000000001;
-  D3DRMSTATECHANGE_VOLATILE    = $000000002;
+  D3DRMSTATECHANGE_VOLATILE                 = $000000002;
-  D3DRMSTATECHANGE_NONVOLATILE = $000000004;
+  D3DRMSTATECHANGE_NONVOLATILE              = $000000004;
-  D3DRMSTATECHANGE_RENDER      = $000000020;
+  D3DRMSTATECHANGE_RENDER                   = $000000020;
-  D3DRMSTATECHANGE_LIGHT       = $000000040;
+  D3DRMSTATECHANGE_LIGHT                    = $000000040;
+(*
-{ Values for flags in RM3::CreateDeviceFromSurface }
+ * Values for flags in RM3::CreateDeviceFromSurface
+ *)
-  D3DRMDEVICE_NOZBUFFER = $00000001;
+  D3DRMDEVICE_NOZBUFFER           = $00000001;
+(*
-{ Values for flags in Object2::SetClientData }
+ * Values for flags in Object2::SetClientData
+ *)
-  D3DRMCLIENTDATA_NONE      = $00000001;
+  D3DRMCLIENTDATA_NONE            = $00000001;
-  D3DRMCLIENTDATA_LOCALFREE = $00000002;
+  D3DRMCLIENTDATA_LOCALFREE       = $00000002;
-  D3DRMCLIENTDATA_IUNKNOWN  = $00000004;
+  D3DRMCLIENTDATA_IUNKNOWN        = $00000004;
+(*
-{ Values for flags in Frame2::AddMoveCallback. }
+ * Values for flags in Frame2::AddMoveCallback.
+ *)
-  D3DRMCALLBACK_PREORDER  = 0;
+  D3DRMCALLBACK_PREORDER                = 0;
-  D3DRMCALLBACK_POSTORDER = 1;
+  D3DRMCALLBACK_POSTORDER               = 1;
+(*
-{ Values for flags in MeshBuilder2::RayPick. }
+ * Values for flags in MeshBuilder2::RayPick.
+ *)
-  D3DRMRAYPICK_ONLYBOUNDINGBOXES       = 1;
+  D3DRMRAYPICK_ONLYBOUNDINGBOXES        = 1;
-  D3DRMRAYPICK_IGNOREFURTHERPRIMITIVES = 2;
+  D3DRMRAYPICK_IGNOREFURTHERPRIMITIVES  = 2;
-  D3DRMRAYPICK_INTERPOLATEUV           = 4;
+  D3DRMRAYPICK_INTERPOLATEUV            = 4;
-  D3DRMRAYPICK_INTERPOLATECOLOR        = 8;
+  D3DRMRAYPICK_INTERPOLATECOLOR         = 8;
-  D3DRMRAYPICK_INTERPOLATENORMAL       = $10;
+  D3DRMRAYPICK_INTERPOLATENORMAL        = $10;
+(*
-{ Values for flags in MeshBuilder3::AddFacesIndexed. }
+ * Values for flags in MeshBuilder3::AddFacesIndexed.
+ *)
-  D3DRMADDFACES_VERTICESONLY = 1;
+  D3DRMADDFACES_VERTICESONLY             = 1;
+(*
-{ Values for flags in MeshBuilder2::GenerateNormals. }
+ * Values for flags in MeshBuilder2::GenerateNormals.
+ *)
-  D3DRMGENERATENORMALS_PRECOMPACT     = 1;
+  D3DRMGENERATENORMALS_PRECOMPACT       = 1;
-  D3DRMGENERATENORMALS_USECREASEANGLE = 2;
+  D3DRMGENERATENORMALS_USECREASEANGLE   = 2;
+(*
-{ Values for MeshBuilder3::GetParentMesh }
+ * Values for MeshBuilder3::GetParentMesh
+ *)
-  D3DRMMESHBUILDER_DIRECTPARENT = 1;
+  D3DRMMESHBUILDER_DIRECTPARENT          = 1;
-  D3DRMMESHBUILDER_ROOTMESH     = 2;
+  D3DRMMESHBUILDER_ROOTMESH              = 2;
+(*
-{ Flags for MeshBuilder3::Enable }
+ * Flags for MeshBuilder3::Enable
+ *)
-  D3DRMMESHBUILDER_RENDERENABLE = $00000001;
+  D3DRMMESHBUILDER_RENDERENABLE   = $00000001;
-  D3DRMMESHBUILDER_PICKENABLE   = $00000002;
+  D3DRMMESHBUILDER_PICKENABLE     = $00000002;
-{ Flags for MeshBuilder3::AddMeshBuilder }
-  D3DRMADDMESHBUILDER_DONTCOPYAPPDATA  = 1;
-  D3DRMADDMESHBUILDER_FLATTENSUBMESHES = 2;
-  D3DRMADDMESHBUILDER_NOSUBMESHES      = 4;
+(*
-{ Flags for Object2::GetAge when used with MeshBuilders }
+ * Flags for Object2::GetAge when used with MeshBuilders
+ *)
-  D3DRMMESHBUILDERAGE_GEOMETRY  = $00000001;
+  D3DRMMESHBUILDERAGE_GEOMETRY    = $00000001;
-  D3DRMMESHBUILDERAGE_MATERIALS = $00000002;
+  D3DRMMESHBUILDERAGE_MATERIALS   = $00000002;
-  D3DRMMESHBUILDERAGE_TEXTURES  = $00000004;
+  D3DRMMESHBUILDERAGE_TEXTURES    = $00000004;
+(*
-{ Format flags for MeshBuilder3::AddTriangles. }
+ * Format flags for MeshBuilder3::AddTriangles.
+ *)
-  D3DRMFVF_TYPE          = $00000001;
+  D3DRMFVF_TYPE                   = $00000001;
-  D3DRMFVF_NORMAL        = $00000002;
+  D3DRMFVF_NORMAL                 = $00000002;
-  D3DRMFVF_COLOR         = $00000004;
+  D3DRMFVF_COLOR                  = $00000004;
-  D3DRMFVF_TEXTURECOORDS = $00000008;
+  D3DRMFVF_TEXTURECOORDS          = $00000008;
-  D3DRMVERTEX_STRIP = $00000001;
+  D3DRMVERTEX_STRIP               = $00000001;
-  D3DRMVERTEX_FAN   = $00000002;
+  D3DRMVERTEX_FAN                 = $00000002;
-  D3DRMVERTEX_LIST  = $00000004;
+  D3DRMVERTEX_LIST                = $00000004;
+(*
-{ Values for flags in Viewport2::Clear2 }
+ * Values for flags in Viewport2::Clear2
+ *)
-  D3DRMCLEAR_TARGET     = $00000001;
+  D3DRMCLEAR_TARGET               = $00000001;
-  D3DRMCLEAR_ZBUFFER    = $00000002;
+  D3DRMCLEAR_ZBUFFER              = $00000002;
-  D3DRMCLEAR_DIRTYRECTS = $00000004;
+  D3DRMCLEAR_DIRTYRECTS           = $00000004;
-  D3DRMCLEAR_ALL        = D3DRMCLEAR_TARGET or D3DRMCLEAR_ZBUFFER or D3DRMCLEAR_DIRTYRECTS;
+  D3DRMCLEAR_ALL                  = (D3DRMCLEAR_TARGET or
-{ Values for flags in Frame3::SetSceneFogMethod }
+                                         D3DRMCLEAR_ZBUFFER or
+                                         D3DRMCLEAR_DIRTYRECTS);
+(*
+ * Values for flags in Frame3::SetSceneFogMethod
+ *)
-  D3DRMFOGMETHOD_VERTEX = $00000001;
+  D3DRMFOGMETHOD_VERTEX          = $00000001;
-  D3DRMFOGMETHOD_TABLE  = $00000002;
+  D3DRMFOGMETHOD_TABLE           = $00000002;
-  D3DRMFOGMETHOD_ANY    = $00000004;
+  D3DRMFOGMETHOD_ANY             = $00000004;
+(*
-{ Values for flags in Frame3::SetTraversalOptions }
+ * Values for flags in Frame3::SetTraversalOptions
+ *)
-  D3DRMFRAME_RENDERENABLE = $00000001;
+  D3DRMFRAME_RENDERENABLE        = $00000001;
-  D3DRMFRAME_PICKENABLE   = $00000002;
+  D3DRMFRAME_PICKENABLE          = $00000002;
-{ TD3DRMAnimationOptions }
 type
   TD3DRMAnimationOptions = DWORD;
-  D3DRMANIMATIONOPTIONS = TD3DRMAnimationOptions;
 const
-  D3DRMANIMATION_OPEN             = $01;
+  D3DRMANIMATION_OPEN = $01;
-  D3DRMANIMATION_CLOSED           = $02;
+  D3DRMANIMATION_CLOSED = $02;
-  D3DRMANIMATION_LINEARPOSITION   = $04;
+  D3DRMANIMATION_LINEARPOSITION = $04;
-  D3DRMANIMATION_SPLINEPOSITION   = $08;
+  D3DRMANIMATION_SPLINEPOSITION = $08;
   D3DRMANIMATION_SCALEANDROTATION = $00000010;
-  D3DRMANIMATION_POSITION         = $00000020;
+  D3DRMANIMATION_POSITION = $00000020;
-{ TD3DRMInterpolationOptions }
 type
   TD3DRMInterpolationOptions = DWORD;
-  D3DRMINTERPOLATIONOPTIONS = TD3DRMInterpolationOptions;
 const
-  D3DRMINTERPOLATION_OPEN         = $01;
+  D3DRMINTERPOLATION_OPEN = $01;
-  D3DRMINTERPOLATION_CLOSED       = $02;
+  D3DRMINTERPOLATION_CLOSED = $02;
-  D3DRMINTERPOLATION_NEAREST      = $0100;
+  D3DRMINTERPOLATION_NEAREST = $0100;
-  D3DRMINTERPOLATION_LINEAR       = $04;
+  D3DRMINTERPOLATION_LINEAR = $04;
-  D3DRMINTERPOLATION_SPLINE       = $08;
+  D3DRMINTERPOLATION_SPLINE = $08;
-  D3DRMINTERPOLATION_VERTEXCOLOR  = $40;
+  D3DRMINTERPOLATION_VERTEXCOLOR = $40;
   D3DRMINTERPOLATION_SLERPNORMALS = $80;
-{ TD3DRMLoadOptions }
 type
   TD3DRMLoadOptions = DWORD;
-  D3DRMLOADOPTIONS = TD3DRMLoadOptions;
 const
   D3DRMLOAD_FROMFILE  = $00;
   D3DRMLOAD_FROMRESOURCE = $01;
   D3DRMLOAD_FROMMEMORY = $02;
   D3DRMLOAD_FROMSTREAM = $04;
   D3DRMLOAD_FROMURL = $08;
   D3DRMLOAD_BYNAME = $10;
   D3DRMLOAD_BYPOSITION = $20;
   D3DRMLOAD_BYGUID = $40;
   D3DRMLOAD_FIRST = $80;
   D3DRMLOAD_INSTANCEBYREFERENCE = $100;
   D3DRMLOAD_INSTANCEBYCOPYING = $200;
   D3DRMLOAD_ASYNCHRONOUS = $400;
-{ TD3DRMLoadReource }
 type
-  PD3DRMLoadReource = ^TD3DRMLoadReource;
+  PD3DRMLoadResource = ^TD3DRMLoadResource;
-  TD3DRMLoadReource = record
+  TD3DRMLoadResource = packed record
     hModule: HMODULE;
-    lpName: PChar;
+    lpName: PAnsiChar;
-    lpType: PChar;
+    lpType: PAnsiChar;
   end;
-  D3DRMLOADRESOURCE = TD3DRMLoadReource;
-  LPD3DRMLOADRESOURCE = PD3DRMLoadReource;
-{ TD3DRMLoadMemory }
   PD3DRMLoadMemory = ^TD3DRMLoadMemory;
-  TD3DRMLoadMemory = record
+  TD3DRMLoadMemory = packed record
     lpMemory: Pointer;
-    dSize: DWORD;
+    dwSize: DWORD;
   end;
-  D3DRMLOADMEMORY = TD3DRMLoadMemory;
-  LPD3DRMLOADMEMORY = PD3DRMLoadMemory;
 const
-  D3DRMPMESHSTATUS_VALID            = $01;
+  D3DRMPMESHSTATUS_VALID = $01;
-  D3DRMPMESHSTATUS_INTERRUPTED      = $02;
+  D3DRMPMESHSTATUS_INTERRUPTED = $02;
   D3DRMPMESHSTATUS_BASEMESHCOMPLETE = $04;
-  D3DRMPMESHSTATUS_COMPLETE         = $08;
+  D3DRMPMESHSTATUS_COMPLETE = $08;
-  D3DRMPMESHSTATUS_RENDERABLE       = $10;
+  D3DRMPMESHSTATUS_RENDERABLE = $10;
   D3DRMPMESHEVENT_BASEMESH = $01;
   D3DRMPMESHEVENT_COMPLETE = $02;
-{ TD3DRMPMeshLoadStatus }
 type
   PD3DRMPMeshLoadStatus = ^TD3DRMPMeshLoadStatus;
-  TD3DRMPMeshLoadStatus = record
+  TD3DRMPMeshLoadStatus = packed record
-    dwSize: DWORD;           // Size of this structure
+    dwSize,            // Size of this structure
-    dwPMeshSize: DWORD;      // Total Size (bytes)
+    dwPMeshSize,       // Total Size (bytes)
-    dwBaseMeshSize: DWORD;   // Total Size of the Base Mesh
+    dwBaseMeshSize,    // Total Size of the Base Mesh
-    dwBytesLoaded: DWORD;    // Total bytes loaded
+    dwBytesLoaded,     // Total bytes loaded
-    dwVerticesLoaded: DWORD; // Number of vertices loaded
+    dwVerticesLoaded,  // Number of vertices loaded
-    dwFacesLoaded: DWORD;    // Number of faces loaded
+    dwFacesLoaded : DWORD;     // Number of faces loaded
-    dwLoadResult: HResult;   // Result of the load operation
+    dwLoadResult : HResult;    // Result of the load operation
-    dwFlags: DWORD;
+    dwFlags : DWORD;
   end;
-  D3DRMPMESHLOADSTATUS = TD3DRMPMeshLoadStatus;
+  PD3DRMUserVisualReason = ^TD3DRMUserVisualReason;
-  LPD3DRMPMESHLOADSTATUS = PD3DRMPMeshLoadStatus;
-{ TD3DRMUserVisualReason }
   TD3DRMUserVisualReason = (
     D3DRMUSERVISUAL_CANSEE,
     D3DRMUSERVISUAL_RENDER
   );
-  D3DRMUSERVISUALREASON = TD3DRMUserVisualReason;
-{ TD3DRMAnimationKey }
   PD3DRMAnimationKey = ^TD3DRMAnimationKey;
-  TD3DRMAnimationKey = record
+  TD3DRMAnimationKey = packed record
-    dwSize: DWORD;
+    dwSize : DWORD;
-    dwKeyType: DWORD;
+    dwKeyType : DWORD;
-    dvTime: TD3DValue;
+    dvTime : TD3DValue;
-    dwID: DWORD;
+    dwID : DWORD;
-    case Integer of
+    case integer of
-: (dqRotateKey: TD3DRMQuaternion);
+: (dqRotateKey : TD3DRMQuaternion);
-: (dvScaleKey: TD3DVector);
+: (dvScaleKey : TD3DVector);
-: (dvPositionKey: TD3DVector);
+: (dvPositionKey : TD3DVector);
-: (dvK: array[0..3] of TD3DValue);
+: (dvK : array [0..3] of TD3DValue);
     end;
-  D3DRMANIMATIONKEY = TD3DRMAnimationKey;
+procedure D3DRMAnimationGetRotateKey
-  LPD3DRMANIMATIONKEY = PD3DRMAnimationKey;
+    (var rmKey: TD3DRMAnimationKey; var rmQuat: TD3DRMQuaternion);
-procedure D3DRMAnimationGetRotateKey(const rmKey: TD3DRMAnimationKey; var rmQuat: TD3DRMQuaternion);
-procedure D3DRMAnimationGetScaleKey(const rmKey: TD3DRMAnimationKey; var dvVec: TD3DVector);
+procedure D3DRMAnimationGetScaleKey
-procedure D3DRMAnimationGetPositionKey(const rmKey: TD3DRMAnimationKey; var dvVec: TD3DVector);
-procedure D3DRMAnimationSetRotateKey(var rmKey: TD3DRMAnimationKey; const rmQuat: TD3DRMQuaternion);
-procedure D3DRMAnimationSetScaleKey(var rmKey: TD3DRMAnimationKey; const dvVec: TD3DVector);
+    (var rmKey: TD3DRMAnimationKey; var dvVec: TD3DVector);
-procedure D3DRMAnimationSetPositionKey(var rmKey: TD3DRMAnimationKey; const dvVec: TD3DVector);
-const
-  D3DRMANIMATION_ROTATEKEY   = $01;
-  D3DRMANIMATION_SCALEKEY    = $02;
-  D3DRMANIMATION_POSITIONKEY = $03;
-{ TD3DRMMapping }
+procedure D3DRMAnimationGetPositionKey
+    (var rmKey: TD3DRMAnimationKey; var dvVec: TD3DVector);
-type
-  TD3DRMMapping = DWORD;
+procedure D3DRMAnimatioSetRotateKey
-  D3DRMMAPPING = TD3DRMMapping;
+    (var rmKey: TD3DRMAnimationKey; var rmQuat: TD3DRMQuaternion);
-{ TD3DRMMappingFlag }
+procedure D3DRMAnimationSetScaleKey
+    (var rmKey: TD3DRMAnimationKey; var dvVec: TD3DVector);
+procedure D3DRMAnimationSetPositionKey
+    (var rmKey: TD3DRMAnimationKey; var dvVec: TD3DVector);
+const
+  D3DRMANIMATION_ROTATEKEY = 01;
+  D3DRMANIMATION_SCALEKEY = 02;
+  D3DRMANIMATION_POSITIONKEY = 03;
+type
+  TD3DRMMapping = DWORD;
+  PD3DRMMappingFlag = ^TD3DRMMappingFlag;
   TD3DRMMappingFlag = DWORD;
-  D3DRMMAPPINGFLAG = TD3DRMMappingFlag;
 const
-  D3DRMMAP_WRAPU        = 1;
+  D3DRMMAP_WRAPU = 1;
-  D3DRMMAP_WRAPV        = 2;
+  D3DRMMAP_WRAPV = 2;
   D3DRMMAP_PERSPCORRECT = 4;
-{ TD3DRMVertex }
 type
   PD3DRMVertex = ^TD3DRMVertex;
-  TD3DRMVertex = record
+  TD3DRMVertex = packed record
     position: TD3DVector;
     normal: TD3DVector;
     tu, tv: TD3DValue;
     color: TD3DColor;
   end;
-  D3DRMVERTEX = TD3DRMVertex;
-  LPD3DRMVERTEX = PD3DRMVertex;
-{ TD3DRMGroupIndex }
-  TD3DRMGroupIndex = Longint;
-  D3DRMGROUPINDEX = TD3DRMGroupIndex; // group indexes begin a 0
+  TD3DRMGroupIndex = LongInt; (* group indexes begin a 0 *)
 const
   D3DRMGROUP_ALLGROUPS = -1;
+var
+(*
-{ Create a color from three components in the range 0-1 inclusive. }
+ * Create a color from three components in the range 0-1 inclusive.
+ *)
-function D3DRMCreateColorRGB(red, green, blue: TD3DValue): TD3DColor; stdcall;
+  D3DRMCreateColorRGB : function (red, green, blue: TD3DValue) : TD3DColor;
+      stdcall;
+(*
-{ Create a color from four components in the range 0-1 inclusive. }
+ * Create a color from four components in the range 0-1 inclusive.
+ *)
-function D3DRMCreateColorRGBA(red, green, blue, alpha: TD3DValue): TD3DColor; stdcall;
+  D3DRMCreateColorRGBA : function (red, green, blue, alpha: TD3DValue)
+      : TD3DColor; stdcall;
+(*
+ * Get the red component of a color.
+ *)
+  D3DRMColorGetRed : function (d3drmc: TD3DColor) : TD3DValue; stdcall;
+(*
-{ Get the red component of a color. }
+ * Get the green component of a color.
+ *)
-function D3DRMColorGetRed(d3drmc: TD3DColor): TD3DValue; stdcall;
+  D3DRMColorGetGreen : function (d3drmc: TD3DColor) : TD3DValue; stdcall;
+(*
-{ Get the green component of a color. }
+ * Get the blue component of a color.
+ *)
-function D3DRMColorGetGreen(d3drmc: TD3DColor): TD3DValue; stdcall;
+  D3DRMColorGetBlue : function (d3drmc: TD3DColor) : TD3DValue; stdcall;
+(*
-{ Get the blue component of a color. }
+ * Get the alpha component of a color.
+ *)
-function D3DRMColorGetBlue(d3drmc: TD3DColor): TD3DValue; stdcall;
+  D3DRMColorGetAlpha : function (d3drmc: TD3DColor) : TD3DValue; stdcall;
+(*
-{ Get the alpha component of a color. }
+ * Add two vectors.  Returns its first argument.
+ *)
-function D3DRMColorGetAlpha(d3drmc: TD3DColor): TD3DValue; stdcall;
+  D3DRMVectorAdd : function (var d, s1, s2: TD3DVector) : PD3DVector; stdcall;
+(*
-{ Add two vectors.  Returns its first argument. }
+ * Subtract two vectors.  Returns its first argument.
+ *)
-function D3DRMVectorAdd(var d, s1, s2: TD3DVector): PD3DVector; stdcall;
+  D3DRMVectorSubtract : function (var d, s1, s2: TD3DVector) : PD3DVector;
+      stdcall;
+(*
-{ Subtract two vectors.  Returns its first argument. }
+ * Reflect a ray about a given normal.  Returns its first argument.
+ *)
-function D3DRMVectorSubtract(var d, s1, s2: TD3DVector): PD3DVector; stdcall;
+  D3DRMVectorReflect : function (var d, ray, norm: TD3DVector) : PD3DVector;
+      stdcall;
+(*
-{ Reflect a ray about a given normal.  Returns its first argument. }
+ * Calculate the vector cross product.  Returns its first argument.
+ *)
-function D3DRMVectorReflect(var d, ray, norm: TD3DVector): PD3DVector; stdcall;
+  D3DRMVectorCrossProduct : function (var d, s1, s2: TD3DVector) : PD3DVector;
+      stdcall;
+(*
-{ Calculate the vector cross product.  Returns its first argument. }
+ * Return the vector dot product.
+ *)
-function D3DRMVectorCrossProduct(var d, s1, s2: TD3DVector): PD3DVector; stdcall;
+  D3DRMVectorDotProduct : function (var s1, s2: TD3DVector) : TD3DValue;
+      stdcall;
+(*
+ * Scale a vector so that its modulus is 1.  Returns its argument or
-{ Return the vector dot product. }
+ * NULL if there was an error (e.g. a zero vector was passed).
+ *)
-function D3DRMVectorDotProduct(var s1, s2: TD3DVector): TD3DValue; stdcall;
+  D3DRMVectorNormalize : function (var lpv: TD3DVector) : PD3DVector; stdcall;
-{ Scale a vector so that its modulus is 1.  Returns its argument or
+(*
-  NULL if there was an error (e.g. a zero vector was passed). }
+ * Return the length of a vector (e.g. sqrt(x*x + y*y + z*z)).
+ *)
-function D3DRMVectorNormalize(var lpv: TD3DVector): PD3DVector; stdcall;
+  D3DRMVectorModulus : function (var v: TD3DVector) : TD3DValue; stdcall;
+(*
-{ Return the length of a vector (e.g. sqrt(x*x + y*y + z*z)). }
+ * Set the rotation part of a matrix to be a rotation of theta radians
+ * around the given axis.
+ *)
-function D3DRMVectorModulus(var v: TD3DVector): TD3DValue; stdcall;
+  D3DRMVectorRotate : function (var r, v, axis: TD3DVector; theta: TD3DValue) :
+      PD3DVector; stdcall;
+(*
-{ Set the rotation part of a matrix to be a rotation of theta radians
+ * Scale a vector uniformly in all three axes
-  around the given axis. }
+ *)
-function D3DRMVectorRotate(var r, v, axis: TD3DVector; theta: TD3DValue): PD3DVector; stdcall;
+  D3DRMVectorScale : function (var d, s: TD3DVector; factor: TD3DValue) :
+      PD3DVector; stdcall;
+(*
-{ Scale a vector uniformly in all three axes }
+ * Return a random unit vector
+ *)
-function D3DRMVectorScale( var d, s: TD3DVector; factor: TD3DValue): PD3DVector; stdcall;
+  D3DRMVectorRandom : function (var d: TD3DVector) : PD3DVector; stdcall;
+(*
-{ Return a random unit vector }
+ * Returns a unit quaternion that represents a rotation of theta radians
-function D3DRMVectorRandom(var d: TD3DVector): PD3DVector; stdcall;
+ * around the given axis.
+ *)
-{ Returns a unit quaternion that represents a rotation of theta radians
-  around the given axis. }
-function D3DRMQuaternionFromRotation(var quat: PD3DRMQuaternion;
+  D3DRMQuaternionFromRotation : function (var quat: TD3DRMQuaternion;
-    var v: TD3DVector; theta: TD3DValue): PD3DRMQuaternion; stdcall;
+      var v: TD3DVector; theta: TD3DValue) : PD3DRMQuaternion; stdcall;
+(*
-{ Calculate the product of two quaternions }
+ * Calculate the product of two quaternions
+ *)
-function D3DRMQuaternionMultiply(var q, a, b: TD3DRMQuaternion): PD3DRMQuaternion; stdcall;
+  D3DRMQuaternionMultiply : function (var q, a, b: TD3DRMQuaternion) :
+      PD3DRMQuaternion; stdcall;
+(*
-{ Interpolate between two quaternions }
+ * Interpolate between two quaternions
+ *)
-function D3DRMQuaternionSlerp(var q, a, b: TD3DRMQuaternion; alpha: TD3DValue): PD3DRMQuaternion; stdcall;
+  D3DRMQuaternionSlerp : function (var q, a, b: TD3DRMQuaternion;
+      alpha: TD3DValue) : PD3DRMQuaternion; stdcall;
+(*
-{ Calculate the matrix for the rotation that a unit quaternion represents }
+ * Calculate the matrix for the rotation that a unit quaternion represents
+ *)
-procedure D3DRMMatrixFromQuaternion(dmMat: TD3DRMMatrix4D; var lpDqQuat: TD3DRMQuaternion); stdcall;
+  D3DRMMatrixFromQuaternion : procedure (dmMat: TD3DRMMatrix4D; var lpDqQuat:
+      TD3DRMQuaternion); stdcall;
+(*
-{ Calculate the quaternion that corresponds to a rotation matrix }
+ * Calculate the quaternion that corresponds to a rotation matrix
+ *)
-function D3DRMQuaternionFromMatrix(var lpQuat: TD3DRMQuaternion; Mat: TD3DRMMatrix4D): PD3DRMQuaternion;
+  D3DRMQuaternionFromMatrix : function (var lpQuat: TD3DRMQuaternion;
+      Mat: TD3DRMMatrix4D) : PD3DRMQuaternion; stdcall;
 (*==========================================================================;
+ *
  *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *
- *  File:       d3drm.h, d3drmobj.h, d3drmwin.h
+ *  File:       d3drmobj.h
  *  Content:    Direct3DRM include file
+ *
  ***************************************************************************)
+(*
-{ Direct3DRM Object classes }
+ * Direct3DRM Object classes
+ *)
 const
-  CLSID_CDirect3DRMDevice: TGUID = '{4FA3568E-623F-11CF-AC4A-0000C03825A1}';
+  CLSID_CDirect3DRMDevice: TGUID =
-  CLSID_CDirect3DRMViewport: TGUID = '{4FA3568F-623F-11CF-AC4A-0000C03825A1}';
+      (D1:$4fa3568e;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-  CLSID_CDirect3DRMFrame: TGUID = '{4FA35690-623F-11CF-AC4A-0000C03825A1}';
+  CLSID_CDirect3DRMViewport: TGUID =
-  CLSID_CDirect3DRMMesh: TGUID = '{4FA35691-623F-11CF-AC4A-0000C03825A1}';
+      (D1:$4fa3568f;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-  CLSID_CDirect3DRMMeshBuilder: TGUID = '{4FA35692-623F-11CF-AC4A-0000C03825A1}';
-  CLSID_CDirect3DRMFace: TGUID = '{4FA35693-623F-11CF-AC4A-0000C03825A1}';
+  CLSID_CDirect3DRMFrame: TGUID =
-  CLSID_CDirect3DRMLight: TGUID = '{4FA35694-623F-11CF-AC4A-0000C03825A1}';
+      (D1:$4fa35690;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-  CLSID_CDirect3DRMTexture: TGUID = '{4FA35695-623F-11CF-AC4A-0000C03825A1}';
+  CLSID_CDirect3DRMMesh: TGUID =
-  CLSID_CDirect3DRMWrap: TGUID = '{4FA35696-623F-11CF-AC4A-0000C03825A1}';
+      (D1:$4fa35691;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-  CLSID_CDirect3DRMMaterial: TGUID = '{4FA35697-623F-11CF-AC4A-0000C03825A1}';
+  CLSID_CDirect3DRMMeshBuilder: TGUID =
-  CLSID_CDirect3DRMAnimation: TGUID = '{4FA35698-623F-11CF-AC4A-0000C03825A1}';
+      (D1:$4fa35692;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-  CLSID_CDirect3DRMAnimationSet: TGUID = '{4FA35699-623F-11CF-AC4A-0000C03825A1}';
+  CLSID_CDirect3DRMFace: TGUID =
-  CLSID_CDirect3DRMUserVisual: TGUID = '{4FA3569A-623F-11CF-AC4A-0000C03825A1}';
+      (D1:$4fa35693;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-  CLSID_CDirect3DRMShadow: TGUID = '{4FA3569B-623F-11CF-AC4A-0000C03825A1}';
+  CLSID_CDirect3DRMLight: TGUID =
-  CLSID_CDirect3DRMViewportInterpolator: TGUID = '{0DE9EAA1-3B84-11D0-9B6D-0000C0781BC3}';
-  CLSID_CDirect3DRMFrameInterpolator: TGUID = '{0DE9EAA2-3B84-11D0-9B6D-0000C0781BC3}';
+      (D1:$4fa35694;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-  CLSID_CDirect3DRMMeshInterpolator: TGUID = '{0DE9EAA3-3B84-11D0-9B6D-0000C0781BC3}';
+  CLSID_CDirect3DRMTexture: TGUID =
-  CLSID_CDirect3DRMLightInterpolator: TGUID = '{0DE9EAA6-3B84-11D0-9B6D-0000C0781BC3}';
+      (D1:$4fa35695;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-  CLSID_CDirect3DRMMaterialInterpolator: TGUID = '{0DE9EAA7-3B84-11D0-9B6D-0000C0781BC3}';
-  CLSID_CDirect3DRMTextureInterpolator: TGUID = '{0DE9EAA8-3B84-11D0-9B6D-0000C0781BC3}';
-  CLSID_CDirect3DRMProgressiveMesh: TGUID = '{4516EC40-8F20-11D0-9B6D-0000C0781BC3}';
+  CLSID_CDirect3DRMWrap: TGUID =
-  CLSID_CDirect3DRMClippedVisual: TGUID = '{5434E72D-6D66-11D1-BB0B-0000F875865A}';
+      (D1:$4fa35696;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-{ Direct3DRM Object interfaces }
+  CLSID_CDirect3DRMMaterial: TGUID =
-  IID_IDirect3DRMObject: TGUID = '{EB16CB00-D271-11CE-AC48-0000C03825A1}';
+      (D1:$4fa35697;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-  IID_IDirect3DRMObject2: TGUID = '{4516EC7C-8F20-11D0-9B6D-0000C0781BC3}';
+  CLSID_CDirect3DRMAnimation: TGUID =
-  IID_IDirect3DRMDevice: TGUID = '{E9E19280-6E05-11CF-AC4A-0000C03825A1}';
+      (D1:$4fa35698;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-  IID_IDirect3DRMDevice2: TGUID = '{4516EC78-8F20-11D0-9B6D-0000C0781BC3}';
-  IID_IDirect3DRMDevice3: TGUID = '{549F498B-BFEB-11D1-8ED8-00A0C967A482}';
+  CLSID_CDirect3DRMAnimationSet: TGUID =
-  IID_IDirect3DRMViewport: TGUID = '{EB16CB02-D271-11CE-AC48-0000C03825A1}';
+      (D1:$4fa35699;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-  IID_IDirect3DRMViewport2: TGUID = '{4A1B1BE6-BFED-11D1-8ED8-00A0C967A482}';
+  CLSID_CDirect3DRMUserVisual: TGUID =
-  IID_IDirect3DRMFrame: TGUID = '{EB16CB03-D271-11CE-AC48-0000C03825A1}';
+      (D1:$4fa3569a;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-  IID_IDirect3DRMFrame2: TGUID = '{C3DFBD60-3988-11D0-9EC2-0000C0291AC3}';
+  CLSID_CDirect3DRMShadow: TGUID =
-  IID_IDirect3DRMFrame3: TGUID = '{FF6B7F70-A40E-11D1-91F9-0000F8758E66}';
+      (D1:$4fa3569b;D2:$623f;D3:$11cf;D4:($ac,$4a,$00,$00,$c0,$38,$25,$a1));
-  IID_IDirect3DRMVisual: TGUID = '{EB16CB04-D271-11CE-AC48-0000C03825A1}';
+  CLSID_CDirect3DRMViewportInterpolator: TGUID =
-  IID_IDirect3DRMMesh: TGUID = '{A3A80D01-6E12-11CF-AC4A-0000C03825A1}';
+      (D1:$0de9eaa1;D2:$3b84;D3:$11d0;D4:($9b,$6d,$00,$00,$c0,$78,$1b,$c3));
-  IID_IDirect3DRMMeshBuilder: TGUID = '{A3A80D02-6E12-11CF-AC4A-0000C03825A1}';
+  CLSID_CDirect3DRMFrameInterpolator: TGUID =
-  IID_IDirect3DRMMeshBuilder2: TGUID = '{4516EC77-8F20-11D0-9B6D-0000C0781BC3}';
+      (D1:$0de9eaa2;D2:$3b84;D3:$11d0;D4:($9b,$6d,$00,$00,$c0,$78,$1b,$c3));
-  IID_IDirect3DRMMeshBuilder3: TGUID = '{4516EC82-8F20-11D0-9B6D-0000C0781BC3}';
+  CLSID_CDirect3DRMMeshInterpolator: TGUID =
-  IID_IDirect3DRMFace: TGUID = '{EB16CB07-D271-11CE-AC48-0000C03825A1}';
-  IID_IDirect3DRMFace2: TGUID = '{4516EC81-8F20-11D0-9B6D-0000C0781BC3}';
+      (D1:$0de9eaa3;D2:$3b84;D3:$11d0;D4:($9b,$6d,$00,$00,$c0,$78,$1b,$c3));
-  IID_IDirect3DRMLight: TGUID = '{EB16CB08-D271-11CE-AC48-0000C03825A1}';
+  CLSID_CDirect3DRMLightInterpolator: TGUID =
-  IID_IDirect3DRMTexture: TGUID = '{EB16CB09-D271-11CE-AC48-0000C03825A1}';
-  IID_IDirect3DRMTexture2: TGUID = '{120F30C0-1629-11D0-941C-0080C80CFA7B}';
+      (D1:$0de9eaa6;D2:$3b84;D3:$11d0;D4:($9b,$6d,$00,$00,$c0,$78,$1b,$c3));
-  IID_IDirect3DRMTexture3: TGUID = '{FF6B7F73-A40E-11D1-91F9-0000F8758E66}';
-  IID_IDirect3DRMWrap: TGUID = '{EB16CB0A-D271-11CE-AC48-0000C03825A1}';
-  IID_IDirect3DRMMaterial: TGUID = '{EB16CB0B-D271-11CE-AC48-0000C03825A1}';
+  CLSID_CDirect3DRMMaterialInterpolator: TGUID =
-  IID_IDirect3DRMMaterial2: TGUID = '{FF6B7F75-A40E-11D1-91F9-0000F8758E66}';
+      (D1:$0de9eaa7;D2:$3b84;D3:$11d0;D4:($9b,$6d,$00,$00,$c0,$78,$1b,$c3));
-  IID_IDirect3DRMAnimation: TGUID = '{EB16CB0D-D271-11CE-AC48-0000C03825A1}';
+  CLSID_CDirect3DRMTextureInterpolator: TGUID =
-  IID_IDirect3DRMAnimation2: TGUID = '{FF6B7F77-A40E-11D1-91F9-0000F8758E66}';
+      (D1:$0de9eaa8;D2:$3b84;D3:$11d0;D4:($9b,$6d,$00,$00,$c0,$78,$1b,$c3));
-  IID_IDirect3DRMAnimationSet: TGUID = '{EB16CB0E-D271-11CE-AC48-0000C03825A1}';
-  IID_IDirect3DRMAnimationSet2: TGUID = '{FF6B7F79-A40E-11D1-91F9-0000F8758E66}';
+  CLSID_CDirect3DRMProgressiveMesh: TGUID =
-  IID_IDirect3DRMObjectArray: TGUID = '{242F6BC2-3849-11D0-9B6D-0000C0781BC3}';
+      (D1:$4516ec40;D2:$8f20;D3:$11d0;D4:($9b,$6d,$00,$00,$c0,$78,$1b,$c3));
-  IID_IDirect3DRMDeviceArray: TGUID = '{EB16CB10-D271-11CE-AC48-0000C03825A1}';
-  IID_IDirect3DRMViewportArray: TGUID = '{EB16CB11-D271-11CE-AC48-0000C03825A1}';
-  IID_IDirect3DRMFrameArray: TGUID = '{EB16CB12-D271-11CE-AC48-0000C03825A1}';
-  IID_IDirect3DRMVisualArray: TGUID = '{EB16CB13-D271-11CE-AC48-0000C03825A1}';
-  IID_IDirect3DRMLightArray: TGUID = '{EB16CB14-D271-11CE-AC48-0000C03825A1}';
-  IID_IDirect3DRMPickedArray: TGUID = '{EB16CB16-D271-11CE-AC48-0000C03825A1}';
-  IID_IDirect3DRMFaceArray: TGUID = '{EB16CB17-D271-11CE-AC48-0000C03825A1}';
-  IID_IDirect3DRMAnimationArray: TGUID = '{D5F1CAE0-4BD7-11D1-B974-0060083E45F3}';
-  IID_IDirect3DRMUserVisual: TGUID = '{59163DE0-6D43-11CF-AC4A-0000C03825A1}';
+  CLSID_CDirect3DRMClippedVisual: TGUID =
-  IID_IDirect3DRMShadow: TGUID = '{AF359780-6BA3-11CF-AC4A-0000C03825A1}';
-  IID_IDirect3DRMShadow2: TGUID = '{86B44E25-9C82-11D1-BB0B-00A0C981A0A6}';
+      (D1:$5434e72d;D2:$6d66;D3:$11d1;D4:($bb,$0b,$00,$00,$f8,$75,$86,$5a));
-  IID_IDirect3DRMInterpolator: TGUID = '{242F6BC1-3849-11D0-9B6D-0000C0781BC3}';
-  IID_IDirect3DRMProgressiveMesh: TGUID = '{4516EC79-8F20-11D0-9B6D-0000C0781BC3}';
-  IID_IDirect3DRMPicked2Array: TGUID = '{4516EC7B-8F20-11D0-9B6D-0000C0781BC3}';
-  IID_IDirect3DRMClippedVisual: TGUID = '{5434E733-6D66-11D1-BB0B-0000F875865A}';
-  IID_IDirect3DRMWinDevice: TGUID = '{C5016CC0-D273-11CE-AC48-0000C03825A1}';
-  IID_IDirect3DRM: TGUID = '{2BC49361-8327-11CF-AC4A-0000C03825A1}';
-  IID_IDirect3DRM2: TGUID = '{4516ECC8-8F20-11D0-9B6D-0000C0781BC3}';
-  IID_IDirect3DRM3: TGUID = '{4516EC83-8F20-11D0-9B6D-0000C0781BC3}';
 type
   IDirect3DRMObject = interface;
-  IDirect3DRMObject2 = interface;
   IDirect3DRMDevice = interface;
   IDirect3DRMDevice2 = interface;
   IDirect3DRMDevice3 = interface;
   IDirect3DRMViewport = interface;
   IDirect3DRMViewport2 = interface;
   IDirect3DRMFrame = interface;
   IDirect3DRMFrame2 = interface;
   IDirect3DRMFrame3 = interface;
   IDirect3DRMVisual = interface;
   IDirect3DRMMesh = interface;
   IDirect3DRMMeshBuilder = interface;
   IDirect3DRMMeshBuilder2 = interface;
   IDirect3DRMMeshBuilder3 = interface;
   IDirect3DRMFace = interface;
   IDirect3DRMFace2 = interface;
   IDirect3DRMLight = interface;
   IDirect3DRMTexture = interface;
   IDirect3DRMTexture2 = interface;
   IDirect3DRMTexture3 = interface;
   IDirect3DRMWrap = interface;
   IDirect3DRMMaterial = interface;
   IDirect3DRMMaterial2 = interface;
-  IDirect3DRMInterpolator = interface;
   IDirect3DRMAnimation = interface;
   IDirect3DRMAnimation2 = interface;
   IDirect3DRMAnimationSet = interface;
   IDirect3DRMAnimationSet2 = interface;
-  IDirect3DRMUserVisual = interface;
-  IDirect3DRMShadow = interface;
-  IDirect3DRMShadow2 = interface;
-  IDirect3DRMArray= interface;
+  IDirect3DRMArray = interface;
   IDirect3DRMObjectArray = interface;
   IDirect3DRMDeviceArray = interface;
-  IDirect3DRMFaceArray = interface;
   IDirect3DRMViewportArray = interface;
   IDirect3DRMFrameArray = interface;
-  IDirect3DRMAnimationArray = interface;
   IDirect3DRMVisualArray = interface;
-  IDirect3DRMPickedArray = interface;
-  IDirect3DRMPicked2Array = interface;
   IDirect3DRMLightArray = interface;
+  IDirect3DRMPickedArray = interface;
+  IDirect3DRMFaceArray = interface;
+  IDirect3DRMAnimationArray = interface;
+  IDirect3DRMUserVisual = interface;
+  IDirect3DRMShadow = interface;
+  IDirect3DRMShadow2 = interface;
+  IDirect3DRMInterpolator = interface;
   IDirect3DRMProgressiveMesh = interface;
+  IDirect3DRMPicked2Array = interface;
   IDirect3DRMClippedVisual = interface;
+(*
-  IDirect3DRMWinDevice = interface;
+ * Direct3DRM Object interfaces
+ *)
+  IID_IDirect3DRMObject =          IDirect3DRMObject;
+  IID_IDirect3DRMDevice =          IDirect3DRMDevice;
+  IID_IDirect3DRMDevice2 =         IDirect3DRMDevice2;
+  IID_IDirect3DRMDevice3 =         IDirect3DRMDevice3;
+  IID_IDirect3DRMViewport =        IDirect3DRMViewport;
+  IID_IDirect3DRMViewport2 =       IDirect3DRMViewport2;
+  IID_IDirect3DRMFrame =           IDirect3DRMFrame;
+  IID_IDirect3DRMFrame2 =          IDirect3DRMFrame2;
+  IID_IDirect3DRMFrame3 =          IDirect3DRMFrame3;
+  IID_IDirect3DRMVisual =          IDirect3DRMVisual;
+  IID_IDirect3DRMMesh =            IDirect3DRMMesh;
+  IID_IDirect3DRMMeshBuilder =     IDirect3DRMMeshBuilder;
+  IID_IDirect3DRMMeshBuilder2 =    IDirect3DRMMeshBuilder2;
+  IID_IDirect3DRMMeshBuilder3 =    IDirect3DRMMeshBuilder3;
-  IDirect3DRM = interface;
+  IID_IDirect3DRMFace =            IDirect3DRMFace;
-  IDirect3DRM2 = interface;
+  IID_IDirect3DRMFace2 =           IDirect3DRMFace2;
+  IID_IDirect3DRMLight =           IDirect3DRMLight;
+  IID_IDirect3DRMTexture =         IDirect3DRMTexture;
+  IID_IDirect3DRMTexture2 =        IDirect3DRMTexture2;
-  IDirect3DRM3 = interface;
+  IID_IDirect3DRMTexture3 =        IDirect3DRMTexture3;
+  IID_IDirect3DRMWrap =            IDirect3DRMWrap;
-  TD3DRMObjectCallback = procedure(obj: IDirect3DRMObject; arg: Pointer); cdecl;
+  IID_IDirect3DRMMaterial =        IDirect3DRMMaterial;
+  IID_IDirect3DRMMaterial2 =       IDirect3DRMMaterial2;
+  IID_IDirect3DRMAnimation =       IDirect3DRMAnimation;
+  IID_IDirect3DRMAnimation2 =      IDirect3DRMAnimation2;
+  IID_IDirect3DRMAnimationSet =    IDirect3DRMAnimationSet;
+  IID_IDirect3DRMAnimationSet2 =   IDirect3DRMAnimationSet2;
-  D3DRMOBJECTCALLBACK = TD3DRMObjectCallback;
+  IID_IDirect3DRMObjectArray =     IDirect3DRMObjectArray;
-  TD3DRMFrameMoveCallback = procedure(obj: IDirect3DRMFrame; arg: Pointer; delta: TD3DValue); cdecl;
+  IID_IDirect3DRMDeviceArray =     IDirect3DRMDeviceArray;
-  D3DRMFRAMEMOVECALLBACK = TD3DRMFrameMoveCallback;
+  IID_IDirect3DRMViewportArray =   IDirect3DRMViewportArray;
-  TD3DRMFrame3MoveCallback = procedure(obj: IDirect3DRMFrame3; arg: Pointer; delta: TD3DValue); cdecl;
+  IID_IDirect3DRMFrameArray =      IDirect3DRMFrameArray;
-  D3DRMFRAME3MOVECALLBACK = TD3DRMFrame3MoveCallback;
+  IID_IDirect3DRMVisualArray =     IDirect3DRMVisualArray;
+  IID_IDirect3DRMLightArray =      IDirect3DRMLightArray;
-  TD3DRMUpdateCallback = procedure(obj: IDirect3DRMDevice; arg: Pointer;
+  IID_IDirect3DRMPickedArray =     IDirect3DRMPickedArray;
-      iRectCount: DWORD; d3dRectUpdate: PD3DRect); cdecl;
+  IID_IDirect3DRMFaceArray =       IDirect3DRMFaceArray;
-  D3DRMUPDATECALLBACK = TD3DRMUpdateCallback;
+  IID_IDirect3DRMAnimationArray =  IDirect3DRMAnimationArray;
-  TD3DRMDevice3UpdateCallback = procedure(obj: IDirect3DRMDevice3; arg: Pointer;
+  IID_IDirect3DRMUserVisual =      IDirect3DRMUserVisual;
+  IID_IDirect3DRMShadow =          IDirect3DRMShadow;
-      iRectCount: DWORD; d3dRectUpdate: PD3DRect); cdecl;
+  IID_IDirect3DRMShadow2 =         IDirect3DRMShadow2;
-  D3DRMDEVICE3UPDATECALLBACK = TD3DRMDevice3UpdateCallback;
+  IID_IDirect3DRMInterpolator =    IDirect3DRMInterpolator;
+  IID_IDirect3DRMProgressiveMesh = IDirect3DRMProgressiveMesh;
+  IID_IDirect3DRMPicked2Array =    IDirect3DRMPicked2Array;
+  IID_IDirect3DRMClippedVisual =   IDirect3DRMClippedVisual;
+  PIDirect3DRMFaceArray = ^IDirect3DRMFaceArray;
+  TD3DRMObjectCallback = procedure (lpD3DRMobj: IDirect3DRMObject;
+      lpArg: Pointer); cdecl;
+  TD3DRMFrameMoveCallback = procedure (lpD3DRMFrame: IDirect3DRMFrame;
+      lpArg: Pointer; delta: TD3DValue); cdecl;
+  TD3DRMFrame3MoveCallback = procedure (lpD3DRMFrame: IDirect3DRMFrame3;
+      lpArg: Pointer; delta: TD3DValue); cdecl;
+  TD3DRMUpdateCallback = procedure (lpobj: IDirect3DRMDevice; lpArg: Pointer;
+      iRectCount: Integer; const d3dRectUpdate: TD3DRect); cdecl;
+  TD3DRMDevice3UpdateCallback = procedure (lpobj: IDirect3DRMDevice3;
+      lpArg: Pointer; iRectCount: Integer; const d3dRectUpdate: TD3DRect);cdecl;
-  TD3DRMUserVisualCallback = function(lpD3DRMUV: IDirect3DRMUserVisual;
+  TD3DRMUserVisualCallback = function (lpD3DRMUV: IDirect3DRMUserVisual;
       lpArg: Pointer; lpD3DRMUVreason: TD3DRMUserVisualReason;
       lpD3DRMDev: IDirect3DRMDevice;
-      lpD3DRMview: IDirect3DRMViewport): Longint; cdecl;
+      lpD3DRMview: IDirect3DRMViewport) : Integer; cdecl;
-  D3DRMUSERVISUALCALLBACK = TD3DRMUserVisualCallback;
-  TD3DRMLoadTextureCallback = function(tex_name: PChar; arg: Pointer;
+  TD3DRMLoadTextureCallback = function (tex_name: PAnsiChar; lpArg: Pointer;
-    out lpD3DRMTex: IDirect3DRMTexture): HResult; cdecl;
+      out lpD3DRMTex: IDirect3DRMTexture) : HResult; cdecl;
-  D3DRMLOADTEXTURECALLBACK = TD3DRMLoadTextureCallback;
-  TD3DRMLoadTexture3Callback = function(tex_name: PChar; arg: Pointer;
+  TD3DRMLoadTexture3Callback = function (tex_name: PAnsiChar; lpArg: Pointer;
-    out lpD3DRMTex: IDirect3DRMTexture3): HResult; cdecl;
+      out lpD3DRMTex: IDirect3DRMTexture3) : HResult; cdecl;
-  D3DRMLOADTEXTURE3CALLBACK = TD3DRMLoadTexture3Callback;
-  TD3DRMLoadCallback = procedure(lpObject: IDirect3DRMObject; const ObjectGuid: TGUID;
+  TD3DRMLoadCallback = procedure (lpObject: IDirect3DRMObject;
-     lpArg: Pointer); cdecl;
+      const ObjectGuid: TGUID; lpArg: Pointer); cdecl;
-  D3DRMLOADCALLBACK = TD3DRMLoadCallback;
-  TD3DRMDownSampleCallback = function(lpDirect3DRMTexture: IDirect3DRMTexture3;
+  TD3DRMDownSampleCallback = function (lpDirect3DRMTexture: IDirect3DRMTexture3;
-    pArg: Pointer; pDDSSrc, pDDSDst: IDirectDrawSurface): HResult; cdecl;
+      pArg: pointer; pDDSSrc, pDDSDst: IDirectDrawSurface) : HResult; cdecl;
-  D3DRMDOWNSAMPLECALLBACK = TD3DRMDownSampleCallback;
-  TD3DRMValidationCallback = function(lpDirect3DRMTexture: IDirect3DRMTexture3;
+  TD3DRMValidationCallback = function (lpDirect3DRMTexture: IDirect3DRMTexture3;
-    pArg: Pointer; dwFlags: DWORD; dwcRects: DWORD; pRects: PRect): HResult; cdecl;
+      pArg: pointer; dwFlags, DWcRects: DWORD; const pRects: TRect) : HResult; cdecl;
-  D3DRMVALIDATIONCALLBACK = TD3DRMValidationCallback;
-{ TD3DRMPickDesc }
   PD3DRMPickDesc = ^TD3DRMPickDesc;
-  TD3DRMPickDesc = record
+  TD3DRMPickDesc = packed record
-    ulFaceIdx: Longint;
+    ulFaceIdx: DWORD;
-    lGroupIdx: Longint;
+    lGroupIdx: LongInt;
     vPosition: TD3DVector;
   end;
-  D3DRMPICKDESC = TD3DRMPickDesc;
-  LPD3DRMPICKDESC = PD3DRMPickDesc;
-{ TD3DRMPickDesc2 }
   PD3DRMPickDesc2 = ^TD3DRMPickDesc2;
-  TD3DRMPickDesc2 = record
+  TD3DRMPickDesc2 = packed record
-    ulFaceIdx: Longint;
+    ulFaceIdx: DWORD;
-    lGroupIdx: Longint;
+    lGroupIdx: LongInt;
     dvPosition: TD3DVector;
     tu, tv: TD3DValue;
     dvNormal: TD3DVector;
     dcColor: TD3DColor;
   end;
+(*
+ * Base class
+ *)
-  D3DRMPICKDESC2 = TD3DRMPickDesc2;
+{$IFDEF D2COM}
-  LPD3DRMPICKDESC2 = PD3DRMPickDesc2;
+  IDirect3DRMObject = class (IUnknown)
+{$ELSE}
-  IDirect3DRMObject = interface(IUnknown)
+  IDirect3DRMObject = interface (IUnknown)
-    ['{EB16CB00-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb00-d271-11ce-ac48-0000c03825a1}']
+{$ENDIF}
+    (*
-    // IDirect3DRMObject methods
+     * The methods for IDirect3DRMObject
+     *)
-    function Clone(pUnkOuter: IUnknown; const riid: TGUID; out ppvObj): HResult; stdcall;
+    function Clone (pUnkOuter: IUnknown; riid: TGUID;
+        var ppvObj: Pointer) : HResult; stdcall;
-    function AddDestroyCallback(lpCallback: TD3DRMObjectCallback;
+    function AddDestroyCallback (lpCallback: TD3DRMObjectCallback;
-        lpArg: Pointer): HResult; stdcall;
+        lpArg: Pointer) : HResult; stdcall;
-    function DeleteDestroyCallback(d3drmObjProc: TD3DRMObjectCallback;
+    function DeleteDestroyCallback (d3drmObjProc: TD3DRMObjectCallback;
-        lpArg: Pointer): HResult; stdcall;
+        lpArg: Pointer) : HResult; stdcall;
-    function SetAppData(ulData: DWORD): HResult; stdcall;
+    function SetAppData (ulData: DWORD) : HResult; stdcall;
     function GetAppData: DWORD; stdcall;
-    function SetName(lpName: PChar): HResult; stdcall;
+    function SetName (lpName: PAnsiChar) : HResult; stdcall;
-    function GetName(var lpdwSize: DWORD; lpName: PChar): HResult; stdcall;
+    function GetName (var lpdwSize: DWORD; lpName: PAnsiChar) : HResult; stdcall;
-    function GetClassName(var lpdwSize: DWORD; lpName: PChar): HResult; stdcall;
+    function GetClassName (var lpdwSize: DWORD; lpName: PAnsiChar) : HResult; stdcall;
-  end;
-  IDirect3DRMObject2 = interface(IUnknown)
-    ['{EB16CB00-D271-11CE-AC48-0000C03825A1}']
-    // IDirect3DRMObject2 methods
-    function AddDestroyCallback(lpCallback: TD3DRMObjectCallback; lpArg: Pointer): HResult; stdcall;
-    function Clone(pUnkOuter: IUnknown; const riid: TGUID;
-        out ppvObj): HResult; stdcall;
-    function DeleteDestroyCallback(d3drmObjProc: TD3DRMObjectCallback;
-        lpArg: Pointer): HResult; stdcall;
-    function GetClientData(dwID: DWORD; var lplpvData: Pointer): HResult; stdcall;
-    function GetDirect3DRM(out lplpDirect3DRM: IDirect3DRM): HResult; stdcall;
-    function GetName(var lpdwSize: DWORD; lpName: LPSTR): HResult; stdcall;
-    function SetClientData(dwID: DWORD; lplpvData: Pointer; dwFlags: DWORD): HResult; stdcall;
-    function SetName(lpName: PChar): HResult; stdcall;
-    function GetAge(dwFlags: DWORD; var pdwAge: DWORD): HResult; stdcall;
   end;
-  IDirect3DRMVisual = interface(IDirect3DRMObject)
+  IDirect3DRMVisual = interface (IDirect3DRMObject)
-    ['{EB16CB04-D271-11CE-AC48-0000C03825A1}']
   end;
-  IDirect3DRMDevice = interface(IDirect3DRMObject)
+  IDirect3DRMDevice = interface (IDirect3DRMObject)
-    ['{E9E19280-6E05-11CF-AC4A-0000C03825A1}']
+    ['{e9e19280-6e05-11cf-ac4a-0000c03825a1}']
+    (*
-    // IDirect3DRMDevice methods
+     * IDirect3DRMDevice methods
+     *)
-    function Init(width, height: DWORD): HResult; stdcall;
+    function Init (width: LongInt; height: LongInt) : HResult; stdcall;
-    function InitFromD3D(lpD3D: IDirect3D; lpD3DIMDev: IDirect3DDevice): HResult; stdcall;
+    function InitFromD3D (lpD3D: IDirect3D; lpD3DIMDev: IDirect3DDevice) : HResult; stdcall;
-    function InitFromClipper(lpDDClipper: IDirectDrawClipper;
+    function InitFromClipper (lpDDClipper: IDirectDrawClipper; lpGUID: PGUID;
-        const lpGUID: TGUID; width, height: DWORD): HResult; stdcall;
+        width: Integer; height: Integer) : HResult; stdcall;
     function Update: HResult; stdcall;
-    function AddUpdateCallback(d3drmUpdateProc: TD3DRMUpdateCallback;
+    function AddUpdateCallback (d3drmUpdateProc: TD3DRMUpdateCallback;
-        arg: Pointer): HResult; stdcall;
+        arg: Pointer) : HResult; stdcall;
-    function DeleteUpdateCallback(d3drmUpdateProc: TD3DRMUpdateCallback;
+    function DeleteUpdateCallback (d3drmUpdateProc: TD3DRMUpdateCallback;
-        arg: Pointer): HResult; stdcall;
+        arg: Pointer) : HResult; stdcall;
-    function SetBufferCount(dwCount: DWORD): HResult; stdcall;
+    function SetBufferCount (dwCount: DWORD) : HResult; stdcall;
     function GetBufferCount: DWORD; stdcall;
-    function SetDither(bDither: BOOL): HResult; stdcall;
+    function SetDither (bDither: BOOL) : HResult; stdcall;
-    function SetShades(ulShades: DWORD): HResult; stdcall;
+    function SetShades (ulShades: DWORD) : HResult; stdcall;
-    function SetQuality(rqQuality: TD3DRMRenderQuality): HResult; stdcall;
+    function SetQuality (rqQuality: TD3DRMRenderQuality) : HResult; stdcall;
-    function SetTextureQuality(tqTextureQuality: TD3DRMTextureQuality): HResult; stdcall;
+    function SetTextureQuality (tqTextureQuality: TD3DRMTextureQuality) : HResult; stdcall;
-    function GetViewports(out lplpViewports: IDirect3DRMViewportArray): HResult; stdcall;
+    function GetViewports (out lplpViewports: IDirect3DRMViewportArray) : HResult; stdcall;
     function GetDither: BOOL; stdcall;
     function GetShades: DWORD; stdcall;
     function GetHeight: DWORD; stdcall;
     function GetWidth: DWORD; stdcall;
     function GetTrianglesDrawn: DWORD; stdcall;
     function GetWireframeOptions: DWORD; stdcall;
     function GetQuality: TD3DRMRenderQuality; stdcall;
     function GetColorModel: TD3DColorModel; stdcall;
     function GetTextureQuality: TD3DRMTextureQuality; stdcall;
-    function GetDirect3DDevice(out lplpD3DDevice: IDirect3DDevice): HResult; stdcall;
+    function GetDirect3DDevice (out lplpD3DDevice: IDirect3DDevice) : HResult; stdcall;
   end;
-  IDirect3DRMDevice2 = interface(IDirect3DRMDevice)
+  IDirect3DRMDevice2 = interface (IDirect3DRMDevice)
-    ['{4516EC78-8F20-11D0-9B6D-0000C0781BC3}']
+    ['{4516ec78-8f20-11d0-9b6d-0000c0781bc3}']
+    (*
-    // IDirect3DRMDevice2 methods
+     * IDirect3DRMDevice2 methods
+     *)
-    function InitFromD3D2(lpD3D: IDirect3D2; lpD3DIMDev: IDirect3DDevice2): HResult; stdcall;
+    function InitFromD3D2(lpD3D: IDirect3D2; lpD3DIMDev: IDirect3DDevice2) : HResult; stdcall;
-    function InitFromSurface(const lpGUID: TGUID; lpDD: IDirectDraw;
+    function InitFromSurface(const lpGUID: TGUID; lpDD: IDirectDraw; lpDDSBack: IDirectDrawSurface) : HResult; stdcall;
-        lpDDSBack: IDirectDrawSurface): HResult; stdcall;
-    function SetRenderMode(dwFlags: DWORD): HResult; stdcall;
+    function SetRenderMode(dwFlags: DWORD ) : HResult; stdcall;
-    function GetRenderMode: DWORD; stdcall;
+    function GetRenderMode : DWORD; stdcall;
-    function GetDirect3DDevice2(out lplpD3DDevice: IDirect3DDevice2): HResult; stdcall;
+    function GetDirect3DDevice2(out lplpD3DDevice: IDirect3DDevice2) : HResult; stdcall;
   end;
-  IDirect3DRMDevice3 = interface(IDirect3DRMDevice2)
+  IDirect3DRMDevice3 = interface (IDirect3DRMObject)
-    ['{549F498B-BFEB-11D1-8ED8-00A0C967A482}']
+    ['{549f498b-bfeb-11d1-8ed8-00a0c967a482}']
+    (*
-    // IDirect3DRMDevice3 methods
+     * IDirect3DRMDevice methods
+     *)
+    function Init (width: LongInt; height: LongInt) : HResult; stdcall;
+    function InitFromD3D (lpD3D: IDirect3D2; lpD3DIMDev: IDirect3DDevice2) : HResult; stdcall;
+    function InitFromClipper (lpDDClipper: IDirectDrawClipper; lpGUID: PGUID;
+        width: Integer; height: Integer) : HResult; stdcall;
+    function Update: HResult; stdcall;
-    function FindPreferredTextureFormat(dwBitDepths: DWORD; dwFlags: DWORD;
+    function AddUpdateCallback (d3drmUpdateProc: TD3DRMDevice3UpdateCallback;
-        var lpDDPF: TDDPixelFormat): HResult; stdcall;
+        arg: Pointer) : HResult; stdcall;
-    function RenderStateChange(drsType: TD3DRenderStateType; dwVal: DWORD;
+    function DeleteUpdateCallback (d3drmUpdateProc: TD3DRMDevice3UpdateCallback;
-        dwFlags: DWORD): HResult; stdcall;
+        arg: Pointer) : HResult; stdcall;
+    function SetBufferCount (dwCount: DWORD) : HResult; stdcall;
+    function GetBufferCount: DWORD; stdcall;
+    function SetDither (bDither: BOOL) : HResult; stdcall;
+    function SetShades (ulShades: DWORD) : HResult; stdcall;
+    function SetQuality (rqQuality: TD3DRMRenderQuality) : HResult; stdcall;
+    function SetTextureQuality (tqTextureQuality: TD3DRMTextureQuality) : HResult; stdcall;
+    function GetViewports (out lplpViewports: IDirect3DRMViewportArray) : HResult; stdcall;
+    function GetDither: BOOL; stdcall;
+    function GetShades: DWORD; stdcall;
+    function GetHeight: DWORD; stdcall;
+    function GetWidth: DWORD; stdcall;
+    function GetTrianglesDrawn: DWORD; stdcall;
+    function GetWireframeOptions: DWORD; stdcall;
+    function GetQuality: TD3DRMRenderQuality; stdcall;
+    function GetColorModel: TD3DColorModel; stdcall;
+    function GetTextureQuality: TD3DRMTextureQuality; stdcall;
+    function GetDirect3DDevice (out lplpD3DDevice: IDirect3DDevice) : HResult; stdcall;
+    (*
+     * IDirect3DRMDevice2 methods
+     *)
+    function InitFromD3D2(lpD3D: IDirect3D2; lpD3DIMDev: IDirect3DDevice2) : HResult; stdcall;
+    function InitFromSurface(const lpGUID: TGUID; lpDD: IDirectDraw;
+            lpDDSBack: IDirectDrawSurface) : HResult; stdcall;
+    function SetRenderMode(dwFlags: DWORD ) : HResult; stdcall;
+    function GetRenderMode : DWORD; stdcall;
+    function GetDirect3DDevice2(out lplpD3DDevice: IDirect3DDevice2) : HResult; stdcall;
+    (*
+     * IDirect3DRMDevice3 methods
+     *)
+    function FindPreferredTextureFormat (dwBitDepths, dwFlags: DWORD;
+        out lpDDPF: TDDPixelFormat) : HResult; stdcall;
+    function RenderStateChange (dwStateNum, dwVal, dwFlags: DWORD) : HResult; stdcall;
-    function LightStateChange(drsType: TD3DLightStateType; dwVal: DWORD;
+    function LightStateChange (drsType: TD3DLightStateType; // defined different in header and help
-        dwFlags: DWORD): HResult; stdcall;
+        dwVal, dwFlags: DWORD) : HResult; stdcall;
-    function GetStateChangeOptions(dwStateClass: DWORD; dwStateNum: DWORD;
+    function GetStateChangeOptions (dwStateClass, dwStateNum: DWORD;
-        var pdwFlags: DWORD): HResult; stdcall;
+        var pdwFlags: DWORD) : HResult; stdcall;
-    function SetStateChangeOptions(dwStateClass: DWORD; dwStateNum: DWORD;
+    function SetStateChangeOptions ( dwStateClass, dwStateNum, dwFlags: DWORD) : HResult; stdcall;
-        dwFlags: DWORD): HResult; stdcall;
   end;
-  IDirect3DRMViewport = interface(IDirect3DRMObject)
+  IDirect3DRMViewport = interface (IDirect3DRMObject)
-    ['{EB16CB02-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb02-d271-11ce-ac48-0000c03825a1}']
+    (*
-    // IDirect3DRMViewport methods
+     * IDirect3DRMViewport methods
+     *)
-    function Init(lpD3DRMDevice: IDirect3DRMDevice;
+    function Init (lpD3DRMDevice: IDirect3DRMDevice;
-        lpD3DRMFrameCamera: IDirect3DRMFrame; xpos, ypos, width, height: DWORD): HResult; stdcall;
+        lpD3DRMFrameCamera: IDirect3DRMFrame; xpos, ypos,
+        width, height: DWORD) : HResult; stdcall;
     function Clear: HResult; stdcall;
-    function Render(lpD3DRMFrame: IDirect3DRMFrame): HResult; stdcall;
+    function Render (lpD3DRMFrame: IDirect3DRMFrame) : HResult; stdcall;
-    function SetFront(rvFront: TD3DValue): HResult; stdcall;
+    function SetFront (rvFront: TD3DValue) : HResult; stdcall;
-    function SetBack(rvBack: TD3DValue): HResult; stdcall;
+    function SetBack (rvBack: TD3DValue) : HResult; stdcall;
-    function SetField(rvField: TD3DValue): HResult; stdcall;
+    function SetField (rvField: TD3DValue) : HResult; stdcall;
-    function SetUniformScaling(bScale: BOOL): HResult; stdcall;
+    function SetUniformScaling (bScale: BOOL) : HResult; stdcall;
-    function SetCamera(lpCamera: IDirect3DRMFrame): HResult; stdcall;
+    function SetCamera (lpCamera: IDirect3DRMFrame) : HResult; stdcall;
-    function SetProjection(rptType: TD3DRMProjectionType): HResult; stdcall;
+    function SetProjection (rptType: TD3DRMProjectionType) : HResult; stdcall;
-    function Transform(var lprvDst: TD3DRMVector4D; const lprvSrc: TD3DVector): HResult; stdcall;
+    function Transform (out lprvDst: TD3DRMVector4D; const lprvSrc: TD3DVector) : HResult; stdcall;
-    function InverseTransform(var lprvDst: TD3DVector;
+    function InverseTransform (out lprvDst: TD3DVector;
-        var lprvSrc: TD3DRMVector4D): HResult; stdcall;
+        const lprvSrc: TD3DRMVector4D) : HResult; stdcall;
-    function Configure(lX, lY: Longint; dwWidth, dwHeight: DWORD): HResult; stdcall;
+    function Configure (lX, lY: LongInt; dwWidth, dwHeight: DWORD) : HResult; stdcall;
-    function ForceUpdate(dwX1, dwY1, dwX2, dwY2: DWORD): HResult; stdcall;
+    function ForceUpdate (dwX1, dwY1, dwX2, dwY2: DWORD) : HResult; stdcall;
-    function SetPlane(rvLeft, rvRight, rvBottom, rvTop: TD3DValue): HResult; stdcall;
+    function SetPlane (rvLeft, rvRight, rvBottom, rvTop: TD3DValue) : HResult; stdcall;
-    function GetCamera(out lpCamera: IDirect3DRMFrame): HResult; stdcall;
+    function GetCamera (out lpCamera: IDirect3DRMFrame) : HResult; stdcall;
-    function GetDevice(out lpD3DRMDevice: IDirect3DRMDevice): HResult;  stdcall;
+    function GetDevice (out lpD3DRMDevice: IDirect3DRMDevice) : HResult; stdcall;
-    function GetPlane(var lpd3dvLeft, lpd3dvRight, lpd3dvBottom,
+    function GetPlane (out lpd3dvLeft, lpd3dvRight, lpd3dvBottom, lpd3dvTop:
-        lpd3dvTop: TD3DValue): HResult; stdcall;
+        TD3DValue) : HResult; stdcall;
-    function Pick(lX, lY: Longint; out lplpVisuals: IDirect3DRMPickedArray): HResult; stdcall;
+    function Pick (lX, lY: LongInt; var lplpVisuals: IDirect3DRMPickedArray) : HResult; stdcall;
-    function GetUniformScaling: BOOL; stdcall;
+    function GetUniformScaling: BOOL;  stdcall;
-    function GetX: Longint; stdcall;
+    function GetX: LongInt; stdcall;
-    function GetY: Longint; stdcall;
+    function GetY: LongInt; stdcall;
     function GetWidth: DWORD; stdcall;
     function GetHeight: DWORD; stdcall;
     function GetField: TD3DValue; stdcall;
     function GetBack: TD3DValue; stdcall;
     function GetFront: TD3DValue; stdcall;
     function GetProjection: TD3DRMProjectionType; stdcall;
-    function GetDirect3DViewport(out lplpD3DViewport: IDirect3DViewport): HResult; stdcall;
+    function GetDirect3DViewport (out lplpD3DViewport: IDirect3DViewport) : HResult; stdcall;
   end;
-  IDirect3DRMViewport2 = interface(IDirect3DRMObject)
+  IDirect3DRMViewport2 = interface (IDirect3DRMObject)
-    ['{4A1B1BE6-BFED-11D1-8ED8-00A0C967A482}']
+    ['{4a1b1be6-bfed-11d1-8ed8-00a0c967a482}']
+    (*
-    // IDirect3DRMViewport2 methods
+     * IDirect3DRMViewport2 methods
+     *)
-    function Init(dec: IDirect3DRMDevice3; camera: IDirect3DRMFrame3;
+    function Init (lpD3DRMDevice: IDirect3DRMDevice3;
+        lpD3DRMFrameCamera: IDirect3DRMFrame3; xpos, ypos,
-        xpos, ypos: DWORD; width, height: DWORD): HResult; stdcall;
+        width, height: DWORD) : HResult; stdcall;
-    function Clear(dwFlags: DWORD): HResult; stdcall;
+    function Clear (dwFlags: DWORD): HResult; stdcall;
-    function Render(lpD3DRMFrame: IDirect3DRMFrame3): HResult; stdcall;
+    function Render (lpD3DRMFrame: IDirect3DRMFrame3) : HResult; stdcall;
-    function SetFront(rvFront: TD3DValue): HResult; stdcall;
+    function SetFront (rvFront: TD3DValue) : HResult; stdcall;
-    function SetBack(rvBack: TD3DValue): HResult; stdcall;
+    function SetBack (rvBack: TD3DValue) : HResult; stdcall;
-    function SetField(rvField: TD3DValue): HResult; stdcall;
+    function SetField (rvField: TD3DValue) : HResult; stdcall;
-    function SetUniformScaling(bScale: BOOL): HResult; stdcall;
+    function SetUniformScaling (bScale: BOOL) : HResult; stdcall;
-    function SetCamera(lpCamera: IDirect3DRMFrame3): HResult; stdcall;
+    function SetCamera (lpCamera: IDirect3DRMFrame3) : HResult; stdcall;
-    function SetProjection(rptType: TD3DRMProjectionType): HResult; stdcall;
+    function SetProjection (rptType: TD3DRMProjectionType) : HResult; stdcall;
-    function Transform(var lprvDst: TD3DRMVector4D; const lprvSrc: TD3DVector): HResult; stdcall;
+    function Transform (out lprvDst: TD3DRMVector4D; const lprvSrc: TD3DVector) : HResult; stdcall;
-    function InverseTransform(var lprvDst: TD3DVector;
+    function InverseTransform (out lprvDst: TD3DVector;
-        const lprvSrc: TD3DRMVector4D): HResult; stdcall;
+        const lprvSrc: TD3DRMVector4D) : HResult; stdcall;
-    function Configure(lX, lY: Longint; dwWidth, dwHeight: DWORD): HResult; stdcall;
+    function Configure (lX, lY: LongInt; dwWidth, dwHeight: DWORD) : HResult; stdcall;
-    function ForceUpdate(dwX1, dwY1, dwX2, dwY2: DWORD): HResult; stdcall;
+    function ForceUpdate (dwX1, dwY1, dwX2, dwY2: DWORD) : HResult; stdcall;
-    function SetPlane(rvLeft, rvRight, rvBottom, rvTop: TD3DValue): HResult; stdcall;
+    function SetPlane (rvLeft, rvRight, rvBottom, rvTop: TD3DValue) : HResult; stdcall;
-    function GetCamera(out lpCamera: IDirect3DRMFrame3): HResult; stdcall;
+    function GetCamera (out lpCamera: IDirect3DRMFrame3) : HResult; stdcall;
-    function GetDevice(out lpD3DRMDevice: IDirect3DRMDevice3): HResult;  stdcall;
+    function GetDevice (out lpD3DRMDevice: IDirect3DRMDevice3) : HResult; stdcall;
-    function GetPlane(var lpd3dvLeft, lpd3dvRight, lpd3dvBottom,
+    function GetPlane (out lpd3dvLeft, lpd3dvRight, lpd3dvBottom, lpd3dvTop:
-        lpd3dvTop: TD3DValue): HResult; stdcall;
+        TD3DValue) : HResult; stdcall;
-    function Pick(lX, lY: Longint; out lplpVisuals: IDirect3DRMPickedArray): HResult; stdcall;
+    function Pick (lX, lY: LongInt; var lplpVisuals: IDirect3DRMPickedArray) : HResult; stdcall;
     function GetUniformScaling: BOOL; stdcall;
-    function GetX: Longint; stdcall;
+    function GetX: LongInt; stdcall;
-    function GetY: Longint; stdcall;
+    function GetY: LongInt; stdcall;
     function GetWidth: DWORD; stdcall;
     function GetHeight: DWORD; stdcall;
     function GetField: TD3DValue; stdcall;
     function GetBack: TD3DValue; stdcall;
     function GetFront: TD3DValue; stdcall;
     function GetProjection: TD3DRMProjectionType; stdcall;
-    function GetDirect3DViewport(out lplpD3DViewport: IDirect3DViewport): HResult; stdcall;
+    function GetDirect3DViewport (var lplpD3DViewport: IDirect3DViewport) : HResult; stdcall;
-    function TransformVectors(dwNumVectors: DWORD; var lpDstVectors: TD3DRMVector4D;
+    function TransformVectors (dwNumVectors: DWORD; out lpDstVectors:
-        const lpSrcVectors: TD3DVector): HResult; stdcall;
+        TD3DRMVector4D; const lpSrcVectors: TD3DVector) : HResult; stdcall;
-    function InverseTransformVectors(dwNumVectors: DWORD; var lpDstVectors: TD3DVector;
+    function InverseTransformVectors (dwNumVectors: DWORD; out lpDstVectors:
-        const lpSrcVectors: TD3DRMVector4D): HResult; stdcall;
+        TD3DRMVector4D; const lpSrcVectors: TD3DVector) : HResult; stdcall;
   end;
-  IDirect3DRMFrame = interface(IDirect3DRMVisual)
+  IDirect3DRMFrame = interface (IDirect3DRMVisual)
-    ['{EB16CB03-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb03-d271-11ce-ac48-0000c03825a1}']
+    (*
-    // IDirect3DRMFrame methods
+     * IDirect3DRMFrame methods
+     *)
-    function AddChild(lpD3DRMFrameChild: IDirect3DRMFrame): HResult; stdcall;
+    function AddChild (lpD3DRMFrameChild: IDirect3DRMFrame) : HResult; stdcall;
-    function AddLight(lpD3DRMLight: IDirect3DRMLight): HResult; stdcall;
+    function AddLight (lpD3DRMLight: IDirect3DRMLight) : HResult; stdcall;
-    function AddMoveCallback(d3drmFMC: TD3DRMFrameMoveCallback;
+    function AddMoveCallback (d3drmFMC: TD3DRMFrameMoveCallback;
-        lpArg: Pointer): HResult; stdcall;
+        lpArg: Pointer) : HResult; stdcall;
-    function AddTransform(rctCombine: TD3DRMCombineType;
+    function AddTransform (rctCombine: TD3DRMCombineType;
-        rmMatrix: TD3DRMMatrix4D): HResult; stdcall;
+        rmMatrix: TD3DRMMatrix4D) : HResult; stdcall;
-    function AddTranslation(rctCombine: TD3DRMCombineType; rvX, rvY,
+    function AddTranslation (rctCombine: TD3DRMCombineType; rvX, rvY, rvZ:
-        rvZ: TD3DValue): HResult; stdcall;
+        TD3DValue) : HResult; stdcall;
-    function AddScale(rctCombine: TD3DRMCombineType; rvX, rvY,
+    function AddScale (rctCombine: TD3DRMCombineType; rvX, rvY, rvZ: TD3DValue) : HResult; stdcall;
-        rvZ: TD3DValue): HResult; stdcall;
-    function AddRotation(rctCombine: TD3DRMCombineType; rvX, rvY, rvZ,
+    function AddRotation (rctCombine: TD3DRMCombineType; rvX, rvY, rvZ,
-        rvTheta: TD3DValue): HResult; stdcall;
+        rvTheta: TD3DValue) : HResult; stdcall;
-    function AddVisual(lpD3DRMVisual: IDirect3DRMVisual): HResult; stdcall;
+    function AddVisual (lpD3DRMVisual: IDirect3DRMVisual) : HResult; stdcall;
-    function GetChildren(out lplpChildren: IDirect3DRMFrameArray): HResult; stdcall;
+    function GetChildren (out lplpChildren: IDirect3DRMFrameArray) : HResult; stdcall;
     function GetColor: TD3DColor; stdcall;
-    function GetLights(out lplpLights: IDirect3DRMLightArray): HResult; stdcall;
+    function GetLights (out lplpLights: IDirect3DRMLightArray) : HResult; stdcall;
     function GetMaterialMode: TD3DRMMaterialMode; stdcall;
-    function GetParent(out lplpParent: IDirect3DRMFrame): HResult; stdcall;
+    function GetParent (out lplpParent: IDirect3DRMFrame) : HResult; stdcall;
-    function GetPosition(lpRef: IDirect3DRMFrame; var lprvPos: TD3DVector): HResult; stdcall;
+    function GetPosition (lpRef: IDirect3DRMFrame; out lprvPos: TD3DVector) : HResult; stdcall;
-    function GetRotation(lpRef: IDirect3DRMFrame; var lprvAxis: TD3DVector;
+    function GetRotation (lpRef: IDirect3DRMFrame; out lprvAxis: TD3DVector;
-        var lprvTheta: TD3DValue): HResult; stdcall;
+        out lprvTheta: TD3DValue) : HResult; stdcall;
-    function GetScene(out lplpRoot: IDirect3DRMFrame): HResult; stdcall;
+    function GetScene (out lplpRoot: IDirect3DRMFrame) : HResult; stdcall;
     function GetSortMode: TD3DRMSortMode; stdcall;
-    function GetTexture(out lplpTexture: IDirect3DRMTexture): HResult; stdcall;
+    function GetTexture (out lplpTexture: IDirect3DRMTexture) : HResult; stdcall;
-    function GetTransform(var rmMatrix: TD3DRMMatrix4D): HResult; stdcall;
+    function GetTransform (out rmMatrix: TD3DRMMatrix4D) : HResult; stdcall;
-    function GetVelocity(lpRef: IDirect3DRMFrame; var lprvVel: TD3DVector;
+    function GetVelocity (lpRef: IDirect3DRMFrame; var lprvVel: TD3DVector;
-        fRotVel: BOOL): HResult; stdcall;
+        fRotVel: BOOL) : HResult; stdcall;
-    function GetOrientation(lpRef: IDirect3DRMFrame; var lprvDir: TD3DVector;
+    function GetOrientation (lpRef: IDirect3DRMFrame; var lprvDir: TD3DVector;
-        var lprvUp: TD3DVector): HResult; stdcall;
+        var lprvUp: TD3DVector) : HResult; stdcall;
-    function GetVisuals(out lplpVisuals: IDirect3DRMVisualArray): HResult; stdcall;
+    function GetVisuals (out lplpVisuals: IDirect3DRMVisualArray) : HResult; stdcall;
-    function GetTextureTopology(var lpU, lpV: BOOL): HResult; stdcall;
+    function GetTextureTopology (out lpU, lpV: BOOL) : HResult; stdcall;
-    function InverseTransform(var lprvDst, lprvSrc: TD3DVector): HResult; stdcall;
+    function InverseTransform (out lprvDst: TD3DVector; const lprvSrc: TD3DVector) : HResult; stdcall;
-    function Load(lpvObjSource: Pointer; lpvObjID: Pointer;
+    function Load (lpvObjSource: Pointer; lpvObjID: Pointer;
         d3drmLOFlags: TD3DRMLoadOptions; d3drmLoadTextureProc:
-        TD3DRMLoadTextureCallback; lpArgLTP: Pointer): HResult; stdcall;
+        TD3DRMLoadTextureCallback; lpArgLTP: Pointer) : HResult; stdcall;
-    function LookAt(lpTarget, lpRef: IDirect3DRMFrame;
+    function LookAt (lpTarget, lpRef: IDirect3DRMFrame;
-        rfcConstraint: TD3DRMFrameConstraint ): HResult; stdcall;
+        rfcConstraint: TD3DRMFrameConstraint ) : HResult; stdcall;
-    function Move(delta: TD3DValue): HResult; stdcall;
+    function Move (delta: TD3DValue) : HResult; stdcall;
-    function DeleteChild(lpChild: IDirect3DRMFrame): HResult; stdcall;
+    function DeleteChild (lpChild: IDirect3DRMFrame) : HResult; stdcall;
-    function DeleteLight(lpD3DRMLight: IDirect3DRMLight): HResult; stdcall;
+    function DeleteLight (lpD3DRMLight: IDirect3DRMLight) : HResult; stdcall;
-    function DeleteMoveCallback(d3drmFMC: TD3DRMFrameMoveCallback;
+    function DeleteMoveCallback (d3drmFMC: TD3DRMFrameMoveCallback;
-        lpArg: Pointer): HResult; stdcall;
+        lpArg: Pointer) : HResult; stdcall;
-    function DeleteVisual(lpD3DRMVisual: IDirect3DRMVisual): HResult; stdcall;
+    function DeleteVisual (lpD3DRMVisual: IDirect3DRMVisual) : HResult; stdcall;
     function GetSceneBackground: TD3DColor; stdcall;
-    function GetSceneBackgroundDepth(out lplpDDSurface: IDirectDrawSurface): HResult; stdcall;
+    function GetSceneBackgroundDepth (out lplpDDSurface: IDirectDrawSurface) : HResult; stdcall;
     function GetSceneFogColor: TD3DColor; stdcall;
     function GetSceneFogEnable: BOOL; stdcall;
     function GetSceneFogMode: TD3DRMFogMode; stdcall;
-    function GetSceneFogParams(var lprvStart, lprvEnd, lprvDensity: TD3DValue): HResult; stdcall;
+    function GetSceneFogParams (out lprvStart, lprvEnd, lprvDensity: TD3DValue) : HResult; stdcall;
-    function SetSceneBackground(rcColor: TD3DColor): HResult; stdcall;
+    function SetSceneBackground (rcColor: TD3DColor) : HResult; stdcall;
-    function SetSceneBackgroundRGB(rvRed, rvGreen, rvBlue: TD3DValue): HResult; stdcall;
+    function SetSceneBackgroundRGB (rvRed, rvGreen, rvBlue: TD3DValue) : HResult; stdcall;
-    function SetSceneBackgroundDepth(lpImage: IDirectDrawSurface): HResult; stdcall;
+    function SetSceneBackgroundDepth (lpImage: IDirectDrawSurface) : HResult; stdcall;
-    function SetSceneBackgroundImage(lpTexture: IDirect3DRMTexture): HResult; stdcall;
+    function SetSceneBackgroundImage (lpTexture: IDirect3DRMTexture) : HResult; stdcall;
-    function SetSceneFogEnable(bEnable: BOOL): HResult; stdcall;
+    function SetSceneFogEnable (bEnable: BOOL) : HResult; stdcall;
-    function SetSceneFogColor(rcColor: TD3DColor): HResult; stdcall;
+    function SetSceneFogColor (rcColor: TD3DColor) : HResult; stdcall;
-    function SetSceneFogMode(rfMode: TD3DRMFogMode): HResult; stdcall;
+    function SetSceneFogMode (rfMode: TD3DRMFogMode) : HResult; stdcall;
-    function SetSceneFogParams(rvStart, rvEnd, rvDensity: TD3DValue): HResult; stdcall;
+    function SetSceneFogParams (rvStart, rvEnd, rvDensity: TD3DValue) : HResult; stdcall;
-    function SetColor(rcColor: TD3DColor): HResult; stdcall;
+    function SetColor (rcColor: TD3DColor) : HResult; stdcall;
-    function SetColorRGB(rvRed, rvGreen, rvBlue: TD3DValue): HResult; stdcall;
+    function SetColorRGB (rvRed, rvGreen, rvBlue: TD3DValue) : HResult; stdcall;
     function GetZbufferMode: TD3DRMZBufferMode; stdcall;
-    function SetMaterialMode(rmmMode: TD3DRMMaterialMode): HResult; stdcall;
+    function SetMaterialMode (rmmMode: TD3DRMMaterialMode) : HResult; stdcall;
-    function SetOrientation(lpRef: IDirect3DRMFrame; rvDx, rvDy, rvDz, rvUx,
+    function SetOrientation (lpRef: IDirect3DRMFrame; rvDx, rvDy, rvDz, rvUx,
-        rvUy, rvUz: TD3DValue): HResult; stdcall;
+        rvUy, rvUz: TD3DValue) : HResult; stdcall;
-    function SetPosition(lpRef: IDirect3DRMFrame; rvX, rvY, rvZ: TD3DValue): HResult; stdcall;
+    function SetPosition (lpRef: IDirect3DRMFrame; rvX, rvY, rvZ: TD3DValue) : HResult; stdcall;
-    function SetRotation(lpRef: IDirect3DRMFrame; rvX, rvY, rvZ,
+    function SetRotation (lpRef: IDirect3DRMFrame; rvX, rvY, rvZ,
-        rvTheta: TD3DValue): HResult; stdcall;
+        rvTheta: TD3DValue) : HResult; stdcall;
-    function SetSortMode(d3drmSM: TD3DRMSortMode): HResult; stdcall;
+    function SetSortMode (d3drmSM: TD3DRMSortMode) : HResult; stdcall;
-    function SetTexture(lpD3DRMTexture: IDirect3DRMTexture): HResult; stdcall;
+    function SetTexture (lpD3DRMTexture: IDirect3DRMTexture) : HResult; stdcall;
-    function SetTextureTopology(cylU, cylV: BOOL): HResult; stdcall;
+    function SetTextureTopology (cylU, cylV: BOOL) : HResult; stdcall;
-    function SetVelocity(lpRef: IDirect3DRMFrame; rvX, rvY, rvZ: TD3DValue;
+    function SetVelocity (lpRef: IDirect3DRMFrame; rvX, rvY, rvZ: TD3DValue;
-        fRotVel: BOOL): HResult; stdcall;
+        fRotVel: BOOL) : HResult; stdcall;
-    function SetZbufferMode(d3drmZBM: TD3DRMZBufferMode): HResult; stdcall;
+    function SetZbufferMode (d3drmZBM: TD3DRMZBufferMode) : HResult; stdcall;
-    function Transform(var lpd3dVDst, lpd3dVSrc: TD3DVector): HResult; stdcall;
+    function Transform (out lpd3dVDst: TD3DVector; const lpd3dVSrc: TD3DVector) : HResult; stdcall;
   end;
-  IDirect3DRMFrame2 = interface(IDirect3DRMFrame)
+  IDirect3DRMFrame2 = interface (IDirect3DRMFrame)
-    ['{C3DFBD60-3988-11D0-9EC2-0000C0291AC3}']
+    ['{c3dfbd60-3988-11d0-9ec2-0000c0291ac3}']
+    (*
-    // IDirect3DRMFrame2 methods
+     * IDirect3DRMFrame2 methods
+     *)
-    function AddMoveCallback2(d3drmFMC: TD3DRMFrameMoveCallback; lpArg:
+    function AddMoveCallback2 (d3drmFMC: TD3DRMFrameMoveCallback; lpArg:
-        Pointer; dwFlags: DWORD): HResult; stdcall;
+        Pointer; dwFlags: DWORD) : HResult; stdcall;
-    function GetBox(var lpD3DRMBox: TD3DRMBox): HResult; stdcall;
+    function GetBox (out lpTD3DRMBox: TD3DRMBox) : HResult; stdcall;
-    function GetBoxEnable: BOOL; stdcall;
+    function GetBoxEnable : boolean; stdcall;
-    function GetAxes(var dir, up: TD3DVector): HResult; stdcall;
+    function GetAxes (out dir, up: TD3DVector) : HResult; stdcall;
-    function GetMaterial(out lplpMaterial: IDirect3DRMMaterial): HResult; stdcall;
+    function GetMaterial (out lplpMaterial: IDirect3DRMMaterial) : HResult; stdcall;
-    function GetInheritAxes: BOOL; stdcall;
+    function GetInheritAxes : boolean; stdcall;
-    function GetHierarchyBox(var lpD3DRMBox: TD3DRMBox): HResult; stdcall;
+    function GetHierarchyBox (out lpTD3DRMBox: TD3DRMBox) : HResult; stdcall;
-    function SetBox(const lpD3DRMBox: TD3DRMBox): HResult; stdcall;
+    function SetBox (const lpTD3DRMBox: TD3DRMBox) : HResult; stdcall;
-    function SetBoxEnable(bEnableFlag: BOOL): HResult; stdcall;
+    function SetBoxEnable (bEnableFlag: BOOL) : HResult; stdcall;
-    function SetAxes(dx, dy, dz, ux, uy, uz: TD3DValue): HResult; stdcall;
+    function SetAxes (dx, dy, dz, ux, uy, uz: TD3DValue) : HResult; stdcall;
-    function SetInheritAxes(inherit_from_parent: BOOL): HResult; stdcall;
+    function SetInheritAxes (inherit_from_parent: BOOL) : HResult; stdcall;
-    function SetMaterial(lplpMaterial: IDirect3DRMMaterial): HResult; stdcall;
+    function SetMaterial (var lplpMaterial: IDirect3DRMMaterial) : HResult; stdcall;
+    function SetQuaternion (lpRef: IDirect3DRMFrame;
-    function SetQuaternion(lpRef: IDirect3DRMFrame2; var quat: TD3DRMQuaternion): HResult; stdcall;
+        const quat: TD3DRMQuaternion) : HResult; stdcall;
-    function RayPick(lpRefFrame: IDirect3DRMFrame; const ray: TD3DRMRay;
+    function RayPick (lpRefFrame: IDirect3DRMFrame; var ray: TD3DRMRay;
-        dwFlags: DWORD; out lplpPicked2Array: IDirect3DRMPicked2Array): HResult; stdcall;
+        dwFlags: DWORD; out lplpPicked2Array: IDirect3DRMPicked2Array) :
+        HResult; stdcall;
-    function Save(lpFilename: PChar; d3dFormat: TD3DRMXOFFormat;
+    function Save (lpFilename: PAnsiChar; d3dFormat: TD3DRMXOFFormat;
-        d3dSaveFlags: TD3DRMSaveOptions): HResult; stdcall;
+        d3dSaveFlags: TD3DRMSaveOptions) : HResult; stdcall;
   end;
-  IDirect3DRMFrame3 = interface(IDirect3DRMVisual)
+  IDirect3DRMFrame3 = interface (IDirect3DRMVisual)
-    ['{FF6B7F70-A40E-11D1-91F9-0000F8758E66}']
+    ['{ff6b7f70-a40e-11d1-91f9-0000f8758e66}']
+    (*
+     * IDirect3DRMFrame3 methods
+     *)
-    function AddChild(lpD3DRMFrameChild: IDirect3DRMFrame3): HResult; stdcall;
+    function AddChild (lpD3DRMFrameChild: IDirect3DRMFrame3) : HResult; stdcall;
-    function AddLight(lpD3DRMLight: IDirect3DRMLight): HResult; stdcall;
+    function AddLight (lpD3DRMLight: IDirect3DRMLight) : HResult; stdcall;
-    function AddMoveCallback(d3drmFMC: TD3DRMFrame3MoveCallback;
+    function AddMoveCallback (d3drmFMC: TD3DRMFrame3MoveCallback;
-        lpArg: Pointer; dwFlags: DWORD): HResult; stdcall;
+        lpArg: Pointer; dwFlags: DWORD) : HResult; stdcall;
-    function AddTransform(rctCombine: TD3DRMCombineType;
+    function AddTransform (rctCombine: TD3DRMCombineType;
-        rmMatrix: TD3DRMMatrix4D): HResult; stdcall;
+        rmMatrix: TD3DRMMatrix4D) : HResult; stdcall;
-    function AddTranslation(rctCombine: TD3DRMCombineType; rvX, rvY,
+    function AddTranslation (rctCombine: TD3DRMCombineType; rvX, rvY, rvZ:
-        rvZ: TD3DValue): HResult; stdcall;
+        TD3DValue) : HResult; stdcall;
-    function AddScale(rctCombine: TD3DRMCombineType; rvX, rvY,
+    function AddScale (rctCombine: TD3DRMCombineType; rvX, rvY, rvZ: TD3DValue) : HResult; stdcall;
-        rvZ: TD3DValue): HResult; stdcall;
-    function AddRotation(rctCombine: TD3DRMCombineType; rvX, rvY, rvZ,
+    function AddRotation (rctCombine: TD3DRMCombineType; rvX, rvY, rvZ,
-        rvTheta: TD3DValue): HResult; stdcall;
+        rvTheta: TD3DValue) : HResult; stdcall;
-    function AddVisual(lpD3DRMVisual: IDirect3DRMVisual): HResult; stdcall;
+    function AddVisual (lpD3DRMVisual: IDirect3DRMVisual) : HResult; stdcall;
-    function GetChildren(out lplpChildren: IDirect3DRMFrameArray): HResult; stdcall;
+    function GetChildren (out lplpChildren: IDirect3DRMFrameArray) : HResult; stdcall;
     function GetColor: TD3DColor; stdcall;
-    function GetLights(out lplpLights: IDirect3DRMLightArray): HResult; stdcall;
+    function GetLights (out lplpLights: IDirect3DRMLightArray) : HResult; stdcall;
     function GetMaterialMode: TD3DRMMaterialMode; stdcall;
-    function GetParent(out lplpParent: IDirect3DRMFrame3): HResult; stdcall;
+    function GetParent (out lplpParent: IDirect3DRMFrame3) : HResult; stdcall;
-    function GetPosition(lpRef: IDirect3DRMFrame3; var lprvPos: TD3DVector): HResult; stdcall;
+    function GetPosition (lpRef: IDirect3DRMFrame3; out lprvPos: TD3DVector) : HResult; stdcall;
-    function GetRotation(lpRef: IDirect3DRMFrame3; var lprvAxis: TD3DVector;
+    function GetRotation (lpRef: IDirect3DRMFrame3; out lprvAxis: TD3DVector;
-        var lprvTheta: TD3DValue): HResult; stdcall;
+        out lprvTheta: TD3DValue) : HResult; stdcall;
-    function GetScene(out lplpRoot: IDirect3DRMFrame3): HResult; stdcall;
+    function GetScene (out lplpRoot: IDirect3DRMFrame3) : HResult; stdcall;
     function GetSortMode: TD3DRMSortMode; stdcall;
-    function GetTexture(out lplpTexture: IDirect3DRMTexture3): HResult; stdcall;
+    function GetTexture (out lplpTexture: IDirect3DRMTexture3) : HResult; stdcall;
+    function GetTransform (lpRefFrame: IDirect3DRMFrame3;
-    function GetTransform(RefFrame: IDirect3DRMFrame3; var rmMatrix: TD3DRMMatrix4D): HResult; stdcall;
+        var rmMatrix: TD3DRMMatrix4D) : HResult; stdcall;
-    function GetVelocity(lpRef: IDirect3DRMFrame3; var lprvVel: TD3DVector;
+    function GetVelocity (lpRef: IDirect3DRMFrame3; out lprvVel: TD3DVector;
-        fRotVel: BOOL): HResult; stdcall;
+        fRotVel: BOOL) : HResult; stdcall;
-    function GetOrientation(lpRef: IDirect3DRMFrame3; var lprvDir: TD3DVector;
+    function GetOrientation (lpRef: IDirect3DRMFrame3; out lprvDir: TD3DVector;
-        var lprvUp: TD3DVector): HResult; stdcall;
+        out lprvUp: TD3DVector) : HResult; stdcall;
-    function GetVisuals(var pdwNumVisuals: DWORD; var lplpVisuals: Pointer): HResult; stdcall;
+    function GetVisuals (out lplpVisuals: IDirect3DRMVisualArray) : HResult; stdcall;
-    function InverseTransform(var lprvDst, lprvSrc: TD3DVector): HResult; stdcall;
+    function InverseTransform (out lprvDst: TD3DVector; const lprvSrc: TD3DVector) : HResult; stdcall;
-    function Load(lpvObjSource: Pointer; lpvObjID: Pointer;
+    function Load (lpvObjSource: Pointer; lpvObjID: Pointer;
         d3drmLOFlags: TD3DRMLoadOptions; d3drmLoadTextureProc:
-        TD3DRMLoadTexture3Callback; lpArgLTP: Pointer): HResult; stdcall;
+        TD3DRMLoadTexture3Callback; lpArgLTP: Pointer) : HResult; stdcall;
-    function LookAt(lpTarget, lpRef: IDirect3DRMFrame3;
+    function LookAt (lpTarget, lpRef: IDirect3DRMFrame3;
-        rfcConstraint: TD3DRMFrameConstraint): HResult; stdcall;
+        rfcConstraint: TD3DRMFrameConstraint ) : HResult; stdcall;
-    function Move(delta: TD3DValue): HResult; stdcall;
+    function Move (delta: TD3DValue) : HResult; stdcall;
-    function DeleteChild(lpChild: IDirect3DRMFrame3): HResult; stdcall;
+    function DeleteChild (lpChild: IDirect3DRMFrame3) : HResult; stdcall;
-    function DeleteLight(lpD3DRMLight: IDirect3DRMLight): HResult; stdcall;
+    function DeleteLight (lpD3DRMLight: IDirect3DRMLight) : HResult; stdcall;
-    function DeleteMoveCallback(d3drmFMC: TD3DRMFrame3MoveCallback; lpArg: Pointer): HResult; stdcall;
+    function DeleteMoveCallback (d3drmFMC: TD3DRMFrame3MoveCallback; lpArg: Pointer) : HResult; stdcall;
-    function DeleteVisual(lpD3DRMVisual: IDirect3DRMVisual): HResult; stdcall;
+    function DeleteVisual (lpD3DRMVisual: IDirect3DRMVisual) : HResult; stdcall;
     function GetSceneBackground: TD3DColor; stdcall;
-    function GetSceneBackgroundDepth(out lplpDDSurface: IDirectDrawSurface): HResult; stdcall;
+    function GetSceneBackgroundDepth (out lplpDDSurface: IDirectDrawSurface) : HResult; stdcall;
     function GetSceneFogColor: TD3DColor; stdcall;
     function GetSceneFogEnable: BOOL; stdcall;
     function GetSceneFogMode: TD3DRMFogMode; stdcall;
-    function GetSceneFogParams(var lprvStart, lprvEnd, lprvDensity: TD3DValue): HResult; stdcall;
+    function GetSceneFogParams (out lprvStart, lprvEnd, lprvDensity: TD3DValue) : HResult; stdcall;
-    function SetSceneBackground(rcColor: TD3DColor): HResult; stdcall;
+    function SetSceneBackground (rcColor: TD3DColor) : HResult; stdcall;
-    function SetSceneBackgroundRGB(rvRed, rvGreen, rvBlue: TD3DValue): HResult; stdcall;
+    function SetSceneBackgroundRGB (rvRed, rvGreen, rvBlue: TD3DValue) : HResult; stdcall;
-    function SetSceneBackgroundDepth(lpImage: IDirectDrawSurface): HResult; stdcall;
+    function SetSceneBackgroundDepth (lpImage: IDirectDrawSurface) : HResult; stdcall;
-    function SetSceneBackgroundImage(lpTexture: IDirect3DRMTexture3): HResult; stdcall;
+    function SetSceneBackgroundImage (lpTexture: IDirect3DRMTexture3) : HResult; stdcall;
-    function SetSceneFogEnable(bEnable: BOOL): HResult; stdcall;
+    function SetSceneFogEnable (bEnable: BOOL) : HResult; stdcall;
-    function SetSceneFogColor(rcColor: TD3DColor): HResult; stdcall;
+    function SetSceneFogColor (rcColor: TD3DColor) : HResult; stdcall;
-    function SetSceneFogMode(rfMode: TD3DRMFogMode): HResult; stdcall;
+    function SetSceneFogMode (rfMode: TD3DRMFogMode) : HResult; stdcall;
-    function SetSceneFogParams(rvStart, rvEnd, rvDensity: TD3DValue): HResult; stdcall;
+    function SetSceneFogParams (rvStart, rvEnd, rvDensity: TD3DValue) : HResult; stdcall;
-    function SetColor(rcColor: TD3DColor): HResult; stdcall;
+    function SetColor (rcColor: TD3DColor) : HResult; stdcall;
-    function SetColorRGB(rvRed, rvGreen, rvBlue: TD3DValue): HResult; stdcall;
+    function SetColorRGB (rvRed, rvGreen, rvBlue: TD3DValue) : HResult; stdcall;
     function GetZbufferMode: TD3DRMZBufferMode; stdcall;
-    function SetMaterialMode(rmmMode: TD3DRMMaterialMode): HResult; stdcall;
+    function SetMaterialMode (rmmMode: TD3DRMMaterialMode) : HResult; stdcall;
-    function SetOrientation(lpRef: IDirect3DRMFrame3; rvDx, rvDy, rvDz, rvUx,
+    function SetOrientation (lpRef: IDirect3DRMFrame3; rvDx, rvDy, rvDz, rvUx,
-        rvUy, rvUz: TD3DValue): HResult; stdcall;
+        rvUy, rvUz: TD3DValue) : HResult; stdcall;
-    function SetPosition(lpRef: IDirect3DRMFrame3; rvX, rvY, rvZ: TD3DValue): HResult; stdcall;
+    function SetPosition (lpRef: IDirect3DRMFrame3; rvX, rvY, rvZ: TD3DValue) :
+        HResult; stdcall;
-    function SetRotation(lpRef: IDirect3DRMFrame3; rvX, rvY, rvZ, rvTheta: TD3DValue): HResult; stdcall;
+    function SetRotation (lpRef: IDirect3DRMFrame3; rvX, rvY, rvZ,
+        rvTheta: TD3DValue) : HResult; stdcall;
-    function SetSortMode(d3drmSM: TD3DRMSortMode): HResult; stdcall;
+    function SetSortMode (d3drmSM: TD3DRMSortMode) : HResult; stdcall;
-    function SetTexture(lpD3DRMTexture: IDirect3DRMTexture3): HResult; stdcall;
+    function SetTexture (lpD3DRMTexture: IDirect3DRMTexture3) : HResult; stdcall;
-    function SetVelocity(lpRef: IDirect3DRMFrame3; rvX, rvY, rvZ: TD3DValue;
+    function SetVelocity (lpRef: IDirect3DRMFrame3; rvX, rvY, rvZ: TD3DValue;
-        fRotVel: BOOL): HResult; stdcall;
+        fRotVel: BOOL) : HResult; stdcall;
-    function SetZbufferMode(d3drmZBM: TD3DRMZBufferMode): HResult; stdcall;
+    function SetZbufferMode (d3drmZBM: TD3DRMZBufferMode) : HResult; stdcall;
-    function Transform(var lpd3dVDst, lpd3dVSrc: TD3DVector): HResult; stdcall;
+    function Transform (out lpd3dVDst: TD3DVector; const lpd3dVSrc: TD3DVector) : HResult; stdcall;
-    function GetBox(var lpD3DRMBox: TD3DRMBox): HResult; stdcall;
+    function GetBox (out lpTD3DRMBox: TD3DRMBox) : HResult; stdcall;
-    function GetBoxEnable: BOOL; stdcall;
+    function GetBoxEnable : boolean; stdcall;
-    function GetAxes(var dir, up: TD3DVector): HResult; stdcall;
+    function GetAxes (out dir, up: TD3DVector) : HResult; stdcall;
-    function GetMaterial(out lplpMaterial: IDirect3DRMMaterial2): HResult; stdcall;
+    function GetMaterial (out lplpMaterial: IDirect3DRMMaterial2) : HResult; stdcall;
-    function GetInheritAxes: BOOL; stdcall;
+    function GetInheritAxes : boolean; stdcall;
-    function GetHierarchyBox(var lpD3DRMBox: TD3DRMBox): HResult; stdcall;
+    function GetHierarchyBox (out lpTD3DRMBox: TD3DRMBox) : HResult; stdcall;
-    function SetBox(const lpD3DRMBox: TD3DRMBox): HResult; stdcall;
+    function SetBox (const lpTD3DRMBox: TD3DRMBox) : HResult; stdcall;
-    function SetBoxEnable(bEnableFlag: BOOL): HResult; stdcall;
+    function SetBoxEnable (bEnableFlag: BOOL) : HResult; stdcall;
-    function SetAxes(dx, dy, dz, ux, uy, uz: TD3DValue): HResult; stdcall;
+    function SetAxes (dx, dy, dz, ux, uy, uz: TD3DValue) : HResult; stdcall;
-    function SetInheritAxes(inherit_from_parent: BOOL): HResult; stdcall;
+    function SetInheritAxes (inherit_from_parent: BOOL) : HResult; stdcall;
-    function SetMaterial(lplpMaterial: IDirect3DRMMaterial2): HResult; stdcall;
+    function SetMaterial (var lplpMaterial: IDirect3DRMMaterial2) : HResult; stdcall;
+    function SetQuaternion (lpRef: IDirect3DRMFrame3;
-    function SetQuaternion(lpRef: IDirect3DRMFrame3; var quat: TD3DRMQuaternion): HResult; stdcall;
+        const quat: TD3DRMQuaternion) : HResult; stdcall;
-    function RayPick(lpRefFrame: IDirect3DRMFrame3; const ray: TD3DRMRay;
+    function RayPick (lpRefFrame: IDirect3DRMFrame3; var ray: TD3DRMRay;
-        dwFlags: DWORD; out lplpPicked2Array: IDirect3DRMPicked2Array): HResult; stdcall;
+        dwFlags: DWORD; out lplpPicked2Array: IDirect3DRMPicked2Array) : HResult; stdcall;
-    function Save(lpFilename: PChar; d3dFormat: TD3DRMXOFFormat;
+    function Save (lpFilename: PAnsiChar; d3dFormat: TD3DRMXOFFormat;
-        d3dSaveFlags: TD3DRMSaveOptions): HResult; stdcall;
+        d3dSaveFlags: TD3DRMSaveOptions) : HResult; stdcall;
-    function TransformVectors(reference: IDirect3DRMFrame3; dwNumVectors: DWORD;
+    function TransformVectors (lpRefFrame: IDirect3DRMFrame3;
+        dwNumVectors: DWORD; out lpDstVectors: TD3DVector;
-        var lpDstVectors: TD3DVector; const lpSrcVectors: TD3DVector): HResult; stdcall;
+        const lpSrcVectors: TD3DVector) : HResult; stdcall;
-    function InverseTransformVectors(reference: IDirect3DRMFrame3; dwNumVectors: DWORD;
+    function InverseTransformVectors (lpRefFrame: IDirect3DRMFrame3;
+        dwNumVectors: DWORD; out lpDstVectors: TD3DVector;
-        var lpDstVectors: TD3DVector; const lpSrcVectors: TD3DVector): HResult; stdcall;
+        const lpSrcVectors: TD3DVector) : HResult; stdcall;
-    function SetTraversalOptions(dwFlags: DWORD): HResult; stdcall;
+    function SetTraversalOptions (dwFlags: DWORD) : HResult; stdcall;
-    function GetTraversalOptions(var lpdwFlags: DWORD): HResult; stdcall;
+    function GetTraversalOptions (out lpdwFlags: DWORD) : HResult; stdcall;
-    function SetSceneFogMethod(dwFlags: DWORD): HResult; stdcall;
+    function SetSceneFogMethod (dwFlags: DWORD) : HResult; stdcall;
-    function GetSceneFogMethod(var lpdwFlags: DWORD): HResult; stdcall;
+    function GetSceneFogMethod (out lpdwFlags: DWORD) : HResult; stdcall;
+    function SetMaterialOverride (
-    function SetMaterialOverride(lpdmOverride: TD3DRMMaterialOverride): HResult; stdcall;
+        const lpdmOverride: TD3DRMMaterialOverride) : HResult; stdcall;
+    function GetMaterialOverride (
-    function GetMaterialOverride(var lplpdmOverride: TD3DRMMaterialOverride): HResult; stdcall;
+        const lpdmOverride: TD3DRMMaterialOverride) : HResult; stdcall;
   end;
-  IDirect3DRMMesh = interface(IDirect3DRMVisual)
+  IDirect3DRMMesh = interface (IDirect3DRMVisual)
-    ['{A3A80D01-6E12-11CF-AC4A-0000C03825A1}']
+    ['{a3a80d01-6e12-11cf-ac4a-0000c03825a1}']
+    (*
-    // IDirect3DRMMesh methods
+     * IDirect3DRMMesh methods
+     *)
-    function Scale(sx, sy, sz: TD3DValue): HResult; stdcall;
+    function Scale (sx, sy, sz: TD3DValue) : HResult; stdcall;
-    function Translate(tx, ty, tz: TD3DValue): HResult; stdcall;
+    function Translate (tx, ty, tz: TD3DValue) : HResult; stdcall;
-    function GetBox(var lpD3DRMBox: TD3DRMBox): HResult; stdcall;
+    function GetBox (out lpTD3DRMBox: TD3DRMBox) : HResult; stdcall;
-    function AddGroup(vCount, fCount, vPerFace: DWORD; var fData: DWORD;
+    function AddGroup (vCount, fCount, vPerFace: DWORD; var fData: DWORD;
-        var returnId: TD3DRMGroupIndex): HResult; stdcall;
+        var returnId: TD3DRMGroupIndex) : HResult; stdcall;
-    function SetVertices(id: TD3DRMGroupIndex; index, count: DWORD;
+    function SetVertices (id: TD3DRMGroupIndex; index, count: DWORD;
-        var values: TD3DRMVertex): HResult; stdcall;
+        var values: TD3DRMVertex) : HResult; stdcall;
-    function SetGroupColor(id: TD3DRMGroupIndex; value: TD3DColor): HResult; stdcall;
+    function SetGroupColor (id: TD3DRMGroupIndex; value: TD3DColor) : HResult; stdcall;
-    function SetGroupColorRGB(id: TD3DRMGroupIndex; red, green,
+    function SetGroupColorRGB (id: TD3DRMGroupIndex; red, green,
-        blue: TD3DValue): HResult; stdcall;
+        blue: TD3DValue) : HResult; stdcall;
-    function SetGroupMapping(id: TD3DRMGroupIndex;
+    function SetGroupMapping (id: TD3DRMGroupIndex;
-        value: TD3DRMMapping): HResult; stdcall;
+        value: TD3DRMMapping) : HResult; stdcall;
-    function SetGroupQuality(id: TD3DRMGroupIndex;
+    function SetGroupQuality (id: TD3DRMGroupIndex;
-        value: TD3DRMRenderQuality): HResult; stdcall;
+        value: TD3DRMRenderQuality) : HResult; stdcall;
-    function SetGroupMaterial(id: TD3DRMGroupIndex; value:
+    function SetGroupMaterial (id: TD3DRMGroupIndex; value:
-        IDirect3DRMMaterial): HResult; stdcall;
+        IDirect3DRMMaterial) : HResult; stdcall;
-    function SetGroupTexture(id: TD3DRMGroupIndex; value: IDirect3DRMTexture): HResult; stdcall;
+    function SetGroupTexture (id: TD3DRMGroupIndex; value: IDirect3DRMTexture) : HResult; stdcall;
     function GetGroupCount: DWORD; stdcall;
-    function GetGroup(id: TD3DRMGroupIndex; var vCount, fCount, vPerFace,
+    function GetGroup (id: TD3DRMGroupIndex; vCount, fCount, vPerFace : PDWORD;
-        fDataSize, fData: DWORD): HResult; stdcall;
+        var fDataSize: DWORD; fData: PDWORD) : HResult; stdcall;
-    function GetVertices(id: TD3DRMGroupIndex; index: DWORD; count: DWORD;
+    function GetVertices (id: TD3DRMGroupIndex; index, count : DWORD;
-        var returnPtr: TD3DRMVertex): HResult; stdcall;
+        out returnPtr : TD3DRMVertex) : HResult; stdcall;
-    function GetGroupColor(id: TD3DRMGroupIndex): TD3DColor; stdcall;
+    function GetGroupColor (id: TD3DRMGroupIndex) : TD3DColor; stdcall;
-    function GetGroupMapping(id: TD3DRMGroupIndex): TD3DRMMapping; stdcall;
+    function GetGroupMapping (id: TD3DRMGroupIndex) : TD3DRMMapping; stdcall;
-    function GetGroupQuality(id: TD3DRMGroupIndex): TD3DRMRenderQuality; stdcall;
+    function GetGroupQuality (id: TD3DRMGroupIndex) : TD3DRMRenderQuality; stdcall;
-    function GetGroupMaterial(id: TD3DRMGroupIndex;
+    function GetGroupMaterial (id: TD3DRMGroupIndex;
-        out returnPtr: IDirect3DRMMaterial): HResult; stdcall;
+        out returnPtr: IDirect3DRMMaterial) : HResult; stdcall;
-    function GetGroupTexture(id: TD3DRMGroupIndex;
+    function GetGroupTexture (id: TD3DRMGroupIndex;
-        out returnPtr: IDirect3DRMTexture): HResult; stdcall;
+        out returnPtr: IDirect3DRMTexture) : HResult; stdcall;
   end;
-  IDirect3DRMProgressiveMesh = interface(IDirect3DRMVisual)
+  IDirect3DRMProgressiveMesh = interface (IDirect3DRMVisual)
-    ['{4516EC79-8F20-11D0-9B6D-0000C0781BC3}']
+    ['{4516ec79-8f20-11d0-9b6d-0000c0781bc3}']
+    (*
-    // IDirect3DRMProgressiveMesh methods
+     * IDirect3DRMProgressiveMesh methods
+     *)
-    function Load(lpSource, lpObjID: pointer; dloLoadflags: TD3DRMLoadOptions;
+    function Load (lpSource, lpObjID: pointer; dloLoadflags : TD3DRMLoadOptions;
-        lpCallback: TD3DRMLoadTextureCallback; lpArg: pointer): HResult; stdcall;
+        lpCallback: TD3DRMLoadTextureCallback; lpArg: pointer) : HResult; stdcall;
-    function GetLoadStatus(var lpStatus: TD3DRMPMeshLoadStatus): HResult; stdcall;
+    function GetLoadStatus (out lpStatus: TD3DRMPMeshLoadStatus) : HResult; stdcall;
-    function SetMinRenderDetail(d3dVal: TD3DValue): HResult; stdcall;
+    function SetMinRenderDetail (d3dVal: TD3DValue) : HResult; stdcall;
-    function Abort(dwFlags: DWORD): HResult; stdcall;
+    function Abort (dwFlags: DWORD) : HResult; stdcall;
-    function GetFaceDetail(var lpdwCount: DWORD): HResult; stdcall;
+    function GetFaceDetail (out lpdwCount: DWORD) : HResult; stdcall;
-    function GetVertexDetail(var lpdwCount: DWORD): HResult; stdcall;
+    function GetVertexDetail (out lpdwCount: DWORD) : HResult; stdcall;
-    function SetFaceDetail(dwCount: DWORD): HResult; stdcall;
+    function SetFaceDetail (dwCount: DWORD) : HResult; stdcall;
-    function SetVertexDetail(dwCount: DWORD): HResult; stdcall;
+    function SetVertexDetail (dwCount: DWORD) : HResult; stdcall;
-    function GetFaceDetailRange(var lpdwMin, lpdwMax: DWORD): HResult; stdcall;
+    function GetFaceDetailRange (out lpdwMin, lpdwMax: DWORD) : HResult; stdcall;
-    function GetVertexDetailRange(var lpdwMin, lpdwMax: DWORD): HResult; stdcall;
+    function GetVertexDetailRange (out lpdwMin, lpdwMax: DWORD) : HResult; stdcall;
-    function GetDetail(var lpdvVal: TD3DValue): HResult; stdcall;
+    function GetDetail (out lpdvVal: TD3DValue) : HResult; stdcall;
-    function SetDetail(lpdvVal: TD3DValue): HResult; stdcall;
+    function SetDetail (lpdvVal: TD3DValue) : HResult; stdcall;
-    function RegisterEvents(hEvent: THANDLE; dwFlags, dwReserved: DWORD): HResult; stdcall;
+    function RegisterEvents (hEvent: THANDLE; dwFlags, dwReserved: DWORD) : HResult; stdcall;
-    function CreateMesh(out lplpD3DRMMesh: IDirect3DRMMesh): HResult; stdcall;
+    function CreateMesh (out lplpD3DRMMesh: IDirect3DRMMesh) : HResult; stdcall;
-    function Duplicate(out lplpD3DRMPMesh: IDirect3DRMProgressiveMesh): HResult; stdcall;
+    function Duplicate (out lplpD3DRMPMesh: IDirect3DRMProgressiveMesh) : HResult; stdcall;
-    function GetBox(var lpBBox: TD3DRMBox): HResult; stdcall;
+    function GetBox (out lpBBox: TD3DRMBox) : HResult; stdcall;
-    function SetQuality(quality: TD3DRMRenderQuality): HResult; stdcall;
+    function SetQuality (quality: TD3DRMRenderQuality) : HResult; stdcall;
-    function GetQuality(var lpdwquality: TD3DRMRenderQuality): HResult; stdcall;
+    function GetQuality (out lpdwquality: TD3DRMRenderQuality) : HResult; stdcall;
   end;
-  IDirect3DRMShadow = interface(IDirect3DRMVisual)
+  IDirect3DRMShadow = interface (IDirect3DRMVisual)
-    ['{AF359780-6BA3-11CF-AC4A-0000C03825A1}']
+    ['{af359780-6ba3-11cf-ac4a-0000c03825a1}']
+    (*
-    // IDirect3DRMShadow methods
+     * IDirect3DRMShadow methods
+     *)
-    function Init(lpD3DRMVisual: IDirect3DRMVisual;
+    function Init (lpD3DRMVisual: IDirect3DRMVisual;
+        lpD3DRMLight: IDirect3DRMLight;
-        lpD3DRMLight: IDirect3DRMLight; px, py, pz, nx, ny, nz: TD3DValue): HResult; stdcall;
+        px, py, pz, nx, ny, nz: TD3DValue) : HResult; stdcall;
   end;
-  IDirect3DRMShadow2 = interface(IDirect3DRMShadow)
+  IDirect3DRMShadow2 = interface (IDirect3DRMShadow)
-    ['{86B44E25-9C82-11D1-BB0B-00A0C981A0A6}']
+    ['{86b44e25-9c82-11d1-bb0b-00a0c981a0a6}']
+    (*
-    // IDirect3DRMShadow2 methods
+     * IDirect3DRMShadow2 methods
+     *)
-    function GetVisual(out lplpDirect3DRMVisual: IDirect3DRMVisual): HResult; stdcall;
+    function GetVisual (out lplpDirect3DRMVisual: IDirect3DRMVisual) : HResult; stdcall;
+    function SetVisual (lpDirect3DRMVisual: IDirect3DRMVisual;
-    function SetVisual(pUNK: IUnknown; dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function GetLight(out lplpDirect3DRMLight: IDirect3DRMLight): HResult; stdcall;
+    function GetLight (out lplpDirect3DRMLight: IDirect3DRMLight) : HResult; stdcall;
-    function SetLight(lpDirect3DRMLight: IDirect3DRMLight; dwFlags: DWORD): HResult; stdcall;
+    function SetLight (lplpDirect3DRMLight: IDirect3DRMLight;
+        dwFlags: DWORD) : HResult; stdcall;
+    function GetPlane (
-    function GetPlane(var px, py, pz: TD3DValue; var nx, ny, nz: TD3DValue): HResult; stdcall;
+        var pdvPX, pdvPY, pdvPZ, pdvNX, pdvNY, pdvNZ: TD3DValue) : HResult; stdcall;
-    function SetPlane(px, py, pz: TD3DValue; nx, ny, nz: TD3DValue): HResult; stdcall;
+    function SetPlane (px, py, pz, nx, ny, nz: TD3DValue;
+        dwFlags: DWORD) : HResult; stdcall;
-    function GetOptions(var pdwOptions: DWORD): HResult; stdcall;
+    function GetOptions (out pdwOptions: DWORD) : HResult; stdcall;
-    function SetOptions(dwOptions: DWORD): HResult; stdcall;
+    function SetOptions (dwOptions: DWORD) : HResult; stdcall;
   end;
-  IDirect3DRMFace = interface(IDirect3DRMObject)
+  IDirect3DRMFace = interface (IDirect3DRMObject)
-    ['{EB16CB07-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb07-d271-11ce-ac48-0000c03825a1}']
+    (*
-    // IDirect3DRMFace methods
+     * IDirect3DRMFace methods
+     *)
-    function AddVertex(x, y, z: TD3DValue): HResult; stdcall;
+    function AddVertex (x, y, z: TD3DValue) : HResult; stdcall;
-    function AddVertexAndNormalIndexed(vertex: DWORD; normal: DWORD): HResult; stdcall;
+    function AddVertexAndNormalIndexed (vertex: DWORD; normal: DWORD) : HResult; stdcall;
-    function SetColorRGB(red, green, blue: TD3DValue): HResult; stdcall;
+    function SetColorRGB (red, green, blue: TD3DValue) : HResult; stdcall;
-    function SetColor(color: TD3DColor): HResult; stdcall;
+    function SetColor (color: TD3DColor) : HResult; stdcall;
-    function SetTexture(lpD3DRMTexture: IDirect3DRMTexture): HResult; stdcall;
+    function SetTexture (lpD3DRMTexture: IDirect3DRMTexture) : HResult; stdcall;
-    function SetTextureCoordinates(vertex: DWORD; u, v: TD3DValue): HResult; stdcall;
+    function SetTextureCoordinates (vertex: DWORD; u, v: TD3DValue) : HResult; stdcall;
-    function SetMaterial(lpMat: IDirect3DRMMaterial): HResult; stdcall;
+    function SetMaterial (lpMat: IDirect3DRMMaterial) : HResult; stdcall;
-    function SetTextureTopology(cylU, cylV: BOOL): HResult; stdcall;
+    function SetTextureTopology (cylU, cylV: BOOL) : HResult; stdcall;
-    function GetVertex(index: DWORD; var lpPosition: TD3DVector; var lpNormal: TD3DVector): HResult; stdcall;
+    function GetVertex (index: DWORD; out lpPosition: TD3DVector;
+        out lpNormal: TD3DVector) : HResult; stdcall;
+    function GetVertices (var lpdwVertexCount: DWORD;
-    function GetVertices(var lpdwVertexCount: DWORD; var lpPosition, lpNormal: TD3DVector): HResult; stdcall;
+        out lpPosition, lpNormal: TD3DVector) : HResult; stdcall;
-    function GetTextureCoordinates(index: DWORD; var lpU, lpV: TD3DValue): HResult; stdcall;
+    function GetTextureCoordinates (index: DWORD; out lpU, lpV: TD3DValue) : HResult; stdcall;
-    function GetTextureTopology(var lpU, lpV: BOOL): HResult; stdcall;
+    function GetTextureTopology (out lpU, lpV: BOOL) : HResult; stdcall;
-    function GetNormal(var lpNormal: TD3DVector): HResult; stdcall;
+    function GetNormal (out lpNormal: TD3DVector) : HResult; stdcall;
-    function GetTexture(out lplpTexture: IDirect3DRMTexture): HResult; stdcall;
+    function GetTexture (out lplpTexture: IDirect3DRMTexture) : HResult; stdcall;
-    function GetMaterial(out lpMat: IDirect3DRMMaterial): HResult; stdcall;
+    function GetMaterial (out lpMat: IDirect3DRMMaterial) : HResult; stdcall;
-    function GetVertexCount: Longint; stdcall;
+    function GetVertexCount: Integer; stdcall;
-    function GetVertexIndex(dwIndex: DWORD): Longint; stdcall;
+    function GetVertexIndex (dwIndex: DWORD) : Integer; stdcall;
-    function GetTextureCoordinateIndex(dwIndex: DWORD): Longint; stdcall;
+    function GetTextureCoordinateIndex (dwIndex: DWORD) : Integer; stdcall;
     function GetColor: TD3DColor; stdcall;
   end;
-  IDirect3DRMFace2 = interface(IDirect3DRMObject)
+  IDirect3DRMFace2 = interface (IDirect3DRMObject)
-    ['{4516EC81-8F20-11D0-9B6D-0000C0781BC3}']
+    ['{4516ec81-8f20-11d0-9b6d-0000c0781bc3}']
+    (*
-    // IDirect3DRMFace methods
+     * IDirect3DRMFace2 methods
+     *)
-    function AddVertex(x, y, z: TD3DValue): HResult; stdcall;
+    function AddVertex (x, y, z: TD3DValue) : HResult; stdcall;
-    function AddVertexAndNormalIndexed(vertex: DWORD; normal: DWORD): HResult; stdcall;
+    function AddVertexAndNormalIndexed (vertex: DWORD; normal: DWORD) : HResult; stdcall;
-    function SetColorRGB(red, green, blue: TD3DValue): HResult; stdcall;
+    function SetColorRGB (red, green, blue: TD3DValue) : HResult; stdcall;
-    function SetColor(color: TD3DColor): HResult; stdcall;
+    function SetColor (color: TD3DColor) : HResult; stdcall;
-    function SetTexture(lpD3DRMTexture: IDirect3DRMTexture3): HResult; stdcall;
+    function SetTexture (lpD3DRMTexture: IDirect3DRMTexture3) : HResult; stdcall;
-    function SetTextureCoordinates(vertex: DWORD; u, v: TD3DValue): HResult; stdcall;
+    function SetTextureCoordinates (vertex: DWORD; u, v: TD3DValue) : HResult; stdcall;
-    function SetMaterial(lpMat: IDirect3DRMMaterial2): HResult; stdcall;
+    function SetMaterial (lpMat: IDirect3DRMMaterial2) : HResult; stdcall;
-    function SetTextureTopology(cylU, cylV: BOOL): HResult; stdcall;
+    function SetTextureTopology (cylU, cylV: BOOL) : HResult; stdcall;
-    function GetVertex(index: DWORD; var lpPosition: TD3DVector; var lpNormal: TD3DVector): HResult; stdcall;
+    function GetVertex (index: DWORD; out lpPosition: TD3DVector;
+        out lpNormal: TD3DVector) : HResult; stdcall;
+    function GetVertices (var lpdwVertexCount: DWORD;
-    function GetVertices(var lpdwVertexCount: DWORD; var lpPosition, lpNormal: TD3DVector): HResult; stdcall;
+        out lpPosition, lpNormal: TD3DVector) : HResult; stdcall;
-    function GetTextureCoordinates(index: DWORD; var lpU, lpV: TD3DValue): HResult; stdcall;
+    function GetTextureCoordinates (index: DWORD; out lpU, lpV: TD3DValue) : HResult; stdcall;
-    function GetTextureTopology(var lpU, lpV: BOOL): HResult; stdcall;
+    function GetTextureTopology (out lpU, lpV: BOOL) : HResult; stdcall;
-    function GetNormal(var lpNormal: TD3DVector): HResult; stdcall;
+    function GetNormal (out lpNormal: TD3DVector) : HResult; stdcall;
-    function GetTexture(out lplpTexture: IDirect3DRMTexture3): HResult; stdcall;
+    function GetTexture (out lplpTexture: IDirect3DRMTexture3) : HResult; stdcall;
-    function GetMaterial(out lpMat: IDirect3DRMMaterial2): HResult; stdcall;
+    function GetMaterial (out lpMat: IDirect3DRMMaterial2) : HResult; stdcall;
-    function GetVertexCount: Longint; stdcall;
+    function GetVertexCount: Integer; stdcall;
-    function GetVertexIndex(dwIndex: DWORD): Longint; stdcall;
+    function GetVertexIndex (dwIndex: DWORD) : Integer; stdcall;
-    function GetTextureCoordinateIndex(dwIndex: DWORD): Longint; stdcall;
+    function GetTextureCoordinateIndex (dwIndex: DWORD) : Integer; stdcall;
     function GetColor: TD3DColor; stdcall;
   end;
-  IDirect3DRMMeshBuilder = interface(IDirect3DRMVisual)
+  IDirect3DRMMeshBuilder = interface (IDirect3DRMVisual)
-    ['{A3A80D02-6E12-11CF-AC4A-0000C03825A1}']
+    ['{a3a80d02-6e12-11cf-ac4a-0000c03825a1}']
+    (*
-    // IDirect3DRMMeshBuilder methods
+     * IDirect3DRMMeshBuilder methods
+     *)
-    function Load(lpvObjSource, lpvObjID: Pointer; d3drmLOFlags: TD3DRMLoadOptions;
+    function Load (lpvObjSource, lpvObjID: Pointer; d3drmLOFlags:
-        d3drmLoadTextureProc: TD3DRMLoadTextureCallback; lpvArg: Pointer): HResult; stdcall;
+        TD3DRMLoadOptions; d3drmLoadTextureProc: TD3DRMLoadTextureCallback;
+        lpvArg: Pointer) : HResult; stdcall;
-    function Save(lpFilename: PChar; TD3DRMXOFFormat: TD3DRMXOFFormat;
+    function Save (lpFilename: PChar; TD3DRMXOFFormat: TD3DRMXOFFormat;
-        d3drmSOContents: TD3DRMSaveOptions): HResult; stdcall;
+        d3drmSOContents: TD3DRMSaveOptions) : HResult; stdcall;
-    function Scale(sx, sy, sz: TD3DValue): HResult; stdcall;
+    function Scale (sx, sy, sz: TD3DValue) : HResult; stdcall;
-    function Translate(tx, ty, tz: TD3DValue): HResult; stdcall;
+    function Translate (tx, ty, tz: TD3DValue) : HResult; stdcall;
-    function SetColorSource(source: TD3DRMColorSource): HResult; stdcall;
+    function SetColorSource (source: TD3DRMColorSource) : HResult; stdcall;
-    function GetBox(var lpD3DRMBox: TD3DRMBox): HResult; stdcall;
+    function GetBox (out lpTD3DRMBox: TD3DRMBox) : HResult; stdcall;
-    function GenerateNormals: HResult; stdcall;
+    function GenerateNormals : HResult; stdcall;
     function GetColorSource: TD3DRMColorSource; stdcall;
-    function AddMesh(lpD3DRMMesh: IDirect3DRMMesh): HResult; stdcall;
+    function AddMesh (lpD3DRMMesh: IDirect3DRMMesh) : HResult; stdcall;
-    function AddMeshBuilder(lpD3DRMMeshBuild: IDirect3DRMMeshBuilder): HResult; stdcall;
+    function AddMeshBuilder (lpD3DRMMeshBuild: IDirect3DRMMeshBuilder) : HResult; stdcall;
-    function AddFrame(lpD3DRMFrame: IDirect3DRMFrame): HResult; stdcall;
+    function AddFrame (lpD3DRMFrame: IDirect3DRMFrame) : HResult; stdcall;
-    function AddFace(lpD3DRMFace: IDirect3DRMFace): HResult; stdcall;
+    function AddFace (lpD3DRMFace: IDirect3DRMFace) : HResult; stdcall;
-    function AddFaces(dwVertexCount: DWORD; var lpD3DVertices: TD3DVector;
+    function AddFaces (dwVertexCount: DWORD; const lpD3DVertices: TD3DVector;
-        normalCount: DWORD; var lpNormals: TD3DVector; var lpFaceData: DWORD;
+        normalCount: DWORD; lpNormals: PD3DVector; var lpFaceData: DWORD;
-        out lplpD3DRMFaceArray: IDirect3DRMFaceArray): HResult; stdcall;
+        lplpD3DRMFaceArray: PIDirect3DRMFaceArray) : HResult; stdcall;
-    function ReserveSpace(vertexCount, normalCount, faceCount: DWORD): HResult; stdcall;
+    function ReserveSpace (vertexCount, normalCount, faceCount: DWORD) : HResult; stdcall;
-    function SetColorRGB(red, green, blue: TD3DValue): HResult; stdcall;
+    function SetColorRGB (red, green, blue: TD3DValue) : HResult; stdcall;
-    function SetColor(color: TD3DColor): HResult; stdcall;
+    function SetColor (color: TD3DColor) : HResult; stdcall;
-    function SetTexture(lpD3DRMTexture: IDirect3DRMTexture): HResult; stdcall;
+    function SetTexture (lpD3DRMTexture: IDirect3DRMTexture) : HResult; stdcall;
-    function SetMaterial(lpIDirect3DRMmaterial: IDirect3DRMMaterial): HResult; stdcall;
+    function SetMaterial (lpIDirect3DRMmaterial: IDirect3DRMMaterial) : HResult; stdcall;
-    function SetTextureTopology(cylU, cylV: BOOL): HResult; stdcall;
+    function SetTextureTopology (cylU, cylV: BOOL) : HResult; stdcall;
-    function SetQuality(quality: TD3DRMRenderQuality): HResult; stdcall;
+    function SetQuality (quality: TD3DRMRenderQuality) : HResult; stdcall;
-    function SetPerspective(perspective: BOOL): HResult; stdcall;
+    function SetPerspective (perspective: BOOL) : HResult; stdcall;
-    function SetVertex(index: DWORD; x, y, z: TD3DValue): HResult; stdcall;
+    function SetVertex (index: DWORD; x, y, z: TD3DValue) : HResult; stdcall;
-    function SetNormal(index: DWORD; x, y, z: TD3DValue): HResult; stdcall;
+    function SetNormal (index: DWORD; x, y, z: TD3DValue) : HResult; stdcall;
-    function SetTextureCoordinates(index: DWORD; u, v: TD3DValue): HResult; stdcall;
+    function SetTextureCoordinates (index: DWORD; u, v: TD3DValue) : HResult; stdcall;
-    function SetVertexColor(index: DWORD; color: TD3DColor): HResult; stdcall;
+    function SetVertexColor (index: DWORD; color: TD3DColor) : HResult; stdcall;
-    function SetVertexColorRGB(index: DWORD; red, green, blue: TD3DValue): HResult; stdcall;
+    function SetVertexColorRGB (index: DWORD; red, green, blue: TD3DValue) : HResult; stdcall;
-    function GetFaces(out lplpD3DRMFaceArray: IDirect3DRMFaceArray): HResult; stdcall;
+    function GetFaces (out lplpD3DRMFaceArray: IDirect3DRMFaceArray) : HResult; stdcall;
-    function GetVertices(var vcount: DWORD; var vertices: TD3DVector;
+    function GetVertices (var vcount: DWORD; var vertices : TD3DVector;
+        var ncount : DWORD;
-        var ncount: DWORD; var normals: TD3DVector; var face_data_size: DWORD;
+        var normals : TD3DVector;
-        var face_data: DWORD): HResult; stdcall;
+        var face_data_size, face_data : DWORD) : HResult; stdcall;
-    function GetTextureCoordinates(index: DWORD; var u, v: TD3DValue): HResult; stdcall;
+    function GetTextureCoordinates(index : DWORD; out u, v : TD3DValue) : HResult; stdcall;
-    function AddVertex(x, y, z: TD3DValue): Longint; stdcall;
+    function AddVertex (x, y, z: TD3DValue) : Integer; stdcall;
-    function AddNormal(x, y, z: TD3DValue): Longint; stdcall;
+    function AddNormal (x, y, z: TD3DValue) : Integer; stdcall;
-    function CreateFace(out lplpd3drmFace: IDirect3DRMFace): HResult; stdcall;
+    function CreateFace (out lplpd3drmFace: IDirect3DRMFace) : HResult; stdcall;
     function GetQuality: TD3DRMRenderQuality; stdcall;
     function GetPerspective: BOOL; stdcall;
-    function GetFaceCount: Longint; stdcall;
+    function GetFaceCount: Integer; stdcall;
-    function GetVertexCount: Longint; stdcall;
+    function GetVertexCount: Integer; stdcall;
-    function GetVertexColor(index: DWORD): TD3DColor; stdcall;
+    function GetVertexColor (index: DWORD) : TD3DColor; stdcall;
-    function CreateMesh(out lplpD3DRMMesh: IDirect3DRMMesh): HResult; stdcall;
+    function CreateMesh (out lplpD3DRMMesh: IDirect3DRMMesh) : HResult; stdcall;
   end;
-  IDirect3DRMMeshBuilder2 = interface(IDirect3DRMMeshBuilder)
+  IDirect3DRMMeshBuilder2 = interface (IDirect3DRMMeshBuilder)
-    ['{4516EC77-8F20-11D0-9B6D-0000C0781BC3}']
+    ['{4516ec77-8f20-11d0-9b6d-0000c0781bc3}']
+    (*
-    // IDirect3DRMMeshBuilder2 methods
+     * IDirect3DRMMeshBuilder2 methods
+     *)
+    function GenerateNormals2 (
-    function GenerateNormals2(dvCreaseAngle: TD3DValue; dwFlags: DWORD): HResult; stdcall;
+        dvCreaseAngle: TD3DValue; dwFlags: DWORD) : HResult; stdcall;
-    function GetFace(dwIndex: DWORD; out lplpD3DRMFace: IDirect3DRMFace): HResult; stdcall;
+    function GetFace (dwIndex: DWORD; lplpD3DRMFace: IDirect3DRMFace) : HResult; stdcall;
   end;
-  IDirect3DRMMeshBuilder3 = interface(IDirect3DRMVisual)
+  IDirect3DRMMeshBuilder3 = interface (IDirect3DRMVisual)
-    ['{4516EC82-8F20-11D0-9B6D-0000C0781BC3}']
+    ['{ff6b7f71-a40e-11d1-91f9-0000f8758e66}']
+    (*
-    // IDirect3DRMMeshBuilder methods
+     * IDirect3DRMMeshBuilder3 methods
+     *)
-    function Load(lpvObjSource, lpvObjID: Pointer; d3drmLOFlags: TD3DRMLoadOptions;
+    function Load (lpvObjSource, lpvObjID: Pointer;
+        d3drmLOFlags: TD3DRMLoadOptions;
-        d3drmLoadTextureProc: TD3DRMLoadTexture3Callback; lpvArg: Pointer): HResult; stdcall;
+        d3drmLoadTextureProc: TD3DRMLoadTexture3Callback;
+        lpvArg: Pointer) : HResult; stdcall;
-    function Save(lpFilename: PChar; TD3DRMXOFFormat: TD3DRMXOFFormat;
+    function Save (lpFilename: PAnsiChar; TD3DRMXOFFormat: TD3DRMXOFFormat;
-        d3drmSOContents: TD3DRMSaveOptions): HResult; stdcall;
+        d3drmSOContents: TD3DRMSaveOptions) : HResult; stdcall;
-    function Scale(sx, sy, sz: TD3DValue): HResult; stdcall;
+    function Scale (sx, sy, sz: TD3DValue) : HResult; stdcall;
-    function Translate(tx, ty, tz: TD3DValue): HResult; stdcall;
+    function Translate (tx, ty, tz: TD3DValue) : HResult; stdcall;
-    function SetColorSource(source: TD3DRMColorSource): HResult; stdcall;
+    function SetColorSource (source: TD3DRMColorSource) : HResult; stdcall;
-    function GetBox(var lpD3DRMBox: TD3DRMBox): HResult; stdcall;
+    function GetBox (out lpTD3DRMBox: TD3DRMBox) : HResult; stdcall;
+    function GenerateNormals (
-    function GenerateNormals(dvCreaseAngle: TD3DValue; dwFlags: DWORD): HResult; stdcall;
+        dvCreaseAngle: TD3DValue; dwFlags: DWORD): HResult; stdcall;
     function GetColorSource: TD3DRMColorSource; stdcall;
-    function AddMesh(lpD3DRMMesh: IDirect3DRMMesh): HResult; stdcall;
+    function AddMesh (lpD3DRMMesh: IDirect3DRMMesh) : HResult; stdcall;
+    function AddMeshBuilder (
-    function AddMeshBuilder(lpD3DRMMeshBuild: IDirect3DRMMeshBuilder3): HResult; stdcall;
+        lpD3DRMMeshBuild: IDirect3DRMMeshBuilder3) : HResult; stdcall;
-    function AddFrame(lpD3DRMFrame: IDirect3DRMFrame3): HResult; stdcall;
+    function AddFrame (lpD3DRMFrame: IDirect3DRMFrame3) : HResult; stdcall;
-    function AddFace(lpD3DRMFace: IDirect3DRMFace2): HResult; stdcall;
+    function AddFace (lpD3DRMFace: IDirect3DRMFace2) : HResult; stdcall;
-    function AddFaces(dwVertexCount: DWORD; var lpD3DVertices: TD3DVector;
+    function AddFaces (dwVertexCount: DWORD; const lpD3DVertices: TD3DVector;
-        normalCount: DWORD; var lpNormals: TD3DVector; var lpFaceData: DWORD;
+        normalCount: DWORD; lpNormals: PD3DVector; var lpFaceData: DWORD;
-        out lplpD3DRMFaceArray: IDirect3DRMFaceArray): HResult; stdcall;
+        lplpD3DRMFaceArray: PIDirect3DRMFaceArray) : HResult; stdcall;
-    function ReserveSpace(vertexCount, normalCount, faceCount: DWORD): HResult; stdcall;
+    function ReserveSpace (vertexCount, normalCount, faceCount: DWORD) : HResult; stdcall;
-    function SetColorRGB(red, green, blue: TD3DValue): HResult; stdcall;
+    function SetColorRGB (red, green, blue: TD3DValue) : HResult; stdcall;
-    function SetColor(color: TD3DColor): HResult; stdcall;
+    function SetColor (color: TD3DColor) : HResult; stdcall;
-    function SetTexture(lpD3DRMTexture: IDirect3DRMTexture3): HResult; stdcall;
+    function SetTexture (lpD3DRMTexture: IDirect3DRMTexture3) : HResult; stdcall;
-    function SetMaterial(lpDirect3DRMMaterial: IDirect3DRMMaterial2): HResult; stdcall;
+    function SetMaterial (lpIDirect3DRMmaterial: IDirect3DRMMaterial2) : HResult; stdcall;
-    function SetTextureTopology(cylU, cylV: BOOL): HResult; stdcall;
+    function SetTextureTopology (cylU, cylV: BOOL) : HResult; stdcall;
-    function SetQuality(quality: TD3DRMRenderQuality): HResult; stdcall;
+    function SetQuality (quality: TD3DRMRenderQuality) : HResult; stdcall;
-    function SetPerspective(perspective: BOOL): HResult; stdcall;
+    function SetPerspective (perspective: BOOL) : HResult; stdcall;
-    function SetVertex(index: DWORD; x, y, z: TD3DValue): HResult; stdcall;
+    function SetVertex (index: DWORD; x, y, z: TD3DValue) : HResult; stdcall;
-    function SetNormal(index: DWORD; x, y, z: TD3DValue): HResult; stdcall;
+    function SetNormal (index: DWORD; x, y, z: TD3DValue) : HResult; stdcall;
-    function SetTextureCoordinates(index: DWORD; u, v: TD3DValue): HResult; stdcall;
+    function SetTextureCoordinates (index: DWORD; u, v: TD3DValue) : HResult; stdcall;
-    function SetVertexColor(index: DWORD; color: TD3DColor): HResult; stdcall;
+    function SetVertexColor (index: DWORD; color: TD3DColor) : HResult; stdcall;
-    function SetVertexColorRGB(index: DWORD; red, green, blue: TD3DValue): HResult; stdcall;
+    function SetVertexColorRGB (index: DWORD; red, green, blue: TD3DValue) : HResult; stdcall;
-    function GetFaces(out lplpD3DRMFaceArray: IDirect3DRMFaceArray): HResult; stdcall;
+    function GetFaces (out lplpD3DRMFaceArray: IDirect3DRMFaceArray) : HResult; stdcall;
-    function GetGeometry(var vcount: DWORD; var vertices; var ncount: DWORD; var normals;
+    function GetGeometry (var vcount: DWORD; var vertices : TD3DVector;
+        var ncount : DWORD; var normals : TD3DVector;
-      var face_data_size: DWORD; var face_data): HResult; stdcall;
+        var face_data_size, face_data : DWORD) : HResult; stdcall;
-    function GetTextureCoordinates(index: DWORD; var u, v: TD3DValue): HResult; stdcall;
+    function GetTextureCoordinates(index : DWORD; out u, v : TD3DValue) : HResult; stdcall;
-    function AddVertex(x, y, z: TD3DValue): Longint; stdcall;
+    function AddVertex (x, y, z: TD3DValue) : Integer; stdcall;
-    function AddNormal(x, y, z: TD3DValue): Longint; stdcall;
+    function AddNormal (x, y, z: TD3DValue) : Integer; stdcall;
-    function CreateFace(out lplpd3drmFace: IDirect3DRMFace2): HResult; stdcall;
+    function CreateFace (out lplpd3drmFace: IDirect3DRMFace2) : HResult; stdcall;
     function GetQuality: TD3DRMRenderQuality; stdcall;
     function GetPerspective: BOOL; stdcall;
-    function GetFaceCount: Longint; stdcall;
+    function GetFaceCount: Integer; stdcall;
-    function GetVertexCount: Longint; stdcall;
+    function GetVertexCount: Integer; stdcall;
-    function GetVertexColor(index: DWORD): TD3DColor; stdcall;
+    function GetVertexColor (index: DWORD) : TD3DColor; stdcall;
-    function CreateMesh(out lplpD3DRMMesh: IDirect3DRMMesh): HResult; stdcall;
+    function CreateMesh (out lplpD3DRMMesh: IDirect3DRMMesh) : HResult; stdcall;
+    function GetFace
-    function GetFace(dwIndex: DWORD; out lplpD3DRMFace: IDirect3DRMFace2): HResult; stdcall;
+        (dwIndex: DWORD; lplpD3DRMFace: IDirect3DRMFace) : HResult; stdcall;
-    function GetVertex(dwIndex: DWORD; var lpVector: TD3DVector): HResult; stdcall;
+    function GetVertex (dwIndex: DWORD; out lpVector: TD3DVector) : HResult; stdcall;
-    function GetNormal(dwIndex: DWORD; var lpVector: TD3DVector): HResult; stdcall;
+    function GetNormal (dwIndex: DWORD; out lpVector: TD3DVector) : HResult; stdcall;
-    function DeleteVertices(dwIndexFirst: DWORD; dwCount: DWORD): HResult; stdcall;
+    function DeleteVertices (dwFirstIndex, dwCount: DWORD) : HResult; stdcall;
-    function DeleteNormals(dwIndexFirst: DWORD; dwCount: DWORD): HResult; stdcall;
+    function DeleteNormals (dwFirstIndex, dwCount: DWORD) : HResult; stdcall;
-    function DeleteFace(lpD3DRMFace: IDirect3DRMFace2): HResult; stdcall;
+    function DeleteFace (lpFace: IDirect3DRMFace2) : HResult; stdcall;
-    function Empty(dwFlags: DWORD): HResult; stdcall;
+    function Empty (dwFlags: DWORD) : HResult; stdcall;
-    function Optimize(dwFlags: DWORD): HResult; stdcall;
+    function Optimize (dwFlags: DWORD) : HResult; stdcall;
-    function AddFacesIndexed(dwFlags: DWORD; var lpdwvIndices: DWORD;
+    function AddFacesIndexed (dwFlags: DWORD; var lpdwvIndices: DWORD;
-        var dwIndexFirst: DWORD; var dwCount: DWORD): HResult; stdcall;
+        lpdwIndexFirst, lpdwCount: PDWORD) : HResult; stdcall;
-    function CreateSubMesh(out lplpUnk: IUnknown): HResult; stdcall;
+    function CreateSubMesh (out lplpUnk: IUnknown) : HResult; stdcall;
-    function GetParentMesh(dwFlags: DWORD; out lplpUnk: IUnknown): HResult; stdcall;
+    function GetParentMesh (dwFlags: DWORD; out lplpUnk: IUnknown) : HResult; stdcall;
-    function GetSubMeshes(var lpdwCount: DWORD; out lplpUnk: IUnknown): HResult; stdcall;
+    function GetSubMeshes (lpdwCount: PDWORD; lpUnk: IUnknown) : HResult; stdcall;
-    function DeleteSubMesh(lpUnk: IUnknown): HResult; stdcall;
+    function DeleteSubMesh (lplpUnk: IUnknown) : HResult; stdcall;
-    function Enable(dwFlags: DWORD): HResult; stdcall;
+    function Enable (dwFlags: DWORD) : HResult; stdcall;
-    function GetEnable(var lpdwFlags: DWORD): HResult; stdcall;
+    function GetEnable (out lpdwFlags: DWORD) : HResult; stdcall;
-    function AddTriangles(dwFlags: DWORD; dwFormat: DWORD; dwVertexCount: DWORD;
+    function AddTriangles (dwFlags, dwFormat, dwVertexCount:  DWORD;
-        lpvData: Pointer): HResult; stdcall;
+        lpData: pointer) : HResult; stdcall;
+    function SetVertices
+        (dwFirst, dwCount: DWORD; const lpdvVector: TD3DVector) : HResult; stdcall;
-    function SetVertices(dwIndexFirst: DWORD; dwCount: DWORD;
+    function GetVertices(dwFirst: DWORD; var lpdwCount: DWORD;
-        const lpdvVector: TD3DVector): HResult; stdcall;
+        lpdvVector: PD3DVector) : HResult; stdcall;
+    function SetNormals(dwFirst, dwCount: DWORD; const lpdvVector: TD3DVector) : HResult; stdcall;
-    function GetVertices(dwIndexFirst: DWORD; var lpdwCount: DWORD;
+    function GetNormals (dwFirst: DWORD; lpdwCount: PDWORD;
-        var lpdvVector: TD3DVector): HResult; stdcall;
+        var lpdvVector: TD3DVector) : HResult; stdcall;
-    function SetNormals(dwIndexFirst: DWORD; dwCount: DWORD;
-        const lpdvVector: TD3DVector): HResult; stdcall;
-    function GetNormals(dwIndexFirst: DWORD; var lpdwCount: DWORD;
-        var lpdvVector: TD3DVector): HResult; stdcall;
-    function GetNormalCount: Longint; stdcall;
+    function GetNormalCount : integer; stdcall;
   end;
-  IDirect3DRMLight = interface(IDirect3DRMObject)
+  IDirect3DRMLight = interface (IDirect3DRMObject)
-    ['{EB16CB08-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb08-d271-11ce-ac48-0000c03825a1}']
+    (*
-    // IDirect3DRMLight methods
+     * IDirect3DRMLight methods
+     *)
-    function SetType(d3drmtType: TD3DRMLightType): HResult; stdcall;
+    function SetType (d3drmtType: TD3DRMLightType) : HResult; stdcall;
-    function SetColor(rcColor: TD3DColor): HResult; stdcall;
+    function SetColor (rcColor: TD3DColor) : HResult; stdcall;
-    function SetColorRGB(rvRed, rvGreen, rvBlue: TD3DValue): HResult; stdcall;
+    function SetColorRGB (rvRed, rvGreen, rvBlue: TD3DValue) : HResult; stdcall;
-    function SetRange(rvRange: TD3DValue): HResult; stdcall;
+    function SetRange (rvRange: TD3DValue) : HResult; stdcall;
-    function SetUmbra(rvAngle: TD3DValue): HResult; stdcall;
+    function SetUmbra (rvAngle: TD3DValue) : HResult; stdcall;
-    function SetPenumbra(rvAngle: TD3DValue): HResult; stdcall;
+    function SetPenumbra (rvAngle: TD3DValue) : HResult; stdcall;
-    function SetConstantAttenuation(rvAtt: TD3DValue): HResult; stdcall;
+    function SetConstantAttenuation (rvAtt: TD3DValue) : HResult; stdcall;
-    function SetLinearAttenuation(rvAtt: TD3DValue): HResult; stdcall;
+    function SetLinearAttenuation (rvAtt: TD3DValue) : HResult; stdcall;
-    function SetQuadraticAttenuation(rvAtt: TD3DValue): HResult; stdcall;
+    function SetQuadraticAttenuation (rvAtt: TD3DValue) : HResult; stdcall;
     function GetRange: TD3DValue; stdcall;
     function GetUmbra: TD3DValue; stdcall;
     function GetPenumbra: TD3DValue; stdcall;
     function GetConstantAttenuation: TD3DValue; stdcall;
     function GetLinearAttenuation: TD3DValue; stdcall;
     function GetQuadraticAttenuation: TD3DValue; stdcall;
     function GetColor: TD3DColor; stdcall;
     function GetType: TD3DRMLightType; stdcall;
-    function SetEnableFrame(lpEnableFrame: IDirect3DRMFrame): HResult; stdcall;
+    function SetEnableFrame (lpEnableFrame: IDirect3DRMFrame) : HResult; stdcall;
-    function GetEnableFrame(out lplpEnableFrame: IDirect3DRMFrame): HResult; stdcall;
+    function GetEnableFrame (out lplpEnableFrame: IDirect3DRMFrame) : HResult; stdcall;
   end;
-  IDirect3DRMTexture = interface(IDirect3DRMVisual)
+  IDirect3DRMTexture = interface (IDirect3DRMVisual)
-    ['{EB16CB09-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb09-d271-11ce-ac48-0000c03825a1}']
+    (*
-    // IDirect3DRMTexture methods
+     * IDirect3DRMTexture methods
+     *)
-    function InitFromFile(filename: PChar): HResult; stdcall;
+    function InitFromFile (filename: PAnsiChar) : HResult; stdcall;
-    function InitFromSurface(lpDDS: IDirectDrawSurface): HResult; stdcall;
+    function InitFromSurface (lpDDS: IDirectDrawSurface) : HResult; stdcall;
-    function InitFromResource(rs: HRSRC): HResult; stdcall;
+    function InitFromResource (rs: HRSRC) : HResult; stdcall;
-    function Changed(bPixels, bPalette: BOOL): HResult; stdcall;
+    function Changed (bPixels, bPalette: BOOL) : HResult; stdcall;
-    function SetColors(ulColors: DWORD): HResult; stdcall;
+    function SetColors (ulColors: DWORD) : HResult; stdcall;
-    function SetShades(ulShades: DWORD): HResult; stdcall;
+    function SetShades (ulShades: DWORD) : HResult; stdcall;
-    function SetDecalSize(rvWidth, rvHeight: TD3DValue): HResult; stdcall;
+    function SetDecalSize (rvWidth, rvHeight: TD3DValue) : HResult; stdcall;
-    function SetDecalOrigin(lX, lY: Longint): HResult; stdcall;
+    function SetDecalOrigin (lX, lY: LongInt) : HResult; stdcall;
-    function SetDecalScale(dwScale: DWORD): HResult; stdcall;
+    function SetDecalScale (dwScale: DWORD) : HResult; stdcall;
-    function SetDecalTransparency(bTransp: BOOL): HResult; stdcall;
+    function SetDecalTransparency (bTransp: BOOL) : HResult; stdcall;
-    function SetDecalTransparentColor(rcTransp: TD3DColor): HResult; stdcall;
+    function SetDecalTransparentColor (rcTransp: TD3DColor) : HResult; stdcall;
-    function GetDecalSize(var lprvWidth, lprvHeight: TD3DValue): HResult; stdcall;
+    function GetDecalSize (out lprvWidth, lprvHeight: TD3DValue) : HResult; stdcall;
-    function GetDecalOrigin(var lplX, lplY: Longint): HResult; stdcall;
+    function GetDecalOrigin (out lplX, lplY: LongInt) : HResult; stdcall;
     function GetImage: PD3DRMImage; stdcall;
     function GetShades: DWORD; stdcall;
     function GetColors: DWORD; stdcall;
     function GetDecalScale: DWORD; stdcall;
     function GetDecalTransparency: BOOL; stdcall;
     function GetDecalTransparentColor: TD3DColor; stdcall;
   end;
-  IDirect3DRMTexture2 = interface(IDirect3DRMTexture)
+  IDirect3DRMTexture2 = interface (IDirect3DRMTexture)
-    ['{120F30C0-1629-11D0-941C-0080C80CFA7B}']
+    ['{120f30c0-1629-11d0-941c-0080c80cfa7b}']
+    (*
-    // IDirect3DRMTexture2 methods
+     * IDirect3DRMTexture2 methods
+     *)
-    function InitFromImage(const lpImage: TD3DRMImage): HResult; stdcall;
+    function InitFromImage (const lpImage: TD3DRMImage) : HResult; stdcall;
+    function InitFromResource2 (hModule: HModule;
-    function InitFromResource2(hModule: HModule; strName, strType: PChar): HResult; stdcall;
+        strName, strType: PAnsiChar) : HResult; stdcall;
-    function GenerateMIPMap(dwFlags: DWORD): HResult; stdcall;
+    function GenerateMIPMap (dwFlags: DWORD) : HResult; stdcall;
   end;
-  IDirect3DRMTexture3 = interface(IDirect3DRMTexture2)
+  IDirect3DRMTexture3 = interface (IDirect3DRMTexture2)
-    ['{FF6B7F73-A40E-11D1-91F9-0000F8758E66}']
+    ['{ff6b7f73-a40e-11d1-91f9-0000f8758e66}']
+    (*
-    // IDirect3DRMTexture3 methods
+     * IDirect3DRMTexture3 methods
+     *)
+    function GetSurface
-    function GetSurface(dwFlags: DWORD; out lplpDDS: IDirectDrawSurface): HResult; stdcall;
+        (dwFlags: DWORD; out lplpDDS: IDirectDrawSurface) : HResult; stdcall;
-    function SetCacheOptions(lImportance: Longint; dwFlags: DWORD): HResult; stdcall;
+    function SetCacheOptions (lImportance: integer; dwFlags: DWORD) : HResult; stdcall;
-    function GetCacheOptions(var lplImportance: Longint; var lpdwFlags: DWORD): HResult; stdcall;
+    function GetCacheOptions (var lplImportance: integer; var lpdwFlags: DWORD) : HResult; stdcall;
+    function SetDownsampleCallback (
-    function SetDownsampleCallback(pCallback: TD3DRMDownSampleCallback; pArg: Pointer): HResult; stdcall;
+        pCallback: TD3DRMDownSampleCallback; pArg: pointer) : HResult; stdcall;
+    function SetValidationCallback (
-    function SetValidationCallback(pCallback: TD3DRMValidationCallback; pArg: Pointer): HResult; stdcall;
+        pCallback: TD3DRMValidationCallback; pArg: pointer) : HResult; stdcall;
   end;
-  IDirect3DRMWrap = interface(IDirect3DRMObject)
+  IDirect3DRMWrap = interface (IDirect3DRMObject)
-    ['{EB16CB0A-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb0a-d271-11ce-ac48-0000c03825a1}']
+    (*
-    // IDirect3DRMWrap methods
+     * IDirect3DRMWrap methods
+     *)
-    function Init(d3drmwt: TD3DRMWrapType; lpd3drmfRef: IDirect3DRMFrame;
+    function Init (d3drmwt: TD3DRMWrapType; lpd3drmfRef: IDirect3DRMFrame;
-        ox, oy, oz, dx, dy, dz, ux, uy, uz, ou, ov, su, sv: TD3DValue): HResult; stdcall;
+        ox, oy, oz, dx, dy, dz, ux, uy, uz, ou, ov, su, sv: TD3DValue)
+        : HResult; stdcall;
-    function Apply(lpObject: IDirect3DRMObject): HResult; stdcall;
+    function Apply (lpObject: IDirect3DRMObject) : HResult; stdcall;
-    function ApplyRelative(frame: IDirect3DRMFrame; mesh: IDirect3DRMObject): HResult; stdcall;
+    function ApplyRelative(frame: IDirect3DRMFrame; mesh: IDirect3DRMObject) : HResult; stdcall;
   end;
-  IDirect3DRMMaterial = interface(IDirect3DRMObject)
+  IDirect3DRMMaterial = interface (IDirect3DRMObject)
-    ['{EB16CB0B-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb0b-d271-11ce-ac48-0000c03825a1}']
+    (*
-    // IDirect3DRMMaterial methods
+     * IDirect3DRMMaterial methods
+     *)
-    function SetPower(rvPower: TD3DValue): HResult; stdcall;
+    function SetPower (rvPower: TD3DValue) : HResult; stdcall;
-    function SetSpecular(r, g, b: TD3DValue): HResult; stdcall;
+    function SetSpecular (r, g, b: TD3DValue) : HResult; stdcall;
-    function SetEmissive(r, g, b: TD3DValue): HResult; stdcall;
+    function SetEmissive (r, g, b: TD3DValue) : HResult; stdcall;
     function GetPower: TD3DValue; stdcall;
-    function GetSpecular(var r, g, b: TD3DValue): HResult; stdcall;
+    function GetSpecular (out lpr, lpg, lpb: TD3DValue) : HResult; stdcall;
-    function GetEmissive(var r, g, b: TD3DValue): HResult; stdcall;
+    function GetEmissive (out lpr, lpg, lpb: TD3DValue) : HResult; stdcall;
   end;
-  IDirect3DRMMaterial2 = interface(IDirect3DRMMaterial)
+  IDirect3DRMMaterial2 = interface (IDirect3DRMMaterial)
-    ['{FF6B7F75-A40E-11D1-91F9-0000F8758E66}']
+    ['{ff6b7f75-a40e-11d1-91f9-0000f8758e66}']
+    (*
-    // IDirect3DRMMaterial2 methods
+     * IDirect3DRMMaterial2 methods
+     *)
-    function GetAmbient(var r, g, b: TD3DValue): HResult; stdcall;
+    function GetAmbient(out r,g,b: TD3DValue) : HResult; stdcall;
-    function SetAmbient(r, g, b: TD3DValue): HResult; stdcall;
+    function SetAmbient(r,g,b: TD3DValue) : HResult; stdcall;
   end;
-  IDirect3DRMAnimation = interface(IDirect3DRMObject)
+  IDirect3DRMAnimation = interface (IDirect3DRMObject)
-    ['{EB16CB0D-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb0d-d271-11ce-ac48-0000c03825a1}']
+    (*
-    // IDirect3DRMAnimation methods
+     * IDirect3DRMAnimation methods
+     *)
-    function SetOptions(d3drmanimFlags: TD3DRMAnimationOptions): HResult; stdcall;
+    function SetOptions (d3drmanimFlags: TD3DRMAnimationOptions) : HResult; stdcall;
-    function AddRotateKey(rvTime: TD3DValue; const rqQuat: TD3DRMQuaternion): HResult; stdcall;
+    function AddRotateKey (rvTime: TD3DValue; const rqQuat: TD3DRMQuaternion) : HResult; stdcall;
-    function AddPositionKey(rvTime, rvX, rvY, rvZ: TD3DValue): HResult; stdcall;
+    function AddPositionKey (rvTime, rvX, rvY, rvZ: TD3DValue) : HResult; stdcall;
-    function AddScaleKey(time, x, y, z: TD3DValue): HResult; stdcall;
+    function AddScaleKey (time, x, y, z: TD3DValue) : HResult; stdcall;
-    function DeleteKey(time: TD3DValue): HResult; stdcall;
+    function DeleteKey (time: TD3DValue) : HResult; stdcall;
-    function SetFrame(lpD3DRMFrame: IDirect3DRMFrame): HResult; stdcall;
+    function SetFrame (lpD3DRMFrame: IDirect3DRMFrame) : HResult; stdcall;
-    function SetTime(rvTime: TD3DValue): HResult; stdcall;
+    function SetTime (rvTime: TD3DValue) : HResult; stdcall;
     function GetOptions: TD3DRMAnimationOptions; stdcall;
   end;
-  IDirect3DRMAnimation2 = interface(IDirect3DRMObject)
+  IDirect3DRMAnimation2 = interface (IDirect3DRMAnimation)
-    ['{FF6B7F77-A40E-11D1-91F9-0000F8758E66}']
+    ['{ff6b7f77-a40e-11d1-91f9-0000f8758e66}']
+    (*
-    // IDirect3DRMAnimation2 methods
+     * IDirect3DRMAnimation methods
-    function SetOptions(d3drmanimFlags: TD3DRMAnimationOptions): HResult; stdcall;
-    function AddRotateKey(rvTime: TD3DValue; const rqQuat: TD3DRMQuaternion): HResult; stdcall;
-    function AddPositionKey(rvTime, rvX, rvY, rvZ: TD3DValue): HResult; stdcall;
-    function AddScaleKey(time, x, y, z: TD3DValue): HResult; stdcall;
-    function DeleteKey(time: TD3DValue): HResult; stdcall;
-    function SetFrame(lpD3DRMFrame: IDirect3DRMFrame3): HResult; stdcall;
-    function SetTime(rvTime: TD3DValue): HResult; stdcall;
+     *)
-    function GetOptions: TD3DRMAnimationOptions; stdcall;
-    function GetFrame(out lpD3DFrame: IDirect3DRMFrame3): HResult; stdcall;
+    function GetFrame (out lpD3DFrame: IDirect3DRMFrame3) : HResult; stdcall;
-    function DeleteKeyByID(dwID: DWORD): HResult; stdcall;
+    function DeleteKeyByID (dwID: DWORD) : HResult; stdcall;
-    function AddKey(const lpKey: TD3DRMAnimationKey): HResult; stdcall;
+    function AddKey (const lpKey: TD3DRMAnimationKey) : HResult; stdcall;
-    function ModifyKey(const lpKey: TD3DRMAnimationKey): HResult; stdcall;
+    function ModifyKey (const lpKey: TD3DRMAnimationKey) : HResult; stdcall;
-    function GetKeys(dvTimeMin, dvTimeMax: TD3DValue; var lpdwNumKeys: DWORD;
+    function GetKeys (dvTimeMin, dvTimeMax: TD3DValue; var lpdwNumKeys: DWORD;
-        var lpKey: TD3DRMAnimationKey): HResult; stdcall;
+        lpKey: PD3DRMAnimationKey) : HResult; stdcall;
   end;
-  IDirect3DRMAnimationSet = interface(IDirect3DRMObject)
+  IDirect3DRMAnimationSet = interface (IDirect3DRMObject)
-    ['{EB16CB0E-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb0e-d271-11ce-ac48-0000c03825a1}']
+    (*
-    // IDirect3DRMAnimationSet methods
+     * IDirect3DRMAnimationSet methods
+     *)
-    function AddAnimation(lpD3DRMAnimation: IDirect3DRMAnimation): HResult; stdcall;
+    function AddAnimation (lpD3DRMAnimation: IDirect3DRMAnimation) : HResult; stdcall;
-    function Load(lpvObjSource, lpvObjID: Pointer; d3drmLOFlags: TD3DRMLoadOptions;
+    function Load (lpvObjSource, lpvObjID: Pointer;
+        d3drmLOFlags: TD3DRMLoadOptions;
         d3drmLoadTextureProc: TD3DRMLoadTextureCallback; lpArgLTP: Pointer;
-        lpParentFrame: IDirect3DRMFrame): HResult; stdcall;
+        lpParentFrame: IDirect3DRMFrame) : HResult; stdcall;
-    function DeleteAnimation(lpD3DRMAnimation: IDirect3DRMAnimation): HResult; stdcall;
+    function DeleteAnimation (lpD3DRMAnimation: IDirect3DRMAnimation) : HResult; stdcall;
-    function SetTime(rvTime: TD3DValue): HResult; stdcall;
+    function SetTime (rvTime: TD3DValue) : HResult; stdcall;
   end;
-  IDirect3DRMAnimationSet2 = interface(IDirect3DRMObject)
+  IDirect3DRMAnimationSet2 = interface (IDirect3DRMObject)
-    ['{FF6B7F79-A40E-11D1-91F9-0000F8758E66}']
+    ['{ff6b7f79-a40e-11d1-91f9-0000f8758e66}']
+    (*
-    // IDirect3DRMAnimationSet2 methods
+     * IDirect3DRMAnimationSet methods
+     *)
-    function AddAnimation(aid: IDirect3DRMAnimation2): HResult; stdcall;
+    function AddAnimation (lpD3DRMAnimation: IDirect3DRMAnimation2) : HResult; stdcall;
+    function Load (lpvObjSource, lpvObjID: Pointer;
-    function Load(filename, name: Pointer; loadflags: TD3DRMLoadOptions;
+        d3drmLOFlags: TD3DRMLoadOptions;
-        d3drmLoadTextureProc: TD3DRMLoadTexture3Callback; lpArg: Pointer;
+        d3drmLoadTextureProc: TD3DRMLoadTexture3Callback; lpArgLTP: Pointer;
-        lpParentFrame: IDirect3DRMFrame3): HResult; stdcall;
+        lpParentFrame: IDirect3DRMFrame3) : HResult; stdcall;
-    function DeleteAnimation(aid: IDirect3DRMAnimation2): HResult; stdcall;
+    function DeleteAnimation (lpD3DRMAnimation: IDirect3DRMAnimation2) : HResult; stdcall;
-    function SetTime(time: TD3DValue): HResult; stdcall;
+    function SetTime (rvTime: TD3DValue) : HResult; stdcall;
-    function GetAnimations(out lpAnimationArray: IDirect3DRMAnimationArray): HResult; stdcall;
+    function GetAnimations(out lplpArray: IDirect3DRMAnimationArray) : HResult; stdcall;
   end;
-  IDirect3DRMUserVisual = interface(IDirect3DRMVisual)
+  IDirect3DRMUserVisual = interface (IDirect3DRMVisual)
-    ['{59163DE0-6D43-11CF-AC4A-0000C03825A1}']
+    ['{59163de0-6d43-11cf-ac4a-0000c03825a1}']
+    (*
-    // IDirect3DRMUserVisual methods
+     * IDirect3DRMUserVisual methods
+     *)
-    function Init(d3drmUVProc: TD3DRMUserVisualCallback; lpArg: Pointer): HResult; stdcall;
+    function Init (d3drmUVProc: TD3DRMUserVisualCallback;
+        lpArg: Pointer) : HResult; stdcall;
   end;
-  IDirect3DRMArray = interface(IUnknown)
+  IDirect3DRMArray = interface (IUnknown)
     function GetSize: DWORD; stdcall;
     (* No GetElement method as it would get overloaded
      * in derived classes, and overloading is
      * a no-no in COM
      *)
   end;
-  IDirect3DRMObjectarray = interface(IDirect3DRMArray)
+  IDirect3DRMObjectArray = interface (IDirect3DRMArray)
+        ['{242f6bc2-3849-11d0-9b6d-0000c0781bc3}']
-    function GetElement(index: DWORD; out lplpD3DRMObject: IDirect3DRMObject): HResult; stdcall;
+    function GetElement (index: DWORD; out lplpD3DRMObject:
+        IDirect3DRMObject) : HResult; stdcall;
   end;
-  IDirect3DRMDeviceArray = interface(IDirect3DRMArray)
+  IDirect3DRMDeviceArray = interface (IDirect3DRMArray)
-    ['{EB16CB10-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb0e-d271-11ce-ac48-0000c03825a1}']
-    // IDirect3DRMDevicearraymethods
+    function GetElement (index: DWORD; out lplpD3DRMDevice:
-    function GetElement(index: DWORD; out lplpD3DRMDevice: IDirect3DRMDevice): HResult; stdcall;
+        IDirect3DRMDevice) : HResult; stdcall;
   end;
-  IDirect3DRMFrameArray = interface(IDirect3DRMArray)
+  IDirect3DRMFrameArray = interface (IDirect3DRMArray)
-    ['{EB16CB12-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb12-d271-11ce-ac48-0000c03825a1}']
-    // IDirect3DRMFramearraymethods
-    function GetElement(index: DWORD; out lplpD3DRMFrame: IDirect3DRMFrame): HResult; stdcall;
+    function GetElement (index: DWORD; out lplpD3DRMFrame: IDirect3DRMFrame) : HResult; stdcall;
   end;
-  IDirect3DRMViewportArray = interface(IDirect3DRMArray)
+  IDirect3DRMViewportArray = interface (IDirect3DRMArray)
-    ['{EB16CB11-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb11-d271-11ce-ac48-0000c03825a1}']
-    // IDirect3DRMViewportarraymethods
+    function GetElement (index: DWORD; out lplpD3DRMViewport:
-    function GetElement(index: DWORD; out lplpD3DRMViewport: IDirect3DRMViewport): HResult; stdcall;
+        IDirect3DRMViewport) : HResult; stdcall;
   end;
-  IDirect3DRMVisualArray = interface(IDirect3DRMArray)
+  IDirect3DRMVisualArray = interface (IDirect3DRMArray)
-    ['{EB16CB13-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb13-d271-11ce-ac48-0000c03825a1}']
-    // IDirect3DRMVisualarraymethods
+    function GetElement (index: DWORD; out lplpD3DRMVisual:
-    function GetElement(index: DWORD; out lplpD3DRMVisual: IDirect3DRMVisual): HResult; stdcall;
+        IDirect3DRMVisual) : HResult; stdcall;
   end;
-  IDirect3DRMAnimationArray = interface(IDirect3DRMArray)
+  IDirect3DRMAnimationArray = interface (IDirect3DRMArray)
-    ['{D5F1CAE0-4BD7-11D1-B974-0060083E45F3}']
+    ['{d5f1cae0-4bd7-11d1-b974-0060083e45f3}']
-    function GetElement(index: DWORD; out lplpD3DRMAnimation: IDirect3DRMAnimation2): HResult; stdcall;
+    function GetElement (index: DWORD; out lplpD3DRMAnimation2:
+        IDirect3DRMAnimation2) : HResult; stdcall;
   end;
-  IDirect3DRMPickedArray = interface(IDirect3DRMArray)
+  IDirect3DRMPickedArray = interface (IDirect3DRMArray)
-    ['{EB16CB16-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb16-d271-11ce-ac48-0000c03825a1}']
-    // IDirect3DRMPickedarraymethods
-    function GetPick(index: DWORD; out lplpVisual: IDirect3DRMVisual;
+    function GetPick (index: DWORD; out lplpVisual: IDirect3DRMVisual;
         out lplpFrameArray: IDirect3DRMFrameArray;
-        var lpD3DRMPickDesc: TD3DRMPickDesc): HResult; stdcall;
+        const lpD3DRMPickDesc: TD3DRMPickDesc) : HResult; stdcall;
   end;
-  IDirect3DRMLightArray = interface(IDirect3DRMArray)
+  IDirect3DRMLightArray = interface (IDirect3DRMArray)
-    ['{EB16CB14-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb14-d271-11ce-ac48-0000c03825a1}']
-    // IDirect3DRMLightarraymethods
-    function GetElement(index: DWORD; out lplpD3DRMLight: IDirect3DRMLight): HResult; stdcall;
+    function GetElement (index: DWORD; out lplpD3DRMLight: IDirect3DRMLight) : HResult; stdcall;
   end;
-  IDirect3DRMFaceArray = interface(IDirect3DRMArray)
+  IDirect3DRMFaceArray = interface (IDirect3DRMArray)
-    ['{EB16CB17-D271-11CE-AC48-0000C03825A1}']
+    ['{eb16cb17-d271-11ce-ac48-0000c03825a1}']
-    // IDirect3DRMFacearraymethods
-    function GetElement(index: DWORD; out lplpD3DRMFace: IDirect3DRMFace): HResult; stdcall;
+    function GetElement (index: DWORD; out lplpD3DRMFace: IDirect3DRMFace) : HResult; stdcall;
   end;
-  IDirect3DRMPicked2Array = interface(IDirect3DRMArray)
+  IDirect3DRMPicked2Array = interface (IDirect3DRMArray)
-    ['{4516EC7B-8F20-11D0-9B6D-0000C0781BC3}']
+    ['{4516ec7b-8f20-11d0-9b6d-0000c0781bc3}']
-    // IDirect3DRMPicked2arraymethods
-    function GetPick(index: DWORD; out lplpVisual: IDirect3DRMVisual;
+    function GetPick (index: DWORD; out lplpVisual: IDirect3DRMVisual;
-        out lplpFrameArray: IDirect3DRMFrameArray;
+        out lplpFrameArray: IDirect3DRMFrameArray; const lpD3DRMPickDesc2:
-        const lpD3DRMPickDesc2: D3DRMPICKDESC2): HResult; stdcall;
+        TD3DRMPickDesc2) : HResult; stdcall;
   end;
-  IDirect3DRMInterpolator = interface(IDirect3DRMObject)
+  IDirect3DRMInterpolator = interface (IDirect3DRMObject)
-    ['{242F6BC1-3849-11D0-9B6D-0000C0781BC3}']
+    ['{242f6bc1-3849-11d0-9b6d-0000c0781bc3}']
+    (*
-    // IDirect3DRMInterpolator methods
+     * IDirect3DRMInterpolator methods
+     *)
-    function AttachObject(lpD3DRMObject: IDirect3DRMObject): HResult; stdcall;
+    function AttachObject (lpD3DRMObject: IDirect3DRMObject) : HResult; stdcall;
+    function GetAttachedObjects
-    function GetAttachedObjects(lpD3DRMObjectArray: IDirect3DRMObjectArray): HResult; stdcall;
+        (lpD3DRMObjectArray: IDirect3DRMObjectArray) : HResult; stdcall;
-    function DetachObject(lpD3DRMObject: IDirect3DRMObject): HResult; stdcall;
+    function DetachObject (lpD3DRMObject: IDirect3DRMObject) : HResult; stdcall;
-    function SetIndex(d3dVal: TD3DValue): HResult; stdcall;
+    function SetIndex (d3dVal: TD3DValue) : HResult; stdcall;
-    function GetIndex: TD3DValue; stdcall;
+    function GetIndex : TD3DValue; stdcall;
-    function Interpolate(d3dVal: TD3DValue; lpD3DRMObject: IDirect3DRMObject;
+    function Interpolate (d3dVal: TD3DValue; lpD3DRMObject: IDirect3DRMObject;
-        d3drmInterpFlags: TD3DRMInterpolationOptions): HResult; stdcall;
+        d3drmInterpFlags: TD3DRMInterpolationOptions) : HResult; stdcall;
   end;
-  IDirect3DRMClippedVisual = interface(IDirect3DRMVisual)
+  IDirect3DRMClippedVisual = interface (IDirect3DRMObject)
-    ['{5434E733-6D66-11D1-BB0B-0000F875865A}']
+    ['{5434e733-6d66-11d1-bb0b-0000f875865a}']
+    (*
-    // IDirect3DRMClippedVisual methods
+     * IDirect3DRMClippedVisual methods
+     *)
-    function Init(lpD3DRMVisual: IDirect3DRMVisual): HResult; stdcall;
+    function Init (lpD3DRMVisual: IDirect3DRMVisual) : HResult; stdcall;
+    function AddPlane (lpRef: IDirect3DRMFrame3;
-    function AddPlane(lpRef: IDirect3DRMFrame3; const lpdvPoint, lpdvNormal: TD3DVector;
+        const lpdvPoint, lpdvNormal: TD3DVector;
-        dwFlags: DWORD; var lpdwReturnID: DWORD): HResult; stdcall;
+        dwFlags: DWORD; out lpdwReturnID: DWORD) : HResult; stdcall;
-    function DeletePlane(dwID, dwFlags: DWORD): HResult; stdcall;
+    function DeletePlane (dwID, dwFlags: DWORD) : HResult; stdcall;
-    function GetPlaneIDs(var lpdwCount, lpdwID: DWORD; dwFlags: DWORD): HResult; stdcall;
+    function GetPlaneIDs (var lpdwCount: DWORD; out lpdwID: DWORD; dwFlags: DWORD) : HResult; stdcall;
     function GetPlane (dwID: DWORD; lpRef: IDirect3DRMFrame3;
-        var lpdvPoint, lpdvNormal: TD3DVector; dwFlags: DWORD): HResult; stdcall;
+        out lpdvPoint, lpdvNormal: TD3DVector; dwFlags: DWORD) : HResult; stdcall;
     function SetPlane (dwID: DWORD; lpRef: IDirect3DRMFrame3;
-        const lpdvPoint, lpdvNormal: TD3DVector; dwFlags: DWORD): HResult; stdcall;
+        const lpdvPoint, lpdvNormal: TD3DVector; dwFlags: DWORD) : HResult; stdcall;
   end;
+(*==========================================================================;
+ *
-  IDirect3DRMWinDevice = interface(IDirect3DRMObject)
+ *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *
-    ['{C5016CC0-D273-11CE-AC48-0000C03825A1}']
+ *  File:       d3drm.h
-    // IDirect3DRMWinDevice methods
+ *  Content:    Direct3DRM include file
+ *
-    function HandlePaint(hDC: HDC): HResult; stdcall;
+ ***************************************************************************)
-    function HandleActivate(wparam: WORD): HResult; stdcall;
+function D3DRMErrorString(Value: HResult) : string;
-  end;
+//type
+  //TRefClsID = TGUID;
+type
+  TD3DRMDevicePaletteCallback = procedure (lpDirect3DRMDev: IDirect3DRMDevice;
+      lpArg: Pointer; dwIndex: DWORD; red, green, blue: LongInt); cdecl;
+(*
+ * Direct3DRM Object Class (for CoCreateInstance())
+ *)
+const
+  CLSID_CDirect3DRM: TGUID =
+      (D1:$4516ec41;D2:$8f20;D3:$11d0;D4:($9b,$6d,$00,$00,$c0,$78,$1b,$c3));
+type
-  IDirect3DRM = interface(IUnknown)
+  IDirect3DRM = interface (IUnknown)
-    ['{2BC49361-8327-11CF-AC4A-0000C03825A1}']
+    ['{2bc49361-8327-11cf-ac4a-0000c03825a1}']
-    // IDirect3DRM methods
-    function CreateObject(const rclsid: TGUID; pUnkOuter: IUnknown;
+    function CreateObject (const rclsid: TRefClsID; pUnkOuter: IUnknown;
-        const riid: TGUID; out ppv): HResult; stdcall;
+        const riid: TGUID; out ppv) : HResult; stdcall;
-    function CreateFrame(lpD3DRMFrame: IDirect3DRMFrame;
+    function CreateFrame (lpD3DRMFrame: IDirect3DRMFrame;
-        out lplpD3DRMFrame: IDirect3DRMFrame): HResult; stdcall;
+        var lplpD3DRMFrame: IDirect3DRMFrame) : HResult; stdcall;
-    function CreateMesh(out lplpD3DRMMesh: IDirect3DRMMesh): HResult; stdcall;
+    function CreateMesh (var lplpD3DRMMesh: IDirect3DRMMesh) : HResult; stdcall;
-    function CreateMeshBuilder(out lplpD3DRMMeshBuilder:
+    function CreateMeshBuilder (var lplpD3DRMMeshBuilder:
-        IDirect3DRMMeshBuilder): HResult; stdcall;
+        IDirect3DRMMeshBuilder) : HResult; stdcall;
-    function CreateFace(out lplpd3drmFace: IDirect3DRMFace): HResult; stdcall;
+    function CreateFace (var lplpd3drmFace: IDirect3DRMFace) : HResult; stdcall;
-    function CreateAnimation(out lplpD3DRMAnimation: IDirect3DRMAnimation): HResult; stdcall;
+    function CreateAnimation (var lplpD3DRMAnimation: IDirect3DRMAnimation) : HResult; stdcall;
-    function CreateAnimationSet(out lplpD3DRMAnimationSet:
+    function CreateAnimationSet (var lplpD3DRMAnimationSet:
-        IDirect3DRMAnimationSet): HResult; stdcall;
+        IDirect3DRMAnimationSet) : HResult; stdcall;
-    function CreateTexture(const lpImage: TD3DRMImage;
+    function CreateTexture (var lpImage: TD3DRMImage;
-        out lplpD3DRMTexture: IDirect3DRMTexture): HResult; stdcall;
+        var lplpD3DRMTexture: IDirect3DRMTexture) : HResult; stdcall;
-    function CreateLight(d3drmltLightType: TD3DRMLightType;
+    function CreateLight (d3drmltLightType: TD3DRMLightType;
-        cColor: TD3DColor; out lplpD3DRMLight: IDirect3DRMLight): HResult; stdcall;
+        cColor: TD3DColor; var lplpD3DRMLight: IDirect3DRMLight) : HResult; stdcall;
-    function CreateLightRGB(ltLightType: TD3DRMLightType; vRed, vGreen, vBlue:
+    function CreateLightRGB (ltLightType: TD3DRMLightType; vRed,
-        TD3DValue; out lplpD3DRMLight: IDirect3DRMLight): HResult; stdcall;
+        vGreen, vBlue: TD3DValue; var lplpD3DRMLight: IDirect3DRMLight) : HResult; stdcall;
-    function CreateMaterial(vPower: TD3DValue; out lplpD3DRMMaterial:
+    function CreateMaterial (vPower: TD3DValue; var lplpD3DRMMaterial:
-        IDirect3DRMMaterial): HResult; stdcall;
+        IDirect3DRMMaterial) : HResult; stdcall;
-    function CreateDevice(dwWidth, dwHeight: DWORD; out lplpD3DRMDevice:
+    function CreateDevice (dwWidth, dwHeight: DWORD; var lplpD3DRMDevice:
-        IDirect3DRMDevice): HResult; stdcall;
+        IDirect3DRMDevice) : HResult; stdcall;
+    (* Create a Windows Device using DirectDraw surfaces *)
-    function CreateDeviceFromSurface(const lpGUID: TGUID; lpDD: IDirectDraw;
+    function CreateDeviceFromSurface (lpGUID: PGUID; lpDD: IDirectDraw;
-        lpDDSBack: IDirectDrawSurface; out lplpD3DRMDevice: IDirect3DRMDevice): HResult; stdcall;
+        lpDDSBack: IDirectDrawSurface; var lplpD3DRMDevice: IDirect3DRMDevice) :
+        HResult; stdcall;
+      (* Create a Windows Device using D3D objects *)
-    function CreateDeviceFromD3D(lpD3D: IDirect3D; lpD3DDev: IDirect3DDevice;
+    function CreateDeviceFromD3D (lpD3D: IDirect3D; lpD3DDev: IDirect3DDevice;
-        out lplpD3DRMDevice: IDirect3DRMDevice): HResult; stdcall;
+        var lplpD3DRMDevice: IDirect3DRMDevice) : HResult; stdcall;
-    function CreateDeviceFromClipper(lpDDClipper: IDirectDrawClipper;
+    function CreateDeviceFromClipper (lpDDClipper: IDirectDrawClipper;
-        const lpGUID: TGUID; width, height: DWORD; out lplpD3DRMDevice:
+        lpGUID: PGUID; width, height: Integer; var lplpD3DRMDevice:
-        IDirect3DRMDevice): HResult; stdcall;
+        IDirect3DRMDevice) : HResult; stdcall;
-    function CreateTextureFromSurface(lpDDS: IDirectDrawSurface;
+    function CreateTextureFromSurface ( lpDDS: IDirectDrawSurface;
-        out lplpD3DRMTexture: IDirect3DRMTexture): HResult; stdcall;
+        var lplpD3DRMTexture: IDirect3DRMTexture) : HResult; stdcall;
-    function CreateShadow(lpVisual: IDirect3DRMVisual;
+    function CreateShadow (lpVisual: IDirect3DRMVisual;
         lpLight: IDirect3DRMLight; px, py, pz, nx, ny, nz: TD3DValue;
-        out lplpShadow: IDirect3DRMVisual): HResult; stdcall;
+        var lplpShadow: IDirect3DRMVisual) : HResult; stdcall;
-    function CreateViewport(lpDev: IDirect3DRMDevice;
+    function CreateViewport (lpDev: IDirect3DRMDevice;
         lpCamera: IDirect3DRMFrame; dwXPos, dwYPos, dwWidth, dwHeight: DWORD;
-        out lplpD3DRMViewport: IDirect3DRMViewport): HResult; stdcall;
+        var lplpD3DRMViewport: IDirect3DRMViewport) : HResult; stdcall;
-    function CreateWrap(wraptype: TD3DRMWrapType; lpRef: IDirect3DRMFrame;
+    function CreateWrap (wraptype: TD3DRMWrapType; lpRef: IDirect3DRMFrame;
         ox, oy, oz, dx, dy, dz, ux, uy, uz, ou, ov, su, sv: TD3DValue;
-        out lplpD3DRMWrap: IDirect3DRMWrap): HResult; stdcall;
+        var lplpD3DRMWrap: IDirect3DRMWrap) : HResult; stdcall;
-    function CreateUserVisual(fn: TD3DRMUserVisualCallback; lpArg: Pointer;
+    function CreateUserVisual (fn: TD3DRMUserVisualCallback; lpArg: Pointer;
-        out lplpD3DRMUV: IDirect3DRMUserVisual): HResult; stdcall;
+        var lplpD3DRMUV: IDirect3DRMUserVisual) : HResult; stdcall;
-    function LoadTexture(lpFileName: LPSTR; out lplpD3DRMTexture:
+    function LoadTexture (lpFileName: PAnsiChar; var lplpD3DRMTexture:
-        IDirect3DRMTexture): HResult; stdcall;
+        IDirect3DRMTexture) : HResult; stdcall;
-    function LoadTextureFromResource(rs: HRSRC; out lplpD3DRMTexture:
+    function LoadTextureFromResource (rs: HRSRC; var lplpD3DRMTexture:
-        IDirect3DRMTexture): HResult; stdcall;
+        IDirect3DRMTexture) : HResult; stdcall;
-    function SetSearchPath(lpPath: LPSTR): HResult; stdcall;
+    function SetSearchPath (lpPath: PAnsiChar) : HResult; stdcall;
-    function AddSearchPath(lpPath: LPSTR): HResult; stdcall;
+    function AddSearchPath (lpPath: PAnsiChar) : HResult; stdcall;
-    function GetSearchPath(var lpdwSize: DWORD; lpszPath: LPSTR): HResult; stdcall;
+    function GetSearchPath (var lpdwSize: DWORD; lpszPath: PAnsiChar) : HResult; stdcall;
-    function SetDefaultTextureColors(dwColors: DWORD): HResult; stdcall;
+    function SetDefaultTextureColors (dwColors: DWORD) : HResult; stdcall;
-    function SetDefaultTextureShades(dwShades: DWORD): HResult; stdcall;
+    function SetDefaultTextureShades (dwShades: DWORD) : HResult; stdcall;
-    function GetDevices(out lplpDevArray: IDirect3DRMDeviceArray): HResult; stdcall;
+    function GetDevices (var lplpDevArray: IDirect3DRMDeviceArray) : HResult; stdcall;
-    function GetNamedObject(lpName: LPSTR; out lplpD3DRMObject:
+    function GetNamedObject (lpName: PAnsiChar; var lplpD3DRMObject: IDirect3DRMObject) : HResult; stdcall;
-        IDirect3DRMObject): HResult; stdcall;
-    function EnumerateObjects(func: TD3DRMObjectCallback; lpArg: Pointer): HResult; stdcall;
+    function EnumerateObjects (func: TD3DRMObjectCallback; lpArg: Pointer) : HResult; stdcall;
-    function Load(lpvObjSource, lpvObjID: Pointer; var lplpGUIDs: PGUID;
+    function Load (lpvObjSource, lpvObjID: Pointer; var lplpGUIDs: PGUID;
         dwcGUIDs: DWORD; d3drmLOFlags: TD3DRMLoadOptions; d3drmLoadProc:
-        D3DRMLOADCALLBACK; lpArgLP: Pointer; d3drmLoadTextureProc:
+        TD3DRMLoadCallback; lpArgLP: Pointer; d3drmLoadTextureProc:
-        TD3DRMLoadTextureCallback; lpArgLTP: Pointer;
+        TD3DRMLoadTextureCallback; lpArgLTP: Pointer; lpParentFrame:
-        lpParentFrame: IDirect3DRMFrame): HResult; stdcall;
+        IDirect3DRMFrame) : HResult; stdcall;
-    function Tick(d3dvalTick: TD3DValue): HResult; stdcall;
+    function Tick (d3dvalTick: TD3DValue) : HResult; stdcall;
   end;
+// Moved from D3DRMObj, to avoid circular unit reference:
+  IDirect3DRMObject2 = interface (IUnknown)
+    ['{4516ec7c-8f20-11d0-9b6d-0000c0781bc3}']
+    (*
+     * IDirect3DRMObject2 methods
+     *)
+    function AddDestroyCallback (lpCallback: TD3DRMObjectCallback;
+        lpArg: Pointer) : HResult; stdcall;
+    function Clone (pUnkOuter: IUnknown; const riid: TGUID;
+        out ppvObj) : HResult; stdcall;
+    function DeleteDestroyCallback (d3drmObjProc: TD3DRMObjectCallback;
+        lpArg: Pointer) : HResult; stdcall;
+    function GetClientData (dwID: DWORD; out lplpvData: Pointer) : HResult; stdcall;
+    function GetDirect3DRM (out lplpDirect3DRM: IDirect3DRM) : HResult; stdcall;
+    function GetName (var lpdwSize: DWORD; lpName: PAnsiChar) : HResult; stdcall;
+    function SetClientData (dwID: DWORD; lpvData: pointer; dwFlags: DWORD) : HResult; stdcall;
+    function SetName (lpName: PAnsiChar) : HResult; stdcall;
+    function GetAge (dwFlags: DWORD; out pdwAge: DWORD) : HResult; stdcall;
+  end;
+  IID_IDirect3DRMObject2 = IDirect3DRMObject2;
-  IDirect3DRM2 = interface(IUnknown)
+  IDirect3DRM2 = interface (IUnknown)
-    ['{4516ECC8-8F20-11D0-9B6D-0000C0781BC3}']
+    ['{4516ecc8-8f20-11d0-9b6d-0000c0781bc3}']
-    // IDirect3DRM2 methods
-    function CreateObject(const rclsid: TGUID; pUnkOuter: IUnknown;
+    function CreateObject (const rclsid: TRefClsID; pUnkOuter: IUnknown;
-        const riid: TGUID; out ppv): HResult; stdcall;
+        const riid: TGUID; out ppv) : HResult; stdcall;
-    function CreateFrame(lpD3DRMFrame: IDirect3DRMFrame2;
+    function CreateFrame (lpD3DRMFrame: IDirect3DRMFrame2;
-        out lplpD3DRMFrame: IDirect3DRMFrame2): HResult; stdcall;
+        var lplpD3DRMFrame: IDirect3DRMFrame2) : HResult; stdcall;
-    function CreateMesh(out lplpD3DRMMesh: IDirect3DRMMesh): HResult; stdcall;
+    function CreateMesh (var lplpD3DRMMesh: IDirect3DRMMesh) : HResult; stdcall;
-    function CreateMeshBuilder(out lplpD3DRMMeshBuilder:
+    function CreateMeshBuilder (var lplpD3DRMMeshBuilder:
-        IDirect3DRMMeshBuilder2): HResult; stdcall;
+        IDirect3DRMMeshBuilder2) : HResult; stdcall;
-    function CreateFace(out lplpd3drmFace: IDirect3DRMFace): HResult; stdcall;
+    function CreateFace (var lplpd3drmFace: IDirect3DRMFace) : HResult; stdcall;
-    function CreateAnimation(out lplpD3DRMAnimation: IDirect3DRMAnimation): HResult; stdcall;
+    function CreateAnimation (var lplpD3DRMAnimation: IDirect3DRMAnimation) : HResult; stdcall;
-    function CreateAnimationSet(out lplpD3DRMAnimationSet:
+    function CreateAnimationSet (var lplpD3DRMAnimationSet:
-        IDirect3DRMAnimationSet): HResult; stdcall;
+        IDirect3DRMAnimationSet) : HResult; stdcall;
-    function CreateTexture(const lpImage: TD3DRMImage;
+    function CreateTexture (var lpImage: TD3DRMImage;
-        out lplpD3DRMTexture: IDirect3DRMTexture2): HResult; stdcall;
+        var lplpD3DRMTexture: IDirect3DRMTexture2) : HResult; stdcall;
-    function CreateLight(d3drmltLightType: TD3DRMLightType;
+    function CreateLight (d3drmltLightType: TD3DRMLightType;
-        cColor: TD3DColor; out lplpD3DRMLight: IDirect3DRMLight): HResult; stdcall;
+        cColor: TD3DColor; var lplpD3DRMLight: IDirect3DRMLight) : HResult; stdcall;
-    function CreateLightRGB(ltLightType: TD3DRMLightType; vRed,
+    function CreateLightRGB (ltLightType: TD3DRMLightType; vRed,
-        vGreen, vBlue: TD3DValue; out lplpD3DRMLight: IDirect3DRMLight): HResult; stdcall;
+        vGreen, vBlue: TD3DValue; var lplpD3DRMLight: IDirect3DRMLight) : HResult; stdcall;
-    function CreateMaterial(vPower: TD3DValue; out lplpD3DRMMaterial:
+    function CreateMaterial (vPower: TD3DValue; var lplpD3DRMMaterial:
-        IDirect3DRMMaterial): HResult; stdcall;
+        IDirect3DRMMaterial) : HResult; stdcall;
-    function CreateDevice(dwWidth, dwHeight: DWORD; out lplpD3DRMDevice:
+    function CreateDevice (dwWidth, dwHeight: DWORD; var lplpD3DRMDevice:
-        IDirect3DRMDevice2): HResult; stdcall;
+        IDirect3DRMDevice2) : HResult; stdcall;
+    (* Create a Windows Device using DirectDraw surfaces *)
-    function CreateDeviceFromSurface(const lpGUID: TGUID; lpDD: IDirectDraw;
+    function CreateDeviceFromSurface (lpGUID: PGUID; lpDD: IDirectDraw;
-        lpDDSBack: IDirectDrawSurface; out lplpD3DRMDevice: IDirect3DRMDevice2): HResult; stdcall;
+        lpDDSBack: IDirectDrawSurface; var lplpD3DRMDevice: IDirect3DRMDevice2) :
+        HResult; stdcall;
+      (* Create a Windows Device using D3D objects *)
-    function CreateDeviceFromD3D(lpD3D: IDirect3D2; lpD3DDev: IDirect3DDevice2;
+    function CreateDeviceFromD3D (lpD3D: IDirect3D2; lpD3DDev: IDirect3DDevice2;
-        out lplpD3DRMDevice: IDirect3DRMDevice2): HResult; stdcall;
+        var lplpD3DRMDevice: IDirect3DRMDevice2) : HResult; stdcall;
-    function CreateDeviceFromClipper(lpDDClipper: IDirectDrawClipper;
+    function CreateDeviceFromClipper (lpDDClipper: IDirectDrawClipper;
-        const lpGUID: TGUID; width, height: DWORD; out lplpD3DRMDevice:
+        lpGUID: PGUID; width, height: Integer; var lplpD3DRMDevice:
-        IDirect3DRMDevice2): HResult; stdcall;
+        IDirect3DRMDevice2) : HResult; stdcall;
-    function CreateTextureFromSurface( lpDDS: IDirectDrawSurface;
+    function CreateTextureFromSurface ( lpDDS: IDirectDrawSurface;
-        out lplpD3DRMTexture: IDirect3DRMTexture2): HResult; stdcall;
+        var lplpD3DRMTexture: IDirect3DRMTexture2) : HResult; stdcall;
-    function CreateShadow(lpVisual: IDirect3DRMVisual;
+    function CreateShadow (lpVisual: IDirect3DRMVisual;
         lpLight: IDirect3DRMLight; px, py, pz, nx, ny, nz: TD3DValue;
-        out lplpShadow: IDirect3DRMVisual): HResult; stdcall;
+        var lplpShadow: IDirect3DRMVisual) : HResult; stdcall;
-    function CreateViewport(lpDev: IDirect3DRMDevice;
+    function CreateViewport (lpDev: IDirect3DRMDevice;
         lpCamera: IDirect3DRMFrame; dwXPos, dwYPos, dwWidth, dwHeight: DWORD;
-        out lplpD3DRMViewport: IDirect3DRMViewport): HResult; stdcall;
+        var lplpD3DRMViewport: IDirect3DRMViewport) : HResult; stdcall;
-    function CreateWrap(wraptype: TD3DRMWrapType; lpRef: IDirect3DRMFrame;
+    function CreateWrap (wraptype: TD3DRMWrapType; lpRef: IDirect3DRMFrame;
         ox, oy, oz, dx, dy, dz, ux, uy, uz, ou, ov, su, sv: TD3DValue;
-        out lplpD3DRMWrap: IDirect3DRMWrap): HResult; stdcall;
+        var lplpD3DRMWrap: IDirect3DRMWrap) : HResult; stdcall;
-    function CreateUserVisual(fn: TD3DRMUserVisualCallback; lpArg: Pointer;
+    function CreateUserVisual (fn: TD3DRMUserVisualCallback; lpArg: Pointer;
-        out lplpD3DRMUV: IDirect3DRMUserVisual): HResult; stdcall;
+        var lplpD3DRMUV: IDirect3DRMUserVisual) : HResult; stdcall;
-    function LoadTexture(lpFileName: LPSTR; out lplpD3DRMTexture:
+    function LoadTexture (lpFileName: PAnsiChar; var lplpD3DRMTexture:
-        IDirect3DRMTexture2): HResult; stdcall;
+        IDirect3DRMTexture2) : HResult; stdcall;
-    function LoadTextureFromResource(hModule: HModule; str: LPCSTR; out lplpD3DRMTexture:
+    function LoadTextureFromResource (rs: HRSRC; var lplpD3DRMTexture:
-        IDirect3DRMTexture2): HResult; stdcall;
+        IDirect3DRMTexture2) : HResult; stdcall;
-    function SetSearchPath(lpPath: LPSTR): HResult; stdcall;
+    function SetSearchPath (lpPath: PAnsiChar) : HResult; stdcall;
-    function AddSearchPath(lpPath: LPSTR): HResult; stdcall;
+    function AddSearchPath (lpPath: PAnsiChar) : HResult; stdcall;
-    function GetSearchPath(var lpdwSize: DWORD; lpszPath: LPSTR): HResult; stdcall;
+    function GetSearchPath (var lpdwSize: DWORD; lpszPath: PAnsiChar) : HResult; stdcall;
-    function SetDefaultTextureColors(dwColors: DWORD): HResult; stdcall;
+    function SetDefaultTextureColors (dwColors: DWORD) : HResult; stdcall;
-    function SetDefaultTextureShades(dwShades: DWORD): HResult; stdcall;
+    function SetDefaultTextureShades (dwShades: DWORD) : HResult; stdcall;
-    function GetDevices(out lplpDevArray: IDirect3DRMDeviceArray): HResult; stdcall;
+    function GetDevices (var lplpDevArray: IDirect3DRMDeviceArray) : HResult; stdcall;
-    function GetNamedObject(lpName: LPSTR; out lplpD3DRMObject:
+    function GetNamedObject (lpName: PAnsiChar; var lplpD3DRMObject:
-        IDirect3DRMObject): HResult; stdcall;
+        IDirect3DRMObject) : HResult; stdcall;
-    function EnumerateObjects(func: TD3DRMObjectCallback; lpArg: Pointer): HResult; stdcall;
+    function EnumerateObjects (func: TD3DRMObjectCallback; lpArg: Pointer) : HResult; stdcall;
-    function Load(lpvObjSource, lpvObjID: Pointer; var lplpGUIDs: PGUID;
+    function Load (lpvObjSource, lpvObjID: Pointer; var lplpGUIDs: PGUID;
         dwcGUIDs: DWORD; d3drmLOFlags: TD3DRMLoadOptions; d3drmLoadProc:
-        D3DRMLOADCALLBACK; lpArgLP: Pointer; d3drmLoadTextureProc:
+        TD3DRMLoadCallback; lpArgLP: Pointer; d3drmLoadTextureProc:
         TD3DRMLoadTextureCallback; lpArgLTP: Pointer; lpParentFrame:
-        IDirect3DRMFrame): HResult; stdcall;
+        IDirect3DRMFrame) : HResult; stdcall;
-    function Tick(d3dvalTick: TD3DValue): HResult; stdcall;
+    function Tick (d3dvalTick: TD3DValue) : HResult; stdcall;
-    function CreateProgressiveMesh(out lplpD3DRMProgressiveMesh:
+    function CreateProgressiveMesh (var lplpD3DRMProgressiveMesh:
-        IDirect3DRMProgressiveMesh): HResult; stdcall;
+        IDirect3DRMProgressiveMesh) : HResult; stdcall;
   end;
-  IDirect3DRM3 = interface(IUnknown)
+  IDirect3DRM3 = interface (IUnknown)
-    ['{4516EC83-8F20-11D0-9B6D-0000C0781BC3}']
+    ['{4516ec83-8f20-11d0-9b6d-0000c0781bc3}']
-    // IDirect3DRM2 methods
-    function CreateObject(const rclsid: TGUID; pUnkOuter: IUnknown;
+    function CreateObject (const rclsid: TRefClsID; pUnkOuter: IUnknown;
-        const riid: TGUID; out ppv): HResult; stdcall;
+        const riid: TGUID; out ppv) : HResult; stdcall;
-    function CreateFrame(lpD3DRMFrame: IDirect3DRMFrame3;
+    function CreateFrame (lpD3DRMFrame: IDirect3DRMFrame3;
-        out lplpD3DRMFrame: IDirect3DRMFrame3): HResult; stdcall;
+        out lplpD3DRMFrame: IDirect3DRMFrame3) : HResult; stdcall;
-    function CreateMesh(out lplpD3DRMMesh: IDirect3DRMMesh): HResult; stdcall;
+    function CreateMesh (out lplpD3DRMMesh: IDirect3DRMMesh) : HResult; stdcall;
-    function CreateMeshBuilder(out lplpD3DRMMeshBuilder:
+    function CreateMeshBuilder (out lplpD3DRMMeshBuilder:
-        IDirect3DRMMeshBuilder3): HResult; stdcall;
+        IDirect3DRMMeshBuilder3) : HResult; stdcall;
-    function CreateFace(out lplpd3drmFace: IDirect3DRMFace2): HResult; stdcall;
+    function CreateFace (out lplpd3drmFace: IDirect3DRMFace2) : HResult; stdcall;
-    function CreateAnimation(out lplpD3DRMAnimation: IDirect3DRMAnimation2): HResult; stdcall;
+    function CreateAnimation (out lplpD3DRMAnimation: IDirect3DRMAnimation2) : HResult; stdcall;
-    function CreateAnimationSet(out lplpD3DRMAnimationSet:
+    function CreateAnimationSet (out lplpD3DRMAnimationSet:
-        IDirect3DRMAnimationSet2): HResult; stdcall;
+        IDirect3DRMAnimationSet2) : HResult; stdcall;
-    function CreateTexture(const lpImage: TD3DRMImage;
+    function CreateTexture (const lpImage: TD3DRMImage;
-        out lplpD3DRMTexture: IDirect3DRMTexture3): HResult; stdcall;
+        out lplpD3DRMTexture: IDirect3DRMTexture3) : HResult; stdcall;
-    function CreateLight(d3drmltLightType: TD3DRMLightType;
+    function CreateLight (d3drmltLightType: TD3DRMLightType;
-        cColor: TD3DColor; out lplpD3DRMLight: IDirect3DRMLight): HResult; stdcall;
+        cColor: TD3DColor; out lplpD3DRMLight: IDirect3DRMLight) : HResult; stdcall;
-    function CreateLightRGB(ltLightType: TD3DRMLightType; vRed,
+    function CreateLightRGB (ltLightType: TD3DRMLightType; vRed,
-        vGreen, vBlue: TD3DValue; out lplpD3DRMLight: IDirect3DRMLight): HResult; stdcall;
+        vGreen, vBlue: TD3DValue; out lplpD3DRMLight: IDirect3DRMLight) : HResult; stdcall;
-    function CreateMaterial(vPower: TD3DValue; out lplpD3DRMMaterial:
+    function CreateMaterial (vPower: TD3DValue; out lplpD3DRMMaterial:
-        IDirect3DRMMaterial2): HResult; stdcall;
+        IDirect3DRMMaterial2) : HResult; stdcall;
-    function CreateDevice(dwWidth, dwHeight: DWORD; out lplpD3DRMDevice:
+    function CreateDevice (dwWidth, dwHeight: DWORD; out lplpD3DRMDevice:
-        IDirect3DRMDevice3): HResult; stdcall;
+        IDirect3DRMDevice3) : HResult; stdcall;
+    (* Create a Windows Device using DirectDraw surfaces *)
-    function CreateDeviceFromSurface(const lpGUID: TGUID; lpDD: IDirectDraw;
+    function CreateDeviceFromSurface (lpGUID: PGUID; lpDD: IDirectDraw;
+        lpDDSBack: IDirectDrawSurface; dwFlags: DWORD;
-        lpDDSBack: IDirectDrawSurface; out lplpD3DRMDevice: IDirect3DRMDevice3): HResult; stdcall;
+        out lplpD3DRMDevice: IDirect3DRMDevice3) : HResult; stdcall;
+      (* Create a Windows Device using D3D objects *)
-    function CreateDeviceFromD3D(lpD3D: IDirect3D2; lpD3DDev: IDirect3DDevice2;
+    function CreateDeviceFromD3D (lpD3D: IDirect3D2; lpD3DDev: IDirect3DDevice2;
-        out lplpD3DRMDevice: IDirect3DRMDevice3): HResult; stdcall;
+        out lplpD3DRMDevice: IDirect3DRMDevice3) : HResult; stdcall;
-    function CreateDeviceFromClipper(lpDDClipper: IDirectDrawClipper;
+    function CreateDeviceFromClipper (lpDDClipper: IDirectDrawClipper;
-        const lpGUID: TGUID; width, height: DWORD; out lplpD3DRMDevice:
+        lpGUID: PGUID; width, height: Integer;
-        IDirect3DRMDevice3): HResult; stdcall;
+        out lplpD3DRMDevice: IDirect3DRMDevice3) : HResult; stdcall;
-    function CreateTextureFromSurface( lpDDS: IDirectDrawSurface;
+    function CreateTextureFromSurface ( lpDDS: IDirectDrawSurface;
-        out lplpD3DRMTexture: IDirect3DRMTexture3): HResult; stdcall;
+        out lplpD3DRMTexture: IDirect3DRMTexture3) : HResult; stdcall;
-    function CreateShadow(lpVisual: IDirect3DRMVisual;
+    function CreateShadow (pUnk: IUnknown; lpLight: IDirect3DRMLight;
-        lpLight: IDirect3DRMLight; px, py, pz, nx, ny, nz: TD3DValue;
+        px, py, pz, nx, ny, nz: TD3DValue;
-        out lplpShadow: IDirect3DRMShadow): HResult; stdcall;
+        out lplpShadow: IDirect3DRMShadow2) : HResult; stdcall;
-    function CreateViewport(lpDev: IDirect3DRMDevice3;
+    function CreateViewport (lpDev: IDirect3DRMDevice3;
         lpCamera: IDirect3DRMFrame3; dwXPos, dwYPos, dwWidth, dwHeight: DWORD;
-        out lplpD3DRMViewport: IDirect3DRMViewport2): HResult; stdcall;
+        out lplpD3DRMViewport: IDirect3DRMViewport2) : HResult; stdcall;
-    function CreateWrap(wraptype: TD3DRMWrapType; lpRef: IDirect3DRMFrame3;
+    function CreateWrap (wraptype: TD3DRMWrapType; lpRef: IDirect3DRMFrame3;
         ox, oy, oz, dx, dy, dz, ux, uy, uz, ou, ov, su, sv: TD3DValue;
-        out lplpD3DRMWrap: IDirect3DRMWrap): HResult; stdcall;
+        out lplpD3DRMWrap: IDirect3DRMWrap) : HResult; stdcall;
-    function CreateUserVisual(fn: TD3DRMUserVisualCallback; lpArg: Pointer;
+    function CreateUserVisual (fn: TD3DRMUserVisualCallback; lpArg: Pointer;
-        out lplpD3DRMUV: IDirect3DRMUserVisual): HResult; stdcall;
+        out lplpD3DRMUV: IDirect3DRMUserVisual) : HResult; stdcall;
-    function LoadTexture(lpFileName: LPSTR; out lplpD3DRMTexture:
+    function LoadTexture (lpFileName: PAnsiChar; out lplpD3DRMTexture:
-        IDirect3DRMTexture3): HResult; stdcall;
-    function LoadTextureFromResource(hModule: HModule; str: LPCSTR; out lplpD3DRMTexture:
-        IDirect3DRMTexture3): HResult; stdcall;
+        IDirect3DRMTexture3) : HResult; stdcall;
+    function LoadTextureFromResource (hModule: HMODULE;
+        strName, strType: PAnsiChar;
+        out lplpD3DRMTexture: IDirect3DRMTexture3) : HResult; stdcall;
-    function SetSearchPath(lpPath: LPSTR): HResult; stdcall;
+    function SetSearchPath (lpPath: PAnsiChar) : HResult; stdcall;
-    function AddSearchPath(lpPath: LPSTR): HResult; stdcall;
+    function AddSearchPath (lpPath: PAnsiChar) : HResult; stdcall;
-    function GetSearchPath(var lpdwSize: DWORD; lpszPath: LPSTR): HResult; stdcall;
+    function GetSearchPath (var lpdwSize: DWORD; lpszPath: PAnsiChar) : HResult; stdcall;
-    function SetDefaultTextureColors(dwColors: DWORD): HResult; stdcall;
+    function SetDefaultTextureColors (dwColors: DWORD) : HResult; stdcall;
-    function SetDefaultTextureShades(dwShades: DWORD): HResult; stdcall;
+    function SetDefaultTextureShades (dwShades: DWORD) : HResult; stdcall;
-    function GetDevices(out lplpDevArray: IDirect3DRMDeviceArray): HResult; stdcall;
+    function GetDevices (out lplpDevArray: IDirect3DRMDeviceArray) : HResult; stdcall;
-    function GetNamedObject(lpName: LPSTR; out lplpD3DRMObject:
+    function GetNamedObject (lpName: PAnsiChar; out lplpD3DRMObject: IDirect3DRMObject) : HResult; stdcall;
-        IDirect3DRMObject): HResult; stdcall;
-    function EnumerateObjects(func: TD3DRMObjectCallback; lpArg: Pointer): HResult; stdcall;
+    function EnumerateObjects (func: TD3DRMObjectCallback; lpArg: Pointer) : HResult; stdcall;
-    function Load(lpvObjSource, lpvObjID: Pointer; var lplpGUIDs: PGUID;
+    function Load (lpvObjSource, lpvObjID: Pointer; var lplpGUIDs: PGUID;
         dwcGUIDs: DWORD; d3drmLOFlags: TD3DRMLoadOptions; d3drmLoadProc:
-        D3DRMLOADCALLBACK; lpArgLP: Pointer; d3drmLoadTextureProc:
+        TD3DRMLoadCallback; lpArgLP: Pointer; d3drmLoadTextureProc:
         TD3DRMLoadTexture3Callback; lpArgLTP: Pointer; lpParentFrame:
-        IDirect3DRMFrame3): HResult; stdcall;
+        IDirect3DRMFrame3) : HResult; stdcall;
-    function Tick(d3dvalTick: TD3DValue): HResult; stdcall;
+    function Tick (d3dvalTick: TD3DValue) : HResult; stdcall;
-    function CreateProgressiveMesh(out lplpD3DRMProgressiveMesh:
+    function CreateProgressiveMesh (out lplpD3DRMProgressiveMesh:
-        IDirect3DRMProgressiveMesh): HResult; stdcall;
+        IDirect3DRMProgressiveMesh) : HResult; stdcall;
-    // IDirect3RM3 methods
+    (* Used with IDirect3DRMObject2 *)
-    function RegisterClient(const rguid: TGUID; var lpdwID: DWORD): HResult; stdcall;
+    function RegisterClient (const rguid: TGUID; out lpdwID: DWORD) : HResult; stdcall;
-    function UnregisterClient(const rguid: TGUID): HResult; stdcall;
+    function UnregisterClient (const rguid: TGUID) : HResult; stdcall;
-    function CreateClippedVisual(lpVisual: IDirect3DRMVisual;
+    function CreateClippedVisual (lpVisual: IDirect3DRMVisual;
-        out lpClippedVisual: IDirect3DRMVisual): HResult; stdcall;
+        lpClippedVisual: IDirect3DRMClippedVisual) : HResult; stdcall;
-    function SetOptions(lpdwOptions: DWORD): HResult; stdcall;
+    function SetOptions (dwOptions: DWORD) : HResult; stdcall;
-    function GetOptions(var lpdwOptions: DWORD): HResult; stdcall;
+    function GetOptions (out lpdwOptions: DWORD) : HResult; stdcall;
   end;
+  IID_IDirect3DRM =  IDirect3DRM;
+  IID_IDirect3DRM2 = IDirect3DRM2;
+  IID_IDirect3DRM3 = IDirect3DRM3;
 const
+  MAKE_D3RMDHRESULT = HResult($88760000);
-  D3DRM_OK                        = HResult(DD_OK);
+  D3DRM_OK                        = DD_OK;
-  D3DRMERR_BADOBJECT              = HResult($88760000 + 781);
+  D3DRMERR_BADOBJECT              = MAKE_D3RMDHRESULT + 781;
-  D3DRMERR_BADTYPE                = HResult($88760000 + 782);
+  D3DRMERR_BADTYPE                = MAKE_D3RMDHRESULT + 782;
-  D3DRMERR_BADALLOC               = HResult($88760000 + 783);
+  D3DRMERR_BADALLOC               = MAKE_D3RMDHRESULT + 783;
-  D3DRMERR_FACEUSED               = HResult($88760000 + 784);
+  D3DRMERR_FACEUSED               = MAKE_D3RMDHRESULT + 784;
-  D3DRMERR_NOTFOUND               = HResult($88760000 + 785);
+  D3DRMERR_NOTFOUND               = MAKE_D3RMDHRESULT + 785;
-  D3DRMERR_NOTDONEYET             = HResult($88760000 + 786);
+  D3DRMERR_NOTDONEYET             = MAKE_D3RMDHRESULT + 786;
-  D3DRMERR_FILENOTFOUND           = HResult($88760000 + 787);
+  D3DRMERR_FILENOTFOUND           = MAKE_D3RMDHRESULT + 787;
-  D3DRMERR_BADFILE                = HResult($88760000 + 788);
+  D3DRMERR_BADFILE                = MAKE_D3RMDHRESULT + 788;
-  D3DRMERR_BADDEVICE              = HResult($88760000 + 789);
+  D3DRMERR_BADDEVICE              = MAKE_D3RMDHRESULT + 789;
-  D3DRMERR_BADVALUE               = HResult($88760000 + 790);
+  D3DRMERR_BADVALUE               = MAKE_D3RMDHRESULT + 790;
-  D3DRMERR_BADMAJORVERSION        = HResult($88760000 + 791);
+  D3DRMERR_BADMAJORVERSION        = MAKE_D3RMDHRESULT + 791;
-  D3DRMERR_BADMINORVERSION        = HResult($88760000 + 792);
+  D3DRMERR_BADMINORVERSION        = MAKE_D3RMDHRESULT + 792;
-  D3DRMERR_UNABLETOEXECUTE        = HResult($88760000 + 793);
+  D3DRMERR_UNABLETOEXECUTE        = MAKE_D3RMDHRESULT + 793;
-  D3DRMERR_LIBRARYNOTFOUND        = HResult($88760000 + 794);
+  D3DRMERR_LIBRARYNOTFOUND        = MAKE_D3RMDHRESULT + 794;
-  D3DRMERR_INVALIDLIBRARY         = HResult($88760000 + 795);
+  D3DRMERR_INVALIDLIBRARY         = MAKE_D3RMDHRESULT + 795;
-  D3DRMERR_PENDING                = HResult($88760000 + 796);
+  D3DRMERR_PENDING                = MAKE_D3RMDHRESULT + 796;
-  D3DRMERR_NOTENOUGHDATA          = HResult($88760000 + 797);
+  D3DRMERR_NOTENOUGHDATA          = MAKE_D3RMDHRESULT + 797;
-  D3DRMERR_REQUESTTOOLARGE        = HResult($88760000 + 798);
+  D3DRMERR_REQUESTTOOLARGE        = MAKE_D3RMDHRESULT + 798;
-  D3DRMERR_REQUESTTOOSMALL        = HResult($88760000 + 799);
+  D3DRMERR_REQUESTTOOSMALL        = MAKE_D3RMDHRESULT + 799;
-  D3DRMERR_CONNECTIONLOST         = HResult($88760000 + 800);
+  D3DRMERR_CONNECTIONLOST         = MAKE_D3RMDHRESULT + 800;
-  D3DRMERR_LOADABORTED            = HResult($88760000 + 801);
+  D3DRMERR_LOADABORTED            = MAKE_D3RMDHRESULT + 801;
-  D3DRMERR_NOINTERNET             = HResult($88760000 + 802);
+  D3DRMERR_NOINTERNET             = MAKE_D3RMDHRESULT + 802;
-  D3DRMERR_BADCACHEFILE           = HResult($88760000 + 803);
+  D3DRMERR_BADCACHEFILE           = MAKE_D3RMDHRESULT + 803;
-  D3DRMERR_BOXNOTSET              = HResult($88760000 + 804);
+  D3DRMERR_BOXNOTSET              = MAKE_D3RMDHRESULT + 804;
-  D3DRMERR_BADPMDATA              = HResult($88760000 + 805);
+  D3DRMERR_BADPMDATA              = MAKE_D3RMDHRESULT + 805;
-  D3DRMERR_CLIENTNOTREGISTERED    = HResult($88760000 + 806);
+  D3DRMERR_CLIENTNOTREGISTERED    = MAKE_D3RMDHRESULT + 806;
-  D3DRMERR_NOTCREATEDFROMDDS      = HResult($88760000 + 807);
+  D3DRMERR_NOTCREATEDFROMDDS      = MAKE_D3RMDHRESULT + 807;
-  D3DRMERR_NOSUCHKEY              = HResult($88760000 + 808);
+  D3DRMERR_NOSUCHKEY              = MAKE_D3RMDHRESULT + 808;
-  D3DRMERR_INCOMPATABLEKEY        = HResult($88760000 + 809);
+  D3DRMERR_INCOMPATABLEKEY        = MAKE_D3RMDHRESULT + 809;
-  D3DRMERR_ELEMENTINUSE           = HResult($88760000 + 810);
+  D3DRMERR_ELEMENTINUSE           = MAKE_D3RMDHRESULT + 810;
-  D3DRMERR_TEXTUREFORMATNOTFOUND  = HResult($88760000 + 811);
+  D3DRMERR_TEXTUREFORMATNOTFOUND  = MAKE_D3RMDHRESULT + 811;
-  D3DRMERR_NOTAGGREGATED          = HResult($88760000 + 812);
-{ Create a Direct3DRM API }
+(* Create a Direct3DRM API *)
+var
-function Direct3DRMCreate(out lplpDirect3DRM: IDirect3DRM): HResult; stdcall;
+  Direct3DRMCreate : function (out lplpDirect3DRM: IDirect3DRM) : HResult; stdcall;
-(***************************************************************************
+(*==========================================================================;
- *
- *  Copyright (C) 1998-1999 Microsoft Corporation.  All Rights Reserved.
+ *
- *  File:       dxfile.h
+ *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *
+ *  File:       d3drmwin.h
- *  Content:    DirectX File public header file
+ *  Content:    Direct3DRM include file
+ *
  ***************************************************************************)
-{ DirectXFile Object Class Id (for CoCreateInstance()) }
-const
-  CLSID_CDirectXFile: TGUID = '{4516EC43-8F20-11D0-9B6D-0000C0781BC3}';
-{ DirectX File Interface GUIDs. }
-  IID_IDirectXFile: TGUID = '{3D82AB40-62DA-11CF-AB39-0020AF71E433}';
-  IID_IDirectXFileEnumObject: TGUID = '{3D82AB41-62DA-11CF-AB39-0020AF71E433}';
-  IID_IDirectXFileSaveObject: TGUID = '{3D82AB42-62DA-11CF-AB39-0020AF71E433}';
-  IID_IDirectXFileObject: TGUID = '{3D82AB43-62DA-11CF-AB39-0020AF71E433}';
-  IID_IDirectXFileData: TGUID = '{3D82AB44-62DA-11CF-AB39-0020AF71E433}';
-  IID_IDirectXFileDataReference: TGUID = '{3D82AB45-62DA-11CF-AB39-0020AF71E433}';
-  IID_IDirectXFileBinary: TGUID = '{3D82AB46-62DA-11CF-AB39-0020AF71E433}';
 type
-  TDXFileFormat = DWORD;
-  DXFILEFORMAT = TDXFileFormat;
-const
-  DXFILEFORMAT_BINARY     = 0;
-  DXFILEFORMAT_TEXT       = 1;
-  DXFILEFORMAT_COMPRESSED = 2;
-type
-  TDXFileLoadOptions = DWORD;
-  DXFILELOADOPTIONS = TDXFileLoadOptions;
-const
-  DXFILELOAD_FROMFILE     = $00;
-  DXFILELOAD_FROMRESOURCE = $01;
-  DXFILELOAD_FROMMEMORY   = $02;
-  DXFILELOAD_FROMSTREAM   = $04;
-  DXFILELOAD_FROMURL      = $08;
-type
-  PDXFileLoadResource = ^TDXFileLoadResource;
-  TDXFileLoadResource = record
-    hModule: HModule;
-    lpName: PChar;
-    lpType: PChar;
-  end;
-  DXFILELOADRESOURCE = TDXFileLoadResource;
-  LPDXFILELOADRESOURCE = PDXFileLoadResource;
-  PDXFileLoadMemory = ^TDXFileLoadMemory;
-  TDXFileLoadMemory = record
-    lpMemory: Pointer;
-    dSize: DWORD;
-  end;
-  DXFILELOADMEMORY = TDXFileLoadMemory;
-  LPDXFILELOADMEMORY = PDXFileLoadMemory;
-{ DirectX File object types. }
-type
-  IDirectXFile = interface;
-  IDirectXFileEnumObject = interface;
-  IDirectXFileSaveObject = interface;
-  IDirectXFileObject = interface;
-  IDirectXFileData = interface;
-  IDirectXFileDataReference = interface;
-  IDirectXFileBinary = interface;
-  IDirectXFile = interface(IUnknown)
+  IDirect3DRMWinDevice = interface (IDirect3DRMObject)
-    ['{3D82AB40-62DA-11CF-AB39-0020AF71E433}']
+    ['{c5016cc0-d273-11ce-ac48-0000c03825a1}']
-    function CreateEnumObject(pvSource: Pointer; dwLoadOptions: TDXFileLoadOptions;
-        out ppEnumObj: IDirectXFileEnumObject): HResult; stdcall;
-    function CreateSaveObject(szFileName: PChar; dwFileFormat: TDXFileFormat;
-        out ppSaveObj: IDirectXFileSaveObject): HResult; stdcall;
-    function RegisterTemplates(pvData: Pointer; cbSize: DWORD): HResult; stdcall;
-  end;
-  IDirectXFileEnumObject = interface(IUnknown)
-    ['{3D82AB41-62DA-11CF-AB39-0020AF71E433}']
-    function GetNextDataObject(out ppDataObj: IDirectXFileData): HResult; stdcall;
-    function GetDataObjectById(const rguid: TGUID; out ppDataObj: IDirectXFileData): HResult; stdcall;
-    function GetDataObjectByName(szName: PChar; out ppDataObj: IDirectXFileData): HResult; stdcall;
-  end;
-  IDirectXFileSaveObject = interface(IUnknown)
-    ['{3D82AB42-62DA-11CF-AB39-0020AF71E433}']
-    function SaveTemplates(cTemplates: DWORD; var ppguidTemplates: PGUID): HResult; stdcall;
-    function CreateDataObject(const rguidTemplate: TGUID; szName: PChar;
-        const pguid: TGUID; cbSize: DWORD; pvData: Pointer;
-        out ppDataObj: IDirectXFileData): HResult; stdcall;
-    function SaveData(pDataObj: IDirectXFileData): HResult; stdcall;
-  end;
+    (*
-  IDirectXFileObject = interface(IUnknown)
+     * IDirect3DRMWinDevice methods
-    ['{3D82AB43-62DA-11CF-AB39-0020AF71E433}']
-    function GetName(pstrNameBuf: PChar; var dwBufLen: DWORD): HResult; stdcall;
-    function GetId (var pGuidBuf: TGUID): HResult; stdcall;
-  end;
-  IDirectXFileData = interface(IDirectXFileObject)
-    ['{3D82AB44-62DA-11CF-AB39-0020AF71E433}']
-    function GetData(szMember: PChar; var pcbSize: DWORD; var ppvData: Pointer): HResult; stdcall;
-    function GetType(var ppguid: PGUID): HResult; stdcall;
-    function GetNextObject(out ppChildObj: IDirectXFileObject): HResult; stdcall;
-    function AddDataObject(pDataObj: IDirectXFileData): HResult; stdcall;
-    function AddDataReference(szRef: PChar; pguidRef: PGUID): HResult; stdcall;
-    function AddBinaryObjec (szName: PChar; pguid: PGUID; szMimeType: PChar;
-        pvData: Pointer; cbSize: DWORD): HResult; stdcall;
-  end;
+     *)
-  IDirectXFileDataReference = interface(IDirectXFileObject)
+    (* Repaint the window with the last frame which was rendered. *)
-    ['{3D82AB45-62DA-11CF-AB39-0020AF71E433}']
-    function Resolve(out ppDataObj: IDirectXFileData): HResult; stdcall;
+    function HandlePaint (hDC: HDC) : HResult; stdcall;
-  end;
-  IDirectXFileBinary = interface(IDirectXFileObject)
-    ['{3D82AB46-62DA-11CF-AB39-0020AF71E433}']
+    (* Respond to a WM_ACTIVATE message. *)
-    function GetSize(var pcbSize: DWORD): HResult; stdcall;
+    function HandleActivate (wparam: WORD) : HResult; stdcall;
-    function GetMimeType(var pszMimeType: PChar): HResult; stdcall;
-    function Read(pvData: Pointer; cbSize: DWORD; var pcbRead: DWORD): HResult; stdcall;
   end;
-{ DirectX File Header template's GUID. }
-const
-  TID_DXFILEHeader: TGUID = '{3D82AB43-62DA-11CF-AB39-0020AF71E433}';
+(*
-{ DirectX File errors. }
-const
-  DXFILE_OK                         = HResult(0);
-  DXFILEERR_BADOBJECT               = HResult($88760000 + 850);
-  DXFILEERR_BADVALUE                = HResult($88760000 + 851);
-  DXFILEERR_BADTYPE                 = HResult($88760000 + 852);
-  DXFILEERR_BADSTREAMHANDLE         = HResult($88760000 + 853);
-  DXFILEERR_BADALLOC                = HResult($88760000 + 854);
-  DXFILEERR_NOTFOUND                = HResult($88760000 + 855);
-  DXFILEERR_NOTDONEYET              = HResult($88760000 + 856);
-  DXFILEERR_FILENOTFOUND            = HResult($88760000 + 857);
-  DXFILEERR_RESOURCENOTFOUND        = HResult($88760000 + 858);
-  DXFILEERR_URLNOTFOUND             = HResult($88760000 + 859);
-  DXFILEERR_BADRESOURCE             = HResult($88760000 + 860);
-  DXFILEERR_BADFILETYPE             = HResult($88760000 + 861);
-  DXFILEERR_BADFILEVERSION          = HResult($88760000 + 862);
-  DXFILEERR_BADFILEFLOATSIZE        = HResult($88760000 + 863);
-  DXFILEERR_BADFILECOMPRESSIONTYPE  = HResult($88760000 + 864);
-  DXFILEERR_BADFILE                 = HResult($88760000 + 865);
-  DXFILEERR_PARSEERROR              = HResult($88760000 + 866);
-  DXFILEERR_NOTEMPLATE              = HResult($88760000 + 867);
-  DXFILEERR_BADARRAYSIZE            = HResult($88760000 + 868);
-  DXFILEERR_BADDATAREFERENCE        = HResult($88760000 + 869);
-  DXFILEERR_INTERNALERROR           = HResult($88760000 + 870);
-  DXFILEERR_NOMOREOBJECTS           = HResult($88760000 + 871);
-  DXFILEERR_BADINTRINSICS           = HResult($88760000 + 872);
-  DXFILEERR_NOMORESTREAMHANDLES     = HResult($88760000 + 873);
-  DXFILEERR_NOMOREDATA              = HResult($88760000 + 874);
-  DXFILEERR_BADCACHEFILE            = HResult($88760000 + 875);
-  DXFILEERR_NOINTERNET              = HResult($88760000 + 876);
-{ API for creating IDirectXFile interface. }
+ * GUIDS used by Direct3DRM Windows interface
+ *)
-function DirectXFileCreate(out lplpDirectXFile: IDirectXFile): HResult; stdcall;
+  IID_IDirect3DRMWinDevice = IDirect3DRMWinDevice;
 (***************************************************************************
+ *
  *  Copyright (C) 1998-1999 Microsoft Corporation.  All Rights Reserved.
+ *
  *  File:       rmxfguid.h
+ *
  *  Content:    Defines GUIDs of D3DRM's templates.
+ *
  ***************************************************************************)
 const
-  TID_D3DRMInfo: TGUID = '{2B957100-9E9A-11cf-AB39-0020AF71E433}';
+(* {2B957100-9E9A-11cf-AB39-0020AF71E433} *)
-  TID_D3DRMMesh: TGUID = '{3D82AB44-62DA-11cf-AB39-0020AF71E433}';
+  TID_D3DRMInfo: TGUID =
-  TID_D3DRMVector: TGUID = '{3D82AB5E-62DA-11cf-AB39-0020AF71E433}';
+      (D1:$2b957100;D2:$9e9a;D3:$11cf;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
-  TID_D3DRMMeshFace: TGUID = '{3D82AB5F-62DA-11cf-AB39-0020AF71E433}';
-  TID_D3DRMMaterial: TGUID = '{3D82AB4D-62DA-11cf-AB39-0020AF71E433}';
+(* {3D82AB44-62DA-11cf-AB39-0020AF71E433} *)
-  TID_D3DRMMaterialArray: TGUID = '{35FF44E1-6C7C-11cf-8F52-0040333594A3}';
+  TID_D3DRMMesh: TGUID =
-  TID_D3DRMFrame: TGUID = '{3D82AB46-62DA-11cf-AB39-0020AF71E433}';
+      (D1:$3d82ab44;D2:$62da;D3:$11cf;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
-  TID_D3DRMFrameTransformMatrix: TGUID = '{F6F23F41-7686-11cf-8F52-0040333594A3}';
-  TID_D3DRMMeshMaterialList: TGUID = '{F6F23F42-7686-11cf-8F52-0040333594A3}';
+(* {3D82AB5E-62DA-11cf-AB39-0020AF71E433} *)
-  TID_D3DRMMeshTextureCoords: TGUID = '{F6F23F40-7686-11cf-8F52-0040333594A3}';
+  TID_D3DRMVector: TGUID =
-  TID_D3DRMMeshNormals: TGUID = '{F6F23F43-7686-11cf-8F52-0040333594A3}';
+      (D1:$3d82ab5e;D2:$62da;D3:$11cf;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
-  TID_D3DRMCoords2d: TGUID = '{F6F23F44-7686-11cf-8F52-0040333594A3}';
-  TID_D3DRMMatrix4x4: TGUID = '{F6F23F45-7686-11cf-8F52-0040333594A3}';
+(* {3D82AB5F-62DA-11cf-AB39-0020AF71E433} *)
-  TID_D3DRMAnimation: TGUID = '{3D82AB4F-62DA-11cf-AB39-0020AF71E433}';
+  TID_D3DRMMeshFace: TGUID =
-  TID_D3DRMAnimationSet: TGUID = '{3D82AB50-62DA-11cf-AB39-0020AF71E433}';
+      (D1:$3d82ab5f;D2:$62da;D3:$11cf;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
-  TID_D3DRMAnimationKey: TGUID = '{10DD46A8-775B-11cf-8F52-0040333594A3}';
-  TID_D3DRMFloatKeys: TGUID = '{10DD46A9-775B-11cf-8F52-0040333594A3}';
+(* {3D82AB4D-62DA-11cf-AB39-0020AF71E433} *)
-  TID_D3DRMMaterialAmbientColor: TGUID = '{01411840-7786-11cf-8F52-0040333594A3}';
+  TID_D3DRMMaterial: TGUID =
-  TID_D3DRMMaterialDiffuseColor: TGUID = '{01411841-7786-11cf-8F52-0040333594A3}';
+      (D1:$3d82ab4d;D2:$62da;D3:$11cf;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
-  TID_D3DRMMaterialSpecularColor: TGUID = '{01411842-7786-11cf-8F52-0040333594A3}';
-  TID_D3DRMMaterialEmissiveColor: TGUID = '{D3E16E80-7835-11cf-8F52-0040333594A3}';
+(* {35FF44E1-6C7C-11cf-8F52-0040333594A3} *)
-  TID_D3DRMMaterialPower: TGUID = '{01411843-7786-11cf-8F52-0040333594A3}';
+  TID_D3DRMMaterialArray: TGUID =
-  TID_D3DRMColorRGBA: TGUID = '{35FF44E0-6C7C-11cf-8F52-0040333594A3}';
+      (D1:$35ff44e1;D2:$6c7c;D3:$11cf;D4:($8F,$52,$00,$40,$33,$35,$94,$a3));
-  TID_D3DRMColorRGB: TGUID = '{D3E16E81-7835-11cf-8F52-0040333594A3}';
-  TID_D3DRMGuid: TGUID = '{A42790E0-7810-11cf-8F52-0040333594A3}';
+(* {3D82AB46-62DA-11cf-AB39-0020AF71E433} *)
-  TID_D3DRMTextureFilename: TGUID = '{A42790E1-7810-11cf-8F52-0040333594A3}';
+  TID_D3DRMFrame: TGUID =
-  TID_D3DRMTextureReference: TGUID = '{A42790E2-7810-11cf-8F52-0040333594A3}';
+      (D1:$3d82ab46;D2:$62da;D3:$11cf;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
-  TID_D3DRMIndexedColor: TGUID = '{1630B820-7842-11cf-8F52-0040333594A3}';
-  TID_D3DRMMeshVertexColors: TGUID = '{1630B821-7842-11cf-8F52-0040333594A3}';
+(* {F6F23F41-7686-11cf-8F52-0040333594A3} *)
-  TID_D3DRMMaterialWrap: TGUID = '{4885AE60-78E8-11cf-8F52-0040333594A3}';
+  TID_D3DRMFrameTransformMatrix: TGUID =
-  TID_D3DRMBoolean: TGUID = '{537DA6A0-CA37-11d0-941C-0080C80CFA7B}';
+      (D1:$f6f23f41;D2:$7686;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
-  TID_D3DRMMeshFaceWraps: TGUID = '{ED1EC5C0-C0A8-11d0-941C-0080C80CFA7B}';
-  TID_D3DRMBoolean2d: TGUID = '{4885AE63-78E8-11cf-8F52-0040333594A3}';
+(* {F6F23F42-7686-11cf-8F52-0040333594A3} *)
-  TID_D3DRMTimedFloatKeys: TGUID = '{F406B180-7B3B-11cf-8F52-0040333594A3}';
+  TID_D3DRMMeshMaterialList: TGUID =
-  TID_D3DRMAnimationOptions: TGUID = '{E2BF56C0-840F-11cf-8F52-0040333594A3}';
+      (D1:$f6f23f42;D2:$7686;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
-  TID_D3DRMFramePosition: TGUID = '{E2BF56C1-840F-11cf-8F52-0040333594A3}';
-  TID_D3DRMFrameVelocity: TGUID = '{E2BF56C2-840F-11cf-8F52-0040333594A3}';
+(* {F6F23F40-7686-11cf-8F52-0040333594A3} *)
-  TID_D3DRMFrameRotation: TGUID = '{E2BF56C3-840F-11cf-8F52-0040333594A3}';
+  TID_D3DRMMeshTextureCoords: TGUID =
-  TID_D3DRMLight: TGUID = '{3D82AB4A-62DA-11cf-AB39-0020AF71E433}';
+      (D1:$f6f23f40;D2:$7686;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
-  TID_D3DRMCamera: TGUID = '{3D82AB51-62DA-11cf-AB39-0020AF71E433}';
-  TID_D3DRMAppData: TGUID = '{E5745280-B24F-11cf-9DD5-00AA00A71A2F}';
+(* {F6F23F43-7686-11cf-8F52-0040333594A3} *)
-  TID_D3DRMLightUmbra: TGUID = '{AED22740-B31F-11cf-9DD5-00AA00A71A2F}';
+  TID_D3DRMMeshNormals: TGUID =
-  TID_D3DRMLightRange: TGUID = '{AED22742-B31F-11cf-9DD5-00AA00A71A2F}';
+      (D1:$f6f23f43;D2:$7686;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
-  TID_D3DRMLightPenumbra: TGUID = '{AED22741-B31F-11cf-9DD5-00AA00A71A2F}';
-  TID_D3DRMLightAttenuation: TGUID = '{A8A98BA0-C5E5-11cf-B941-0080C80CFA7B}';
+(* {F6F23F44-7686-11cf-8F52-0040333594A3} *)
-  TID_D3DRMInlineData: TGUID = '{3A23EEA0-94B1-11d0-AB39-0020AF71E433}';
+  TID_D3DRMCoords2d: TGUID =
-  TID_D3DRMUrl: TGUID = '{3A23EEA1-94B1-11d0-AB39-0020AF71E433}';
+      (D1:$f6f23f44;D2:$7686;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
-  TID_D3DRMProgressiveMesh: TGUID = '{8A63C360-997D-11d0-941C-0080C80CFA7B}';
+(* {F6F23F45-7686-11cf-8F52-0040333594A3} *)
-  TID_D3DRMExternalVisual: TGUID = '{98116AA0-BDBA-11d1-82C0-00A0C9697271}';
+  TID_D3DRMMatrix4x4: TGUID =
-  TID_D3DRMStringProperty: TGUID = '{7F0F21E0-BFE1-11d1-82C0-00A0C9697271}';
+      (D1:$f6f23f45;D2:$7686;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
-  TID_D3DRMPropertyBag: TGUID = '{7F0F21E1-BFE1-11d1-82C0-00A0C9697271}';
-  TID_D3DRMRightHanded: TGUID = '{7F5D5EA0-D53A-11d1-82C0-00A0C9697271}';
+(* {3D82AB4F-62DA-11cf-AB39-0020AF71E433} *)
+  TID_D3DRMAnimation: TGUID =
+      (D1:$3d82ab4f;D2:$62da;D3:$11cf;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
+(* {3D82AB50-62DA-11cf-AB39-0020AF71E433} *)
+  TID_D3DRMAnimationSet: TGUID =
+      (D1:$3d82ab50;D2:$62da;D3:$11cf;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
+(* {10DD46A8-775B-11cf-8F52-0040333594A3} *)
+  TID_D3DRMAnimationKey: TGUID =
+      (D1:$10dd46a8;D2:$775b;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$A3));
+(* {10DD46A9-775B-11cf-8F52-0040333594A3} *)
+  TID_D3DRMFloatKeys: TGUID =
+      (D1:$10dd46a9;D2:$775b;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$A3));
+(* {01411840-7786-11cf-8F52-0040333594A3} *)
+  TID_D3DRMMaterialAmbientColor: TGUID =
+      (D1:$01411840;D2:$7786;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$A3));
+(* {01411841-7786-11cf-8F52-0040333594A3} *)
+  TID_D3DRMMaterialDiffuseColor: TGUID =
+      (D1:$01411841;D2:$7786;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$A3));
+(* {01411842-7786-11cf-8F52-0040333594A3} *)
+  TID_D3DRMMaterialSpecularColor: TGUID =
+      (D1:$01411842;D2:$7786;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$A3));
+(* {D3E16E80-7835-11cf-8F52-0040333594A3} *)
+  TID_D3DRMMaterialEmissiveColor: TGUID =
+      (D1:$d3e16e80;D2:$7835;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {01411843-7786-11cf-8F52-0040333594A3} *)
+  TID_D3DRMMaterialPower: TGUID =
+      (D1:$01411843;D2:$7786;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$A3));
+(* {35FF44E0-6C7C-11cf-8F52-0040333594A3} *)
+  TID_D3DRMColorRGBA: TGUID =
+      (D1:$35ff44e0;D2:$6c7c;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$A3));
+(* {D3E16E81-7835-11cf-8F52-0040333594A3} *)
+  TID_D3DRMColorRGB: TGUID =
+      (D1:$d3e16e81;D2:$7835;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {A42790E0-7810-11cf-8F52-0040333594A3} *)
+  TID_D3DRMGuid: TGUID =
+      (D1:$a42790e0;D2:$7810;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {A42790E1-7810-11cf-8F52-0040333594A3} *)
+  TID_D3DRMTextureFilename: TGUID =
+      (D1:$a42790e1;D2:$7810;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {A42790E2-7810-11cf-8F52-0040333594A3} *)
+  TID_D3DRMTextureReference: TGUID =
+      (D1:$a42790e2;D2:$7810;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {1630B820-7842-11cf-8F52-0040333594A3} *)
+  TID_D3DRMIndexedColor: TGUID =
+      (D1:$1630b820;D2:$7842;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {1630B821-7842-11cf-8F52-0040333594A3} *)
+  TID_D3DRMMeshVertexColors: TGUID =
+      (D1:$1630b821;D2:$7842;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {4885AE60-78E8-11cf-8F52-0040333594A3} *)
+  TID_D3DRMMaterialWrap: TGUID =
+      (D1:$4885ae60;D2:$78e8;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {537DA6A0-CA37-11d0-941C-0080C80CFA7B} *)
+  TID_D3DRMBoolean: TGUID =
+      (D1:$537da6a0;D2:$ca37;D3:$11d0;D4:($94,$1c,$00,$80,$c8,$0c,$fa,$7b));
+(* {ED1EC5C0-C0A8-11d0-941C-0080C80CFA7B} *)
+  TID_D3DRMMeshFaceWraps: TGUID =
+      (D1:$ed1ec5c0;D2:$c0a8;D3:$11d0;D4:($94,$1c,$00,$80,$c8,$0c,$fa,$7b));
+(* {4885AE63-78E8-11cf-8F52-0040333594A3} *)
+  TID_D3DRMBoolean2d: TGUID =
+      (D1:$4885ae63;D2:$78e8;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {F406B180-7B3B-11cf-8F52-0040333594A3} *)
+  TID_D3DRMTimedFloatKeys: TGUID =
+      (D1:$f406b180;D2:$7b3b;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {E2BF56C0-840F-11cf-8F52-0040333594A3} *)
+  TID_D3DRMAnimationOptions: TGUID =
+      (D1:$e2bf56c0;D2:$840f;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {E2BF56C1-840F-11cf-8F52-0040333594A3} *)
+  TID_D3DRMFramePosition: TGUID =
+      (D1:$e2bf56c1;D2:$840f;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {E2BF56C2-840F-11cf-8F52-0040333594A3} *)
+  TID_D3DRMFrameVelocity: TGUID =
+      (D1:$e2bf56c2;D2:$840f;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {E2BF56C3-840F-11cf-8F52-0040333594A3} *)
+  TID_D3DRMFrameRotation: TGUID =
+      (D1:$e2bf56c3;D2:$840f;D3:$11cf;D4:($8f,$52,$00,$40,$33,$35,$94,$a3));
+(* {3D82AB4A-62DA-11cf-AB39-0020AF71E433} *)
+  TID_D3DRMLight: TGUID =
+      (D1:$3d82ab4a;D2:$62da;D3:$11cf;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
+(* {3D82AB51-62DA-11cf-AB39-0020AF71E433} *)
+  TID_D3DRMCamera: TGUID =
+      (D1:$3d82ab51;D2:$62da;D3:$11cf;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
+(* {E5745280-B24F-11cf-9DD5-00AA00A71A2F} *)
+  TID_D3DRMAppData: TGUID =
+      (D1:$e5745280;D2:$b24f;D3:$11cf;D4:($9d,$d5,$00,$aa,$00,$a7,$1a,$2f));
+(* {AED22740-B31F-11cf-9DD5-00AA00A71A2F} *)
+  TID_D3DRMLightUmbra: TGUID =
+      (D1:$aed22740;D2:$b31f;D3:$11cf;D4:($9d,$d5,$00,$aa,$00,$a7,$1a,$2f));
+(* {AED22742-B31F-11cf-9DD5-00AA00A71A2F} *)
+  TID_D3DRMLightRange: TGUID =
+      (D1:$aed22742;D2:$b31f;D3:$11cf;D4:($9d,$d5,$00,$aa,$00,$a7,$1a,$2f));
+(* {AED22741-B31F-11cf-9DD5-00AA00A71A2F} *)
+  TID_D3DRMLightPenumbra: TGUID =
+      (D1:$aed22741;D2:$b31f;D3:$11cf;D4:($9d,$d5,$00,$aa,$00,$a7,$1a,$2f));
+(* {A8A98BA0-C5E5-11cf-B941-0080C80CFA7B} *)
+  TID_D3DRMLightAttenuation: TGUID =
+      (D1:$a8a98ba0;D2:$c5e5;D3:$11cf;D4:($b9,$41,$00,$80,$c8,$0c,$fa,$7b));
+(* {3A23EEA0-94B1-11d0-AB39-0020AF71E433} *)
+  TID_D3DRMInlineData: TGUID =
+      (D1:$3a23eea0;D2:$94b1;D3:$11d0;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
+(* {3A23EEA1-94B1-11d0-AB39-0020AF71E433} *)
+  TID_D3DRMUrl: TGUID =
+      (D1:$3a23eea1;D2:$94b1;D3:$11d0;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
+(* {8A63C360-997D-11d0-941C-0080C80CFA7B} *)
+  TID_D3DRMProgressiveMesh: TGUID =
+      (D1:$8A63C360;D2:$997D;D3:$11d0;D4:($94,$1C,$00,$80,$C8,$0C,$FA,$7B));
+(* {98116AA0-BDBA-11d1-82C0-00A0C9697271} *)
+  TID_D3DRMExternalVisual: TGUID =
+      (D1:$98116AA0;D2:$BDBA;D3:$11d1;D4:($82,$C0,$00,$A0,$C9,$69,$72,$71));
+(* {7F0F21E0-BFE1-11d1-82C0-00A0C9697271} *)
+  TID_D3DRMStringProperty: TGUID =
+      (D1:$7f0f21e0;D2:$bfe1;D3:$11d1;D4:($82,$c0,$00,$a0,$c9,$69,$72,$71));
+(* {7F0F21E1-BFE1-11d1-82C0-00A0C9697271} *)
+  TID_D3DRMPropertyBag: TGUID =
+      (D1:$7f0f21e1;D2:$bfe1;D3:$11d1;D4:($82,$c0,$00,$a0,$c9,$69,$72,$71));
+// {7F5D5EA0-D53A-11d1-82C0-00A0C9697271}
+  TID_D3DRMRightHanded: TGUID =
+      (D1:$7f5d5ea0;D2:$d53a;D3:$11d1;D4:($82,$c0,$00,$a0,$c9,$69,$72,$71));
-(***************************************************************************
+(*==========================================================================;
+ *
- *  Copyright (C) 1998-1999 Microsoft Corporation.  All Rights Reserved.
+ *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *
  *  File:       rmxftmpl.h
- *
- *  Content:    D3DRM XFile templates in binary form.
+ *  Content:    D3DRM XFile templates in binary form
+ *
  ***************************************************************************)
 const
-  D3DRM_XTEMPLATES: array [0..3214] of byte = (
+  D3DRM_XTEMPLATE_BYTES_2  = 3278;
-        $78, $6f, $66, $20, $30, $33, $30, $32, $62,
-        $69, $6e, $20, $30, $30, $36, $34, $1f, 0, $1,
-, $6, 0, 0, 0, $48, $65, $61, $64, $65,
-        $72, $a, 0, $5, 0, $43, $ab, $82, $3d, $da,
-        $62, $cf, $11, $ab, $39, 0, $20, $af, $71, $e4,
-        $33, $28, 0, $1, 0, $5, 0, 0, 0, $6d,
-        $61, $6a, $6f, $72, $14, 0, $28, 0, $1, 0,
-        $5, 0, 0, 0, $6d, $69, $6e, $6f, $72, $14,
-, $29, 0, $1, 0, $5, 0, 0, 0, $66,
-        $6c, $61, $67, $73, $14, 0, $b, 0, $1f, 0,
-        $1, 0, $6, 0, 0, 0, $56, $65, $63, $74,
-        $6f, $72, $a, 0, $5, 0, $5e, $ab, $82, $3d,
-        $da, $62, $cf, $11, $ab, $39, 0, $20, $af, $71,
-        $e4, $33, $2a, 0, $1, 0, $1, 0, 0, 0,
-        $78, $14, 0, $2a, 0, $1, 0, $1, 0, 0,
-, $79, $14, 0, $2a, 0, $1, 0, $1, 0,
-, 0, $7a, $14, 0, $b, 0, $1f, 0, $1,
-, $8, 0, 0, 0, $43, $6f, $6f, $72, $64,
-        $73, $32, $64, $a, 0, $5, 0, $44, $3f, $f2,
-        $f6, $86, $76, $cf, $11, $8f, $52, 0, $40, $33,
-        $35, $94, $a3, $2a, 0, $1, 0, $1, 0, 0,
-, $75, $14, 0, $2a, 0, $1, 0, $1, 0,
-, 0, $76, $14, 0, $b, 0, $1f, 0, $1,
-, $9, 0, 0, 0, $4d, $61, $74, $72, $69,
-        $78, $34, $78, $34, $a, 0, $5, 0, $45, $3f,
-        $f2, $f6, $86, $76, $cf, $11, $8f, $52, 0, $40,
-        $33, $35, $94, $a3, $34, 0, $2a, 0, $1, 0,
-        $6, 0, 0, 0, $6d, $61, $74, $72, $69, $78,
-        $e, 0, $3, 0, $10, 0, 0, 0, $f, 0,
-        $14, 0, $b, 0, $1f, 0, $1, 0, $9, 0,
-, 0, $43, $6f, $6c, $6f, $72, $52, $47, $42,
-        $41, $a, 0, $5, 0, $e0, $44, $ff, $35, $7c,
-        $6c, $cf, $11, $8f, $52, 0, $40, $33, $35, $94,
-        $a3, $2a, 0, $1, 0, $3, 0, 0, 0, $72,
-        $65, $64, $14, 0, $2a, 0, $1, 0, $5, 0,
-, 0, $67, $72, $65, $65, $6e, $14, 0, $2a,
-, $1, 0, $4, 0, 0, 0, $62, $6c, $75,
-        $65, $14, 0, $2a, 0, $1, 0, $5, 0, 0,
-, $61, $6c, $70, $68, $61, $14, 0, $b, 0,
-        $1f, 0, $1, 0, $8, 0, 0, 0, $43, $6f,
-        $6c, $6f, $72, $52, $47, $42, $a, 0, $5, 0,
-        $81, $6e, $e1, $d3, $35, $78, $cf, $11, $8f, $52,
-, $40, $33, $35, $94, $a3, $2a, 0, $1, 0,
-        $3, 0, 0, 0, $72, $65, $64, $14, 0, $2a,
-, $1, 0, $5, 0, 0, 0, $67, $72, $65,
-        $65, $6e, $14, 0, $2a, 0, $1, 0, $4, 0,
-, 0, $62, $6c, $75, $65, $14, 0, $b, 0,
-        $1f, 0, $1, 0, $c, 0, 0, 0, $49, $6e,
-        $64, $65, $78, $65, $64, $43, $6f, $6c, $6f, $72,
-        $a, 0, $5, 0, $20, $b8, $30, $16, $42, $78,
-        $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3,
-        $29, 0, $1, 0, $5, 0, 0, 0, $69, $6e,
-        $64, $65, $78, $14, 0, $1, 0, $9, 0, 0,
-, $43, $6f, $6c, $6f, $72, $52, $47, $42, $41,
-        $1, 0, $a, 0, 0, 0, $69, $6e, $64, $65,
-        $78, $43, $6f, $6c, $6f, $72, $14, 0, $b, 0,
-        $1f, 0, $1, 0, $7, 0, 0, 0, $42, $6f,
-        $6f, $6c, $65, $61, $6e, $a, 0, $5, 0, $a0,
-        $a6, $7d, $53, $37, $ca, $d0, $11, $94, $1c, 0,
-        $80, $c8, $c, $fa, $7b, $29, 0, $1, 0, $9,
-, 0, 0, $74, $72, $75, $65, $66, $61, $6c,
-        $73, $65, $14, 0, $b, 0, $1f, 0, $1, 0,
-        $9, 0, 0, 0, $42, $6f, $6f, $6c, $65, $61,
-        $6e, $32, $64, $a, 0, $5, 0, $63, $ae, $85,
-        $48, $e8, $78, $cf, $11, $8f, $52, 0, $40, $33,
-        $35, $94, $a3, $1, 0, $7, 0, 0, 0, $42,
-        $6f, $6f, $6c, $65, $61, $6e, $1, 0, $1, 0,
-, 0, $75, $14, 0, $1, 0, $7, 0, 0,
-, $42, $6f, $6f, $6c, $65, $61, $6e, $1, 0,
-        $1, 0, 0, 0, $76, $14, 0, $b, 0, $1f,
-, $1, 0, $c, 0, 0, 0, $4d, $61, $74,
-        $65, $72, $69, $61, $6c, $57, $72, $61, $70, $a,
-, $5, 0, $60, $ae, $85, $48, $e8, $78, $cf,
-        $11, $8f, $52, 0, $40, $33, $35, $94, $a3, $1,
-, $7, 0, 0, 0, $42, $6f, $6f, $6c, $65,
-        $61, $6e, $1, 0, $1, 0, 0, 0, $75, $14,
-, $1, 0, $7, 0, 0, 0, $42, $6f, $6f,
-        $6c, $65, $61, $6e, $1, 0, $1, 0, 0, 0,
-        $76, $14, 0, $b, 0, $1f, 0, $1, 0, $f,
-, 0, 0, $54, $65, $78, $74, $75, $72, $65,
-        $46, $69, $6c, $65, $6e, $61, $6d, $65, $a, 0,
-        $5, 0, $e1, $90, $27, $a4, $10, $78, $cf, $11,
-        $8f, $52, 0, $40, $33, $35, $94, $a3, $31, 0,
-        $1, 0, $8, 0, 0, 0, $66, $69, $6c, $65,
-        $6e, $61, $6d, $65, $14, 0, $b, 0, $1f, 0,
-        $1, 0, $8, 0, 0, 0, $4d, $61, $74, $65,
-        $72, $69, $61, $6c, $a, 0, $5, 0, $4d, $ab,
-        $82, $3d, $da, $62, $cf, $11, $ab, $39, 0, $20,
-        $af, $71, $e4, $33, $1, 0, $9, 0, 0, 0,
-        $43, $6f, $6c, $6f, $72, $52, $47, $42, $41, $1,
-, $9, 0, 0, 0, $66, $61, $63, $65, $43,
-        $6f, $6c, $6f, $72, $14, 0, $2a, 0, $1, 0,
-        $5, 0, 0, 0, $70, $6f, $77, $65, $72, $14,
-, $1, 0, $8, 0, 0, 0, $43, $6f, $6c,
-        $6f, $72, $52, $47, $42, $1, 0, $d, 0, 0,
-, $73, $70, $65, $63, $75, $6c, $61, $72, $43,
-        $6f, $6c, $6f, $72, $14, 0, $1, 0, $8, 0,
-, 0, $43, $6f, $6c, $6f, $72, $52, $47, $42,
-        $1, 0, $d, 0, 0, 0, $65, $6d, $69, $73,
-        $73, $69, $76, $65, $43, $6f, $6c, $6f, $72, $14,
-, $e, 0, $12, 0, $12, 0, $12, 0, $f,
-, $b, 0, $1f, 0, $1, 0, $8, 0, 0,
-, $4d, $65, $73, $68, $46, $61, $63, $65, $a,
-, $5, 0, $5f, $ab, $82, $3d, $da, $62, $cf,
-        $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $29,
-, $1, 0, $12, 0, 0, 0, $6e, $46, $61,
-        $63, $65, $56, $65, $72, $74, $65, $78, $49, $6e,
-        $64, $69, $63, $65, $73, $14, 0, $34, 0, $29,
-, $1, 0, $11, 0, 0, 0, $66, $61, $63,
-        $65, $56, $65, $72, $74, $65, $78, $49, $6e, $64,
-        $69, $63, $65, $73, $e, 0, $1, 0, $12, 0,
-, 0, $6e, $46, $61, $63, $65, $56, $65, $72,
-        $74, $65, $78, $49, $6e, $64, $69, $63, $65, $73,
-        $f, 0, $14, 0, $b, 0, $1f, 0, $1, 0,
-        $d, 0, 0, 0, $4d, $65, $73, $68, $46, $61,
-        $63, $65, $57, $72, $61, $70, $73, $a, 0, $5,
-, $c0, $c5, $1e, $ed, $a8, $c0, $d0, $11, $94,
-        $1c, 0, $80, $c8, $c, $fa, $7b, $29, 0, $1,
-, $f, 0, 0, 0, $6e, $46, $61, $63, $65,
-        $57, $72, $61, $70, $56, $61, $6c, $75, $65, $73,
-        $14, 0, $34, 0, $1, 0, $9, 0, 0, 0,
-        $42, $6f, $6f, $6c, $65, $61, $6e, $32, $64, $1,
-, $e, 0, 0, 0, $66, $61, $63, $65, $57,
-        $72, $61, $70, $56, $61, $6c, $75, $65, $73, $e,
-, $1, 0, $f, 0, 0, 0, $6e, $46, $61,
-        $63, $65, $57, $72, $61, $70, $56, $61, $6c, $75,
-        $65, $73, $f, 0, $14, 0, $b, 0, $1f, 0,
-        $1, 0, $11, 0, 0, 0, $4d, $65, $73, $68,
-        $54, $65, $78, $74, $75, $72, $65, $43, $6f, $6f,
-        $72, $64, $73, $a, 0, $5, 0, $40, $3f, $f2,
-        $f6, $86, $76, $cf, $11, $8f, $52, 0, $40, $33,
-        $35, $94, $a3, $29, 0, $1, 0, $e, 0, 0,
-, $6e, $54, $65, $78, $74, $75, $72, $65, $43,
-        $6f, $6f, $72, $64, $73, $14, 0, $34, 0, $1,
-, $8, 0, 0, 0, $43, $6f, $6f, $72, $64,
-        $73, $32, $64, $1, 0, $d, 0, 0, 0, $74,
-        $65, $78, $74, $75, $72, $65, $43, $6f, $6f, $72,
-        $64, $73, $e, 0, $1, 0, $e, 0, 0, 0,
-        $6e, $54, $65, $78, $74, $75, $72, $65, $43, $6f,
-        $6f, $72, $64, $73, $f, 0, $14, 0, $b, 0,
-        $1f, 0, $1, 0, $10, 0, 0, 0, $4d, $65,
-        $73, $68, $4d, $61, $74, $65, $72, $69, $61, $6c,
-        $4c, $69, $73, $74, $a, 0, $5, 0, $42, $3f,
-        $f2, $f6, $86, $76, $cf, $11, $8f, $52, 0, $40,
-        $33, $35, $94, $a3, $29, 0, $1, 0, $a, 0,
-, 0, $6e, $4d, $61, $74, $65, $72, $69, $61,
-        $6c, $73, $14, 0, $29, 0, $1, 0, $c, 0,
-, 0, $6e, $46, $61, $63, $65, $49, $6e, $64,
-        $65, $78, $65, $73, $14, 0, $34, 0, $29, 0,
-        $1, 0, $b, 0, 0, 0, $66, $61, $63, $65,
-        $49, $6e, $64, $65, $78, $65, $73, $e, 0, $1,
-, $c, 0, 0, 0, $6e, $46, $61, $63, $65,
-        $49, $6e, $64, $65, $78, $65, $73, $f, 0, $14,
-, $e, 0, $1, 0, $8, 0, 0, 0, $4d,
-        $61, $74, $65, $72, $69, $61, $6c, $f, 0, $b,
-, $1f, 0, $1, 0, $b, 0, 0, 0, $4d,
-        $65, $73, $68, $4e, $6f, $72, $6d, $61, $6c, $73,
-        $a, 0, $5, 0, $43, $3f, $f2, $f6, $86, $76,
-        $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3,
-        $29, 0, $1, 0, $8, 0, 0, 0, $6e, $4e,
-        $6f, $72, $6d, $61, $6c, $73, $14, 0, $34, 0,
-        $1, 0, $6, 0, 0, 0, $56, $65, $63, $74,
-        $6f, $72, $1, 0, $7, 0, 0, 0, $6e, $6f,
-        $72, $6d, $61, $6c, $73, $e, 0, $1, 0, $8,
-, 0, 0, $6e, $4e, $6f, $72, $6d, $61, $6c,
-        $73, $f, 0, $14, 0, $29, 0, $1, 0, $c,
-, 0, 0, $6e, $46, $61, $63, $65, $4e, $6f,
-        $72, $6d, $61, $6c, $73, $14, 0, $34, 0, $1,
-, $8, 0, 0, 0, $4d, $65, $73, $68, $46,
-        $61, $63, $65, $1, 0, $b, 0, 0, 0, $66,
-        $61, $63, $65, $4e, $6f, $72, $6d, $61, $6c, $73,
-        $e, 0, $1, 0, $c, 0, 0, 0, $6e, $46,
-        $61, $63, $65, $4e, $6f, $72, $6d, $61, $6c, $73,
-        $f, 0, $14, 0, $b, 0, $1f, 0, $1, 0,
-        $10, 0, 0, 0, $4d, $65, $73, $68, $56, $65,
-        $72, $74, $65, $78, $43, $6f, $6c, $6f, $72, $73,
-        $a, 0, $5, 0, $21, $b8, $30, $16, $42, $78,
-        $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3,
-        $29, 0, $1, 0, $d, 0, 0, 0, $6e, $56,
-        $65, $72, $74, $65, $78, $43, $6f, $6c, $6f, $72,
-        $73, $14, 0, $34, 0, $1, 0, $c, 0, 0,
-, $49, $6e, $64, $65, $78, $65, $64, $43, $6f,
-        $6c, $6f, $72, $1, 0, $c, 0, 0, 0, $76,
-        $65, $72, $74, $65, $78, $43, $6f, $6c, $6f, $72,
-        $73, $e, 0, $1, 0, $d, 0, 0, 0, $6e,
-        $56, $65, $72, $74, $65, $78, $43, $6f, $6c, $6f,
-        $72, $73, $f, 0, $14, 0, $b, 0, $1f, 0,
-        $1, 0, $4, 0, 0, 0, $4d, $65, $73, $68,
-        $a, 0, $5, 0, $44, $ab, $82, $3d, $da, $62,
-        $cf, $11, $ab, $39, 0, $20, $af, $71, $e4, $33,
-        $29, 0, $1, 0, $9, 0, 0, 0, $6e, $56,
-        $65, $72, $74, $69, $63, $65, $73, $14, 0, $34,
-, $1, 0, $6, 0, 0, 0, $56, $65, $63,
-        $74, $6f, $72, $1, 0, $8, 0, 0, 0, $76,
-        $65, $72, $74, $69, $63, $65, $73, $e, 0, $1,
-, $9, 0, 0, 0, $6e, $56, $65, $72, $74,
-        $69, $63, $65, $73, $f, 0, $14, 0, $29, 0,
-        $1, 0, $6, 0, 0, 0, $6e, $46, $61, $63,
-        $65, $73, $14, 0, $34, 0, $1, 0, $8, 0,
-, 0, $4d, $65, $73, $68, $46, $61, $63, $65,
-        $1, 0, $5, 0, 0, 0, $66, $61, $63, $65,
-        $73, $e, 0, $1, 0, $6, 0, 0, 0, $6e,
-        $46, $61, $63, $65, $73, $f, 0, $14, 0, $e,
-, $12, 0, $12, 0, $12, 0, $f, 0, $b,
-, $1f, 0, $1, 0, $14, 0, 0, 0, $46,
-        $72, $61, $6d, $65, $54, $72, $61, $6e, $73, $66,
-        $6f, $72, $6d, $4d, $61, $74, $72, $69, $78, $a,
-, $5, 0, $41, $3f, $f2, $f6, $86, $76, $cf,
-        $11, $8f, $52, 0, $40, $33, $35, $94, $a3, $1,
-, $9, 0, 0, 0, $4d, $61, $74, $72, $69,
-        $78, $34, $78, $34, $1, 0, $b, 0, 0, 0,
-        $66, $72, $61, $6d, $65, $4d, $61, $74, $72, $69,
-        $78, $14, 0, $b, 0, $1f, 0, $1, 0, $5,
-, 0, 0, $46, $72, $61, $6d, $65, $a, 0,
-        $5, 0, $46, $ab, $82, $3d, $da, $62, $cf, $11,
-        $ab, $39, 0, $20, $af, $71, $e4, $33, $e, 0,
-        $12, 0, $12, 0, $12, 0, $f, 0, $b, 0,
-        $1f, 0, $1, 0, $9, 0, 0, 0, $46, $6c,
-        $6f, $61, $74, $4b, $65, $79, $73, $a, 0, $5,
-, $a9, $46, $dd, $10, $5b, $77, $cf, $11, $8f,
-        $52, 0, $40, $33, $35, $94, $a3, $29, 0, $1,
-, $7, 0, 0, 0, $6e, $56, $61, $6c, $75,
-        $65, $73, $14, 0, $34, 0, $2a, 0, $1, 0,
-        $6, 0, 0, 0, $76, $61, $6c, $75, $65, $73,
-        $e, 0, $1, 0, $7, 0, 0, 0, $6e, $56,
-        $61, $6c, $75, $65, $73, $f, 0, $14, 0, $b,
-, $1f, 0, $1, 0, $e, 0, 0, 0, $54,
-        $69, $6d, $65, $64, $46, $6c, $6f, $61, $74, $4b,
-        $65, $79, $73, $a, 0, $5, 0, $80, $b1, $6,
-        $f4, $3b, $7b, $cf, $11, $8f, $52, 0, $40, $33,
-        $35, $94, $a3, $29, 0, $1, 0, $4, 0, 0,
-, $74, $69, $6d, $65, $14, 0, $1, 0, $9,
-, 0, 0, $46, $6c, $6f, $61, $74, $4b, $65,
-        $79, $73, $1, 0, $6, 0, 0, 0, $74, $66,
-        $6b, $65, $79, $73, $14, 0, $b, 0, $1f, 0,
-        $1, 0, $c, 0, 0, 0, $41, $6e, $69, $6d,
-        $61, $74, $69, $6f, $6e, $4b, $65, $79, $a, 0,
-        $5, 0, $a8, $46, $dd, $10, $5b, $77, $cf, $11,
-        $8f, $52, 0, $40, $33, $35, $94, $a3, $29, 0,
-        $1, 0, $7, 0, 0, 0, $6b, $65, $79, $54,
-        $79, $70, $65, $14, 0, $29, 0, $1, 0, $5,
-, 0, 0, $6e, $4b, $65, $79, $73, $14, 0,
-        $34, 0, $1, 0, $e, 0, 0, 0, $54, $69,
-        $6d, $65, $64, $46, $6c, $6f, $61, $74, $4b, $65,
-        $79, $73, $1, 0, $4, 0, 0, 0, $6b, $65,
-        $79, $73, $e, 0, $1, 0, $5, 0, 0, 0,
-        $6e, $4b, $65, $79, $73, $f, 0, $14, 0, $b,
-, $1f, 0, $1, 0, $10, 0, 0, 0, $41,
-        $6e, $69, $6d, $61, $74, $69, $6f, $6e, $4f, $70,
-        $74, $69, $6f, $6e, $73, $a, 0, $5, 0, $c0,
-        $56, $bf, $e2, $f, $84, $cf, $11, $8f, $52, 0,
-        $40, $33, $35, $94, $a3, $29, 0, $1, 0, $a,
-, 0, 0, $6f, $70, $65, $6e, $63, $6c, $6f,
-        $73, $65, $64, $14, 0, $29, 0, $1, 0, $f,
-, 0, 0, $70, $6f, $73, $69, $74, $69, $6f,
-        $6e, $71, $75, $61, $6c, $69, $74, $79, $14, 0,
-        $b, 0, $1f, 0, $1, 0, $9, 0, 0, 0,
-        $41, $6e, $69, $6d, $61, $74, $69, $6f, $6e, $a,
-, $5, 0, $4f, $ab, $82, $3d, $da, $62, $cf,
-        $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $e,
-, $12, 0, $12, 0, $12, 0, $f, 0, $b,
-, $1f, 0, $1, 0, $c, 0, 0, 0, $41,
-        $6e, $69, $6d, $61, $74, $69, $6f, $6e, $53, $65,
-        $74, $a, 0, $5, 0, $50, $ab, $82, $3d, $da,
-        $62, $cf, $11, $ab, $39, 0, $20, $af, $71, $e4,
-        $33, $e, 0, $1, 0, $9, 0, 0, 0, $41,
-        $6e, $69, $6d, $61, $74, $69, $6f, $6e, $f, 0,
-        $b, 0, $1f, 0, $1, 0, $a, 0, 0, 0,
-        $49, $6e, $6c, $69, $6e, $65, $44, $61, $74, $61,
-        $a, 0, $5, 0, $a0, $ee, $23, $3a, $b1, $94,
-        $d0, $11, $ab, $39, 0, $20, $af, $71, $e4, $33,
-        $e, 0, $1, 0, $6, 0, 0, 0, $42, $49,
-        $4e, $41, $52, $59, $f, 0, $b, 0, $1f, 0,
-        $1, 0, $3, 0, 0, 0, $55, $72, $6c, $a,
-, $5, 0, $a1, $ee, $23, $3a, $b1, $94, $d0,
-        $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $29,
-, $1, 0, $5, 0, 0, 0, $6e, $55, $72,
-        $6c, $73, $14, 0, $34, 0, $31, 0, $1, 0,
-        $4, 0, 0, 0, $75, $72, $6c, $73, $e, 0,
-        $1, 0, $5, 0, 0, 0, $6e, $55, $72, $6c,
-        $73, $f, 0, $14, 0, $b, 0, $1f, 0, $1,
-, $f, 0, 0, 0, $50, $72, $6f, $67, $72,
-        $65, $73, $73, $69, $76, $65, $4d, $65, $73, $68,
-        $a, 0, $5, 0, $60, $c3, $63, $8a, $7d, $99,
-        $d0, $11, $94, $1c, 0, $80, $c8, $c, $fa, $7b,
-        $e, 0, $1, 0, $3, 0, 0, 0, $55, $72,
-        $6c, $13, 0, $1, 0, $a, 0, 0, 0, $49,
-        $6e, $6c, $69, $6e, $65, $44, $61, $74, $61, $f,
-, $b, 0, $1f, 0, $1, 0, $4, 0, 0,
-, $47, $75, $69, $64, $a, 0, $5, 0, $e0,
-        $90, $27, $a4, $10, $78, $cf, $11, $8f, $52, 0,
-        $40, $33, $35, $94, $a3, $29, 0, $1, 0, $5,
-, 0, 0, $64, $61, $74, $61, $31, $14, 0,
-        $28, 0, $1, 0, $5, 0, 0, 0, $64, $61,
-        $74, $61, $32, $14, 0, $28, 0, $1, 0, $5,
-, 0, 0, $64, $61, $74, $61, $33, $14, 0,
-        $34, 0, $2d, 0, $1, 0, $5, 0, 0, 0,
-        $64, $61, $74, $61, $34, $e, 0, $3, 0, $8,
-, 0, 0, $f, 0, $14, 0, $b, 0, $1f,
-, $1, 0, $e, 0, 0, 0, $53, $74, $72,
-        $69, $6e, $67, $50, $72, $6f, $70, $65, $72, $74,
-        $79, $a, 0, $5, 0, $e0, $21, $f, $7f, $e1,
-        $bf, $d1, $11, $82, $c0, 0, $a0, $c9, $69, $72,
-        $71, $31, 0, $1, 0, $3, 0, 0, 0, $6b,
-        $65, $79, $14, 0, $31, 0, $1, 0, $5, 0,
-, 0, $76, $61, $6c, $75, $65, $14, 0, $b,
-, $1f, 0, $1, 0, $b, 0, 0, 0, $50,
-        $72, $6f, $70, $65, $72, $74, $79, $42, $61, $67,
-        $a, 0, $5, 0, $e1, $21, $f, $7f, $e1, $bf,
-        $d1, $11, $82, $c0, 0, $a0, $c9, $69, $72, $71,
-        $e, 0, $1, 0, $e, 0, 0, 0, $53, $74,
-        $72, $69, $6e, $67, $50, $72, $6f, $70, $65, $72,
-        $74, $79, $f, 0, $b, 0, $1f, 0, $1, 0,
-        $e, 0, 0, 0, $45, $78, $74, $65, $72, $6e,
-        $61, $6c, $56, $69, $73, $75, $61, $6c, $a, 0,
-        $5, 0, $a0, $6a, $11, $98, $ba, $bd, $d1, $11,
-        $82, $c0, 0, $a0, $c9, $69, $72, $71, $1, 0,
-        $4, 0, 0, 0, $47, $75, $69, $64, $1, 0,
-        $12, 0, 0, 0, $67, $75, $69, $64, $45, $78,
-        $74, $65, $72, $6e, $61, $6c, $56, $69, $73, $75,
-        $61, $6c, $14, 0, $e, 0, $12, 0, $12, 0,
-        $12, 0, $f, 0, $b, 0);
-  D3DRM_XTEMPLATE_BYTES = 3278;
+  D3DRM_XTEMPLATES_2: array [0..D3DRM_XTEMPLATE_BYTES_2-1] of byte = (
+        $78, $6f, $66, $20, $30, $33, $30, $32, $62, $69, $6e, $20, $30, $30, $36, $34, $1f, 0, $1,
+, $6, 0, 0, 0, $48, $65, $61, $64, $65, $72, $a, 0, $5, 0, $43, $ab, $82, $3d, $da,
+        $62, $cf, $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $28, 0, $1, 0, $5, 0, 0, 0, $6d,
+        $61, $6a, $6f, $72, $14, 0, $28, 0, $1, 0, $5, 0, 0, 0, $6d, $69, $6e, $6f, $72, $14,
+, $29, 0, $1, 0, $5, 0, 0, 0, $66, $6c, $61, $67, $73, $14, 0, $b, 0, $1f, 0,
+        $1, 0, $6, 0, 0, 0, $56, $65, $63, $74, $6f, $72, $a, 0, $5, 0, $5e, $ab, $82, $3d,
+        $da, $62, $cf, $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $2a, 0, $1, 0, $1, 0, 0, 0,
+        $78, $14, 0, $2a, 0, $1, 0, $1, 0, 0, 0, $79, $14, 0, $2a, 0, $1, 0, $1, 0,
+, 0, $7a, $14, 0, $b, 0, $1f, 0, $1, 0, $8, 0, 0, 0, $43, $6f, $6f, $72, $64,
+        $73, $32, $64, $a, 0, $5, 0, $44, $3f, $f2, $f6, $86, $76, $cf, $11, $8f, $52, 0, $40, $33,
+        $35, $94, $a3, $2a, 0, $1, 0, $1, 0, 0, 0, $75, $14, 0, $2a, 0, $1, 0, $1, 0,
+, 0, $76, $14, 0, $b, 0, $1f, 0, $1, 0, $9, 0, 0, 0, $4d, $61, $74, $72, $69,
+        $78, $34, $78, $34, $a, 0, $5, 0, $45, $3f, $f2, $f6, $86, $76, $cf, $11, $8f, $52, 0, $40,
+        $33, $35, $94, $a3, $34, 0, $2a, 0, $1, 0, $6, 0, 0, 0, $6d, $61, $74, $72, $69, $78,
+        $e, 0, $3, 0, $10, 0, 0, 0, $f, 0, $14, 0, $b, 0, $1f, 0, $1, 0, $9, 0,
+, 0, $43, $6f, $6c, $6f, $72, $52, $47, $42, $41, $a, 0, $5, 0, $e0, $44, $ff, $35, $7c,
+        $6c, $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3, $2a, 0, $1, 0, $3, 0, 0, 0, $72,
+        $65, $64, $14, 0, $2a, 0, $1, 0, $5, 0, 0, 0, $67, $72, $65, $65, $6e, $14, 0, $2a,
+, $1, 0, $4, 0, 0, 0, $62, $6c, $75, $65, $14, 0, $2a, 0, $1, 0, $5, 0, 0,
+, $61, $6c, $70, $68, $61, $14, 0, $b, 0, $1f, 0, $1, 0, $8, 0, 0, 0, $43, $6f,
+        $6c, $6f, $72, $52, $47, $42, $a, 0, $5, 0, $81, $6e, $e1, $d3, $35, $78, $cf, $11, $8f, $52,
+, $40, $33, $35, $94, $a3, $2a, 0, $1, 0, $3, 0, 0, 0, $72, $65, $64, $14, 0, $2a,
+, $1, 0, $5, 0, 0, 0, $67, $72, $65, $65, $6e, $14, 0, $2a, 0, $1, 0, $4, 0,
+, 0, $62, $6c, $75, $65, $14, 0, $b, 0, $1f, 0, $1, 0, $c, 0, 0, 0, $49, $6e,
+        $64, $65, $78, $65, $64, $43, $6f, $6c, $6f, $72, $a, 0, $5, 0, $20, $b8, $30, $16, $42, $78,
+        $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3, $29, 0, $1, 0, $5, 0, 0, 0, $69, $6e,
+        $64, $65, $78, $14, 0, $1, 0, $9, 0, 0, 0, $43, $6f, $6c, $6f, $72, $52, $47, $42, $41,
+        $1, 0, $a, 0, 0, 0, $69, $6e, $64, $65, $78, $43, $6f, $6c, $6f, $72, $14, 0, $b, 0,
+        $1f, 0, $1, 0, $7, 0, 0, 0, $42, $6f, $6f, $6c, $65, $61, $6e, $a, 0, $5, 0, $a0,
+        $a6, $7d, $53, $37, $ca, $d0, $11, $94, $1c, 0, $80, $c8, $c, $fa, $7b, $29, 0, $1, 0, $9,
+, 0, 0, $74, $72, $75, $65, $66, $61, $6c, $73, $65, $14, 0, $b, 0, $1f, 0, $1, 0,
+        $9, 0, 0, 0, $42, $6f, $6f, $6c, $65, $61, $6e, $32, $64, $a, 0, $5, 0, $63, $ae, $85,
+        $48, $e8, $78, $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3, $1, 0, $7, 0, 0, 0, $42,
+        $6f, $6f, $6c, $65, $61, $6e, $1, 0, $1, 0, 0, 0, $75, $14, 0, $1, 0, $7, 0, 0,
+, $42, $6f, $6f, $6c, $65, $61, $6e, $1, 0, $1, 0, 0, 0, $76, $14, 0, $b, 0, $1f,
+, $1, 0, $c, 0, 0, 0, $4d, $61, $74, $65, $72, $69, $61, $6c, $57, $72, $61, $70, $a,
+, $5, 0, $60, $ae, $85, $48, $e8, $78, $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3, $1,
+, $7, 0, 0, 0, $42, $6f, $6f, $6c, $65, $61, $6e, $1, 0, $1, 0, 0, 0, $75, $14,
+, $1, 0, $7, 0, 0, 0, $42, $6f, $6f, $6c, $65, $61, $6e, $1, 0, $1, 0, 0, 0,
+        $76, $14, 0, $b, 0, $1f, 0, $1, 0, $f, 0, 0, 0, $54, $65, $78, $74, $75, $72, $65,
+        $46, $69, $6c, $65, $6e, $61, $6d, $65, $a, 0, $5, 0, $e1, $90, $27, $a4, $10, $78, $cf, $11,
+        $8f, $52, 0, $40, $33, $35, $94, $a3, $31, 0, $1, 0, $8, 0, 0, 0, $66, $69, $6c, $65,
+        $6e, $61, $6d, $65, $14, 0, $b, 0, $1f, 0, $1, 0, $8, 0, 0, 0, $4d, $61, $74, $65,
+        $72, $69, $61, $6c, $a, 0, $5, 0, $4d, $ab, $82, $3d, $da, $62, $cf, $11, $ab, $39, 0, $20,
+        $af, $71, $e4, $33, $1, 0, $9, 0, 0, 0, $43, $6f, $6c, $6f, $72, $52, $47, $42, $41, $1,
+, $9, 0, 0, 0, $66, $61, $63, $65, $43, $6f, $6c, $6f, $72, $14, 0, $2a, 0, $1, 0,
+        $5, 0, 0, 0, $70, $6f, $77, $65, $72, $14, 0, $1, 0, $8, 0, 0, 0, $43, $6f, $6c,
+        $6f, $72, $52, $47, $42, $1, 0, $d, 0, 0, 0, $73, $70, $65, $63, $75, $6c, $61, $72, $43,
+        $6f, $6c, $6f, $72, $14, 0, $1, 0, $8, 0, 0, 0, $43, $6f, $6c, $6f, $72, $52, $47, $42,
+        $1, 0, $d, 0, 0, 0, $65, $6d, $69, $73, $73, $69, $76, $65, $43, $6f, $6c, $6f, $72, $14,
+, $e, 0, $12, 0, $12, 0, $12, 0, $f, 0, $b, 0, $1f, 0, $1, 0, $8, 0, 0,
+, $4d, $65, $73, $68, $46, $61, $63, $65, $a, 0, $5, 0, $5f, $ab, $82, $3d, $da, $62, $cf,
+        $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $29, 0, $1, 0, $12, 0, 0, 0, $6e, $46, $61,
+        $63, $65, $56, $65, $72, $74, $65, $78, $49, $6e, $64, $69, $63, $65, $73, $14, 0, $34, 0, $29,
+, $1, 0, $11, 0, 0, 0, $66, $61, $63, $65, $56, $65, $72, $74, $65, $78, $49, $6e, $64,
+        $69, $63, $65, $73, $e, 0, $1, 0, $12, 0, 0, 0, $6e, $46, $61, $63, $65, $56, $65, $72,
+        $74, $65, $78, $49, $6e, $64, $69, $63, $65, $73, $f, 0, $14, 0, $b, 0, $1f, 0, $1, 0,
+        $d, 0, 0, 0, $4d, $65, $73, $68, $46, $61, $63, $65, $57, $72, $61, $70, $73, $a, 0, $5,
+, $c0, $c5, $1e, $ed, $a8, $c0, $d0, $11, $94, $1c, 0, $80, $c8, $c, $fa, $7b, $29, 0, $1,
+, $f, 0, 0, 0, $6e, $46, $61, $63, $65, $57, $72, $61, $70, $56, $61, $6c, $75, $65, $73,
+        $14, 0, $34, 0, $1, 0, $9, 0, 0, 0, $42, $6f, $6f, $6c, $65, $61, $6e, $32, $64, $1,
+, $e, 0, 0, 0, $66, $61, $63, $65, $57, $72, $61, $70, $56, $61, $6c, $75, $65, $73, $e,
+, $1, 0, $f, 0, 0, 0, $6e, $46, $61, $63, $65, $57, $72, $61, $70, $56, $61, $6c, $75,
+        $65, $73, $f, 0, $14, 0, $b, 0, $1f, 0, $1, 0, $11, 0, 0, 0, $4d, $65, $73, $68,
+        $54, $65, $78, $74, $75, $72, $65, $43, $6f, $6f, $72, $64, $73, $a, 0, $5, 0, $40, $3f, $f2,
+        $f6, $86, $76, $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3, $29, 0, $1, 0, $e, 0, 0,
+, $6e, $54, $65, $78, $74, $75, $72, $65, $43, $6f, $6f, $72, $64, $73, $14, 0, $34, 0, $1,
+, $8, 0, 0, 0, $43, $6f, $6f, $72, $64, $73, $32, $64, $1, 0, $d, 0, 0, 0, $74,
+        $65, $78, $74, $75, $72, $65, $43, $6f, $6f, $72, $64, $73, $e, 0, $1, 0, $e, 0, 0, 0,
+        $6e, $54, $65, $78, $74, $75, $72, $65, $43, $6f, $6f, $72, $64, $73, $f, 0, $14, 0, $b, 0,
+        $1f, 0, $1, 0, $10, 0, 0, 0, $4d, $65, $73, $68, $4d, $61, $74, $65, $72, $69, $61, $6c,
+        $4c, $69, $73, $74, $a, 0, $5, 0, $42, $3f, $f2, $f6, $86, $76, $cf, $11, $8f, $52, 0, $40,
+        $33, $35, $94, $a3, $29, 0, $1, 0, $a, 0, 0, 0, $6e, $4d, $61, $74, $65, $72, $69, $61,
+        $6c, $73, $14, 0, $29, 0, $1, 0, $c, 0, 0, 0, $6e, $46, $61, $63, $65, $49, $6e, $64,
+        $65, $78, $65, $73, $14, 0, $34, 0, $29, 0, $1, 0, $b, 0, 0, 0, $66, $61, $63, $65,
+        $49, $6e, $64, $65, $78, $65, $73, $e, 0, $1, 0, $c, 0, 0, 0, $6e, $46, $61, $63, $65,
+        $49, $6e, $64, $65, $78, $65, $73, $f, 0, $14, 0, $e, 0, $1, 0, $8, 0, 0, 0, $4d,
+        $61, $74, $65, $72, $69, $61, $6c, $f, 0, $b, 0, $1f, 0, $1, 0, $b, 0, 0, 0, $4d,
+        $65, $73, $68, $4e, $6f, $72, $6d, $61, $6c, $73, $a, 0, $5, 0, $43, $3f, $f2, $f6, $86, $76,
+        $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3, $29, 0, $1, 0, $8, 0, 0, 0, $6e, $4e,
+        $6f, $72, $6d, $61, $6c, $73, $14, 0, $34, 0, $1, 0, $6, 0, 0, 0, $56, $65, $63, $74,
+        $6f, $72, $1, 0, $7, 0, 0, 0, $6e, $6f, $72, $6d, $61, $6c, $73, $e, 0, $1, 0, $8,
+, 0, 0, $6e, $4e, $6f, $72, $6d, $61, $6c, $73, $f, 0, $14, 0, $29, 0, $1, 0, $c,
+, 0, 0, $6e, $46, $61, $63, $65, $4e, $6f, $72, $6d, $61, $6c, $73, $14, 0, $34, 0, $1,
+, $8, 0, 0, 0, $4d, $65, $73, $68, $46, $61, $63, $65, $1, 0, $b, 0, 0, 0, $66,
+        $61, $63, $65, $4e, $6f, $72, $6d, $61, $6c, $73, $e, 0, $1, 0, $c, 0, 0, 0, $6e, $46,
+        $61, $63, $65, $4e, $6f, $72, $6d, $61, $6c, $73, $f, 0, $14, 0, $b, 0, $1f, 0, $1, 0,
+        $10, 0, 0, 0, $4d, $65, $73, $68, $56, $65, $72, $74, $65, $78, $43, $6f, $6c, $6f, $72, $73,
+        $a, 0, $5, 0, $21, $b8, $30, $16, $42, $78, $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3,
+        $29, 0, $1, 0, $d, 0, 0, 0, $6e, $56, $65, $72, $74, $65, $78, $43, $6f, $6c, $6f, $72,
+        $73, $14, 0, $34, 0, $1, 0, $c, 0, 0, 0, $49, $6e, $64, $65, $78, $65, $64, $43, $6f,
+        $6c, $6f, $72, $1, 0, $c, 0, 0, 0, $76, $65, $72, $74, $65, $78, $43, $6f, $6c, $6f, $72,
+        $73, $e, 0, $1, 0, $d, 0, 0, 0, $6e, $56, $65, $72, $74, $65, $78, $43, $6f, $6c, $6f,
+        $72, $73, $f, 0, $14, 0, $b, 0, $1f, 0, $1, 0, $4, 0, 0, 0, $4d, $65, $73, $68,
+        $a, 0, $5, 0, $44, $ab, $82, $3d, $da, $62, $cf, $11, $ab, $39, 0, $20, $af, $71, $e4, $33,
+        $29, 0, $1, 0, $9, 0, 0, 0, $6e, $56, $65, $72, $74, $69, $63, $65, $73, $14, 0, $34,
+, $1, 0, $6, 0, 0, 0, $56, $65, $63, $74, $6f, $72, $1, 0, $8, 0, 0, 0, $76,
+        $65, $72, $74, $69, $63, $65, $73, $e, 0, $1, 0, $9, 0, 0, 0, $6e, $56, $65, $72, $74,
+        $69, $63, $65, $73, $f, 0, $14, 0, $29, 0, $1, 0, $6, 0, 0, 0, $6e, $46, $61, $63,
+        $65, $73, $14, 0, $34, 0, $1, 0, $8, 0, 0, 0, $4d, $65, $73, $68, $46, $61, $63, $65,
+        $1, 0, $5, 0, 0, 0, $66, $61, $63, $65, $73, $e, 0, $1, 0, $6, 0, 0, 0, $6e,
+        $46, $61, $63, $65, $73, $f, 0, $14, 0, $e, 0, $12, 0, $12, 0, $12, 0, $f, 0, $b,
+, $1f, 0, $1, 0, $14, 0, 0, 0, $46, $72, $61, $6d, $65, $54, $72, $61, $6e, $73, $66,
+        $6f, $72, $6d, $4d, $61, $74, $72, $69, $78, $a, 0, $5, 0, $41, $3f, $f2, $f6, $86, $76, $cf,
+        $11, $8f, $52, 0, $40, $33, $35, $94, $a3, $1, 0, $9, 0, 0, 0, $4d, $61, $74, $72, $69,
+        $78, $34, $78, $34, $1, 0, $b, 0, 0, 0, $66, $72, $61, $6d, $65, $4d, $61, $74, $72, $69,
+        $78, $14, 0, $b, 0, $1f, 0, $1, 0, $5, 0, 0, 0, $46, $72, $61, $6d, $65, $a, 0,
+        $5, 0, $46, $ab, $82, $3d, $da, $62, $cf, $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $e, 0,
+        $12, 0, $12, 0, $12, 0, $f, 0, $b, 0, $1f, 0, $1, 0, $9, 0, 0, 0, $46, $6c,
+        $6f, $61, $74, $4b, $65, $79, $73, $a, 0, $5, 0, $a9, $46, $dd, $10, $5b, $77, $cf, $11, $8f,
+        $52, 0, $40, $33, $35, $94, $a3, $29, 0, $1, 0, $7, 0, 0, 0, $6e, $56, $61, $6c, $75,
+        $65, $73, $14, 0, $34, 0, $2a, 0, $1, 0, $6, 0, 0, 0, $76, $61, $6c, $75, $65, $73,
+        $e, 0, $1, 0, $7, 0, 0, 0, $6e, $56, $61, $6c, $75, $65, $73, $f, 0, $14, 0, $b,
+, $1f, 0, $1, 0, $e, 0, 0, 0, $54, $69, $6d, $65, $64, $46, $6c, $6f, $61, $74, $4b,
+        $65, $79, $73, $a, 0, $5, 0, $80, $b1, $6, $f4, $3b, $7b, $cf, $11, $8f, $52, 0, $40, $33,
+        $35, $94, $a3, $29, 0, $1, 0, $4, 0, 0, 0, $74, $69, $6d, $65, $14, 0, $1, 0, $9,
+, 0, 0, $46, $6c, $6f, $61, $74, $4b, $65, $79, $73, $1, 0, $6, 0, 0, 0, $74, $66,
+        $6b, $65, $79, $73, $14, 0, $b, 0, $1f, 0, $1, 0, $c, 0, 0, 0, $41, $6e, $69, $6d,
+        $61, $74, $69, $6f, $6e, $4b, $65, $79, $a, 0, $5, 0, $a8, $46, $dd, $10, $5b, $77, $cf, $11,
+        $8f, $52, 0, $40, $33, $35, $94, $a3, $29, 0, $1, 0, $7, 0, 0, 0, $6b, $65, $79, $54,
+        $79, $70, $65, $14, 0, $29, 0, $1, 0, $5, 0, 0, 0, $6e, $4b, $65, $79, $73, $14, 0,
+        $34, 0, $1, 0, $e, 0, 0, 0, $54, $69, $6d, $65, $64, $46, $6c, $6f, $61, $74, $4b, $65,
+        $79, $73, $1, 0, $4, 0, 0, 0, $6b, $65, $79, $73, $e, 0, $1, 0, $5, 0, 0, 0,
+        $6e, $4b, $65, $79, $73, $f, 0, $14, 0, $b, 0, $1f, 0, $1, 0, $10, 0, 0, 0, $41,
+        $6e, $69, $6d, $61, $74, $69, $6f, $6e, $4f, $70, $74, $69, $6f, $6e, $73, $a, 0, $5, 0, $c0,
+        $56, $bf, $e2, $f, $84, $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3, $29, 0, $1, 0, $a,
+, 0, 0, $6f, $70, $65, $6e, $63, $6c, $6f, $73, $65, $64, $14, 0, $29, 0, $1, 0, $f,
+, 0, 0, $70, $6f, $73, $69, $74, $69, $6f, $6e, $71, $75, $61, $6c, $69, $74, $79, $14, 0,
+        $b, 0, $1f, 0, $1, 0, $9, 0, 0, 0, $41, $6e, $69, $6d, $61, $74, $69, $6f, $6e, $a,
+, $5, 0, $4f, $ab, $82, $3d, $da, $62, $cf, $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $e,
+, $12, 0, $12, 0, $12, 0, $f, 0, $b, 0, $1f, 0, $1, 0, $c, 0, 0, 0, $41,
+        $6e, $69, $6d, $61, $74, $69, $6f, $6e, $53, $65, $74, $a, 0, $5, 0, $50, $ab, $82, $3d, $da,
+        $62, $cf, $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $e, 0, $1, 0, $9, 0, 0, 0, $41,
+        $6e, $69, $6d, $61, $74, $69, $6f, $6e, $f, 0, $b, 0, $1f, 0, $1, 0, $a, 0, 0, 0,
+        $49, $6e, $6c, $69, $6e, $65, $44, $61, $74, $61, $a, 0, $5, 0, $a0, $ee, $23, $3a, $b1, $94,
+        $d0, $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $e, 0, $1, 0, $6, 0, 0, 0, $42, $49,
+        $4e, $41, $52, $59, $f, 0, $b, 0, $1f, 0, $1, 0, $3, 0, 0, 0, $55, $72, $6c, $a,
+, $5, 0, $a1, $ee, $23, $3a, $b1, $94, $d0, $11, $ab, $39, 0, $20, $af, $71, $e4, $33, $29,
+, $1, 0, $5, 0, 0, 0, $6e, $55, $72, $6c, $73, $14, 0, $34, 0, $31, 0, $1, 0,
+        $4, 0, 0, 0, $75, $72, $6c, $73, $e, 0, $1, 0, $5, 0, 0, 0, $6e, $55, $72, $6c,
+        $73, $f, 0, $14, 0, $b, 0, $1f, 0, $1, 0, $f, 0, 0, 0, $50, $72, $6f, $67, $72,
+        $65, $73, $73, $69, $76, $65, $4d, $65, $73, $68, $a, 0, $5, 0, $60, $c3, $63, $8a, $7d, $99,
+        $d0, $11, $94, $1c, 0, $80, $c8, $c, $fa, $7b, $e, 0, $1, 0, $3, 0, 0, 0, $55, $72,
+        $6c, $13, 0, $1, 0, $a, 0, 0, 0, $49, $6e, $6c, $69, $6e, $65, $44, $61, $74, $61, $f,
+, $b, 0, $1f, 0, $1, 0, $4, 0, 0, 0, $47, $75, $69, $64, $a, 0, $5, 0, $e0,
+        $90, $27, $a4, $10, $78, $cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3, $29, 0, $1, 0, $5,
+, 0, 0, $64, $61, $74, $61, $31, $14, 0, $28, 0, $1, 0, $5, 0, 0, 0, $64, $61,
+        $74, $61, $32, $14, 0, $28, 0, $1, 0, $5, 0, 0, 0, $64, $61, $74, $61, $33, $14, 0,
+        $34, 0, $2d, 0, $1, 0, $5, 0, 0, 0, $64, $61, $74, $61, $34, $e, 0, $3, 0, $8,
+, 0, 0, $f, 0, $14, 0, $b, 0, $1f, 0, $1, 0, $e, 0, 0, 0, $53, $74, $72,
+        $69, $6e, $67, $50, $72, $6f, $70, $65, $72, $74, $79, $a, 0, $5, 0, $e0, $21, $f, $7f, $e1,
+        $bf, $d1, $11, $82, $c0, 0, $a0, $c9, $69, $72, $71, $31, 0, $1, 0, $3, 0, 0, 0, $6b,
+        $65, $79, $14, 0, $31, 0, $1, 0, $5, 0, 0, 0, $76, $61, $6c, $75, $65, $14, 0, $b,
+, $1f, 0, $1, 0, $b, 0, 0, 0, $50, $72, $6f, $70, $65, $72, $74, $79, $42, $61, $67,
+        $a, 0, $5, 0, $e1, $21, $f, $7f, $e1, $bf, $d1, $11, $82, $c0, 0, $a0, $c9, $69, $72, $71,
+        $e, 0, $1, 0, $e, 0, 0, 0, $53, $74, $72, $69, $6e, $67, $50, $72, $6f, $70, $65, $72,
+        $74, $79, $f, 0, $b, 0, $1f, 0, $1, 0, $e, 0, 0, 0, $45, $78, $74, $65, $72, $6e,
+        $61, $6c, $56, $69, $73, $75, $61, $6c, $a, 0, $5, 0, $a0, $6a, $11, $98, $ba, $bd, $d1, $11,
+        $82, $c0, 0, $a0, $c9, $69, $72, $71, $1, 0, $4, 0, 0, 0, $47, $75, $69, $64, $1, 0,
+        $12, 0, 0, 0, $67, $75, $69, $64, $45, $78, $74, $65, $72, $6e, $61, $6c, $56, $69, $73, $75,
+        $61, $6c, $14, 0, $e, 0, $12, 0, $12, 0, $12, 0, $f, 0, $b, 0, $1f, 0, $1, 0,
+        $b, 0, 0, 0, $52, $69, $67, $68, $74, $48, $61, $6e, $64, $65, $64, $a, 0, $5, 0, $a0,
+        $5e, $5d, $7f, $3a, $d5, $d1, $11, $82, $c0, 0, $a0, $c9, $69, $72, $71, $29, 0, $1, 0, $c,
+, 0, 0, $62, $52, $69, $67, $68, $74, $48, $61, $6e, $64, $65, $64, $14, 0, $b, 0);
+//---------------
+{$ENDIF}
+//DirectInput file
 (*==========================================================================;
+ *
- *  Copyright (C) 1996-1997 Microsoft Corporation.  All Rights Reserved.
+ *  Copyright (C) 1996-1999 Microsoft Corporation.  All Rights Reserved.
+ *
  *  File:       dinput.h
  *  Content:    DirectInput include file
+ *
+ *  DirectX 7.0 Delphi adaptation by Erik Unger, input format
+ *  variable structure & other fixups by Arne Schäpers (as)
+ *
+ *  Modified: 10-Sep-2000
+ *
+ *  Download: http://www.delphi-jedi.org/DelphiGraphics/
+ *  E-Mail: DelphiDirectX@next-reality.com
+ *          a.schaepers@digitalpublishing.de
+ *
- ****************************************************************************)
+ ***************************************************************************)
+{ Some notes from as:
+. DirectInput Enum callback functions which are documented with result
+  type BOOL in the SDK had to be changed to result type integer because the debug
+  version of DINPUT.DLL (which is the same for SDK versions 5.0, 5.2, 6.0, and 6.1)
+  explicitely checks for two possible return values:
+- FALSE in C and in Delphi
+- TRUE in C, defined as DIENUM_CONTINUE
+  In Delphi, TRUE means $FFFFFFFF (= -1) for the LongBool (= BOOL) data
+  type, and AL = 1 (upper three bytes undefined) for the Boolean data type.
+  The debug version of DINPUT.DLL will throw an external exception
+  ("invalid return value for callback") when fed with either value.
+  This change affects the following methods:
+  EnumDevices, EnumObjects, EnumEffects, EnumCreatedEffectObjects
+. Windows 98 and DX6 debug versions DInput and DSound
+  Under Windows 98, the "debug" setup of the DirectX SDK 6.x skips DInput.DLL
+  and DSound.DLL, i.e. makes you end up with the retail version of these two
+  files without any notice.
+  The debug versions of DInput.DLL and DSound.DLL can be found in the
+  \extras\Win98\Win98Dbg folder of the SDK CD; they need to be installed
+  "manually".
+  This problem has been fixed with DX7 where the SDK installs the debug versions
+  of DInput and DSound without any "manual" help.
+}
+var
+  DInputDLL : HMODULE;
+{$IFDEF DIRECTX3}
+const DIRECTINPUT_VERSION = $0300;
+{$ELSE}
+const DIRECTINPUT_VERSION = $0700;
+{$ENDIF}
+function DIErrorString(Value: HResult) : string;
+//type
+//  TRefGUID = packed record
+//    case integer of
+//    1: (guid : PGUID);
+//    2: (dwFlags : DWORD);
+//  end;
+(****************************************************************************
+ *
+ *      Class IDs
+ *
+ ****************************************************************************)
 const
-{$IFDEF DirectX3}
-  DIRECTINPUT_VERSION = $0300;
+  CLSID_DirectInput: TGUID =
-{$ENDIF}{$IFDEF DirectX5}
-  DIRECTINPUT_VERSION = $0500;
+      (D1:$25E609E0;D2:$B259;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
-{$ENDIF}{$IFDEF DirectX6}
-  DIRECTINPUT_VERSION = $0500;
+  CLSID_DirectInputDevice: TGUID =
-{$ENDIF}{$IFDEF DirectX7}
-  DIRECTINPUT_VERSION = $0700;
+      (D1:$25E609E1;D2:$B259;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
-{$ENDIF}
-{ Class IDs }
+(****************************************************************************
+ *
+ *      Predefined object types
-const
+ *
-  CLSID_DirectInput: TGUID = '{25E609E0-B259-11CF-BFC7-444553540000}';
-  CLSID_DirectInputDevice: TGUID = '{25E609E1-B259-11CF-BFC7-444553540000}';
+ ****************************************************************************)
-{ Interfaces }
+  GUID_XAxis: TGUID =
-const
-  IID_IDirectInputA: TGUID = '{89521360-AA8A-11CF-BFC7-444553540000}';
+      (D1:$A36D02E0;D2:$C9F3;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
-  IID_IDirectInputW: TGUID = '{89521361-AA8A-11CF-BFC7-444553540000}';
+  GUID_YAxis: TGUID =
-  IID_IDirectInput2A: TGUID = '{5944E662-AA8A-11CF-BFC7-444553540000}';
+      (D1:$A36D02E1;D2:$C9F3;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
-  IID_IDirectInput2W: TGUID = '{5944E663-AA8A-11CF-BFC7-444553540000}';
+  GUID_ZAxis: TGUID =
-  IID_IDirectInput7A: TGUID = '{9A4CB684-236D-11D3-8E9D-00C04F6844AE}';
+      (D1:$A36D02E2;D2:$C9F3;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
-  IID_IDirectInput7W: TGUID = '{9A4CB685-236D-11D3-8E9D-00C04F6844AE}';
+  GUID_RxAxis: TGUID =
-  IID_IDirectInputDeviceA: TGUID = '{5944E680-C92E-11CF-BFC7-444553540000}';
+      (D1:$A36D02F4;D2:$C9F3;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
-  IID_IDirectInputDeviceW: TGUID = '{5944E681-C92E-11CF-BFC7-444553540000}';
+  GUID_RyAxis: TGUID =
-  IID_IDirectInputDevice2A: TGUID = '{5944E682-C92E-11CF-BFC7-444553540000}';
+      (D1:$A36D02F5;D2:$C9F3;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
-  IID_IDirectInputDevice2W: TGUID = '{5944E683-C92E-11CF-BFC7-444553540000}';
+  GUID_RzAxis: TGUID =
-  IID_IDirectInputDevice7A: TGUID = '{57D7C6BC-2356-11D3-8E9D-00C04F6844AE}';
+      (D1:$A36D02E3;D2:$C9F3;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
-  IID_IDirectInputDevice7W: TGUID = '{57D7C6BD-2356-11D3-8E9D-00C04F6844AE}';
+  GUID_Slider: TGUID =
-  IID_IDirectInputEffect: TGUID = '{E7E1F7C0-88D2-11D0-9AD0-00A0C9A06E35}';
+      (D1:$A36D02E4;D2:$C9F3;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
-{ Predefined object types }
+  GUID_Button: TGUID =
-  GUID_XAxis: TGUID = '{A36D02E0-C9F3-11CF-BFC7-444553540000}';
-  GUID_YAxis: TGUID = '{A36D02E1-C9F3-11CF-BFC7-444553540000}';
+      (D1:$A36D02F0;D2:$C9F3;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
-  GUID_ZAxis: TGUID = '{A36D02E2-C9F3-11CF-BFC7-444553540000}';
+  GUID_Key: TGUID =
-  GUID_RxAxis: TGUID = '{A36D02F4-C9F3-11CF-BFC7-444553540000}';
+      (D1:$55728220;D2:$D33C;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
-  GUID_RyAxis: TGUID = '{A36D02F5-C9F3-11CF-BFC7-444553540000}';
+  GUID_POV: TGUID =
-  GUID_RzAxis: TGUID = '{A36D02E3-C9F3-11CF-BFC7-444553540000}';
+      (D1:$A36D02F2;D2:$C9F3;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
-  GUID_Slider: TGUID = '{A36D02E4-C9F3-11CF-BFC7-444553540000}';
-  GUID_Button: TGUID = '{A36D02F0-C9F3-11CF-BFC7-444553540000}';
+  GUID_Unknown: TGUID =
-  GUID_Key: TGUID = '{55728220-D33C-11CF-BFC7-444553540000}';
-  GUID_POV: TGUID = '{A36D02F2-C9F3-11CF-BFC7-444553540000}';
+      (D1:$A36D02F3;D2:$C9F3;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
-  GUID_Unknown: TGUID = '{A36D02F3-C9F3-11CF-BFC7-444553540000}';
+(****************************************************************************
+ *
-{ Predefined product GUIDs }
+ *      Predefined product GUIDs
+ *
+ ****************************************************************************)
+  GUID_SysMouse: TGUID =
-  GUID_SysMouse: TGUID = '{6F1D2B60-D5A0-11CF-BFC7-444553540000}';
+      (D1:$6F1D2B60;D2:$D5A0;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
+  GUID_SysKeyboard: TGUID =
-  GUID_SysKeyboard: TGUID = '{6F1D2B61-D5A0-11CF-BFC7-444553540000}';
+      (D1:$6F1D2B61;D2:$D5A0;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
+  GUID_Joystick: TGUID =
-  GUID_Joystick: TGUID = '{6F1D2B70-D5A0-11CF-BFC7-444553540000}';
+      (D1:$6F1D2B70;D2:$D5A0;D3:$11CF;D4:($BF,$C7,$44,$45,$53,$54,$00,$00));
   GUID_SysMouseEm: TGUID = '{6F1D2B80-D5A0-11CF-BFC7-444553540000}';
   GUID_SysMouseEm2: TGUID = '{6F1D2B81-D5A0-11CF-BFC7-444553540000}';
   GUID_SysKeyboardEm: TGUID = '{6F1D2B82-D5A0-11CF-BFC7-444553540000}';
   GUID_SysKeyboardEm2: TGUID = '{6F1D2B83-D5A0-11CF-BFC7-444553540000}';
+(****************************************************************************
+ *
-{ Predefined force feedback effects }
+ *      Predefined force feedback effects
+ *
+ ****************************************************************************)
+  GUID_ConstantForce: TGUID =
+      (D1:$13541C20;D2:$8E33;D3:$11D0;D4:($9A,$D0,$00,$A0,$C9,$A0,$6E,$35));
+  GUID_RampForce: TGUID =
+      (D1:$13541C21;D2:$8E33;D3:$11D0;D4:($9A,$D0,$00,$A0,$C9,$A0,$6E,$35));
+  GUID_Square: TGUID =
+      (D1:$13541C22;D2:$8E33;D3:$11D0;D4:($9A,$D0,$00,$A0,$C9,$A0,$6E,$35));
+  GUID_Sine: TGUID =
+      (D1:$13541C23;D2:$8E33;D3:$11D0;D4:($9A,$D0,$00,$A0,$C9,$A0,$6E,$35));
+  GUID_Triangle: TGUID =
+      (D1:$13541C24;D2:$8E33;D3:$11D0;D4:($9A,$D0,$00,$A0,$C9,$A0,$6E,$35));
+  GUID_SawtoothUp: TGUID =
+      (D1:$13541C25;D2:$8E33;D3:$11D0;D4:($9A,$D0,$00,$A0,$C9,$A0,$6E,$35));
+  GUID_SawtoothDown: TGUID =
+      (D1:$13541C26;D2:$8E33;D3:$11D0;D4:($9A,$D0,$00,$A0,$C9,$A0,$6E,$35));
+  GUID_Spring: TGUID =
+      (D1:$13541C27;D2:$8E33;D3:$11D0;D4:($9A,$D0,$00,$A0,$C9,$A0,$6E,$35));
+  GUID_Damper: TGUID =
+      (D1:$13541C28;D2:$8E33;D3:$11D0;D4:($9A,$D0,$00,$A0,$C9,$A0,$6E,$35));
+  GUID_Inertia: TGUID =
+      (D1:$13541C29;D2:$8E33;D3:$11D0;D4:($9A,$D0,$00,$A0,$C9,$A0,$6E,$35));
+  GUID_Friction: TGUID =
+      (D1:$13541C2A;D2:$8E33;D3:$11D0;D4:($9A,$D0,$00,$A0,$C9,$A0,$6E,$35));
+  GUID_CustomForce: TGUID =
+      (D1:$13541C2B;D2:$8E33;D3:$11D0;D4:($9A,$D0,$00,$A0,$C9,$A0,$6E,$35));
-  GUID_ConstantForce: TGUID = '{13541C20-8E33-11D0-9AD0-00A0C9A06E35}';
-  GUID_RampForce: TGUID = '{13541C21-8E33-11D0-9AD0-00A0C9A06E35}';
-  GUID_Square: TGUID = '{13541C22-8E33-11D0-9AD0-00A0C9A06E35}';
-  GUID_Sine: TGUID = '{13541C23-8E33-11D0-9AD0-00A0C9A06E35}';
-  GUID_Triangle: TGUID = '{13541C24-8E33-11D0-9AD0-00A0C9A06E35}';
-  GUID_SawtoothUp: TGUID = '{13541C25-8E33-11D0-9AD0-00A0C9A06E35}';
-  GUID_SawtoothDown: TGUID = '{13541C26-8E33-11D0-9AD0-00A0C9A06E35}';
-  GUID_Spring: TGUID = '{13541C27-8E33-11D0-9AD0-00A0C9A06E35}';
-  GUID_Damper: TGUID = '{13541C28-8E33-11D0-9AD0-00A0C9A06E35}';
-  GUID_Inertia: TGUID = '{13541C29-8E33-11D0-9AD0-00A0C9A06E35}';
-  GUID_Friction: TGUID = '{13541C2A-8E33-11D0-9AD0-00A0C9A06E35}';
-  GUID_CustomForce: TGUID = '{13541C2B-8E33-11D0-9AD0-00A0C9A06E35}';
+(****************************************************************************
+ *
+ *      Interfaces and Structures...
+ *
+ ****************************************************************************)
+(****************************************************************************
+ *
-{ IDirectInputEffect }
+ *      IDirectInputEffect
+ *
+ ****************************************************************************)
 const
-  DIEFT_ALL                = $00000000;
+  DIEFT_ALL                   = $00000000;
-  DIEFT_CONSTANTFORCE      = $00000001;
+  DIEFT_CONSTANTFORCE         = $00000001;
-  DIEFT_RAMPFORCE          = $00000002;
+  DIEFT_RAMPFORCE             = $00000002;
-  DIEFT_PERIODIC           = $00000003;
+  DIEFT_PERIODIC              = $00000003;
-  DIEFT_CONDITION          = $00000004;
+  DIEFT_CONDITION             = $00000004;
-  DIEFT_CUSTOMFORCE        = $00000005;
+  DIEFT_CUSTOMFORCE           = $00000005;
-  DIEFT_HARDWARE           = $000000FF;
+  DIEFT_HARDWARE              = $000000FF;
-  DIEFT_FFATTACK           = $00000200;
+  DIEFT_FFATTACK              = $00000200;
-  DIEFT_FFFADE             = $00000400;
+  DIEFT_FFFADE                = $00000400;
-  DIEFT_SATURATION         = $00000800;
+  DIEFT_SATURATION            = $00000800;
-  DIEFT_POSNEGCOEFFICIENTS = $00001000;
+  DIEFT_POSNEGCOEFFICIENTS    = $00001000;
-  DIEFT_POSNEGSATURATION   = $00002000;
+  DIEFT_POSNEGSATURATION      = $00002000;
-  DIEFT_DEADBAND           = $00004000;
+  DIEFT_DEADBAND              = $00004000;
-  DIEFT_STARTDELAY         = $00008000;
+  DIEFT_STARTDELAY            = $00008000;
-function DIEFT_GETTYPE(n: DWORD): DWORD;
+function DIEFT_GETTYPE(n: variant) : byte;
 const
-  DI_DEGREES               = 100;
+  DI_DEGREES                  =     100;
-  DI_FFNOMINALMAX          = 10000;
+  DI_FFNOMINALMAX             =   10000;
-  DI_SECONDS               = 1000000;
+  DI_SECONDS                  = 1000000;
 type
   PDIConstantForce = ^TDIConstantForce;
-  TDIConstantForce = record
+  TDIConstantForce = packed record
-    lMagnitude: Longint;
+    lMagnitude : LongInt;
   end;
-  DICONSTANTFORCE = TDIConstantForce;
-  LPDICONSTANTFORCE = PDIConstantForce;
   PDIRampForce = ^TDIRampForce;
-  TDIRampForce = record
+  TDIRampForce = packed record
-    lStart: Longint;
+    lStart : LongInt;
-    lEnd: Longint;
+    lEnd : LongInt;
   end;
-  DIRAMPFORCE = TDIRampForce;
-  LPDIRAMPFORCE = PDIRampForce;
   PDIPeriodic = ^TDIPeriodic;
-  TDIPeriodic = record
+  TDIPeriodic = packed record
-    dwMagnitude: DWORD;
+    dwMagnitude : DWORD;
-    lOffset: Longint;
+    lOffset : LongInt;
-    dwPhase: DWORD;
+    dwPhase : DWORD;
-    dwPeriod: DWORD;
+    dwPeriod : DWORD;
   end;
-  DIPERIODIC = TDIPeriodic;
-  LPDIPERIODIC = PDIPeriodic;
   PDICondition = ^TDICondition;
-  TDICondition = record
+  TDICondition = packed record
-    lOffset: Longint;
+    lOffset : LongInt;
-    lPositiveCoefficient: Longint;
+    lPositiveCoefficient : LongInt;
-    lNegativeCoefficient: Longint;
+    lNegativeCoefficient : LongInt;
-    dwPositiveSaturation: DWORD;
+    dwPositiveSaturation : DWORD;
-    dwNegativeSaturation: DWORD;
+    dwNegativeSaturation : DWORD;
-    lDeadBand: Longint;
+    lDeadBand : LongInt;
   end;
-  DICONDITION = TDICondition;
-  LPDICONDITION = PDICondition;
   PDICustomForce = ^TDICustomForce;
-  TDICustomForce = record
+  TDICustomForce = packed record
-    cChannels: DWORD;
+    cChannels : DWORD;
-    dwSamplePeriod: DWORD;
+    dwSamplePeriod : DWORD;
-    cSamples: DWORD;
+    cSamples : DWORD;
-    rglForceData: PLongint;
+    rglForceData : PLongInt;
   end;
-  DICUSTOMFORCE = TDICustomForce;
-  LPDICUSTOMFORCE = PDICustomForce;
   PDIEnvelope = ^TDIEnvelope;
-  TDIEnvelope = record
+  TDIEnvelope = packed record
-    dwSize: DWORD;                   // sizeof(DIENVELOPE)
+    dwSize : DWORD;                   (* sizeof(DIENVELOPE)   *)
-    dwAttackLevel: DWORD;
+    dwAttackLevel : DWORD;
-    dwAttackTime: DWORD;             // Microseconds
+    dwAttackTime : DWORD;             (* Microseconds         *)
-    dwFadeLevel: DWORD;
+    dwFadeLevel : DWORD;
-    dwFadeTime: DWORD;               // Microseconds
+    dwFadeTime : DWORD;               (* Microseconds         *)
   end;
-  DIENVELOPE = TDIEnvelope;
-  LPDIENVELOPE = PDIEnvelope;
   PDIEffect_DX5 = ^TDIEffect_DX5;
-  TDIEffect_DX5 = record
+  TDIEffect_DX5 = packed record
-    dwSize: DWORD;                   // sizeof(DIEFFECT)
+    dwSize : DWORD;                   (* sizeof(DIEFFECT)     *)
-    dwFlags: DWORD;                  // DIEFF_*
+    dwFlags : DWORD;                  (* DIEFF_*              *)
-    dwDuration: DWORD;               // Microseconds
+    dwDuration : DWORD;               (* Microseconds         *)
-    dwSamplePeriod: DWORD;           // Microseconds
+    dwSamplePeriod : DWORD;           (* Microseconds         *)
-    dwGain: DWORD;
+    dwGain : DWORD;
-    dwTriggerButton: DWORD;          // or DIEB_NOTRIGGER
+    dwTriggerButton : DWORD;          (* or DIEB_NOTRIGGER    *)
-    dwTriggerRepeatInterval: DWORD;  // Microseconds
+    dwTriggerRepeatInterval : DWORD;  (* Microseconds         *)
-    cAxes: DWORD;                    // Number of axes
+    cAxes : DWORD;                    (* Number of axes       *)
-    rgdwAxes: PDWORD;                // arrayof axes
+    rgdwAxes : PDWORD;                (* Array of axes        *)
-    rglDirection: PLongint;          // arrayof directions
+    rglDirection : PLongInt;          (* Array of directions  *)
-    lpEnvelope: PDIEnvelope;         // Optional
+    lpEnvelope : PDIEnvelope;         (* Optional             *)
-    cbTypeSpecificParams: DWORD;     // Size of params
+    cbTypeSpecificParams : DWORD;     (* Size of params       *)
-    lpvTypeSpecificParams: Pointer;  // Pointer to params
+    lpvTypeSpecificParams : pointer;  (* Pointer to params    *)
   end;
   PDIEffect_DX6 = ^TDIEffect_DX6;
-  TDIEffect_DX6 = record
+  TDIEffect_DX6 = packed record
-    dwSize: DWORD;                   // sizeof(DIEFFECT)
+    dwSize : DWORD;                   (* sizeof(DIEFFECT)     *)
-    dwFlags: DWORD;                  // DIEFF_*
+    dwFlags : DWORD;                  (* DIEFF_*              *)
-    dwDuration: DWORD;               // Microseconds
+    dwDuration : DWORD;               (* Microseconds         *)
-    dwSamplePeriod: DWORD;           // Microseconds
+    dwSamplePeriod : DWORD;           (* Microseconds         *)
-    dwGain: DWORD;
+    dwGain : DWORD;
-    dwTriggerButton: DWORD;          // or DIEB_NOTRIGGER
+    dwTriggerButton : DWORD;          (* or DIEB_NOTRIGGER    *)
-    dwTriggerRepeatInterval: DWORD;  // Microseconds
+    dwTriggerRepeatInterval : DWORD;  (* Microseconds         *)
-    cAxes: DWORD;                    // Number of axes
+    cAxes : DWORD;                    (* Number of axes       *)
-    rgdwAxes: PDWORD;                // arrayof axes
+    rgdwAxes : PDWORD;                (* Array of axes        *)
-    rglDirection: PLongint;          // arrayof directions
+    rglDirection : PLongInt;          (* Array of directions  *)
-    lpEnvelope: PDIEnvelope;         // Optional
+    lpEnvelope : PDIEnvelope;         (* Optional             *)
-    cbTypeSpecificParams: DWORD;     // Size of params
+    cbTypeSpecificParams : DWORD;     (* Size of params       *)
-    lpvTypeSpecificParams: Pointer;  // Pointer to params
+    lpvTypeSpecificParams : pointer;  (* Pointer to params    *)
-    dwStartDelay: DWORD;             // Microseconds
+    dwStartDelay: DWORD;              (* Microseconds         *)
   end;
-{$IFDEF SupportDirectX6}
-  PDIEffect = PDIEffect_DX6;
-  TDIEffect = TDIEffect_DX6;
+  PDIEffect = ^TDIEffect;
-{$ELSE}
+{$IFDEF DIRECTX5}
-  PDIEffect = PDIEffect_DX5;
   TDIEffect = TDIEffect_DX5;
+{$ELSE}
+  TDIEffect = TDIEffect_DX6;
 {$ENDIF}
-  DIEFFECT = TDIEFFECT;
-  LPDIEFFECT = PDIEFFECT;
   PDIFileEffect = ^TDIFileEffect;
-  TDIFileEffect = record
+  TDIFileEffect = packed record
-    dwSize: DWORD;
+    dwSize : DWORD;
     GuidEffect: TGUID;
     lpDiEffect: PDIEffect;
-    szFriendlyName: array[0..MAX_PATH-1] of Char;
+    szFriendlyName : array [0..MAX_PATH-1] of AnsiChar;
   end;
-  DIFILEEFFECT = TDIFileEffect;
-  LPDIFILEEFFECT = PDIFileEffect;
-  TDIEnumEffectsInFileCallback = function(const lpDiFileEf: TDIFileEffect; pvRef: Pointer): BOOL; far pascal;
-  LPDIENUMEFFECTSINFILECALLBACK = TDIEnumEffectsInFileCallback;
 const
   DIEFF_OBJECTIDS             = $00000001;
   DIEFF_OBJECTOFFSETS         = $00000002;
   DIEFF_CARTESIAN             = $00000010;
   DIEFF_POLAR                 = $00000020;
   DIEFF_SPHERICAL             = $00000040;
   DIEP_DURATION               = $00000001;
   DIEP_SAMPLEPERIOD           = $00000002;
-  DIEP_GAIN = $00000004;
+  DIEP_GAIN                   = $00000004;
   DIEP_TRIGGERBUTTON          = $00000008;
   DIEP_TRIGGERREPEATINTERVAL  = $00000010;
   DIEP_AXES                   = $00000020;
   DIEP_DIRECTION              = $00000040;
   DIEP_ENVELOPE               = $00000080;
   DIEP_TYPESPECIFICPARAMS     = $00000100;
+{$IFDEF DIRECTX5}
+  DIEP_ALLPARAMS              = $000001FF;
+{$ELSE}
   DIEP_STARTDELAY             = $00000200;
   DIEP_ALLPARAMS_DX5          = $000001FF;
-{$IFDEF SupportDirectX6}
   DIEP_ALLPARAMS              = $000003FF;
-{$ELSE}
-  DIEP_ALLPARAMS              = $000001FF;
 {$ENDIF}
   DIEP_START                  = $20000000;
   DIEP_NORESTART              = $40000000;
   DIEP_NODOWNLOAD             = $80000000;
   DIEB_NOTRIGGER              = $FFFFFFFF;
   DIES_SOLO                   = $00000001;
   DIES_NODOWNLOAD             = $80000000;
   DIEGES_PLAYING              = $00000001;
   DIEGES_EMULATED             = $00000002;
 type
   PDIEffEscape = ^TDIEffEscape;
-  TDIEffEscape = record
+  TDIEffEscape = packed record
-    dwSize: DWORD;
+    dwSize : DWORD;
-    dwCommand: DWORD;
+    dwCommand : DWORD;
-    lpvInBuffer: Pointer;
+    lpvInBuffer : pointer;
-    cbInBuffer: DWORD;
+    cbInBuffer : DWORD;
-    lpvOutBuffer: Pointer;
+    lpvOutBuffer : pointer;
-    cbOutBuffer: DWORD;
+    cbOutBuffer : DWORD;
   end;
-  DIEFFESCAPE = TDIEffEscape;
-  LPDIEFFESCAPE = PDIEffEscape;
+//
+// IDirectSoundCapture  // as: ???
+//
-  IDirectInputEffect = interface(IUnknown)
+  IDirectInputEffect = interface (IUnknown)
     ['{E7E1F7C0-88D2-11D0-9AD0-00A0C9A06E35}']
-    // IDirectInputEffect methods
+    (** IDirectInputEffect methods ***)
-    function Initialize(hinst: THandle; dwVersion: DWORD; const rguid: TGUID): HResult; stdcall;
+    function Initialize(hinst: THandle; dwVersion: DWORD;
+        const rguid: TGUID) : HResult;  stdcall;
-    function GetEffectGuid(var pguid: TGUID): HResult; stdcall;
+    function GetEffectGuid(var pguid: TGUID) : HResult;  stdcall;
-    function GetParameters(var peff: TDIEffect; dwFlags: DWORD): HResult; stdcall;
+    function GetParameters(var peff: TDIEffect; dwFlags: DWORD) : HResult;  stdcall;
-    function SetParameters(const peff: TDIEffect; dwFlags: DWORD): HResult; stdcall;
+    function SetParameters(var peff: TDIEffect; dwFlags: DWORD) : HResult;  stdcall;
-    function Start(dwIterations: DWORD; dwFlags: DWORD): HResult; stdcall;
+    function Start(dwIterations: DWORD; dwFlags: DWORD) : HResult;  stdcall;
-    function Stop: HResult; stdcall;
+    function Stop : HResult;  stdcall;
-    function GetEffectStatus(var pdwFlags: DWORD): HResult; stdcall;
+    function GetEffectStatus(var pdwFlags : DWORD) : HResult;  stdcall;
-    function DownLoad: HResult; stdcall;
+    function Download : HResult;  stdcall;
-    function Unload: HResult; stdcall;
+    function Unload : HResult;  stdcall;
-    function Escape(const pesc: TDIEffEscape): HResult; stdcall;
+    function Escape(var pesc: TDIEffEscape) : HResult;  stdcall;
   end;
+(****************************************************************************
+ *
-{ IDirectInputDevice }
+ *      IDirectInputDevice
+ *
+ ****************************************************************************)
 const
-  DIDEVTYPE_DEVICE   = 1;
+  DIDEVTYPE_DEVICE = 1;
-  DIDEVTYPE_MOUSE    = 2;
+  DIDEVTYPE_MOUSE = 2;
   DIDEVTYPE_KEYBOARD = 3;
   DIDEVTYPE_JOYSTICK = 4;
-  DIDEVTYPE_HID      = $00010000;
+  DIDEVTYPE_HID = $00010000;
-  DIDEVTYPEMOUSE_UNKNOWN     = 1;
+  DIDEVTYPEMOUSE_UNKNOWN = 1;
   DIDEVTYPEMOUSE_TRADITIONAL = 2;
   DIDEVTYPEMOUSE_FINGERSTICK = 3;
-  DIDEVTYPEMOUSE_TOUCHPAD    = 4;
+  DIDEVTYPEMOUSE_TOUCHPAD = 4;
-  DIDEVTYPEMOUSE_TRACKBALL   = 5;
+  DIDEVTYPEMOUSE_TRACKBALL = 5;
-  DIDEVTYPEKEYBOARD_UNKNOWN     = 0;
+  DIDEVTYPEKEYBOARD_UNKNOWN = 0;
-  DIDEVTYPEKEYBOARD_PCXT        = 1;
+  DIDEVTYPEKEYBOARD_PCXT = 1;
-  DIDEVTYPEKEYBOARD_OLIVETTI    = 2;
+  DIDEVTYPEKEYBOARD_OLIVETTI = 2;
-  DIDEVTYPEKEYBOARD_PCAT        = 3;
+  DIDEVTYPEKEYBOARD_PCAT = 3;
-  DIDEVTYPEKEYBOARD_PCENH       = 4;
+  DIDEVTYPEKEYBOARD_PCENH = 4;
-  DIDEVTYPEKEYBOARD_NOKIA1050   = 5;
+  DIDEVTYPEKEYBOARD_NOKIA1050 = 5;
-  DIDEVTYPEKEYBOARD_NOKIA9140   = 6;
+  DIDEVTYPEKEYBOARD_NOKIA9140 = 6;
-  DIDEVTYPEKEYBOARD_NEC98       = 7;
+  DIDEVTYPEKEYBOARD_NEC98 = 7;
   DIDEVTYPEKEYBOARD_NEC98LAPTOP = 8;
-  DIDEVTYPEKEYBOARD_NEC98106    = 9;
+  DIDEVTYPEKEYBOARD_NEC98106 = 9;
-  DIDEVTYPEKEYBOARD_JAPAN106    = 10;
+  DIDEVTYPEKEYBOARD_JAPAN106 = 10;
-  DIDEVTYPEKEYBOARD_JAPANAX     = 11;
+  DIDEVTYPEKEYBOARD_JAPANAX = 11;
-  DIDEVTYPEKEYBOARD_J3100       = 12;
+  DIDEVTYPEKEYBOARD_J3100 = 12;
-  DIDEVTYPEJOYSTICK_UNKNOWN     = 1;
+  DIDEVTYPEJOYSTICK_UNKNOWN = 1;
   DIDEVTYPEJOYSTICK_TRADITIONAL = 2;
   DIDEVTYPEJOYSTICK_FLIGHTSTICK = 3;
-  DIDEVTYPEJOYSTICK_GAMEPAD     = 4;
+  DIDEVTYPEJOYSTICK_GAMEPAD = 4;
-  DIDEVTYPEJOYSTICK_RUDDER      = 5;
+  DIDEVTYPEJOYSTICK_RUDDER = 5;
-  DIDEVTYPEJOYSTICK_WHEEL       = 6;
+  DIDEVTYPEJOYSTICK_WHEEL = 6;
   DIDEVTYPEJOYSTICK_HEADTRACKER = 7;
-function GET_DIDEVICE_TYPE(dwDevType: DWORD): DWORD;
+function GET_DIDEVICE_TYPE(dwDevType: variant) : byte;
-function GET_DIDEVICE_SUBTYPE(dwDevType: DWORD): DWORD;
+function GET_DIDEVICE_SUBTYPE(dwDevType: variant) : byte;
 type
   PDIDevCaps_DX3 = ^TDIDevCaps_DX3;
-  TDIDevCaps_DX3 = record
+  TDIDevCaps_DX3 = packed record
     dwSize: DWORD;
     dwFlags: DWORD;
     dwDevType: DWORD;
     dwAxes: DWORD;
     dwButtons: DWORD;
     dwPOVs: DWORD;
   end;
   PDIDevCaps_DX5 = ^TDIDevCaps_DX5;
-  TDIDevCaps_DX5 = record
+  TDIDevCaps_DX5 = packed record
     dwSize: DWORD;
     dwFlags: DWORD;
     dwDevType: DWORD;
     dwAxes: DWORD;
     dwButtons: DWORD;
     dwPOVs: DWORD;
     dwFFSamplePeriod: DWORD;
     dwFFMinTimeResolution: DWORD;
     dwFirmwareRevision: DWORD;
     dwHardwareRevision: DWORD;
     dwFFDriverVersion: DWORD;
   end;
+  PDIDevCaps = ^TDIDevCaps;
-{$IFDEF DirectX3}
+{$IFDEF DIRECTX3}
   TDIDevCaps = TDIDevCaps_DX3;
-  PDIDevCaps = PDIDevCaps_DX3;
-{$ENDIF}{$IFDEF DirectX5}
-  TDIDevCaps = TDIDevCaps_DX5;
-  PDIDevCaps = PDIDevCaps_DX5;
-{$ENDIF}{$IFDEF DirectX6}
+{$ELSE}
-  TDIDevCaps = TDIDevCaps_DX5;
-  PDIDevCaps = PDIDevCaps_DX5;
-{$ENDIF}{$IFDEF DirectX7}
   TDIDevCaps = TDIDevCaps_DX5;
-  PDIDevCaps = PDIDevCaps_DX5;
 {$ENDIF}
-  DIDEVCAPS = TDIDevCaps;
-  LPDIDEVCAPS = PDIDevCaps;
 const
   DIDC_ATTACHED           = $00000001;
   DIDC_POLLEDDEVICE       = $00000002;
   DIDC_EMULATED           = $00000004;
   DIDC_POLLEDDATAFORMAT   = $00000008;
   DIDC_FORCEFEEDBACK      = $00000100;
   DIDC_FFATTACK           = $00000200;
   DIDC_FFFADE             = $00000400;
   DIDC_SATURATION         = $00000800;
   DIDC_POSNEGCOEFFICIENTS = $00001000;
   DIDC_POSNEGSATURATION   = $00002000;
   DIDC_DEADBAND           = $00004000;
   DIDC_STARTDELAY         = $00008000;
   DIDC_ALIAS              = $00010000;
   DIDC_PHANTOM            = $00020000;
-  DIDFT_ALL        = $00000000;
+  DIDFT_ALL = $00000000;
-  DIDFT_RELAXIS    = $00000001;
+  DIDFT_RELAXIS = $00000001;
-  DIDFT_ABSAXIS    = $00000002;
+  DIDFT_ABSAXIS = $00000002;
-  DIDFT_AXIS       = $00000003;
+  DIDFT_AXIS    = $00000003;
-  DIDFT_PSHBUTTON  = $00000004;
+  DIDFT_PSHBUTTON = $00000004;
-  DIDFT_TGLBUTTON  = $00000008;
+  DIDFT_TGLBUTTON = $00000008;
-  DIDFT_BUTTON     = $0000000C;
+  DIDFT_BUTTON    = $0000000C;
   DIDFT_POV        = $00000010;
   DIDFT_COLLECTION = $00000040;
   DIDFT_NODATA     = $00000080;
-  DIDFT_ANYINSTANCE  = $00FFFF00;
+  DIDFT_ANYINSTANCE = $00FFFF00;
   DIDFT_INSTANCEMASK = DIDFT_ANYINSTANCE;
+function DIDFT_MAKEINSTANCE(n: variant) : DWORD;
+function DIDFT_GETTYPE(n: variant) : byte;
+function DIDFT_GETINSTANCE(n: variant) : DWORD;
+const
-  DIDFT_FFACTUATOR       = $01000000;
+  DIDFT_FFACTUATOR        = $01000000;
-  DIDFT_FFEFFECTTRIGGER  = $02000000;
+  DIDFT_FFEFFECTTRIGGER   = $02000000;
-  DIDFT_OUTPUT           = $10000000;
+  DIDFT_OUTPUT            = $10000000;
-  DIDFT_VENDORDEFINED    = $04000000;
+  DIDFT_VENDORDEFINED     = $04000000;
-  DIDFT_ALIAS            = $08000000;
+  DIDFT_ALIAS             = $08000000;
+function DIDFT_ENUMCOLLECTION(n: variant) : DWORD;
+const
-  DIDFT_NOCOLLECTION     = $00FFFF00;
+  DIDFT_NOCOLLECTION = $00FFFF00;
-function DIDFT_MAKEINSTANCE(n: WORD): DWORD;
-function DIDFT_GETTYPE(n: DWORD): DWORD;
-function DIDFT_GETINSTANCE(n: DWORD): WORD;
-function DIDFT_ENUMCOLLECTION(n: WORD): DWORD;
 type
   PDIObjectDataFormat = ^TDIObjectDataFormat;
-  TDIObjectDataFormat = record
+  TDIObjectDataFormat = packed record
     pguid: PGUID;
     dwOfs: DWORD;
     dwType: DWORD;
     dwFlags: DWORD;
   end;
-  DIOBJECTDATAFORMAT = TDIObjectDataFormat;
-  LPDIOBJECTDATAFORMAT = PDIObjectDataFormat;
   PDIDataFormat = ^TDIDataFormat;
-  TDIDataFormat = record
+  TDIDataFormat = packed record
     dwSize: DWORD;
     dwObjSize: DWORD;
     dwFlags: DWORD;
     dwDataSize: DWORD;
     dwNumObjs: DWORD;
     rgodf: PDIObjectDataFormat;
   end;
-  DIDATAFORMAT = TDIDataFormat;
-  LPDIDATAFORMAT = PDIDataFormat;
 const
   DIDF_ABSAXIS = $00000001;
   DIDF_RELAXIS = $00000002;
 type
-  PDIDeviceObjectInstanceA_DX3 = ^TDIDeviceObjectInstanceA_DX3;
+  PDIDeviceObjectInstance_DX3A = ^TDIDeviceObjectInstance_DX3A;
-  TDIDeviceObjectInstanceA_DX3 = record
+  TDIDeviceObjectInstance_DX3A = packed record
     dwSize: DWORD;
     guidType: TGUID;
     dwOfs: DWORD;
     dwType: DWORD;
     dwFlags: DWORD;
-    tszName: array[0..MAX_PATH-1] of CHAR;
+    tszName: Array [0..MAX_PATH-1] of CHAR;
   end;
-  PDIDeviceObjectInstanceA_DX5 = ^TDIDeviceObjectInstanceA_DX5;
+  PDIDeviceObjectInstance_DX3W = ^TDIDeviceObjectInstance_DX3W;
-  TDIDeviceObjectInstanceA_DX5 = record
+  TDIDeviceObjectInstance_DX3W = packed record
     dwSize: DWORD;
     guidType: TGUID;
     dwOfs: DWORD;
     dwType: DWORD;
     dwFlags: DWORD;
-    tszName: array[0..MAX_PATH-1] of CHAR;
+    tszName: Array [0..MAX_PATH-1] of WCHAR;
-    dwFFMaxForce: DWORD;
-    dwFFForceResolution: DWORD;
-    wCollectionNumber: WORD;
-    wDesignatorIndex: WORD;
-    wUsagePage: WORD;
-    wUsage: WORD;
-    dwDimension: DWORD;
-    wExponent: WORD;
-    wReserved: WORD;
   end;
-{$IFDEF DirectX3}
-  TDIDeviceObjectInstanceA = TDIDeviceObjectInstanceA_DX3;
+  PDIDeviceObjectInstance_DX3 = ^TDIDeviceObjectInstance_DX3;
-  PDIDeviceObjectInstanceA = PDIDeviceObjectInstanceA_DX3;
-{$ENDIF}{$IFDEF DirectX5}
-  TDIDeviceObjectInstanceA = TDIDeviceObjectInstanceA_DX5;
-  PDIDeviceObjectInstanceA = PDIDeviceObjectInstanceA_DX5;
-{$ENDIF}{$IFDEF DirectX6}
+{$IFDEF UNICODE}
-  TDIDeviceObjectInstanceA = TDIDeviceObjectInstanceA_DX5;
+  TDIDeviceObjectInstance_DX3 = TDIDeviceObjectInstance_DX3W;
-  PDIDeviceObjectInstanceA = PDIDeviceObjectInstanceA_DX5;
-{$ENDIF}{$IFDEF DirectX7}
+{$ELSE}
-  TDIDeviceObjectInstanceA = TDIDeviceObjectInstanceA_DX5;
+  TDIDeviceObjectInstance_DX3 = TDIDeviceObjectInstance_DX3A;
-  PDIDeviceObjectInstanceA = PDIDeviceObjectInstanceA_DX5;
 {$ENDIF}
-  DIDEVICEOBJECTINSTANCEA = TDIDeviceObjectInstanceA;
-  LPDIDEVICEOBJECTINSTANCEA = PDIDeviceObjectInstanceA;
-  PDIDeviceObjectInstanceW_DX3 = ^TDIDeviceObjectInstanceW_DX3;
+  PDIDeviceObjectInstance_DX5A = ^TDIDeviceObjectInstance_DX5A;
-  TDIDeviceObjectInstanceW_DX3 = record
+  TDIDeviceObjectInstance_DX5A = packed record
     dwSize: DWORD;
     guidType: TGUID;
     dwOfs: DWORD;
     dwType: DWORD;
     dwFlags: DWORD;
-    tszName: array[0..MAX_PATH-1] of WCHAR;
+    tszName: Array [0..MAX_PATH-1] of CHAR;
+    dwFFMaxForce: DWORD;
+    dwFFForceResolution: DWORD;
+    wCollectionNumber: WORD;
+    wDesignatorIndex: WORD;
+    wUsagePage: WORD;
+    wUsage: WORD;
+    dwDimension: DWORD;
+    wExponent: WORD;
+    wReserved: WORD;
   end;
-  PDIDeviceObjectInstanceW_DX5 = ^TDIDeviceObjectInstanceW_DX5;
+  PDIDeviceObjectInstance_DX5W = ^TDIDeviceObjectInstance_DX5W;
-  TDIDeviceObjectInstanceW_DX5 = record
+  TDIDeviceObjectInstance_DX5W = packed record
     dwSize: DWORD;
     guidType: TGUID;
     dwOfs: DWORD;
     dwType: DWORD;
     dwFlags: DWORD;
-    tszName: array[0..MAX_PATH-1] of WCHAR;
+    tszName: Array [0..MAX_PATH-1] of WCHAR;
     dwFFMaxForce: DWORD;
     dwFFForceResolution: DWORD;
     wCollectionNumber: WORD;
     wDesignatorIndex: WORD;
     wUsagePage: WORD;
     wUsage: WORD;
     dwDimension: DWORD;
     wExponent: WORD;
     wReserved: WORD;
   end;
+  PDIDeviceObjectInstance_DX5 = ^TDIDeviceObjectInstance_DX5;
-{$IFDEF DirectX3}
+{$IFDEF UNICODE}
-  TDIDeviceObjectInstanceW = TDIDeviceObjectInstanceW_DX3;
+  TDIDeviceObjectInstance_DX5 = TDIDeviceObjectInstance_DX5W;
+{$ELSE}
-  PDIDeviceObjectInstanceW = PDIDeviceObjectInstanceW_DX3;
+  TDIDeviceObjectInstance_DX5 = TDIDeviceObjectInstance_DX5A;
-{$ENDIF}{$IFDEF DirectX5}
+{$ENDIF}
-  TDIDeviceObjectInstanceW = TDIDeviceObjectInstanceW_DX5;
+  PDIDeviceObjectInstanceA = ^TDIDeviceObjectInstanceA;
-  PDIDeviceObjectInstanceW = PDIDeviceObjectInstanceW_DX5;
+  PDIDeviceObjectInstanceW = ^TDIDeviceObjectInstanceA;
-{$ENDIF}{$IFDEF DirectX6}
-  TDIDeviceObjectInstanceW = TDIDeviceObjectInstanceW_DX5;
+  PDIDeviceObjectInstance = ^TDIDeviceObjectInstance;
+{$IFDEF DIRECTX3}
-  PDIDeviceObjectInstanceW = PDIDeviceObjectInstanceW_DX5;
+  TDIDeviceObjectInstanceA = TDIDeviceObjectInstance_DX3A;
-{$ENDIF}{$IFDEF DirectX7}
-  TDIDeviceObjectInstanceW = TDIDeviceObjectInstanceW_DX5;
+  TDIDeviceObjectInstanceW = TDIDeviceObjectInstance_DX3W;
-  PDIDeviceObjectInstanceW = PDIDeviceObjectInstanceW_DX5;
+  TDIDeviceObjectInstance = TDIDeviceObjectInstance_DX3;
-{$ENDIF}
+{$ELSE}
-  DIDEVICEOBJECTINSTANCEW = TDIDeviceObjectInstanceW;
+  TDIDeviceObjectInstanceA = TDIDeviceObjectInstance_DX5A;
-  LPDIDEVICEOBJECTINSTANCEW = PDIDeviceObjectInstanceW;
-  TDIDeviceObjectInstance = TDIDeviceObjectInstanceA;
+  TDIDeviceObjectInstanceW = TDIDeviceObjectInstance_DX5W;
-  PDIDeviceObjectInstance = PDIDeviceObjectInstanceA;
+  TDIDeviceObjectInstance = TDIDeviceObjectInstance_DX5;
+{$ENDIF}
-  DIDEVICEOBJECTINSTANCE = TDIDeviceObjectInstance;
+  // Bug fix (and deviation from the SDK). Callback *must* return
-  LPDIDEVICEOBJECTINSTANCE = PDIDeviceObjectInstance;
+  // DIENUM_STOP (= 0) or DIENUM_CONTINUE (=1) in order to work
+  // with the debug version of DINPUT.DLL
-  TDIEnumDeviceObjectsCallbackA = function(const peff: TDIDeviceObjectInstanceA;
+  TDIEnumDeviceObjectsCallbackA = function (
-      pvRef: Pointer): HResult; stdcall;
+      var lpddoi: TDIDeviceObjectInstanceA; pvRef: Pointer): Integer; stdcall; // BOOL; stdcall;
-  LPDIENUMDEVICEOBJECTSCALLBACKA = TDIEnumDeviceObjectsCallbackA;
+  TDIEnumDeviceObjectsCallbackW = function (
-  TDIEnumDeviceObjectsCallbackW = function(const peff: TDIDeviceObjectInstanceW;
+      var lpddoi: TDIDeviceObjectInstanceW; pvRef: Pointer): Integer; stdcall; // BOOL; stdcall;
-      pvRef: Pointer): HResult; stdcall;
+  TDIEnumDeviceObjectsCallback = function (
-  LPDIENUMDEVICEOBJECTSCALLBACKW = TDIEnumDeviceObjectsCallbackW;
+      var lpddoi: TDIDeviceObjectInstance; pvRef: Pointer): Integer; stdcall; // BOOL; stdcall;
-  TDIEnumDeviceObjectsCallback = TDIEnumDeviceObjectsCallbackA;
+  TDIEnumDeviceObjectsProc = function (
-  LPDIENUMDEVICEOBJECTSCALLBACK = TDIEnumDeviceObjectsCallback;
+      var lpddoi: TDIDeviceObjectInstance; pvRef: Pointer): Integer; stdcall; // BOOL; stdcall;
 const
-  DIDOI_FFACTUATOR      = $00000001;
+  DIDOI_FFACTUATOR        = $00000001;
-  DIDOI_FFEFFECTTRIGGER = $00000002;
+  DIDOI_FFEFFECTTRIGGER   = $00000002;
-  DIDOI_POLLED          = $00008000;
+  DIDOI_POLLED            = $00008000;
-  DIDOI_ASPECTPOSITION  = $00000100;
+  DIDOI_ASPECTPOSITION    = $00000100;
-  DIDOI_ASPECTVELOCITY  = $00000200;
+  DIDOI_ASPECTVELOCITY    = $00000200;
-  DIDOI_ASPECTACCEL     = $00000300;
+  DIDOI_ASPECTACCEL       = $00000300;
-  DIDOI_ASPECTFORCE     = $00000400;
+  DIDOI_ASPECTFORCE       = $00000400;
-  DIDOI_ASPECTMASK      = $00000F00;
+  DIDOI_ASPECTMASK        = $00000F00;
-  DIDOI_GUIDISUSAGE     = $00010000;
+  DIDOI_GUIDISUSAGE       = $00010000;
 type
   PDIPropHeader = ^TDIPropHeader;
-  TDIPropHeader = record
+  TDIPropHeader = packed record
     dwSize: DWORD;
     dwHeaderSize: DWORD;
     dwObj: DWORD;
     dwHow: DWORD;
   end;
-  DIPROPHEADER = TDIPropHeader;
-  LPDIPROPHEADER = PDIPropHeader;
 const
-  DIPH_DEVICE   = 0;
+  DIPH_DEVICE = 0;
   DIPH_BYOFFSET = 1;
-  DIPH_BYID     = 2;
+  DIPH_BYID = 2;
-  DIPH_BYUSAGE  = 3;
+  DIPH_BYUSAGE = 3;
-function DIMAKEUSAGEDWORD(UsagePage, Usage: Word): DWORD;
+function DIMAKEUSAGEDWORD(UsagePage, Usage: WORD) : DWORD;
 type
-  PDIPropDWORD = ^TDIPropDWORD;
+  PDIPropDWord = ^TDIPropDWord;
-  TDIPropDWORD = record
+  TDIPropDWord = packed record
     diph: TDIPropHeader;
     dwData: DWORD;
   end;
-  DIPROPDWORD = TDIPropDWORD;
-  LPDIPROPDWORD = PDIPropDWORD;
   PDIPropRange = ^TDIPropRange;
-  TDIPropRange = record
+  TDIPropRange = packed record
     diph: TDIPropHeader;
     lMin: Longint;
     lMax: Longint;
   end;
+const
-  DIPROPRANGE = TDIPropRange;
+  DIPROPRANGE_NOMIN = $80000000;
-  LPDIPROPRANGE = PDIPropRange;
+  DIPROPRANGE_NOMAX = $7FFFFFFF;
+type
   PDIPropCal = ^TDIPropCal;
-  TDIPropCal = record
+  TDIPropCal = packed record
     diph: TDIPropHeader;
-    lMin: Longint;
+    lMin:    LongInt;
-    lCenter: Longint;
+    lCenter: LongInt;
-    lMax: Longint;
+    lMax:    LongInt;
   end;
-  DIPROPCAL = TDIPropCal;
-  LPDIPROPCAL = PDIPropCal;
   PDIPropGUIDAndPath = ^TDIPropGUIDAndPath;
-  TDIPropGUIDAndPath = record
+  TDIPropGUIDAndPath = packed record
     diph: TDIPropHeader;
     guidClass: TGUID;
-    wszPath: array[0..MAX_PATH-1] of WCHAR;
+    wszPath: array [0..MAX_PATH-1] of WideChar;
   end;
-  DIPROPGUIDANDPATH = TDIPropGUIDAndPath;
-  LPDIPROPGUIDANDPATH = PDIPropGUIDAndPath;
   PDIPropString = ^TDIPropString;
-  TDIPropString = record
+  TDIPropString = packed record
     diph: TDIPropHeader;
-    wsz: array[0..MAX_PATH-1] of WCHAR;
+    wsz: array [0..MAX_PATH-1] of WideChar;
   end;
-  DIPROPSTRING = TDIPropString;
+type
-  LPDIPROPSTRING = PDIPropString;
+  MAKEDIPROP = PGUID;
 const
-  DIPROPRANGE_NOMIN   = $80000000;
-  DIPROPRANGE_NOMAX   = $7FFFFFFF;
+  DIPROP_BUFFERSIZE = MAKEDIPROP(1);
-  DIPROP_BUFFERSIZE   = PGUID(1);
-  DIPROP_AXISMODE     = PGUID(2);
+  DIPROP_AXISMODE = MAKEDIPROP(2);
-  DIPROPAXISMODE_ABS  = 0;
+  DIPROPAXISMODE_ABS = 0;
-  DIPROPAXISMODE_REL  = 1;
+  DIPROPAXISMODE_REL = 1;
-  DIPROP_GRANULARITY  = PGUID(3);
+  DIPROP_GRANULARITY = MAKEDIPROP(3);
-  DIPROP_RANGE        = PGUID(4);
+  DIPROP_RANGE = MAKEDIPROP(4);
-  DIPROP_DEADZONE     = PGUID(5);
+  DIPROP_DEADZONE = MAKEDIPROP(5);
-  DIPROP_SATURATION   = PGUID(6);
+  DIPROP_SATURATION = MAKEDIPROP(6);
-  DIPROP_FFGAIN       = PGUID(7);
+  DIPROP_FFGAIN = MAKEDIPROP(7);
-  DIPROP_FFLOAD       = PGUID(8);
+  DIPROP_FFLOAD = MAKEDIPROP(8);
-  DIPROP_AUTOCENTER   = PGUID(9);
+  DIPROP_AUTOCENTER = MAKEDIPROP(9);
   DIPROPAUTOCENTER_OFF = 0;
-  DIPROPAUTOCENTER_ON  = 1;
+  DIPROPAUTOCENTER_ON = 1;
-  DIPROP_CALIBRATIONMODE = PGUID(10);
+  DIPROP_CALIBRATIONMODE = MAKEDIPROP(10);
   DIPROPCALIBRATIONMODE_COOKED = 0;
-  DIPROPCALIBRATIONMODE_RAW    = 1;
+  DIPROPCALIBRATIONMODE_RAW = 1;
-  DIPROP_CALIBRATION        = PGUID(11);
+  DIPROP_CALIBRATION      = MAKEDIPROP(11);
-  DIPROP_GUIDANDPATH        = PGUID(12);
+  DIPROP_GUIDANDPATH      = MAKEDIPROP(12);
-  DIPROP_INSTANCENAME       = PGUID(13);
+  DIPROP_INSTANCENAME     = MAKEDIPROP(13);
-  DIPROP_PRODUCTNAME        = PGUID(14);
+  DIPROP_PRODUCTNAME      = MAKEDIPROP(14);
-  DIPROP_JOYSTICKID         = PGUID(15);
+  DIPROP_JOYSTICKID       = MAKEDIPROP(15);
-  DIPROP_GETPORTDISPLAYNAME = PGUID(16);
+  DIPROP_GETPORTDISPLAYNAME       = MAKEDIPROP(16);
-  DIPROP_ENABLEREPORTID     = PGUID(17);
+  DIPROP_ENABLEREPORTID       = MAKEDIPROP(17);
-  DIPROP_GETPHYSICALRANGE   = PGUID(18);
+  DIPROP_GETPHYSICALRANGE            = MAKEDIPROP(18);
-  DIPROP_GETLOGICALRANGE    = PGUID(19);
+  DIPROP_GETLOGICALRANGE            = MAKEDIPROP(19);
 type
   PDIDeviceObjectData = ^TDIDeviceObjectData;
-  TDIDeviceObjectData = record
+  TDIDeviceObjectData = packed record
     dwOfs: DWORD;
     dwData: DWORD;
     dwTimeStamp: DWORD;
     dwSequence: DWORD;
   end;
-  DIDEVICEOBJECTDATA = TDIDeviceObjectData;
-  LPDIDEVICEOBJECTDATA = PDIDeviceObjectData;
 const
   DIGDD_PEEK = $00000001;
+{
+#define DISEQUENCE_COMPARE(dwSequence1, cmp, dwSequence2) \
+                         (int) ((dwSequence1) - (dwSequence2))  cmp 0
+}
-  DISCL_EXCLUSIVE    = $00000001;
+  DISCL_EXCLUSIVE  = $00000001;
   DISCL_NONEXCLUSIVE = $00000002;
-  DISCL_FOREGROUND   = $00000004;
+  DISCL_FOREGROUND = $00000004;
-  DISCL_BACKGROUND   = $00000008;
+  DISCL_BACKGROUND = $00000008;
-  DISCL_NOWINKEY     = $00000010;
+  DISCL_NOWINKEY   = $00000010;
 type
-  PDIDeviceInstanceA_DX3 = ^TDIDeviceInstanceA_DX3;
+  PDIDeviceInstance_DX3A = ^TDIDeviceInstance_DX3A;
-  TDIDeviceInstanceA_DX3 = record
+  TDIDeviceInstance_DX3A = packed record
     dwSize: DWORD;
     guidInstance: TGUID;
     guidProduct: TGUID;
     dwDevType: DWORD;
-    tszInstanceName: array[0..MAX_PATH-1] of CHAR;
+    tszInstanceName: Array [0..MAX_PATH-1] of AnsiChar;
-    tszProductName: array[0..MAX_PATH-1] of CHAR;
+    tszProductName: Array [0..MAX_PATH-1] of AnsiChar;
   end;
-  PDIDeviceInstanceA_DX5 = ^TDIDeviceInstanceA_DX5;
+  PDIDeviceInstance_DX3W = ^TDIDeviceInstance_DX3W;
-  TDIDeviceInstanceA_DX5 = record
+  TDIDeviceInstance_DX3W = packed record
     dwSize: DWORD;
     guidInstance: TGUID;
     guidProduct: TGUID;
     dwDevType: DWORD;
-    tszInstanceName: array[0..MAX_PATH-1] of CHAR;
+    tszInstanceName: Array [0..MAX_PATH-1] of WideChar;
-    tszProductName: array[0..MAX_PATH-1] of CHAR;
+    tszProductName: Array [0..MAX_PATH-1] of WideChar;
-    guidFFDriver: TGUID;
-    wUsagePage: WORD;
-    wUsage: WORD;
   end;
-{$IFDEF DirectX3}
-  TDIDeviceInstanceA = TDIDeviceInstanceA_DX3;
+  PDIDeviceInstance_DX3 = ^TDIDeviceInstance_DX3;
-  PDIDeviceInstanceA = PDIDeviceInstanceA_DX3;
-{$ENDIF}{$IFDEF DirectX5}
+{$IFDEF UNICODE}
-  TDIDeviceInstanceA = TDIDeviceInstanceA_DX5;
+  TDIDeviceInstance_DX3 = TDIDeviceInstance_DX3W;
-  PDIDeviceInstanceA = PDIDeviceInstanceA_DX5;
-{$ENDIF}{$IFDEF DirectX6}
-  TDIDeviceInstanceA = TDIDeviceInstanceA_DX5;
-  PDIDeviceInstanceA = PDIDeviceInstanceA_DX5;
-{$ENDIF}{$IFDEF DirectX7}
+{$ELSE}
-  TDIDeviceInstanceA = TDIDeviceInstanceA_DX5;
+  TDIDeviceInstance_DX3 = TDIDeviceInstance_DX3A;
-  PDIDeviceInstanceA = PDIDeviceInstanceA_DX5;
 {$ENDIF}
-  DIDEVICEINSTANCEA = TDIDeviceInstanceA;
-  LPDIDEVICEINSTANCEA = PDIDeviceInstanceA;
-  PDIDeviceInstanceW_DX3 = ^TDIDeviceInstanceW_DX3;
+  PDIDeviceInstance_DX5A = ^TDIDeviceInstance_DX5A;
-  TDIDeviceInstanceW_DX3 = record
+  TDIDeviceInstance_DX5A = packed record
     dwSize: DWORD;
     guidInstance: TGUID;
     guidProduct: TGUID;
     dwDevType: DWORD;
-    tszInstanceName: array[0..MAX_PATH-1] of WCHAR;
+    tszInstanceName: Array [0..MAX_PATH-1] of AnsiChar;
-    tszProductName: array[0..MAX_PATH-1] of WCHAR;
+    tszProductName: Array [0..MAX_PATH-1] of AnsiChar;
+    guidFFDriver: TGUID;
+    wUsagePage: WORD;
+    wUsage: WORD;
   end;
-  PDIDeviceInstanceW_DX5 = ^TDIDeviceInstanceW_DX5;
+  PDIDeviceInstance_DX5W = ^TDIDeviceInstance_DX5W;
-  TDIDeviceInstanceW_DX5 = record
+  TDIDeviceInstance_DX5W = packed record
     dwSize: DWORD;
     guidInstance: TGUID;
     guidProduct: TGUID;
     dwDevType: DWORD;
-    tszInstanceName: array[0..MAX_PATH-1] of WCHAR;
+    tszInstanceName: Array [0..MAX_PATH-1] of WideChar;
-    tszProductName: array[0..MAX_PATH-1] of WCHAR;
+    tszProductName: Array [0..MAX_PATH-1] of WideChar;
     guidFFDriver: TGUID;
     wUsagePage: WORD;
     wUsage: WORD;
   end;
-{$IFDEF DirectX3}
-  TDIDeviceInstanceW = TDIDeviceInstanceW_DX3;
-  PDIDeviceInstanceW = PDIDeviceInstanceW_DX3;
-{$ENDIF}{$IFDEF DirectX5}
-  TDIDeviceInstanceW = TDIDeviceInstanceW_DX5;
+  PDIDeviceInstance_DX5 = ^TDIDeviceInstance_DX5;
-  PDIDeviceInstanceW = PDIDeviceInstanceW_DX5;
-{$ENDIF}{$IFDEF DirectX6}
+{$IFDEF UNICODE}
-  TDIDeviceInstanceW = TDIDeviceInstanceW_DX5;
+  TDIDeviceInstance_DX5 = TDIDeviceInstance_DX5W;
-  PDIDeviceInstanceW = PDIDeviceInstanceW_DX5;
-{$ENDIF}{$IFDEF DirectX7}
+{$ELSE}
-  TDIDeviceInstanceW = TDIDeviceInstanceW_DX5;
+  TDIDeviceInstance_DX5 = TDIDeviceInstance_DX5A;
-  PDIDeviceInstanceW = PDIDeviceInstanceW_DX5;
 {$ENDIF}
-  DIDEVICEINSTANCEW = TDIDeviceInstanceW;
+  PDIDeviceInstanceA = ^TDIDeviceInstanceA;
-  LPDIDEVICEINSTANCEW = PDIDeviceInstanceW;
+  PDIDeviceInstanceW = ^TDIDeviceInstanceW;
-  TDIDeviceInstance = TDIDeviceInstanceA;
+  PDIDeviceInstance = ^TDIDeviceInstance;
+{$IFDEF DIRECTX3}
+  TDIDeviceInstanceA = TDIDeviceInstance_DX3A;
+  TDIDeviceInstanceW = TDIDeviceInstance_DX3W;
-  PDIDeviceInstance = PDIDeviceInstanceA;
+  TDIDeviceInstance = TDIDeviceInstance_DX3;
+{$ELSE}
+  TDIDeviceInstanceA = TDIDeviceInstance_DX5A;
-  DIDEVICEINSTANCE = TDIDeviceInstance;
+  TDIDeviceInstanceW = TDIDeviceInstance_DX5W;
-  LPDIDEVICEINSTANCE = PDIDeviceInstance;
+  TDIDeviceInstance = TDIDeviceInstance_DX5;
+{$ENDIF}
-  IDirectInputDeviceW = interface(IUnknown)
+  IDirectInputDeviceA = interface (IUnknown)
-    ['{5944E681-C92E-11CF-BFC7-444553540000}']
+    ['{5944E680-C92E-11CF-BFC7-444553540000}']
-    // IDirectInputDeviceW methods
+    (*** IDirectInputDeviceA methods ***)
-    function GetCapabilities(var lpDIDevCaps: TDIDevCaps): HResult; stdcall;
+    function GetCapabilities(var lpDIDevCaps: TDIDevCaps) : HResult;  stdcall;
-    function EnumObjects(lpCallback: TDIEnumDeviceObjectsCallbackW;
+    function EnumObjects(lpCallback: TDIEnumDeviceObjectsCallbackA;
-        pvRef: Pointer; dwFlags: DWORD): HResult; stdcall;
+        pvRef: Pointer; dwFlags: DWORD) : HResult;  stdcall;
-    function GetProperty(rguidProp: PGUID; var pdiph: TDIPropHeader): HResult; stdcall;
+    function GetProperty(rguidProp: PGUID; var pdiph: TDIPropHeader) :
+        HResult;  stdcall;
-    function SetProperty(rguidProp: PGUID; const pdiph: TDIPropHeader): HResult; stdcall;
+    function SetProperty(rguidProp: PGUID; const pdiph: TDIPropHeader) :
+        HResult;  stdcall;
-    function Acquire: HResult; stdcall;
+    function Acquire : HResult;  stdcall;
-    function Unacquire: HResult; stdcall;
+    function Unacquire : HResult;  stdcall;
-    function GetDeviceState(cbData: DWORD; var lpvData): HResult; stdcall;
+    function GetDeviceState(cbData: DWORD; lpvData: Pointer) : HResult;  stdcall;
-    function GetDeviceData(cbObjectData: DWORD; var rgdod: TDIDeviceObjectData;
+    function GetDeviceData(cbObjectData: DWORD; rgdod: PDIDeviceObjectData;
-        var pdwInOut: DWORD; dwFlags: DWORD): HResult; stdcall;
+        var pdwInOut: DWORD; dwFlags: DWORD) : HResult;  stdcall;
-    function SetDataFormat(const lpdf: TDIDataFormat): HResult; stdcall;
+    function SetDataFormat(var lpdf: TDIDataFormat) : HResult;  stdcall;
-    function SetEventNotification(hEvent: THandle): HResult; stdcall;
+    function SetEventNotification(hEvent: THandle) : HResult;  stdcall;
-    function SetCooperativeLevel(hwnd: HWND; dwFlags: DWORD): HResult; stdcall;
+    function SetCooperativeLevel(hwnd: HWND; dwFlags: DWORD) : HResult;  stdcall;
-    function GetObjectInfo(var pdidoi: TDIDeviceObjectInstanceW; dwObj: DWORD;
+    function GetObjectInfo(var pdidoi: TDIDeviceObjectInstanceA; dwObj: DWORD;
-        dwHow: DWORD): HResult; stdcall;
+        dwHow: DWORD) : HResult;  stdcall;
-    function GetDeviceInfo(var pdidi: TDIDeviceInstanceW): HResult; stdcall;
+    function GetDeviceInfo(var pdidi: TDIDeviceInstanceA) : HResult;  stdcall;
-    function RunControlPanel(hwndOwner: HWND; dwFlags: DWORD): HResult; stdcall;
+    function RunControlPanel(hwndOwner: HWND; dwFlags: DWORD) : HResult;  stdcall;
-    function Initialize(hinst: THandle; dwVersion: DWORD; const rguid: TGUID): HResult; stdcall;
+    function Initialize(hinst: THandle; dwVersion: DWORD; const rguid: TGUID) : HResult;  stdcall;
   end;
-  IDirectInputDeviceA = interface(IUnknown)
+  IDirectInputDeviceW = interface (IUnknown)
-    ['{5944E680-C92E-11CF-BFC7-444553540000}']
+    ['{5944E681-C92E-11CF-BFC7-444553540000}']
-    // IDirectInputDeviceA methods
+    (*** IDirectInputDeviceW methods ***)
-    function GetCapabilities(var lpDIDevCaps: TDIDevCaps): HResult; stdcall;
+    function GetCapabilities(var lpDIDevCaps: TDIDevCaps) : HResult;  stdcall;
-    function EnumObjects(lpCallback: TDIEnumDeviceObjectsCallbackA;
+    function EnumObjects(lpCallback: TDIEnumDeviceObjectsCallbackW;
-        pvRef: Pointer; dwFlags: DWORD): HResult; stdcall;
+        pvRef: Pointer; dwFlags: DWORD) : HResult;  stdcall;
-    function GetProperty(rguidProp: PGUID; var pdiph: TDIPropHeader): HResult; stdcall;
+    function GetProperty(rguidProp: PGUID; var pdiph: TDIPropHeader) :
+        HResult;  stdcall;
-    function SetProperty(rguidProp: PGUID; const pdiph: TDIPropHeader): HResult; stdcall;
+    function SetProperty(rguidProp: PGUID; var pdiph: TDIPropHeader) :
+        HResult;  stdcall;
-    function Acquire: HResult; stdcall;
+    function Acquire : HResult;  stdcall;
-    function Unacquire: HResult; stdcall;
+    function Unacquire : HResult;  stdcall;
-    function GetDeviceState(cbData: DWORD; var lpvData): HResult; stdcall;
+    function GetDeviceState(cbData: DWORD; lpvData: Pointer) : HResult;  stdcall;
-    function GetDeviceData(cbObjectData: DWORD; var rgdod: TDIDeviceObjectData;
+    function GetDeviceData(cbObjectData: DWORD; rgdod: PDIDeviceObjectData;
-        var pdwInOut: DWORD; dwFlags: DWORD): HResult; stdcall;
+        var pdwInOut: DWORD; dwFlags: DWORD) : HResult;  stdcall;
-    function SetDataFormat(const lpdf: TDIDataFormat): HResult; stdcall;
+    function SetDataFormat(var lpdf: TDIDataFormat) : HResult;  stdcall;
-    function SetEventNotification(hEvent: THandle): HResult; stdcall;
+    function SetEventNotification(hEvent: THandle) : HResult;  stdcall;
-    function SetCooperativeLevel(hwnd: HWND; dwFlags: DWORD): HResult; stdcall;
+    function SetCooperativeLevel(hwnd: HWND; dwFlags: DWORD) : HResult;  stdcall;
-    function GetObjectInfo(var pdidoi: TDIDeviceObjectInstanceA; dwObj: DWORD;
+    function GetObjectInfo(var pdidoi: TDIDeviceObjectInstanceW; dwObj: DWORD;
-        dwHow: DWORD): HResult; stdcall;
+        dwHow: DWORD) : HResult;  stdcall;
-    function GetDeviceInfo(var pdidi: TDIDeviceInstanceA): HResult; stdcall;
+    function GetDeviceInfo(var pdidi: TDIDeviceInstanceW) : HResult;  stdcall;
-    function RunControlPanel(hwndOwner: HWND; dwFlags: DWORD): HResult; stdcall;
+    function RunControlPanel(hwndOwner: HWND; dwFlags: DWORD) : HResult;  stdcall;
-    function Initialize(hinst: THandle; dwVersion: DWORD; const rguid: TGUID): HResult; stdcall;
+    function Initialize(hinst: THandle; dwVersion: DWORD; const rguid: TGUID) : HResult;  stdcall;
   end;
+{$IFDEF UNICODE}
+  IDirectInputDevice = IDirectInputDeviceW;
+{$ELSE}
   IDirectInputDevice = IDirectInputDeviceA;
+{$ENDIF}
 const
-  DISFFC_RESET           = $00000001;
+  DISFFC_RESET            = $00000001;
-  DISFFC_STOPALL         = $00000002;
+  DISFFC_STOPALL          = $00000002;
-  DISFFC_PAUSE           = $00000004;
+  DISFFC_PAUSE            = $00000004;
-  DISFFC_CONTINUE        = $00000008;
+  DISFFC_CONTINUE         = $00000008;
-  DISFFC_SETACTUATORSON  = $00000010;
+  DISFFC_SETACTUATORSON   = $00000010;
-  DISFFC_SETACTUATORSOFF = $00000020;
+  DISFFC_SETACTUATORSOFF  = $00000020;
-  DIGFFS_EMPTY           = $00000001;
+  DIGFFS_EMPTY            = $00000001;
-  DIGFFS_STOPPED         = $00000002;
+  DIGFFS_STOPPED          = $00000002;
-  DIGFFS_PAUSED          = $00000004;
+  DIGFFS_PAUSED           = $00000004;
-  DIGFFS_ACTUATORSON     = $00000010;
+  DIGFFS_ACTUATORSON      = $00000010;
-  DIGFFS_ACTUATORSOFF    = $00000020;
+  DIGFFS_ACTUATORSOFF     = $00000020;
-  DIGFFS_POWERON         = $00000040;
+  DIGFFS_POWERON          = $00000040;
-  DIGFFS_POWEROFF        = $00000080;
+  DIGFFS_POWEROFF         = $00000080;
-  DIGFFS_SAFETYSWITCHON  = $00000100;
+  DIGFFS_SAFETYSWITCHON   = $00000100;
-  DIGFFS_SAFETYSWITCHOFF = $00000200;
+  DIGFFS_SAFETYSWITCHOFF  = $00000200;
-  DIGFFS_USERFFSWITCHON  = $00000400;
+  DIGFFS_USERFFSWITCHON   = $00000400;
-  DIGFFS_USERFFSWITCHOFF = $00000800;
+  DIGFFS_USERFFSWITCHOFF  = $00000800;
-  DIGFFS_DEVICELOST      = $80000000;
+  DIGFFS_DEVICELOST       = $80000000;
-  DISDD_CONTINUE         = 1;
-  DIFEF_DEFAULT            = $00000000;
-  DIFEF_INCLUDENONSTANDARD = $00000001;
-  DIFEF_MODIFYIFNEEDED     = $00000010;
 type
   PDIEffectInfoA = ^TDIEffectInfoA;
-  TDIEffectInfoA = record
+  TDIEffectInfoA = packed record
-    dwSize: DWORD;
+    dwSize : DWORD;
-    guid: TGUID;
+    guid : TGUID;
-    dwEffType: DWORD;
+    dwEffType : DWORD;
-    dwStaticParams: DWORD;
+    dwStaticParams : DWORD;
-    dwDynamicParams: DWORD;
+    dwDynamicParams : DWORD;
-    tszName: array[0..MAX_PATH-1] of CHAR;
+    tszName : array [0..MAX_PATH-1] of CHAR;
   end;
-  DIEFFECTINFOA = TDIEffectInfoA;
-  LPDIEFFECTINFOA = PDIEffectInfoA;
   PDIEffectInfoW = ^TDIEffectInfoW;
-  TDIEffectInfoW = record
+  TDIEffectInfoW = packed record
-    dwSize: DWORD;
+    dwSize : DWORD;
-    guid: TGUID;
+    guid : TGUID;
-    dwEffType: DWORD;
+    dwEffType : DWORD;
-    dwStaticParams: DWORD;
+    dwStaticParams : DWORD;
-    dwDynamicParams: DWORD;
+    dwDynamicParams : DWORD;
-    tszName: array[0..MAX_PATH-1] of WCHAR;
+    tszName : array [0..MAX_PATH-1] of WCHAR;
   end;
-  DIEFFECTINFOW = TDIEffectInfoW;
+  PDIEffectInfo = ^TDIEffectInfo;
-  LPDIEFFECTINFOW = PDIEffectInfoW;
+{$IFDEF UNICODE}
-  DIEFFECTINFO = TDIEffectInfoA;
+  TDIEffectInfo = TDIEffectInfoW;
+{$ELSE}
-  LPDIEFFECTINFO = PDIEffectInfoA;
+  TDIEffectInfo = TDIEffectInfoA;
-  TDIEnumEffectsCallbackA = function(const pdei: TDIEffectInfoA;
-      pvRef: Pointer): HResult; stdcall;
-  LPDIENUMEFFECTSCALLBACKA = TDIEnumEffectsCallbackA;
+{$ENDIF}
-  TDIEnumEffectsCallbackW = function(const pdei: TDIEffectInfoW;
-      pvRef: Pointer): HResult; stdcall;
-  LPDIENUMEFFECTSCALLBACKW = TDIEnumEffectsCallbackW;
-  TDIEnumEffectsCallback = TDIEnumEffectsCallbackA;
+const
-  LPDIENUMEFFECTSCALLBACK = TDIEnumEffectsCallback;
+  DISDD_CONTINUE          = $00000001;
+  // Bug fix & deviation from the SDK: Must return DIENUM_STOP or
-  LPDIENUMCREATEDEFFECTOBJECTSCALLBACK = function(const peff:
+  // DIENUM_CONTINUE (=1) in order to work with the debug version of DINPUT.DLL
+type
+  TDIEnumEffectsCallbackA =
+      function(var pdei: TDIEffectInfoA; pvRef: pointer): Integer; stdcall; // BOOL; stdcall;
+  TDIEnumEffectsCallbackW =
+      function(var pdei: TDIEffectInfoW; pvRef: pointer): Integer; stdcall; // BOOL; stdcall;
+  TDIEnumEffectsCallback =
+      function(var pdei: TDIEffectInfo; pvRef: pointer) : Integer; stdcall; // BOOL; stdcall;
+  TDIEnumEffectsProc = TDIEnumEffectsCallback;
+  TDIEnumCreatedEffectObjectsCallback =
-      IDirectInputEffect; pvRef: Pointer): HResult; stdcall;
+      function(peff: IDirectInputEffect; pvRev: pointer): Integer; stdcall; // BOOL; stdcall;
+  TDIEnumCreatedEffectObjectsProc = TDIEnumCreatedEffectObjectsCallback;
-  IDirectInputDevice2W = interface(IDirectInputDeviceW)
+  IDirectInputDevice2A = interface (IDirectInputDeviceA)
-    ['{5944E683-C92E-11CF-BFC7-444553540000}']
+    ['{5944E682-C92E-11CF-BFC7-444553540000}']
-    // IDirectInputDevice2W methods
+    (*** IDirectInputDevice2A methods ***)
-    function CreateEffect(const rguid: TGUID; const lpeff: TDIEffect;
+    function CreateEffect(const rguid: TGUID; lpeff: PDIEffect;
-        out ppdeff: IDirectInputEffect; punkOuter: IUnknown): HResult; stdcall;
+        var ppdeff: IDirectInputEffect; punkOuter: IUnknown) : HResult;  stdcall;
-    function EnumEffects(lpCallback: TDIEnumEffectsCallbackW; pvRef: Pointer;
+    function EnumEffects(lpCallback: TDIEnumEffectsCallbackA;
-        dwEffType: DWORD): HResult; stdcall;
+        pvRef: pointer; dwEffType: DWORD) : HResult;  stdcall;
-    function GetEffectInfo(var pdei: TDIEffectInfoW; const rguid: TGUID): HResult; stdcall;
+    function GetEffectInfo(pdei: TDIEffectInfoA; const rguid: TGUID) : HResult;  stdcall;
-    function GetForceFeedbackState(var pdwOut: DWORD): HResult; stdcall;
+    function GetForceFeedbackState(var pdwOut: DWORD) : HResult;  stdcall;
-    function SendForceFeedbackCommand(dwFlags: DWORD): HResult; stdcall;
+    function SendForceFeedbackCommand(dwFlags: DWORD) : HResult;  stdcall;
     function EnumCreatedEffectObjects(lpCallback:
+        TDIEnumCreatedEffectObjectsCallback;
-        LPDIENUMCREATEDEFFECTOBJECTSCALLBACK; pvRef: Pointer; fl: DWORD): HResult; stdcall;
+        pvRef: pointer; fl: DWORD) : HResult;  stdcall;
-    function Escape(const pesc: TDIEffEscape): HResult; stdcall;
+    function Escape(var pesc: TDIEffEscape) : HResult;  stdcall;
-    function Poll: HResult; stdcall;
+    function Poll : HResult;  stdcall;
+    function SendDeviceData
-    function SendDeviceData(cbObjectData: DWORD; const rgdod: TDIDeviceObjectData;
+        (cbObjectData: DWORD; var rgdod: TDIDeviceObjectData;
-        var pdwInOut: DWORD; fl: DWORD): HResult; stdcall;
+        var pdwInOut: DWORD; fl: DWORD) : HResult;  stdcall;
   end;
-  IDirectInputDevice2A = interface(IDirectInputDeviceA)
+  IDirectInputDevice2W = interface (IDirectInputDeviceW)
-    ['{5944E682-C92E-11CF-BFC7-444553540000}']
+    ['{5944E683-C92E-11CF-BFC7-444553540000}']
-    // IDirectInputDevice2A methods
+    (*** IDirectInputDevice2W methods ***)
-    function CreateEffect(const rguid: TGUID; const lpeff: TDIEffect;
+    function CreateEffect(const rguid: TGUID; lpeff: PDIEffect;
-        out ppdeff: IDirectInputEffect; punkOuter: IUnknown): HResult; stdcall;
+        var ppdeff: IDirectInputEffect; punkOuter: IUnknown) : HResult;  stdcall;
-    function EnumEffects(lpCallback: TDIEnumEffectsCallbackA; pvRef: Pointer;
+    function EnumEffects(lpCallback: TDIEnumEffectsCallbackW;
-        dwEffType: DWORD): HResult; stdcall;
+        pvRef: pointer; dwEffType: DWORD) : HResult;  stdcall;
-    function GetEffectInfo(var pdei: TDIEffectInfoA; const rguid: TGUID): HResult; stdcall;
+    function GetEffectInfo(pdei: TDIEffectInfoW; const rguid: TGUID) : HResult;  stdcall;
-    function GetForceFeedbackState(var pdwOut: DWORD): HResult; stdcall;
+    function GetForceFeedbackState(var pdwOut: DWORD) : HResult;  stdcall;
-    function SendForceFeedbackCommand(dwFlags: DWORD): HResult; stdcall;
+    function SendForceFeedbackCommand(dwFlags: DWORD) : HResult;  stdcall;
     function EnumCreatedEffectObjects(lpCallback:
+        TDIEnumCreatedEffectObjectsCallback;
-        LPDIENUMCREATEDEFFECTOBJECTSCALLBACK; pvRef: Pointer; fl: DWORD): HResult; stdcall;
+        pvRef: pointer; fl: DWORD) : HResult;  stdcall;
-    function Escape(const pesc: TDIEffEscape): HResult; stdcall;
+    function Escape(var pesc: TDIEffEscape) : HResult;  stdcall;
-    function Poll: HResult; stdcall;
+    function Poll : HResult;  stdcall;
+    function SendDeviceData
-    function SendDeviceData(cbObjectData: DWORD; const rgdod: TDIDeviceObjectData;
+        (cbObjectData: DWORD; var rgdod: TDIDeviceObjectData;
-        var pdwInOut: DWORD; fl: DWORD): HResult; stdcall;
+        var pdwInOut: DWORD; fl: DWORD) : HResult;  stdcall;
   end;
+{$IFDEF UNICODE}
+  IDirectInputDevice2 = IDirectInputDevice2W;
+{$ELSE}
   IDirectInputDevice2 = IDirectInputDevice2A;
+{$ENDIF}
+const
+  DIFEF_DEFAULT               = $00000000;
+  DIFEF_INCLUDENONSTANDARD    = $00000001;
+  DIFEF_MODIFYIFNEEDED          = $00000010;
+///Weitermachen:  (as: nur die Deklarationen eingefüllt, die ich zum Testen gebraucht habe)
+type
+  TEnumEffectsInFileCallback = function(gaga, huhu: Integer): HResult;
+type
-  IDirectInputDevice7W = interface(IDirectInputDevice2W)
+  IDirectInputDevice7W = interface (IDirectInputDevice2W)
-    ['{57D7C6BC-2356-11D3-8E9D-00C04F6844AE}']
+    ['{57D7C6BD-2356-11D3-8E9D-00C04F6844AE}']
-    // IDirectInputDevice7W methods
+    (*** IDirectInputDevice7A methods ***)
-    function EnumEffectsInFile(lpszFileName: LPCWSTR; pec: TDIEnumEffectsInFileCallback;
+    function EnumEffectsInFile(const lpszFileName: PChar;
-      pvRef: Pointer; dwFlags: DWORD): HResult; stdcall;
+      pec: TEnumEffectsInFileCallback; pvRef: Pointer; dwFlags: DWord): HResult; stdcall;
-    function WriteEffectToFile(lpszFileName: LPCWSTR; dwEntries: DWORD;
+    function WriteEffectToFile(const lpszFileName: PChar;
-      const rgDiFileEft: TDIFileEffect; dwFlags: DWORD): HResult; stdcall;
+      dwEntries: DWord; const rgDIFileEft: PDIFileEffect; dwFlags: DWord): HResult; stdcall;
   end;
-  IDirectInputDevice7A = interface(IDirectInputDevice2A)
+  IDirectInputDevice7A = interface (IDirectInputDevice2A)
-    ['{57D7C6BD-2356-11D3-8E9D-00C04F6844AE}']
+    ['{57D7C6BC-2356-11D3-8E9D-00C04F6844AE}']
-    // IDirectInputDevice7A methods
-    function EnumEffectsInFile(lpszFileName: LPCSTR; pec: TDIEnumEffectsInFileCallback;
+    function EnumEffectsInFile(const lpszFileName: PChar;
-      pvRef: Pointer; dwFlags: DWORD): HResult; stdcall;
+      pec: TEnumEffectsInFileCallback; pvRef: Pointer; dwFlags: DWord): HResult; stdcall;
-    function WriteEffectToFile(lpszFileName: LPCSTR; dwEntries: DWORD;
+    function WriteEffectToFile(const lpszFileName: PChar;
-      const rgDiFileEft: TDIFileEffect; dwFlags: DWORD): HResult; stdcall;
+      dwEntries: DWord; const rgDIFileEft: PDIFileEffect; dwFlags: DWord): HResult; stdcall;
   end;
+{$IFDEF UNICODE}
+  IDirectInputDevice7 = IDirectInputDevice7W;
+{$ELSE}
   IDirectInputDevice7 = IDirectInputDevice7A;
+{$ENDIF}
+(****************************************************************************
+ *
-{ Mouse }
+ *      Mouse
+ *
+ ****************************************************************************)
 type
+  PDIMouseState = ^TDIMouseState;
-  TDIMouseState = record
+  TDIMouseState = packed record
     lX: Longint;
     lY: Longint;
     lZ: Longint;
-    rgbButtons: array[0..3] of BYTE;
+    rgbButtons: Array [0..3] of BYTE;  // up to 4 buttons
   end;
-  DIMOUSESTATE = TDIMouseState;
+  PDIMouseState2 = ^TDIMouseState2;
-  TDIMouseState2 = record
+  TDIMouseState2 = packed record
     lX: Longint;
     lY: Longint;
     lZ: Longint;
-    rgbButtons: array[0..7] of BYTE;
+    rgbButtons: Array [0..7] of BYTE;  // up to 8 buttons
   end;
+const
+  DIMOFS_X       = 0;
+  DIMOFS_Y       = 4;
+  DIMOFS_Z       = 8;
+  DIMOFS_BUTTON0 = 12;
+  DIMOFS_BUTTON1 = 13;
+  DIMOFS_BUTTON2 = 14;
+  DIMOFS_BUTTON3 = 15;
+  // DX7 supports up to 8 mouse buttons
+  DIMOFS_BUTTON4 = DIMOFS_BUTTON0+4;
+  DIMOFS_BUTTON5 = DIMOFS_BUTTON0+5;
+  DIMOFS_BUTTON6 = DIMOFS_BUTTON0+6;
-  DIMOUSESTATE2 = TDIMouseState2;
+  DIMOFS_BUTTON7 = DIMOFS_BUTTON0+7;
 const
-  _c_dfDIMouse_Objects: array[0..1] of TDIObjectDataFormat = (
+  _c_dfDIMouse_Objects: array[0..6] of TDIObjectDataFormat = (
+    (  pguid: @GUID_XAxis;
+       dwOfs: DIMOFS_X;
+       dwType: DIDFT_AXIS or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_YAxis;
+       dwOfs: DIMOFS_Y;
+       dwType: DIDFT_AXIS or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_ZAxis;
+       dwOfs: DIMOFS_Z;
-    (pguid: nil;          dwOfs: 0;  dwType: DIDFT_RELAXIS or DIDFT_ANYINSTANCE; dwFlags: 0),
+       dwType: $80000000 or DIDFT_AXIS or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIMOFS_BUTTON0;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIMOFS_BUTTON1;
-    (pguid: @GUID_Button; dwOfs: 12; dwType: DIDFT_BUTTON or DIDFT_ANYINSTANCE;  dwFlags: 0)
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIMOFS_BUTTON2;
+       dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIMOFS_BUTTON3;
+       dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0)
-  );
+    );
   c_dfDIMouse: TDIDataFormat = (
-    dwSize: Sizeof(c_dfDIMouse);
+    dwSize: Sizeof(c_dfDIMouse);              // $18
-    dwObjSize: Sizeof(TDIObjectDataFormat);
+    dwObjSize: Sizeof(TDIObjectDataFormat);   // $10
-    dwFlags: DIDF_RELAXIS;
+    dwFlags: DIDF_RELAXIS;                    //
-    dwDataSize: Sizeof(TDIMouseState);
+    dwDataSize: Sizeof(TDIMouseState);        // $10
-    dwNumObjs: High(_c_dfDIMouse_Objects)+1;
+    dwNumObjs: High(_c_dfDIMouse_Objects)+1;  // 7
-    rgodf: @_c_dfDIMouse_Objects
+    rgodf: @_c_dfDIMouse_Objects[Low(_c_dfDIMouse_Objects)]
   );
-{ Keyboard }
+  _c_dfDIMouse2_Objects: array[0..10] of TDIObjectDataFormat = (
+    (  pguid: @GUID_XAxis;
+       dwOfs: DIMOFS_X;
+       dwType: DIDFT_AXIS or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_YAxis;
+       dwOfs: DIMOFS_Y;
+       dwType: DIDFT_AXIS or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_ZAxis;
+       dwOfs: DIMOFS_Z;
+       dwType: $80000000 or DIDFT_AXIS or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
-type
+    (  pguid: nil;
+       dwOfs: DIMOFS_BUTTON0;
-  TDIKeyboardState = array[0..255] of Byte;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: nil;
-  DIKEYBOARDSTATE = TDIKeyboardState;
+       dwOfs: DIMOFS_BUTTON1;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIMOFS_BUTTON2;
+       dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
-const
+    (  pguid: nil;
+       dwOfs: DIMOFS_BUTTON3;
+       dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
-  _c_dfDIKeyboard_Objects: array[0..0] of TDIObjectDataFormat = (
+    // fields introduced with IDirectInputDevice7.GetDeviceState
+    (  pguid: nil;
+       dwOfs: DIMOFS_BUTTON4;
+       dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIMOFS_BUTTON5;
+       dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIMOFS_BUTTON6;
+       dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIMOFS_BUTTON7;
-    (pguid: @GUID_Key; dwOfs: 1; dwType: DIDFT_BUTTON or DIDFT_ANYINSTANCE; dwFlags: 0)
+       dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0)
-  );
+    );
-  c_dfDIKeyboard: TDIDataFormat = (
+  c_dfDIMouse2: TDIDataFormat = (
-    dwSize: Sizeof(c_dfDIKeyboard);
+    dwSize: Sizeof(c_dfDIMouse);              // $18
-    dwObjSize: Sizeof(TDIObjectDataFormat);
+    dwObjSize: Sizeof(TDIObjectDataFormat);   // $10
-    dwFlags: 0;
+    dwFlags: DIDF_RELAXIS;                    //
-    dwDataSize: SizeOf(TDIKeyboardState);
+    dwDataSize: Sizeof(TDIMouseState2);        // $14
-    dwNumObjs: High(_c_dfDIKeyboard_Objects)+1;
+    dwNumObjs: High(_c_dfDIMouse_Objects)+1;  // 11
-    rgodf: @_c_dfDIKeyboard_Objects
+    rgodf: @_c_dfDIMouse2_Objects[Low(_c_dfDIMouse2_Objects)]
   );
+(****************************************************************************
+ *
-{ DirectInput keyboard scan codes }
+ *      DirectInput keyboard scan codes
+ *
+ ****************************************************************************)
 const
   DIK_ESCAPE          = $01;
   DIK_1               = $02;
   DIK_2               = $03;
   DIK_3               = $04;
   DIK_4               = $05;
   DIK_5               = $06;
   DIK_6               = $07;
   DIK_7               = $08;
   DIK_8               = $09;
   DIK_9               = $0A;
   DIK_0               = $0B;
-  DIK_MINUS           = $0C;    // - on main keyboard
+  DIK_MINUS           = $0C;    (* - on main keyboard *)
   DIK_EQUALS          = $0D;
-  DIK_BACK            = $0E;    // backspace
+  DIK_BACK            = $0E;    (* backspace *)
   DIK_TAB             = $0F;
   DIK_Q               = $10;
   DIK_W               = $11;
   DIK_E               = $12;
   DIK_R               = $13;
   DIK_T               = $14;
   DIK_Y               = $15;
   DIK_U               = $16;
   DIK_I               = $17;
   DIK_O               = $18;
   DIK_P               = $19;
   DIK_LBRACKET        = $1A;
   DIK_RBRACKET        = $1B;
-  DIK_RETURN          = $1C;    // Enter on main keyboard
+  DIK_RETURN          = $1C;    (* Enter on main keyboard *)
   DIK_LCONTROL        = $1D;
   DIK_A               = $1E;
   DIK_S               = $1F;
   DIK_D               = $20;
   DIK_F               = $21;
   DIK_G               = $22;
   DIK_H               = $23;
   DIK_J               = $24;
   DIK_K               = $25;
   DIK_L               = $26;
   DIK_SEMICOLON       = $27;
   DIK_APOSTROPHE      = $28;
-  DIK_GRAVE           = $29;    // accent grave
+  DIK_GRAVE           = $29;    (* accent grave *)
   DIK_LSHIFT          = $2A;
   DIK_BACKSLASH       = $2B;
   DIK_Z               = $2C;
   DIK_X               = $2D;
   DIK_C               = $2E;
   DIK_V               = $2F;
   DIK_B               = $30;
   DIK_N               = $31;
   DIK_M               = $32;
   DIK_COMMA           = $33;
-  DIK_PERIOD          = $34;    // . on main keyboard
+  DIK_PERIOD          = $34;    (* . on main keyboard *)
-  DIK_SLASH           = $35;    // / on main keyboard
+  DIK_SLASH           = $35;    (* / on main keyboard *)
   DIK_RSHIFT          = $36;
-  DIK_MULTIPLY        = $37;    // * on numeric keypad
+  DIK_MULTIPLY        = $37;    (* * on numeric keypad *)
-  DIK_LMENU           = $38;    // left Alt
+  DIK_LMENU           = $38;    (* left Alt *)
   DIK_SPACE           = $39;
   DIK_CAPITAL         = $3A;
   DIK_F1              = $3B;
   DIK_F2              = $3C;
   DIK_F3              = $3D;
   DIK_F4              = $3E;
   DIK_F5              = $3F;
   DIK_F6              = $40;
   DIK_F7              = $41;
   DIK_F8              = $42;
   DIK_F9              = $43;
   DIK_F10             = $44;
   DIK_NUMLOCK         = $45;
-  DIK_SCROLL          = $46;    // Scroll Lock
+  DIK_SCROLL          = $46;    (* Scroll Lock *)
   DIK_NUMPAD7         = $47;
   DIK_NUMPAD8         = $48;
   DIK_NUMPAD9         = $49;
-  DIK_SUBTRACT        = $4A;    // - on numeric keypad
+  DIK_SUBTRACT        = $4A;    (* - on numeric keypad *)
   DIK_NUMPAD4         = $4B;
   DIK_NUMPAD5         = $4C;
   DIK_NUMPAD6         = $4D;
-  DIK_ADD             = $4E;    // + on numeric keypad
+  DIK_ADD             = $4E;    (* + on numeric keypad *)
   DIK_NUMPAD1         = $4F;
   DIK_NUMPAD2         = $50;
   DIK_NUMPAD3         = $51;
   DIK_NUMPAD0         = $52;
-  DIK_DECIMAL         = $53;    // . on numeric keypad
+  DIK_DECIMAL         = $53;    (* . on numeric keypad *)
+  // $54 to $56 unassigned
   DIK_F11             = $57;
   DIK_F12             = $58;
+  // $59 to $63 unassigned
-  DIK_F13             = $64;    //                     (NEC PC98)
+  DIK_F13             = $64;    (*                     (NEC PC98) *)
-  DIK_F14             = $65;    //                     (NEC PC98)
+  DIK_F14             = $65;    (*                     (NEC PC98) *)
-  DIK_F15             = $66;    //                     (NEC PC98)
+  DIK_F15             = $66;    (*                     (NEC PC98) *)
+  // $67 to $6F unassigned
-  DIK_KANA            = $70;    // (Japanese keyboard)
+  DIK_KANA            = $70;    (* (Japanese keyboard)            *)
-  DIK_CONVERT         = $79;    // (Japanese keyboard)
+  DIK_CONVERT         = $79;    (* (Japanese keyboard)            *)
-  DIK_NOCONVERT       = $7B;    // (Japanese keyboard)
+  DIK_NOCONVERT       = $7B;    (* (Japanese keyboard)            *)
-  DIK_YEN             = $7D;    // (Japanese keyboard)
+  DIK_YEN             = $7D;    (* (Japanese keyboard)            *)
-  DIK_NUMPADEQUALS    = $8D;    // = on numeric keypad (NEC PC98)
+  DIK_NUMPADEQUALS    = $8D;    (* = on numeric keypad (NEC PC98) *)
+  // $8E to $8F unassigned
-  DIK_CIRCUMFLEX      = $90;    // (Japanese keyboard)
+  DIK_CIRCUMFLEX      = $90;    (* (Japanese keyboard)            *)
-  DIK_AT              = $91;    //                     (NEC PC98)
+  DIK_AT              = $91;    (*                     (NEC PC98) *)
-  DIK_COLON           = $92;    //                     (NEC PC98)
+  DIK_COLON           = $92;    (*                     (NEC PC98) *)
-  DIK_UNDERLINE       = $93;    //                     (NEC PC98)
+  DIK_UNDERLINE       = $93;    (*                     (NEC PC98) *)
-  DIK_KANJI           = $94;    // (Japanese keyboard)
+  DIK_KANJI           = $94;    (* (Japanese keyboard)            *)
-  DIK_STOP            = $95;    //                     (NEC PC98)
+  DIK_STOP            = $95;    (*                     (NEC PC98) *)
-  DIK_AX              = $96;    //                     (Japan AX)
+  DIK_AX              = $96;    (*                     (Japan AX) *)
-  DIK_UNLABELED       = $97;    //                        (J3100)
+  DIK_UNLABELED       = $97;    (*                        (J3100) *)
+  // $98 to $99 unassigned
-  DIK_NUMPADENTER     = $9C;    // Enter on numeric keypad
+  DIK_NUMPADENTER     = $9C;    (* Enter on numeric keypad *)
   DIK_RCONTROL        = $9D;
+  // $9E to $B2 unassigned
-  DIK_NUMPADCOMMA     = $B3;    // , on numeric keypad (NEC PC98)
+  DIK_NUMPADCOMMA     = $B3;    (* , on numeric keypad (NEC PC98) *)
+  // $B4 unassigned
-  DIK_DIVIDE          = $B5;    // / on numeric keypad
+  DIK_DIVIDE          = $B5;    (* / on numeric keypad *)
+  // $B6 unassigned
   DIK_SYSRQ           = $B7;
-  DIK_RMENU           = $B8;    // right Alt
+  DIK_RMENU           = $B8;    (* right Alt *)
+  // $B9 to $C4 unassigned
+  DIK_PAUSE           = $C5;    (* Pause (watch out - not realiable on some kbds) *)
+  // $C6 unassigned
-  DIK_HOME            = $C7;    // Home on arrow keypad
+  DIK_HOME            = $C7;    (* Home on arrow keypad *)
-  DIK_UP              = $C8;    // UpArrow on arrow keypad
+  DIK_UP              = $C8;    (* UpArrow on arrow keypad *)
-  DIK_PRIOR           = $C9;    // PgUp on arrow keypad
+  DIK_PRIOR           = $C9;    (* PgUp on arrow keypad *)
+  // $CA unassigned
-  DIK_LEFT            = $CB;    // LeftArrow on arrow keypad
+  DIK_LEFT            = $CB;    (* LeftArrow on arrow keypad *)
-  DIK_RIGHT           = $CD;    // RightArrow on arrow keypad
+  DIK_RIGHT           = $CD;    (* RightArrow on arrow keypad *)
+  // $CF unassigned
-  DIK_END             = $CF;    // End on arrow keypad
+  DIK_END             = $CF;    (* End on arrow keypad *)
-  DIK_DOWN            = $D0;    // DownArrow on arrow keypad
+  DIK_DOWN            = $D0;    (* DownArrow on arrow keypad *)
-  DIK_NEXT            = $D1;    // PgDn on arrow keypad
+  DIK_NEXT            = $D1;    (* PgDn on arrow keypad *)
-  DIK_INSERT          = $D2;    // Insert on arrow keypad
+  DIK_INSERT          = $D2;    (* Insert on arrow keypad *)
-  DIK_DELETE          = $D3;    // Delete on arrow keypad
+  DIK_DELETE          = $D3;    (* Delete on arrow keypad *)
-  DIK_LWIN            = $DB;    // Left Windows key
+  DIK_LWIN            = $DB;    (* Left Windows key *)
-  DIK_RWIN            = $DC;    // Right Windows key
+  DIK_RWIN            = $DC;    (* Right Windows key *)
-  DIK_APPS            = $DD;    // AppMenu key
+  DIK_APPS            = $DD;    (* AppMenu key *)
+  // New with DX 6.1 & Win98
+  DIK_POWER           = $DE;
+  DIK_SLEEP           = $DF;
+  // $E0 to $E2 unassigned
+  // $E3 = Wake up ("translated" in German DInput to "Kielwasser" (ship's wake) ;-)
-//
+(*
-//  Alternate names for keys, to facilitate transition from DOS.
+ *  Alternate names for keys, to facilitate transition from DOS.
-//
+ *)
-  DIK_BACKSPACE       = DIK_BACK;            // backspace
+  DIK_BACKSPACE      = DIK_BACK    ;        (* backspace *)
-  DIK_NUMPADSTAR      = DIK_MULTIPLY;        // * on numeric keypad
+  DIK_NUMPADSTAR     = DIK_MULTIPLY;        (* * on numeric keypad *)
-  DIK_LALT            = DIK_LMENU;           // left Alt
+  DIK_LALT           = DIK_LMENU   ;        (* left Alt *)
-  DIK_CAPSLOCK        = DIK_CAPITAL;         // CapsLock
+  DIK_CAPSLOCK       = DIK_CAPITAL ;        (* CapsLock *)
-  DIK_NUMPADMINUS     = DIK_SUBTRACT;        // - on numeric keypad
+  DIK_NUMPADMINUS    = DIK_SUBTRACT;        (* - on numeric keypad *)
-  DIK_NUMPADPLUS      = DIK_ADD;             // + on numeric keypad
+  DIK_NUMPADPLUS     = DIK_ADD     ;        (* + on numeric keypad *)
-  DIK_NUMPADPERIOD    = DIK_DECIMAL;         // . on numeric keypad
+  DIK_NUMPADPERIOD   = DIK_DECIMAL ;        (* . on numeric keypad *)
-  DIK_NUMPADSLASH     = DIK_DIVIDE;          // / on numeric keypad
+  DIK_NUMPADSLASH    = DIK_DIVIDE  ;        (* / on numeric keypad *)
-  DIK_RALT            = DIK_RMENU;           // right Alt
+  DIK_RALT           = DIK_RMENU   ;        (* right Alt *)
-  DIK_UPARROW         = DIK_UP;              // UpArrow on arrow keypad
+  DIK_UPARROW        = DIK_UP      ;        (* UpArrow on arrow keypad *)
-  DIK_PGUP            = DIK_PRIOR;           // PgUp on arrow keypad
+  DIK_PGUP           = DIK_PRIOR   ;        (* PgUp on arrow keypad *)
-  DIK_LEFTARROW       = DIK_LEFT;            // LeftArrow on arrow keypad
+  DIK_LEFTARROW      = DIK_LEFT    ;        (* LeftArrow on arrow keypad *)
-  DIK_RIGHTARROW      = DIK_RIGHT;           // RightArrow on arrow keypad
+  DIK_RIGHTARROW     = DIK_RIGHT   ;        (* RightArrow on arrow keypad *)
-  DIK_DOWNARROW       = DIK_DOWN;            // DownArrow on arrow keypad
+  DIK_DOWNARROW      = DIK_DOWN    ;        (* DownArrow on arrow keypad *)
-  DIK_PGDN            = DIK_NEXT;            // PgDn on arrow keypad
+  DIK_PGDN           = DIK_NEXT    ;        (* PgDn on arrow keypad *)
+(****************************************************************************
+ *
+ *      Keyboard
+ *
+ ****************************************************************************)
-{ Joystick }
 type
-  PDIJoyState = ^TDIJoyState;
+  TDIKeyboardState = array[0..255] of Byte;
-  TDIJoyState = record
-    lX: Longint;                        // x-axis position
-    lY: Longint;                        // y-axis position
-    lZ: Longint;                        // z-axis position
-    lRx: Longint;                       // x-axis rotation
-    lRy: Longint;                       // y-axis rotation
-    lRz: Longint;                       // z-axis rotation
-    rglSlider: array[0..1] of Longint;  // extra axes positions
-    rgdwPOV: array[0..3] of DWORD;      // POV directions
-    rgbButtons: array[0..31] of BYTE;   // 32 buttons
-  end;
-  DIJOYSTATE = TDIJoyState;
-  PDIJOYSTATE2 = ^TDIJoyState2;
-  TDIJoyState2 = record
-    lX: Longint;                        // x-axis position
-    lY: Longint;                        // y-axis position
-    lZ: Longint;                        // z-axis position
-    lRx: Longint;                       // x-axis rotation
-    lRy: Longint;                       // y-axis rotation
-    lRz: Longint;                       // z-axis rotation
-    rglSlider: array[0..1] of Longint;  // extra axes positions
-    rgdwPOV: array[0..3] of DWORD;      // POV directions
-    rgbButtons: array[0..127] of BYTE;  // 128 buttons
-    lVX: Longint;                       // x-axis velocity
-    lVY: Longint;                       // y-axis velocity
-    lVZ: Longint;                       // z-axis velocity
-    lVRx: Longint;                      // x-axis angular velocity
-    lVRy: Longint;                      // y-axis angular velocity
-    lVRz: Longint;                      // z-axis angular velocity
-    rglVSlider: array[0..1] of Longint; // extra axes velocities
-    lAX: Longint;                       // x-axis acceleration
-    lAY: Longint;                       // y-axis acceleration
-    lAZ: Longint;                       // z-axis acceleration
-    lARx: Longint;                      // x-axis angular acceleration
-    lARy: Longint;                      // y-axis angular acceleration
-    lARz: Longint;                      // z-axis angular acceleration
-    rglASlider: array[0..1] of Longint; // extra axes accelerations
-    lFX: Longint;                       // x-axis force
-    lFY: Longint;                       // y-axis force
-    lFZ: Longint;                       // z-axis force
-    lFRx: Longint;                      // x-axis torque
-    lFRy: Longint;                      // y-axis torque
-    lFRz: Longint;                      // z-axis torque
-    rglFSlider: array[0..1] of Longint; // extra axes forces
-  end;
-  DIJOYSTATE2 = TDIJoyState2;
+(*
-{const
+const
-  _c_dfDIJoystick_Objects: array[0..1] of TDIObjectDataFormat = (
+  _c_dfDIKeyboard_Objects: array[0..255] of TDIObjectDataFormat = (
-    (  pguid: nil;
+    (  pguid: @GUID_Key;
-       dwOfs: 0;
+       dwOfs: DIK_ESCAPE;
-       dwType: DIDFT_AXIS or DIDFT_ANYINSTANCE;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
        dwFlags: 0),
+    // -------- top row (except function keys) on main kbd ------------
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_1;  // "1" on main kbd, Offset 2
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_2;  // "2" on main kbd, Offset 3
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_3;  // "3" on main kbd, etc.
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_4;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_5;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_6;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_7;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_8;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_9;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_0;  // "0", main kbd
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_MINUS; // "-" on US kbds, "ß" on german kbds
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_EQUALS;  // "=" for US, "´" for german
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_BACK;  // backspace
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    // ----------- 2nd row -----------------------
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_TAB;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_Q;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_W;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_E;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_R;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_T;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_Y;  // "Z" on german & french keyboards
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_U;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_I;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_O;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_P;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_LBRACKET;  // "Ü" on german keyboards
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_RBRACKET;  // "+" on german keyboards
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_RETURN;   // Enter on main kbd
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    // next row should really start with caps lock but doesn't ;-)
+    // (DIK_CAPITAL is Offset $3A, i.e. after 4th row)
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_LCONTROL;  // Left Ctrl (german kbds: "Strg")
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    // ----------- 3rd row ------------------------------
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_A;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_S;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_D;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_F;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_G;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_H;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_J;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_K;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_L;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
-    (  pguid: nil;
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_SEMICOLON;  // "Ö" on german kbds
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_APOSTROPHE;  // "Ä" on german kbds
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_GRAVE; // accent grave, "'" on german kbds
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    // ---------------- 4th row -----------------------
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_LSHIFT;  // left shift
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_BACKSLASH;  // "<" on german kbds
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_Z;     // "Y" on german kbds
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_X;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_C;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_V;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_B;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_N;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_M;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_COMMA;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_PERIOD;  // on main kbd
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_SLASH;  // "-" on german kbds
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_RSHIFT;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    // --- misc keys (bye, bye, order) ----------------
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_MULTIPLY;  // on numeric keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_LMENU;  // left ALT
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_SPACE;  // space bar
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_CAPITAL;   // caps lock (on main kbd, above LSHIFT)
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    // ---------- function keys -----------
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_F1;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_F2;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_F3;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_F4;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_F5;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_F6;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_F7;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_F8;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_F9;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_F10;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    // ------- F11, F12 after numeric keypad (for "historical reasons" -- XT kbd)
+    // --------- numeric keypad (mostly, that is) -----------
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_NUMLOCK;   // numeric keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_SCROLL;  // scroll lock
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_NUMPAD7;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_NUMPAD8;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_NUMPAD9;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_SUBTRACT;  // "-" on numeric keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_NUMPAD4;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_NUMPAD5;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_NUMPAD6;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_ADD;   // "+" on numeric keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_NUMPAD1;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_NUMPAD2;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_NUMPAD3;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_NUMPAD0;  // "0" or "Insert" on numeric keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_DECIMAL;  // "." or "Del" on numeric keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
-       dwOfs: 48;
+       dwOfs: $54;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    // "extended" function keys; F13 to F15 only on NEC PC98
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_F11;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_F12;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    // -------------------------------------------------
+    // a whole lot of keys for asian kbds only
+    // -------------------------------------------------
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_NUMPADENTER;  // Enter on numeric keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_RCONTROL;        // right Ctrl on main kbd
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;   // "," on numeric keypad (NEC PC98 only)
+       dwOfs: DIK_NUMPADCOMMA;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_DIVIDE;   // "/" on numeric keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_SYSRQ;   // "System request", "Druck/S-Abf" on german kbds
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_RMENU;  // right ALT
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_PAUSE;  // "Pause" - not reliable on some kbds
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    // ----------- arrow keypad -----------------
+    (  pguid: @GUID_Key;
+       dwOfs:   DIK_HOME;    // Home on arrow keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_UP;        // UpArrow on arrow keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_PRIOR;    // PgUp on arrow keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_LEFT;    // LeftArrow on arrow keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_RIGHT;    // RightArrow on arrow keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_END;    // End on arrow keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_DOWN;    // DownArrow on arrow keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_NEXT;    // PgDn on arrow keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_INSERT;    // Insert on arrow keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_DELETE;    // Delete on arrow keypad
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_LWIN;    // Left Windows key
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_RWIN;    // Right Windows key
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: DIK_APPS;    // AppMenu key
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    // -------- added with Win 98 / DirectX 6.1 ------------
+    (  pguid: @GUID_Key;
+       dwOfs: 222;    // Power on key
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: 223;    // Sleep key
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
+       dwFlags: 0),
+    (  pguid: @GUID_Key;
+       dwOfs: 227;   // Wake (up) key. The german "translation"
+                     // reads "Kielwasser" (ship's wake) ;-)
-       dwType: DIDFT_BUTTON or DIDFT_ANYINSTANCE;
+       dwType: DIDFT_BUTTON or DIDFT_NOCOLLECTION;
        dwFlags: 0)
   );
+*)
+var  // set by initialization - I was simply too lazy
+  _c_dfDIKeyboard_Objects: array[0..255] of TDIObjectDataFormat;
+const
-  c_dfDIJoystick: TDIDataFormat = (
+  c_dfDIKeyboard: TDIDataFormat = (
-      dwSize: Sizeof(c_dfDIJoystick);
+    dwSize: Sizeof(c_dfDIKeyboard);
-      dwObjSize: Sizeof(TDIObjectDataFormat);
+    dwObjSize: Sizeof(TDIObjectDataFormat);
-      dwFlags: DIDF_ABSAXIS;
+    dwFlags: DIDF_RELAXIS;
-      dwDataSize: SizeOf(DIJOYSTATE);
+    dwDataSize: Sizeof(TDIKeyboardState);
-      dwNumObjs: High(_c_dfDIJoystick_Objects)+1;
+    dwNumObjs: High(_c_dfDIKeyboard_Objects)+1;
-      rgodf: @_c_dfDIJoystick_Objects);
+    rgodf: @_c_dfDIKeyboard_Objects[Low(_c_dfDIKeyboard_Objects)]
+  );
+(****************************************************************************
+ *
+ *      Joystick
- }
+ *
+ ****************************************************************************)
+type
+  PDIJoyState = ^TDIJoyState;
+  TDIJoyState = packed record
+    lX: Longint;   (* x-axis position              *)
+    lY: Longint;   (* y-axis position              *)
+    lZ: Longint;   (* z-axis position              *)
+    lRx: Longint;   (* x-axis rotation              *)
+    lRy: Longint;   (* y-axis rotation              *)
+    lRz: Longint;   (* z-axis rotation              *)
+    rglSlider: Array [0..1] of Longint;   (* extra axes positions         *)
+    rgdwPOV: Array [0..3] of DWORD;   (* POV directions               *)
+    rgbButtons: Array [0..31] of BYTE;   (* 32 buttons                   *)
+  end;
+  PDIJoyState2 = ^TDIJoyState2;
+  TDIJoyState2 = packed record
+    lX: Longint;   (* x-axis position              *)
+    lY: Longint;   (* y-axis position              *)
+    lZ: Longint;   (* z-axis position              *)
+    lRx: Longint;   (* x-axis rotation              *)
+    lRy: Longint;   (* y-axis rotation              *)
+    lRz: Longint;   (* z-axis rotation              *)
+    rglSlider: Array [0..1] of Longint;   (* extra axes positions         *)
+    rgdwPOV: Array [0..3] of DWORD;   (* POV directions               *)
+    rgbButtons: Array [0..127] of BYTE;   (* 128 buttons                  *)
+    lVX: Longint;   (* x-axis velocity              *)
+    lVY: Longint;   (* y-axis velocity              *)
+    lVZ: Longint;   (* z-axis velocity              *)
+    lVRx: Longint;   (* x-axis angular velocity      *)
+    lVRy: Longint;   (* y-axis angular velocity      *)
+    lVRz: Longint;   (* z-axis angular velocity      *)
+    rglVSlider: Array [0..1] of Longint;   (* extra axes velocities        *)
+    lAX: Longint;   (* x-axis acceleration          *)
+    lAY: Longint;   (* y-axis acceleration          *)
+    lAZ: Longint;   (* z-axis acceleration          *)
+    lARx: Longint;   (* x-axis angular acceleration  *)
+    lARy: Longint;   (* y-axis angular acceleration  *)
+    lARz: Longint;   (* z-axis angular acceleration  *)
+    rglASlider: Array [0..1] of Longint;   (* extra axes accelerations     *)
+    lFX: Longint;   (* x-axis force                 *)
+    lFY: Longint;   (* y-axis force                 *)
+    lFZ: Longint;   (* z-axis force                 *)
+    lFRx: Longint;   (* x-axis torque                *)
+    lFRy: Longint;   (* y-axis torque                *)
+    lFRz: Longint;   (* z-axis torque                *)
+    rglFSlider: Array [0..1] of Longint;   (* extra axes forces            *)
+  end;
+function DIJOFS_SLIDER(n: variant) : variant;
+function DIJOFS_POV(n: variant) : variant;
+function DIJOFS_BUTTON(n: variant) : variant;
+const
+  DIJOFS_BUTTON_ = 48;
+const
+  DIJOFS_BUTTON0 = DIJOFS_BUTTON_ + 0;
+  DIJOFS_BUTTON1 = DIJOFS_BUTTON_ + 1;
+  DIJOFS_BUTTON2 = DIJOFS_BUTTON_ + 2;
+  DIJOFS_BUTTON3 = DIJOFS_BUTTON_ + 3;
+  DIJOFS_BUTTON4 = DIJOFS_BUTTON_ + 4;
+  DIJOFS_BUTTON5 = DIJOFS_BUTTON_ + 5;
+  DIJOFS_BUTTON6 = DIJOFS_BUTTON_ + 6;
+  DIJOFS_BUTTON7 = DIJOFS_BUTTON_ + 7;
+  DIJOFS_BUTTON8 = DIJOFS_BUTTON_ + 8;
+  DIJOFS_BUTTON9 = DIJOFS_BUTTON_ + 9;
+  DIJOFS_BUTTON10 = DIJOFS_BUTTON_ + 10;
+  DIJOFS_BUTTON11 = DIJOFS_BUTTON_ + 11;
+  DIJOFS_BUTTON12 = DIJOFS_BUTTON_ + 12;
+  DIJOFS_BUTTON13 = DIJOFS_BUTTON_ + 13;
+  DIJOFS_BUTTON14 = DIJOFS_BUTTON_ + 14;
+  DIJOFS_BUTTON15 = DIJOFS_BUTTON_ + 15;
+  DIJOFS_BUTTON16 = DIJOFS_BUTTON_ + 16;
+  DIJOFS_BUTTON17 = DIJOFS_BUTTON_ + 17;
+  DIJOFS_BUTTON18 = DIJOFS_BUTTON_ + 18;
+  DIJOFS_BUTTON19 = DIJOFS_BUTTON_ + 19;
+  DIJOFS_BUTTON20 = DIJOFS_BUTTON_ + 20;
+  DIJOFS_BUTTON21 = DIJOFS_BUTTON_ + 21;
+  DIJOFS_BUTTON22 = DIJOFS_BUTTON_ + 22;
+  DIJOFS_BUTTON23 = DIJOFS_BUTTON_ + 23;
+  DIJOFS_BUTTON24 = DIJOFS_BUTTON_ + 24;
+  DIJOFS_BUTTON25 = DIJOFS_BUTTON_ + 25;
+  DIJOFS_BUTTON26 = DIJOFS_BUTTON_ + 26;
+  DIJOFS_BUTTON27 = DIJOFS_BUTTON_ + 27;
+  DIJOFS_BUTTON28 = DIJOFS_BUTTON_ + 28;
+  DIJOFS_BUTTON29 = DIJOFS_BUTTON_ + 29;
+  DIJOFS_BUTTON30 = DIJOFS_BUTTON_ + 30;
+  DIJOFS_BUTTON31 = DIJOFS_BUTTON_ + 31;
 const
-  DIJOFS_X            = 0;
+  DIJOFS_X  =0;
-  DIJOFS_Y            = 4;
+  DIJOFS_Y  =4;
-  DIJOFS_Z            = 8;
+  DIJOFS_Z  =8;
-  DIJOFS_RX           = 12;
+  DIJOFS_RX =12;
-  DIJOFS_RY           = 16;
+  DIJOFS_RY =16;
-  DIJOFS_RZ           = 20;
+  DIJOFS_RZ =20;
-  DIJOFS_SLIDER       = 24;
-  DIJOFS_POV          = 32;
-  DIJOFS_BUTTON       = 48;
+  _c_dfDIJoystick_Objects: array[0..43] of TDIObjectDataFormat = (
+    (  pguid: @GUID_XAxis;
+       dwOfs: DIJOFS_X; dwType: $80000000 or DIDFT_AXIS or DIDFT_NOCOLLECTION; dwFlags: $100),
+    (  pguid: @GUID_YAxis;
+       dwOfs: DIJOFS_Y; dwType: $80000000 or DIDFT_AXIS or DIDFT_NOCOLLECTION; dwFlags: $100),
+    (  pguid: @GUID_ZAxis;
+       dwOfs: DIJOFS_Z; dwType: $80000000 or DIDFT_AXIS or DIDFT_NOCOLLECTION; dwFlags: $100),
+    (  pguid: @GUID_RxAxis;
+       dwOfs: DIJOFS_RX; dwType: $80000000 or DIDFT_AXIS or DIDFT_NOCOLLECTION; dwFlags: $100),
+    (  pguid: @GUID_RyAxis;
+       dwOfs: DIJOFS_RY; dwType: $80000000 or DIDFT_AXIS or DIDFT_NOCOLLECTION; dwFlags: $100),
+    (  pguid: @GUID_RzAxis;
+       dwOfs: DIJOFS_RZ; dwType: $80000000 or DIDFT_AXIS or DIDFT_NOCOLLECTION; dwFlags: $100),
+    (  pguid: @GUID_Slider;  // 2 Sliders
+       dwOfs: 24; dwType: $80000000 or DIDFT_AXIS or DIDFT_NOCOLLECTION; dwFlags: $100),
+    (  pguid: @GUID_Slider;
+       dwOfs: 28; dwType: $80000000 or DIDFT_AXIS or DIDFT_NOCOLLECTION; dwFlags: $100),
+    (  pguid: @GUID_POV;  // 4 POVs (yes, really)
+       dwOfs: 32; dwType: $80000000 or DIDFT_POV or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: @GUID_POV;
+       dwOfs: 36; dwType: $80000000 or DIDFT_POV or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: @GUID_POV;
+       dwOfs: 40; dwType: $80000000 or DIDFT_POV or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: @GUID_POV;
+       dwOfs: 44; dwType: $80000000 or DIDFT_POV or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;   // Buttons
+       dwOfs: DIJOFS_BUTTON0; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON1; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON2; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON3; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON4; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON5; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON6; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON7; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON8; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON9; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON10; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON11; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON12; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON13; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON14; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON15; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON16; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON17; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON18; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON19; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON20; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON21; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON22; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON23; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON24; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON25; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON26; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON27; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON28; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON29; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON30; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0),
-{ IDirectInput }
+    (  pguid: nil;
+       dwOfs: DIJOFS_BUTTON31; dwType: $80000000 or DIDFT_BUTTON or DIDFT_NOCOLLECTION; dwFlags: 0)
+  );
+  c_dfDIJoystick: TDIDataFormat = (
+    dwSize: Sizeof(c_dfDIJoystick);
+    dwObjSize: Sizeof(TDIObjectDataFormat);  // $10
+    dwFlags: DIDF_ABSAXIS;
+    dwDataSize: SizeOf(TDIJoyState);         // $10
+    dwNumObjs: High(_c_dfDIJoystick_Objects)+1;  // $2C
+    rgodf: @_c_dfDIJoystick_Objects[Low(_c_dfDIJoystick_Objects)]
+  );
+var  // Set by initialization part -- didn't want to type in another 656 consts...
+  _c_dfDIJoystick2_Objects: array[0..$A3] of TDIObjectDataFormat;
+  { Elements $00..$2B: exact copy of _c_dfDIJoystick
+    Elements $2C..$8B: more "buttons" with nil GUIDs
+    remaining elements ($8B..$A2):
+     $8C,$8D,$8E: X axis, Y axis, Z axis with dwFlags = $0200
+     $8F,$90,$91: rX axis, rY axis, rZ axis with dwFlags = $0200
+     $92, $93: Slider with dwFlags = $0200
+     --------
+     $94,$95,$96: X axis, Y axis, Z axis with dwFlags = $0300
+     $97,$98,$99: rX axis, rY axis, rZ axis with dwFlags = $0300
+     $9A,$9B: Slider with dwFlags = $0300
+     --------
+     $9C,$9D,$9E: X axis, Y axis, Z axis with dwFlags = $0400
+     $9F, $A0, $A1: rX axis, rY axis, rZ axis with dwFlags = $0400
+     $A2, $A3: Slider with dwFlags = $0400
+  }
 const
+  c_dfDIJoystick2: TDIDataFormat = (
+    dwSize: Sizeof(c_dfDIJoystick2);
+    dwObjSize: Sizeof(TDIObjectDataFormat);
+    dwFlags: DIDF_ABSAXIS;
+    dwDataSize: SizeOf(TDIJoyState2);  // $110
+    dwNumObjs: High(_c_dfDIJoystick2_Objects)+1;
+    rgodf: @_c_dfDIJoystick2_Objects[Low(_c_dfDIJoystick2_Objects)]
+  );
+(****************************************************************************
+ *
+ *  IDirectInput
+ *
+ ****************************************************************************)
-  DIENUM_STOP     = 0;
+  DIENUM_STOP = 0;
   DIENUM_CONTINUE = 1;
 type
+  // as with the other enum functions: must rtn DIENUM_STOP or DIENUM_CONTINUE
-  TDIEnumDevicesCallbackA = function(const lpddi: TDIDeviceInstanceA;
+  TDIEnumDevicesCallbackA = function (var lpddi: TDIDeviceInstanceA;
-      pvRef: Pointer): HResult; stdcall;
+      pvRef: Pointer): Integer; stdcall;  // BOOL; stdcall;
-  LPDIENUMDEVICESCALLBACKA = TDIEnumDevicesCallbackA;
-  TDIEnumDevicesCallbackW = function(const lpddi: TDIDeviceInstanceW;
+  TDIEnumDevicesCallbackW = function (var lpddi: TDIDeviceInstanceW;
-      pvRef: Pointer): HResult; stdcall;
+      pvRef: Pointer): Integer; stdcall;  // BOOL; stdcall;
-  LPDIENUMDEVICESCALLBACKW = TDIEnumDevicesCallbackW;
+  TDIEnumDevicesCallback = function (var lpddi: TDIDeviceInstance;
-  TDIEnumDevicesCallback = TDIEnumDevicesCallbackA;
+      pvRef: Pointer): Integer; stdcall; // BOOL; stdcall;
-  LPDIENUMDEVICESCALLBACK = TDIEnumDevicesCallback;
+  TDIEnumDevicesProc = TDIEnumDevicesCallback;
 const
-  DIEDFL_ALLDEVICES      = $00000000;
+  DIEDFL_ALLDEVICES       = $00000000;
-  DIEDFL_ATTACHEDONLY    = $00000001;
+  DIEDFL_ATTACHEDONLY     = $00000001;
-  DIEDFL_FORCEFEEDBACK   = $00000100;
+  DIEDFL_FORCEFEEDBACK    = $00000100;
-  DIEDFL_INCLUDEALIASES  = $00010000;
-  DIEDFL_INCLUDEPHANTOMS = $00020000;
 type
-  IDirectInputW = interface(IUnknown)
+  IDirectInputW = interface (IUnknown)
     ['{89521361-AA8A-11CF-BFC7-444553540000}']
-    // IDirectInputW methods
+    (*** IDirectInputW methods ***)
-    function CreateDevice(const rguid: TGUID;
+    function CreateDevice(const rguid: TGUID; var lplpDirectInputDevice:
-        out lplpDirectInputDevice: IDirectInputDeviceW; pUnkOuter: IUnknown): HResult; stdcall;
+        IDirectInputDeviceW; pUnkOuter: IUnknown) : HResult;  stdcall;
     function EnumDevices(dwDevType: DWORD; lpCallback: TDIEnumDevicesCallbackW;
-        pvRef: Pointer; dwFlags: DWORD): HResult; stdcall;
+        pvRef: Pointer; dwFlags: DWORD) : HResult;  stdcall;
-    function GetDeviceStatus(var rguidInstance: TGUID): HResult; stdcall;
+    function GetDeviceStatus(const rguidInstance: TGUID) : HResult;  stdcall;
-    function RunControlPanel(hwndOwner: HWND; dwFlags: DWORD): HResult; stdcall;
+    function RunControlPanel(hwndOwner: HWND; dwFlags: DWORD) : HResult;  stdcall;
-    function Initialize(hinst: THandle; dwVersion: DWORD): HResult; stdcall;
+    function Initialize(hinst: THandle; dwVersion: DWORD) : HResult;  stdcall;
   end;
-  IDirectInputA = interface(IUnknown)
+  IDirectInputA = interface (IUnknown)
     ['{89521360-AA8A-11CF-BFC7-444553540000}']
-    // IDirectInputA methods
+    (*** IDirectInputA methods ***)
-    function CreateDevice(const rguid: TGUID;
+    function CreateDevice(const rguid: TGUID; var lplpDirectInputDevice:
-        out lplpDirectInputDevice: IDirectInputDeviceA; pUnkOuter: IUnknown): HResult; stdcall;
+        IDirectInputDeviceA; pUnkOuter: IUnknown) : HResult;  stdcall;
     function EnumDevices(dwDevType: DWORD; lpCallback: TDIEnumDevicesCallbackA;
-        pvRef: Pointer; dwFlags: DWORD): HResult; stdcall;
+        pvRef: Pointer; dwFlags: DWORD) : HResult;  stdcall;
-    function GetDeviceStatus(const rguidInstance: TGUID): HResult; stdcall;
+    function GetDeviceStatus(const rguidInstance: TGUID) : HResult;  stdcall;
-    function RunControlPanel(hwndOwner: HWND; dwFlags: DWORD): HResult; stdcall;
+    function RunControlPanel(hwndOwner: HWND; dwFlags: DWORD) : HResult;  stdcall;
-    function Initialize(hinst: THandle; dwVersion: DWORD): HResult; stdcall;
+    function Initialize(hinst: THandle; dwVersion: DWORD) : HResult;  stdcall;
   end;
+{$IFDEF UNICODE}
+  IDirectInput = IDirectInputW;
+{$ELSE}
   IDirectInput = IDirectInputA;
+{$ENDIF}
-  IDirectInput2W = interface(IDirectInputW)
+  IDirectInput2W = interface (IDirectInputW)
     ['{5944E663-AA8A-11CF-BFC7-444553540000}']
-    // IDirectInput2W methods
+    (*** IDirectInput2W methods ***)
-    function FindDevice(Arg1: PGUID; Arg2: PWideChar; Arg3: PGUID): HResult; stdcall;
+    function FindDevice(const rguidClass: TGUID; ptszName: PWideChar; out pguidInstance: TGUID): HResult;  stdcall;
   end;
-  IDirectInput2A = interface(IDirectInputA)
+  IDirectInput2A = interface (IDirectInputA)
     ['{5944E662-AA8A-11CF-BFC7-444553540000}']
-    // IDirectInput2A methods
+    (*** IDirectInput2A methods ***)
-    function FindDevice(Arg1: PGUID; Arg2: PAnsiChar; Arg3: PGUID): HResult; stdcall;
+    function FindDevice(const rguidClass: TGUID; ptszName: PAnsiChar; out pguidInstance: TGUID): HResult;  stdcall;
   end;
+{$IFDEF UNICODE}
+  IDirectInput2 = IDirectInput2W;
+{$ELSE}
   IDirectInput2 = IDirectInput2A;
+{$ENDIF}
+type
-  IDirectInput7W = interface(IDirectInput2W)
+  IDirectInput7W = interface (IDirectInput2W)
     ['{9A4CB685-236D-11D3-8E9D-00C04F6844AE}']
-    // IDirectInput7W methods
+    {*** IDirectInput7W methods ***}
-    function CreateDeviceEx(const rguid: TGUID; const riid: TGUID;
+    function CreateDeviceEx(const rguid, riid: TGUID; out lplpDirectInputDevice;
-      out pvOut; pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
   end;
-  IDirectInput7A = interface(IDirectInput2A)
+  IDirectInput7A = interface (IDirectInput2A)
     ['{9A4CB684-236D-11D3-8E9D-00C04F6844AE}']
-    // IDirectInput7A methods
+    {*** IDirectInput7A methods ***}
-    function CreateDeviceEx(const rguid: TGUID; const riid: TGUID;
+    function CreateDeviceEx(const rguid, riid: TGUID; out lplpDirectInputDevice;
-      out pvOut; pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
   end;
+{$IFDEF UNICODE}
+  IDirectInput7 = IDirectInput7W;
+{$ELSE}
   IDirectInput7 = IDirectInput7A;
+{$ENDIF}
-{ Return Codes }
+var
+  DirectInputCreateA : function (hinst: THandle; dwVersion: DWORD;
+      out ppDI: IDirectInputA;
+      punkOuter: IUnknown) : HResult; stdcall;
+  DirectInputCreateW : function (hinst: THandle; dwVersion: DWORD;
+      out ppDI: IDirectInputW;
+      punkOuter: IUnknown) : HResult; stdcall;
+  DirectInputCreate : function (hinst: THandle; dwVersion: DWORD;
+      out ppDI: IDirectInput;
+      punkOuter: IUnknown) : HResult; stdcall;
+  DirectInputCreateEx : function (
+      hinst: THandle;
+      dwVersion: DWORD;
+      const riidltf: TGUID;
+      out ppvOut;
+      punkOuter: IUnknown) : HResult; stdcall;
+(****************************************************************************
+ *
+ *      Interfaces
+ *
+ ****************************************************************************)
+type
+  IID_IDirectInputW = IDirectInputW;
+  IID_IDirectInputA = IDirectInputA;
+  IID_IDirectInput = IDirectInput;
+  IID_IDirectInput2W = IDirectInput2W;
+  IID_IDirectInput2A = IDirectInput2A;
+  IID_IDirectInput2 = IDirectInput2;
+  IID_IDirectInput7W = IDirectInput7W;
+  IID_IDirectInput7A = IDirectInput7A;
+  IID_IDirectInput7 = IDirectInput7;
+  IID_IDirectInputDeviceW = IDirectInputDeviceW;
+  IID_IDirectInputDeviceA = IDirectInputDeviceA;
+  IID_IDirectInputDevice = IDirectInputDevice;
+  IID_IDirectInputDevice2W = IDirectInputDevice2W;
+  IID_IDirectInputDevice2A = IDirectInputDevice2A;
+  IID_IDirectInputDevice2 = IDirectInputDevice2;
+  IID_IDirectInputEffect = IDirectInputEffect;
+  IID_IDirectInputDevice7W = IDirectInputDevice7W;
+  IID_IDirectInputDevice7A = IDirectInputDevice7A;
+  IID_IDirectInputDevice7 = IDirectInputDevice7;
+(****************************************************************************
+ *
+ *  Return Codes
+ *
+ ****************************************************************************)
+(*
+ *  The operation completed successfully.
+ *)
 const
+  DI_OK = S_OK;
+(*
-  DI_OK                         = HResult(S_OK);
+ *  The device exists but is not currently attached.
+ *)
-  DI_NOTATTACHED                = HResult(S_FALSE);
+  DI_NOTATTACHED = S_FALSE;
+(*
+ *  The device buffer overflowed.  Some input was lost.
+ *)
-  DI_BUFFEROVERFLOW             = HResult(S_FALSE);
+  DI_BUFFEROVERFLOW = S_FALSE;
+(*
+ *  The change in device properties had no effect.
+ *)
-  DI_PROPNOEFFECT               = HResult(S_FALSE);
+  DI_PROPNOEFFECT = S_FALSE;
+(*
+ *  The operation had no effect.
+ *)
-  DI_NOEFFECT                   = HResult(S_FALSE);
+  DI_NOEFFECT = S_FALSE;
+(*
+ *  The device is a polled device.  As a result, device buffering
+ *  will not collect any data and event notifications will not be
+ *  signalled until GetDeviceState is called.
+ *)
-  DI_POLLEDDEVICE               = HResult($00000002);
+  DI_POLLEDDEVICE = $00000002;
+(*
+ *  The parameters of the effect were successfully updated by
+ *  IDirectInputEffect::SetParameters, but the effect was not
+ *  downloaded because the device is not exclusively acquired
+ *  or because the DIEP_NODOWNLOAD flag was passed.
+ *)
-  DI_DOWNLOADSKIPPED            = HResult($00000003);
+  DI_DOWNLOADSKIPPED = $00000003;
+(*
+ *  The parameters of the effect were successfully updated by
+ *  IDirectInputEffect::SetParameters, but in order to change
+ *  the parameters, the effect needed to be restarted.
+ *)
-  DI_EFFECTRESTARTED            = HResult($00000004);
+  DI_EFFECTRESTARTED = $00000004;
+(*
+ *  The parameters of the effect were successfully updated by
+ *  IDirectInputEffect::SetParameters, but some of them were
+ *  beyond the capabilities of the device and were truncated.
+ *)
-  DI_TRUNCATED                  = HResult($00000008);
+  DI_TRUNCATED = $00000008;
+(*
+ *  Equal to DI_EFFECTRESTARTED | DI_TRUNCATED.
+ *)
-  DI_TRUNCATEDANDRESTARTED      = HResult($0000000C);
+  DI_TRUNCATEDANDRESTARTED = $0000000C;
+  SEVERITY_ERROR_FACILITY_WIN32 =
+      HResult(SEVERITY_ERROR shl 31) or HResult(FACILITY_WIN32 shl 16);
+(*
+ *  The application requires a newer version of DirectInput.
+ *)
-  DIERR_OLDDIRECTINPUTVERSION   = HResult($8007047E);
+  DIERR_OLDDIRECTINPUTVERSION = SEVERITY_ERROR_FACILITY_WIN32
+      or ERROR_OLD_WIN_VERSION;
+(*
+ *  The application was written for an unsupported prerelease version
+ *  of DirectInput.
+ *)
-  DIERR_BETADIRECTINPUTVERSION  = HResult($80070481);
+  DIERR_BETADIRECTINPUTVERSION = SEVERITY_ERROR_FACILITY_WIN32
+      or ERROR_RMODE_APP;
+(*
+ *  The object could not be created due to an incompatible driver version
+ *  or mismatched or incomplete driver components.
+ *)
-  DIERR_BADDRIVERVER            = HResult($80070077);
+  DIERR_BADDRIVERVER = SEVERITY_ERROR_FACILITY_WIN32
+      or ERROR_BAD_DRIVER_LEVEL;
+(*
+ * The device or device instance or effect is not registered with DirectInput.
+ *)
-  DIERR_DEVICENOTREG            = HResult(REGDB_E_CLASSNOTREG);
+  DIERR_DEVICENOTREG = REGDB_E_CLASSNOTREG;
+(*
+ * The requested object does not exist.
+ *)
-  DIERR_NOTFOUND                = HResult($80070002);
+  DIERR_NOTFOUND = SEVERITY_ERROR_FACILITY_WIN32
+      or ERROR_FILE_NOT_FOUND;
+(*
+ * The requested object does not exist.
+ *)
-  DIERR_OBJECTNOTFOUND          = HResult($80070002);
+  DIERR_OBJECTNOTFOUND = SEVERITY_ERROR_FACILITY_WIN32
+      or ERROR_FILE_NOT_FOUND;
+(*
+ * An invalid parameter was passed to the returning function,
+ * or the object was not in a state that admitted the function
+ * to be called.
+ *)
-  DIERR_INVALIDPARAM            = HResult(E_INVALIDARG);
+  DIERR_INVALIDPARAM = E_INVALIDARG;
+(*
+ * The specified interface is not supported by the object
+ *)
-  DIERR_NOINTERFACE             = HResult(E_NOINTERFACE);
+  DIERR_NOINTERFACE = E_NOINTERFACE;
+(*
+ * An undetermined error occured inside the DInput subsystem
+ *)
-  DIERR_GENERIC                 = HResult(E_FAIL);
+  DIERR_GENERIC = E_FAIL;
+(*
+ * The DInput subsystem couldn't allocate sufficient memory to complete the
+ * caller's request.
+ *)
-  DIERR_OUTOFMEMORY             = HResult(E_OUTOFMEMORY);
+  DIERR_OUTOFMEMORY = E_OUTOFMEMORY;
+(*
+ * The function called is not supported at this time
+ *)
-  DIERR_UNSUPPORTED             = HResult(E_NOTIMPL);
+  DIERR_UNSUPPORTED = E_NOTIMPL;
+(*
+ * This object has not been initialized
+ *)
-  DIERR_NOTINITIALIZED          = HResult($80070015);
+  DIERR_NOTINITIALIZED = SEVERITY_ERROR_FACILITY_WIN32
+      or ERROR_NOT_READY;
+(*
+ * This object is already initialized
+ *)
-  DIERR_ALREADYINITIALIZED      = HResult($800704DF);
+  DIERR_ALREADYINITIALIZED = SEVERITY_ERROR_FACILITY_WIN32
+      or ERROR_ALREADY_INITIALIZED;
+(*
+ * This object does not support aggregation
+ *)
-  DIERR_NOAGGREGATION           = HResult(CLASS_E_NOAGGREGATION);
+  DIERR_NOAGGREGATION = CLASS_E_NOAGGREGATION;
+(*
+ * Another app has a higher priority level, preventing this call from
+ * succeeding.
+ *)
-  DIERR_OTHERAPPHASPRIO         = HResult(E_ACCESSDENIED);
+  DIERR_OTHERAPPHASPRIO = E_ACCESSDENIED;
+(*
+ * Access to the device has been lost.  It must be re-acquired.
+ *)
-  DIERR_INPUTLOST               = HResult($8007001E);
+  DIERR_INPUTLOST = SEVERITY_ERROR_FACILITY_WIN32
+      or ERROR_READ_FAULT;
+(*
+ * The operation cannot be performed while the device is acquired.
+ *)
-  DIERR_ACQUIRED                = HResult($800700AA);
+  DIERR_ACQUIRED = SEVERITY_ERROR_FACILITY_WIN32
+      or ERROR_BUSY;
+(*
+ * The operation cannot be performed unless the device is acquired.
+ *)
-  DIERR_NOTACQUIRED             = HResult($8007000C);
+  DIERR_NOTACQUIRED = SEVERITY_ERROR_FACILITY_WIN32
+      or ERROR_INVALID_ACCESS;
+(*
+ * The specified property cannot be changed.
+ *)
-  DIERR_READONLY                = HResult(E_ACCESSDENIED);
+  DIERR_READONLY = E_ACCESSDENIED;
+(*
+ * The device already has an event notification associated with it.
+ *)
-  DIERR_HANDLEEXISTS            = HResult(E_ACCESSDENIED);
+  DIERR_HANDLEEXISTS = E_ACCESSDENIED;
+(*
+ * Data is not yet available.
+ *)
-  DIERR_PENDING                 = HResult($80070007);
+  E_PENDING = HResult($80070007);
+(*
+ * Unable to IDirectInputJoyConfig_Acquire because the user
+ * does not have sufficient privileges to change the joystick
+ * configuration.
+ *)
-  DIERR_INSUFFICIENTPRIVS       = HResult($80040200);
+  DIERR_INSUFFICIENTPRIVS = HResult($80040200);
-  DIERR_DEVICEFULL              = HResult($80040201);
-  DIERR_MOREDATA                = HResult($80040202);
-  DIERR_NOTDOWNLOADED           = HResult($80040203);
-  DIERR_HASEFFECTS              = HResult($80040204);
-  DIERR_NOTEXCLUSIVEACQUIRED    = HResult($80040205);
-  DIERR_INCOMPLETEEFFECT        = HResult($80040206);
-  DIERR_NOTBUFFERED             = HResult($80040207);
-  DIERR_EFFECTPLAYING           = HResult($80040208);
-  DIERR_UNPLUGGED               = HResult($80040209);
-  DIERR_REPORTFULL              = HResult($8004020A);
+(*
+ * The device is full.
+ *)
+  DIERR_DEVICEFULL = DIERR_INSUFFICIENTPRIVS + 1;
+(*
+ * Not all the requested information fit into the buffer.
+ *)
+  DIERR_MOREDATA = DIERR_INSUFFICIENTPRIVS + 2;
+(*
+ * The effect is not downloaded.
+ *)
+  DIERR_NOTDOWNLOADED = DIERR_INSUFFICIENTPRIVS + 3;
+(*
+ *  The device cannot be reinitialized because there are still effects
+ *  attached to it.
+ *)
+  DIERR_HASEFFECTS = DIERR_INSUFFICIENTPRIVS + 4;
+(*
+ *  The operation cannot be performed unless the device is acquired
+ *  in DISCL_EXCLUSIVE mode.
+ *)
+  DIERR_NOTEXCLUSIVEACQUIRED = DIERR_INSUFFICIENTPRIVS + 5;
+(*
+ *  The effect could not be downloaded because essential information
+ *  is missing.  For example, no axes have been associated with the
+ *  effect, or no type-specific information has been created.
+ *)
+  DIERR_INCOMPLETEEFFECT = DIERR_INSUFFICIENTPRIVS + 6;
+(*
+ *  Attempted to read buffered device data from a device that is
+ *  not buffered.
+ *)
+  DIERR_NOTBUFFERED = DIERR_INSUFFICIENTPRIVS + 7;
+(*
+ *  An attempt was made to modify parameters of an effect while it is
+ *  playing.  Not all hardware devices support altering the parameters
+ *  of an effect while it is playing.
+ *)
+  DIERR_EFFECTPLAYING = DIERR_INSUFFICIENTPRIVS + 8;
+(*
+ *  The operation could not be completed because the device is not
+ *  plugged in.
+ *)
+  DIERR_UNPLUGGED                = $80040209;
+(*
+ *  SendDeviceData failed because more information was requested
+ *  to be sent than can be sent to the device.  Some devices have
+ *  restrictions on how much data can be sent to them.  (For example,
+ *  there might be a limit on the number of buttons that can be
+ *  pressed at once.)
+ *)
+ DIERR_REPORTFULL                = $8004020A;
-{ Definitions for non-IDirectInput (VJoyD) features defined more recently
-  than the current sdk files }
+(****************************************************************************
+ *
+ *  Definitions for non-IDirectInput (VJoyD) features defined more recently
+ *  than the current sdk files
+ *
+ ****************************************************************************)
+(*
+ * Flag to indicate that the dwReserved2 field of the JOYINFOEX structure
+ * contains mini-driver specific data to be passed by VJoyD to the mini-
+ * driver instead of doing a poll.
+ *)
-  JOY_PASSDRIVERDATA         = $10000000;
+  JOY_PASSDRIVERDATA          = $10000000;
+(*
+ * Informs the joystick driver that the configuration has been changed
+ * and should be reloaded from the registery.
+ * dwFlags is reserved and should be set to zero
+ *)
+function joyConfigChanged(dwFlags: DWORD) : MMRESULT; stdcall;
+const
+(*
+ * Hardware Setting indicating that the device is a headtracker
+ *)
-  JOY_HWS_ISHEADTRACKER      = $02000000;
+  JOY_HWS_ISHEADTRACKER       = $02000000;
+(*
+ * Hardware Setting indicating that the VxD is used to replace
+ * the standard analog polling
+ *)
-  JOY_HWS_ISGAMEPORTDRIVER   = $04000000;
+  JOY_HWS_ISGAMEPORTDRIVER    = $04000000;
+(*
+ * Hardware Setting indicating that the driver needs a standard
+ * gameport in order to communicate with the device.
+ *)
-  JOY_HWS_ISANALOGPORTDRIVER = $08000000;
+  JOY_HWS_ISANALOGPORTDRIVER  = $08000000;
+(*
+ * Hardware Setting indicating that VJoyD should not load this
+ * driver, it will be loaded externally and will register with
+ * VJoyD of it's own accord.
+ *)
-  JOY_HWS_AUTOLOAD           = $10000000;
+  JOY_HWS_AUTOLOAD            = $10000000;
+(*
+ * Hardware Setting indicating that the driver acquires any
+ * resources needed without needing a devnode through VJoyD.
+ *)
-  JOY_HWS_NODEVNODE          = $20000000;
+  JOY_HWS_NODEVNODE           = $20000000;
+(*
+ * Hardware Setting indicating that the device is a gameport bus
+ *)
+  JOY_HWS_ISGAMEPORTBUS       = $80000000;
+  JOY_HWS_GAMEPORTBUSBUSY     = $00000001;
+//from older Verion:
+(*
+ * Hardware Setting indicating that the VxD can be used as
+ * a port 201h emulator.
+ *)
-  JOY_HWS_ISGAMEPORTEMULATOR = $40000000;
+  JOY_HWS_ISGAMEPORTEMULATOR  = $40000000;
+(*
+ * Usage Setting indicating that the settings are volatile and
+ * should be removed if still present on a reboot.
+ *)
-  JOY_US_VOLATILE            = $00000008;
+  JOY_US_VOLATILE             = $00000008;
+(****************************************************************************
+ *
-{ Definitions for non-IDirectInput (VJoyD) features defined more recently
+ *  Definitions for non-IDirectInput (VJoyD) features defined more recently
-  than the current ddk files }
+ *  than the current ddk files
+ *
+ ****************************************************************************)
+(*
+ * Poll type in which the do_other field of the JOYOEMPOLLDATA
+ * structure contains mini-driver specific data passed from an app.
+ *)
-  JOY_OEMPOLL_PASSDRIVERDATA = 7;
+  JOY_OEMPOLL_PASSDRIVERDATA  = 7;
-function DirectInputCreate(hinst: THandle; dwVersion: DWORD;
+//DirectPlay file
-  out ppDI: IDirectInputA; punkOuter: IUnknown): HResult; stdcall;
-function DirectInputCreateEx(hinst: THandle; dwVersion: DWORD;
-  const riidltf: TGUID; out ppDI: IDirectInputA; punkOuter: IUnknown): HResult; stdcall;
 (*==========================================================================;
+ *
  *  Copyright (C) Microsoft Corporation.  All Rights Reserved.
+ *
+ *  File:       dplay.h dplobby.h
+ *  Content:    DirectPlay include files
+ *
+ *  DirectX 7 Delphi adaptation by Erik Unger
+ *
+ *  Modified: 4-Jun-2000
+ *
+ *  Download: http://www.delphi-jedi.org/DelphiGraphics/
+ *  E-Mail: DelphiDirectX@next-reality.com
+ *
+ ***************************************************************************)
+var
+  DPlayDLL : HMODULE = 0;
+(*==========================================================================;
+ *
+ *  Copyright (C) 1994-1997 Microsoft Corporation.  All Rights Reserved.
+ *
  *  File:       dplay.h
  *  Content:    DirectPlay include file
+ *
  ***************************************************************************)
+function DPErrorString(Value: HResult) : string;
 const
+// {D1EB6D20-8923-11d0-9D97-00A0C90A43CB}
-{ GUIDS used by DirectPlay objects }
+  CLSID_DirectPlay: TGUID =
+      (D1:$d1eb6d20;D2:$8923;D3:$11d0;D4:($9d,$97,$00,$a0,$c9,$a,$43,$cb));
+(*
+ * GUIDS used by Service Providers shipped with DirectPlay
-  CLSID_DirectPlay: TGUID = '{D1EB6D20-8923-11D0-9D97-00A0C90A43CB}';
+ * Use these to identify Service Provider returned by EnumConnections
+ *)
-  IID_IDirectPlay: TGUID = '{5454E9A0-DB65-11CE-921C-00AA006C4972}';
+// GUID for IPX service provider
-  IID_IDirectPlay2: TGUID = '{2B74F7C0-9154-11CF-A9CD-00AA006886E3}';
+// {685BC400-9D2C-11cf-A9CD-00AA006886E3}
+  DPSPGUID_IPX: TGUID =
-  IID_IDirectPlay2A: TGUID = '{9D460580-A822-11CF-960C-0080C7534E82}';
+      (D1:$685bc400;D2:$9d2c;D3:$11cf;D4:($a9,$cd,$00,$aa,$00,$68,$86,$e3));
-  IID_IDirectPlay3: TGUID = '{133EFE40-32DC-11D0-9CFB-00A0C90A43CB}';
+// GUID for TCP/IP service provider
-  IID_IDirectPlay3A: TGUID = '{133EFE41-32DC-11D0-9CFB-00A0C90A43CB}';
+// 36E95EE0-8577-11cf-960C-0080C7534E82
-  IID_IDirectPlay4: TGUID = '{0AB1C530-4745-11D1-A7A1-0000F803ABFC}';
+  DPSPGUID_TCPIP: TGUID =
-  IID_IDirectPlay4A: TGUID = '{0AB1C531-4745-11D1-A7A1-0000F803ABFC}';
+      (D1:$36E95EE0;D2:$8577;D3:$11cf;D4:($96,$0c,$00,$80,$c7,$53,$4e,$82));
-{ GUIDS used by Service Providers shipped with DirectPlay
+// GUID for Serial service provider
+// {0F1D6860-88D9-11cf-9C4E-00A0C905425E}
+  DPSPGUID_SERIAL: TGUID =
-  Use these to identify Service Provider returned by EnumConnections }
+      (D1:$f1d6860;D2:$88d9;D3:$11cf;D4:($9c,$4e,$00,$a0,$c9,$05,$42,$5e));
-  DPSPGUID_IPX: TGUID = '{685BC400-9D2C-11CF-A9CD-00AA006886E3}';
+// GUID for Modem service provider
-  DPSPGUID_TCPIP: TGUID = '{36E95EE0-8577-11CF-960C-0080C7534E82}';
+// {44EAA760-CB68-11cf-9C4E-00A0C905425E}
-  DPSPGUID_SERIAL: TGUID = '{0F1D6860-88D9-11CF-9C4E-00A0C905425E}';
+  DPSPGUID_MODEM: TGUID =
-  DPSPGUID_MODEM: TGUID = '{44EAA760-CB68-11CF-9C4E-00A0C905425E}';
+      (D1:$44eaa760;D2:$cb68;D3:$11cf;D4:($9c,$4e,$00,$a0,$c9,$05,$42,$5e));
+(****************************************************************************
+ *
-{ DirectPlay Structures }
+ * DirectPlay Structures
+ *
+ * Various structures used to invoke DirectPlay.
+ *
+ ****************************************************************************)
 type
+{$IFDEF UNICODE}
+  PCharAW = PWideChar;
+{$ELSE}
+  PCharAW = PAnsiChar;
+{$ENDIF}
+(*
-  PDPID = ^TDPID;
+ * TDPID
+ * DirectPlay player and group ID
+ *)
   TDPID = DWORD;
+  PDPID = ^TDPID;
-  DPID = TDPID;
-  LPDPID = PDPID;
 const
+(*
-  DPID_SYSMSG        = 0;          // DPID that system messages come from
+ * DPID that system messages come from
+ *)
+  DPID_SYSMSG = 0;
+(*
-  DPID_ALLPLAYERS    = 0;          // DPID representing all players in the session
+ * DPID representing all players in the session
+ *)
+  DPID_ALLPLAYERS = 0;
+(*
-  DPID_SERVERPLAYER  = 1;          // DPID representing the server player
+ * DPID representing the server player
+ *)
+  DPID_SERVERPLAYER = 1;
+(*
-  DPID_RESERVEDRANGE = 100;        // DPID representing the maxiumum ID in the range of DPID's reserved for
+ * DPID representing the maximum ID in the range of DPID's reserved for
-                                   // use by DirectPlay.
+ * use by DirectPlay.
+ *)
+  DPID_RESERVEDRANGE = 100;
+(*
-  DPID_UNKNOWN       = $FFFFFFFF;  // The player ID is unknown (used with e.g. DPSESSION_NOMESSAGEID)
+ * The player ID is unknown (used with e.g. DPSESSION_NOMESSAGEID)
+ *)
+  DPID_UNKNOWN = $FFFFFFFF;
 type
+(*
+ * DPCAPS
+ * Used to obtain the capabilities of a DirectPlay object
+ *)
   PDPCaps = ^TDPCaps;
-  TDPCaps = record
+  TDPCaps = packed record
     dwSize: DWORD;              // Size of structure, in bytes
     dwFlags: DWORD;             // DPCAPS_xxx flags
     dwMaxBufferSize: DWORD;     // Maximum message size, in bytes,  for this service provider
     dwMaxQueueSize: DWORD;      // Obsolete.
     dwMaxPlayers: DWORD;        // Maximum players/groups (local + remote)
     dwHundredBaud: DWORD;       // Bandwidth in 100 bits per second units;
                                 // i.e. 24 is 2400, 96 is 9600, etc.
     dwLatency: DWORD;           // Estimated latency; 0 = unknown
     dwMaxLocalPlayers: DWORD;   // Maximum # of locally created players allowed
     dwHeaderLength: DWORD;      // Maximum header length, in bytes, on messages
                                 // added by the service provider
     dwTimeout: DWORD;           // Service provider's suggested timeout value
                                 // This is how long DirectPlay will wait for
                                 // responses to system messages
   end;
-  DPCAPS = TDPCaps;
-  LPDPCAPS = PDPCaps;
 const
+(*
+ * This DirectPlay object is the session host.  If the host exits the
+ * session, another application will become the host and receive a
+ * DPSYS_HOST system message.
+ *)
-  DPCAPS_ISHOST                  = $00000002;
+  DPCAPS_ISHOST = $00000002;
+(*
+ * The service provider bound to this DirectPlay object can optimize
+ * group messaging.
+ *)
-  DPCAPS_GROUPOPTIMIZED          = $00000008;
+  DPCAPS_GROUPOPTIMIZED = $00000008;
+(*
+ * The service provider bound to this DirectPlay object can optimize
+ * keep alives (see DPSESSION_KEEPALIVE)
+ *)
-  DPCAPS_KEEPALIVEOPTIMIZED      = $00000010;
+  DPCAPS_KEEPALIVEOPTIMIZED = $00000010;
+(*
+ * The service provider bound to this DirectPlay object can optimize
+ * guaranteed message delivery.
+ *)
-  DPCAPS_GUARANTEEDOPTIMIZED     = $00000020;
+  DPCAPS_GUARANTEEDOPTIMIZED = $00000020;
+(*
+ * This DirectPlay object supports guaranteed message delivery.
+ *)
-  DPCAPS_GUARANTEEDSUPPORTED     = $00000040;
+  DPCAPS_GUARANTEEDSUPPORTED = $00000040;
+(*
+ * This DirectPlay object supports digital signing of messages.
+ *)
-  DPCAPS_SIGNINGSUPPORTED        = $00000080;
+  DPCAPS_SIGNINGSUPPORTED = $00000080;
+(*
+ * This DirectPlay object supports encryption of messages.
+ *)
-  DPCAPS_ENCRYPTIONSUPPORTED     = $00000100;
+  DPCAPS_ENCRYPTIONSUPPORTED = $00000100;
+(*
+ * This DirectPlay player was created on this machine
+ *)
-  DPPLAYERCAPS_LOCAL             = $00000800;
+  DPPLAYERCAPS_LOCAL = $00000800;
+(*
+ * Current Open settings supports all forms of Cancel
+ *)
-  DPCAPS_ASYNCCANCELSUPPORTED    = $00001000;
+  DPCAPS_ASYNCCANCELSUPPORTED = $00001000;
+(*
+ * Current Open settings supports CancelAll, but not Cancel
+ *)
   DPCAPS_ASYNCCANCELALLSUPPORTED = $00002000;
+(*
+ * Current Open settings supports Send Timeouts for sends
+ *)
-  DPCAPS_SENDTIMEOUTSUPPORTED    = $00004000;
+  DPCAPS_SENDTIMEOUTSUPPORTED = $00004000;
+(*
+ * Current Open settings supports send priority
+ *)
-  DPCAPS_SENDPRIORITYSUPPORTED   = $00008000;
+  DPCAPS_SENDPRIORITYSUPPORTED = $00008000;
+(*
+ * Current Open settings supports DPSEND_ASYNC flag
+ *)
-  DPCAPS_ASYNCSUPPORTED          = $00010000;
+  DPCAPS_ASYNCSUPPORTED = $00010000;
 type
+(*
+ * TDPSessionDesc2
+ * Used to describe the properties of a DirectPlay
+ * session instance
+ *)
   PDPSessionDesc2 = ^TDPSessionDesc2;
-  TDPSessionDesc2 = record
+  TDPSessionDesc2 = packed record
-    dwSize: DWORD;               // Size of structure
+    dwSize: DWORD;             // Size of structure
-    dwFlags: DWORD;              // DPSESSION_xxx flags
+    dwFlags: DWORD;            // DPSESSION_xxx flags
-    guidInstance: TGUID;         // ID for the session instance
+    guidInstance: TGUID;       // ID for the session instance
-    guidApplication: TGUID;      // GUID of the DirectPlay application.
+    guidApplication: TGUID;    // GUID of the DirectPlay application.
-                                 // GUID_NULL for all applications.
+                               // GUID_NULL for all applications.
-    dwMaxPlayers: DWORD;         // Maximum # players allowed in session
+    dwMaxPlayers: DWORD;       // Maximum # players allowed in session
-    dwCurrentPlayers: DWORD;     // Current # players in session (read only)
+    dwCurrentPlayers: DWORD;   // Current # players in session (read only)
-    case Integer of
+    case integer of
 : (
-        lpszSessionName: LPWSTR; // Name of the session - Unicode
+    lpszSessionName: PCharAW;  // Name of the session
-        lpszPassword: LPWSTR;    // Password of the session (optional) - Unicode
+    lpszPassword: PCharAW;     // Password of the session (optional)
-        dwReserved1: DWORD;      // Reserved for future MS use.
+    dwReserved1: DWORD;        // Reserved for future MS use.
-        dwReserved2: DWORD;
+    dwReserved2: DWORD;
-        dwUser1: DWORD;          // For use by the application
+    dwUser1: DWORD;            // For use by the application
-        dwUser2: DWORD;
+    dwUser2: DWORD;
-        dwUser3: DWORD;
+    dwUser3: DWORD;
-        dwUser4: DWORD;
+    dwUser4: DWORD;
-        );
+      );
 : (
-        lpszSessionNameA: LPSTR; // Name of the session - ANSI
+    lpszSessionNameA: PAnsiChar;   // Name of the session
-        lpszPasswordA: LPSTR;    // Password of the session (optional) - ANSI
+    lpszPasswordA: PAnsiChar       // Password of the session (optional)
+      );
+: (
+    lpszSessionNameW: PWideChar;
+    lpszPasswordW: PWideChar
-        );
+      );
   end;
-  DPSESSIONDESC2 = TDPSessionDesc2;
-  LPDPSESSIONDESC2 = PDPSessionDesc2;
 const
+(*
+ * Applications cannot create new players in this session.
+ *)
   DPSESSION_NEWPLAYERSDISABLED = $00000001;
+(*
+ * If the DirectPlay object that created the session, the host,
+ * quits, then the host will attempt to migrate to another
+ * DirectPlay object so that new players can continue to be created
+ * and new applications can join the session.
+ *)
-  DPSESSION_MIGRATEHOST        = $00000004;
+  DPSESSION_MIGRATEHOST = $00000004;
+(*
+ * This flag tells DirectPlay not to set the idPlayerTo and idPlayerFrom
+ * fields in player messages.  This cuts two DWORD's off the message
+ * overhead.
+ *)
-  DPSESSION_NOMESSAGEID        = $00000008;
+  DPSESSION_NOMESSAGEID = $00000008;
+(*
+ * This flag tells DirectPlay to not allow any new applications to
+ * join the session.  Applications already in the session can still
+ * create new players.
+ *)
-  DPSESSION_JOINDISABLED       = $00000020;
+  DPSESSION_JOINDISABLED = $00000020;
+(*
+ * This flag tells DirectPlay to detect when remote players
+ * exit abnormally (e.g. their computer or modem gets unplugged)
+ *)
-  DPSESSION_KEEPALIVE          = $00000040;
+  DPSESSION_KEEPALIVE = $00000040;
+(*
+ * This flag tells DirectPlay not to send a message to all players
+ * when a players remote data changes
+ *)
-  DPSESSION_NODATAMESSAGES     = $00000080;
+  DPSESSION_NODATAMESSAGES = $00000080;
+(*
+ * This flag indicates that the session belongs to a secure server
+ * and needs user authentication
+ *)
-  DPSESSION_SECURESERVER       = $00000100;
+  DPSESSION_SECURESERVER = $00000100;
+(*
+ * This flag indicates that the session is private and requirs a password
+ * for EnumSessions as well as Open.
+ *)
-  DPSESSION_PRIVATE            = $00000200;
+  DPSESSION_PRIVATE = $00000200;
+(*
+ * This flag indicates that the session requires a password for joining.
+ *)
-  DPSESSION_PASSWORDREQUIRED   = $00000400;
+  DPSESSION_PASSWORDREQUIRED = $00000400;
+(*
+ * This flag tells DirectPlay to route all messages through the server
+ *)
-  DPSESSION_MULTICASTSERVER    = $00000800;
+  DPSESSION_MULTICASTSERVER = $00000800;
+(*
+ * This flag tells DirectPlay to only download information about the
+ * DPPLAYER_SERVERPLAYER.
+ *)
-  DPSESSION_CLIENTSERVER       = $00001000;
+  DPSESSION_CLIENTSERVER = $00001000;
+(*
+ * This flag tells DirectPlay to use the protocol built into dplay
+ * for reliability and statistics all the time.  When this bit is
+ * set, only other sessions with this bit set can join or be joined.
+ *)
   DPSESSION_DIRECTPLAYPROTOCOL = $00002000;
+(*
+ * This flag tells DirectPlay that preserving order of received
+ * packets is not important, when using reliable delivery.  This
+ * will allow messages to be indicated out of order if preceding
+ * messages have not yet arrived.  Otherwise DPLAY will wait for
+ * earlier messages before delivering later reliable messages.
+ *)
-  DPSESSION_NOPRESERVEORDER    = $00004000;
+  DPSESSION_NOPRESERVEORDER = $00004000;
+(*
+ * This flag tells DirectPlay to optimize communication for latency
+ *)
-  DPSESSION_OPTIMIZELATENCY    = $00008000;
+  DPSESSION_OPTIMIZELATENCY = $00008000;
 type
+(*
+ * TDPName
+ * Used to hold the name of a DirectPlay entity
+ * like a player or a group
+ *)
   PDPName = ^TDPName;
-  TDPName = record
+  TDPName = packed record
     dwSize: DWORD;    // Size of structure
     dwFlags: DWORD;   // Not used. Must be zero.
     case Integer of
 : (
-        lpszShortName: LPWSTR; // The short or friendly name - Unicode
+    lpszShortName : PCharAW; // The short or friendly name
-        lpszLongName: LPWSTR   // The long or formal name - Unicode
+    lpszLongName : PCharAW;  // The long or formal name
-        );
+      );
 : (
-        lpszShortNameA: LPSTR; // The short or friendly name - ANSI
+    lpszShortNameA : PAnsiChar;
-        lpszLongNameA: LPSTR   // The long or formal name - ANSI
+    lpszLongNameA : PAnsiChar;
+      );
+: (
+    lpszShortNameW : PWideChar;
+    lpszLongNameW : PWideChar;
-        );
+      );
   end;
-  DPNAME = TDPName;
-  LPDPNAME = PDPName;
 (*
  * TDPCredentials
  * Used to hold the user name and password of a DirectPlay user
  *)
   PDPCredentials = ^TDPCredentials;
-  TDPCredentials = record
+  TDPCredentials = packed record
     dwSize: DWORD;    // Size of structure
     dwFlags: DWORD;   // Not used. Must be zero.
     case Integer of
 : (
-        lpszUsername: LPWSTR;   // User name of the account - Unicode
+    lpszUsername: PCharAW;   // User name of the account
-        lpszPassword: LPWSTR;   // Password of the account - Unicode
+    lpszPassword: PCharAW;   // Password of the account
-        lpszDomain: LPWSTR;     // Domain name of the account - Unicode
+    lpszDomain:   PCharAW;   // Domain name of the account
-        );
+      );
 : (
-        lpszUsernameA: LPSTR;   // User name of the account - ANSI
+    lpszUsernameA: PAnsiChar;   // User name of the account
-        lpszPasswordA: LPSTR;   // Password of the account - ANSI
+    lpszPasswordA: PAnsiChar;   // Password of the account
-        lpszDomainA: LPSTR      // Domain name of the account - ANSI
+    lpszDomainA:   PAnsiChar;   // Domain name of the account
+      );
+: (
+    lpszUsernameW: PWideChar;   // User name of the account
+    lpszPasswordW: PWideChar;   // Password of the account
+    lpszDomainW:   PWideChar;   // Domain name of the account
-        );
+      );
   end;
-  DPCREDENTIALS = TDPCredentials;
-  LPDPCREDENTIALS = PDPCredentials;
 (*
- * DPSECURITYDESC
+ * TDPSecurityDesc
  * Used to describe the security properties of a DirectPlay
  * session instance
  *)
   PDPSecurityDesc = ^TDPSecurityDesc;
-  TDPSecurityDesc = record
+  TDPSecurityDesc = packed record
     dwSize: DWORD;                  // Size of structure
     dwFlags: DWORD;                 // Not used. Must be zero.
     case Integer of
 : (
-        lpszSSPIProvider: LPWSTR;     // SSPI provider name - Unicode
+    lpszSSPIProvider : PCharAW;  // SSPI provider name
-        lpszCAPIProvider: LPWSTR;     // CAPI provider name - Unicode
+    lpszCAPIProvider : PCharAW;  // CAPI provider name
-        dwCAPIProviderType: DWORD;    // Crypto Service Provider type
+    dwCAPIProviderType: DWORD;      // Crypto Service Provider type
-        dwEncryptionAlgorithm: DWORD; // Encryption Algorithm type
+    dwEncryptionAlgorithm: DWORD;   // Encryption Algorithm type
-        );
+      );
 : (
-        lpszSSPIProviderA: LPSTR;     // SSPI provider name - ANSI
+    lpszSSPIProviderA : PAnsiChar;  // SSPI provider name
-        lpszCAPIProviderA: LPSTR;     // CAPI provider name - ANSI
+    lpszCAPIProviderA : PAnsiChar;  // CAPI provider name
+      );
+: (
+    lpszSSPIProviderW : PWideChar;  // SSPI provider name
+    lpszCAPIProviderW : PWideChar;  // CAPI provider name
-        );
+      );
   end;
-  DPSECURITYDESC = TDPSecurityDesc;
-  LPDPSECURITYDESC = PDPSecurityDesc;
 (*
- * TDPAccountDesc
+ * DPACCOUNTDESC
  * Used to describe a user membership account
  *)
   PDPAccountDesc = ^TDPAccountDesc;
-  TDPAccountDesc = record
+  TDPAccountDesc = packed record
     dwSize: DWORD;    // Size of structure
     dwFlags: DWORD;   // Not used. Must be zero.
     case Integer of
-: (
-        lpszAccountID: LPWSTR;  // Account identifier - Unicode
+: (lpszAccountID : PCharAW);  // Account identifier
-        );
-: (
-        lpszAccountIDA: LPSTR;  // Account identifier - ANSI
+: (lpszAccountIDA : PAnsiChar);
-        );
+: (lpszAccountIDW : PWideChar);
   end;
-  DPACCOUNTDESC = TDPAccountDesc;
-  LPDPACCOUNTDESC = PDPAccountDesc;
 (*
  * TDPLConnection
  * Used to hold all in the informaion needed to connect
  * an application to a session or create a session
  *)
   PDPLConnection = ^TDPLConnection;
-  TDPLConnection = record
+  TDPLConnection = packed record
     dwSize: DWORD;                     // Size of this structure
     dwFlags: DWORD;                    // Flags specific to this structure
     lpSessionDesc: PDPSessionDesc2;    // Pointer to session desc to use on connect
     lpPlayerName: PDPName;             // Pointer to Player name structure
     guidSP: TGUID;                     // GUID of the DPlay SP to use
     lpAddress: Pointer;                // Address for service provider
     dwAddressSize: DWORD;              // Size of address data
   end;
-  DPLCONNECTION = TDPLConnection;
-  LPDPLCONNECTION = PDPLConnection;
 (*
  * TDPChat
  * Used to hold the a DirectPlay chat message
  *)
   PDPChat = ^TDPChat;
-  TDPChat = record
+  TDPChat = packed record
     dwSize: DWORD;
     dwFlags: DWORD;
     case Integer of
-: (
-        lpszMessage: LPWSTR;  // Message string - Unicode
+: (lpszMessage : PCharAW);  // Message string
-        );
-: (
+: (lpszMessageA : PAnsiChar);
-        lpszMessageA: LPSTR;  // Message string - ANSI
+: (lpszMessageW : PWideChar);
-        );
   end;
-  DPCHAT = TDPChat;
-  LPDPCHAT = PDPChat;
 (*
- * SGBUFFER
+ * TSGBuffer
  * Scatter Gather Buffer used for SendEx
  *)
   PSGBuffer = ^TSGBuffer;
-  TSGBuffer = record
+  TSGBuffer = packed record
-    len: UINT;      // length of buffer data
+    len: UINT;
-    pData: PUChar;  // pointer to buffer data
+    pData: PUCHAR;
   end;
-  SGBUFFER = TSGBuffer;
-  LPSGBUFFER = PSGBuffer;
+(****************************************************************************
+ *
-{ Prototypes for DirectPlay callback functions }
+ * Prototypes for DirectPlay callback functions
+ *
-{ Callback for IDirectPlay2::EnumSessions }
+ ****************************************************************************)
+(*
+ * Callback for IDirectPlay2::EnumSessions
+ *)
-  TDPEnumSessionsCallback2 = function(const lpThisSD: TDPSessionDesc2;
+  TDPEnumSessionsCallback2 = function(lpThisSD: PDPSessionDesc2;
-      var lpdwTimeOut: DWORD; dwFlags: DWORD; lpContext: Pointer): BOOL; stdcall;
+      var lpdwTimeOut: DWORD; dwFlags: DWORD; lpContext: Pointer) : BOOL; stdcall;
-  LPDPENUMSESSIONSCALLBACK2 = TDPEnumSessionsCallback2;
 const
+(*
+ * This flag is set on the EnumSessions callback dwFlags parameter when
+ * the time out has occurred. There will be no session data for this
+ * callback. If *lpdwTimeOut is set to a non-zero value and the
+ * EnumSessionsCallback function returns TRUE then EnumSessions will
+ * continue waiting until the next timeout occurs. Timeouts are in
+ * milliseconds.
+ *)
   DPESC_TIMEDOUT = $00000001;
 type
+(*
+ * Callback for IDirectPlay2.EnumPlayers
+ *              IDirectPlay2.EnumGroups
+ *              IDirectPlay2.EnumGroupPlayers
+ *)
-  TDPEnumPlayersCallback2 = function(dpId: TDPID; dwPlayerType: DWORD;
+  TDPEnumPlayersCallback2 = function(DPID: TDPID; dwPlayerType: DWORD;
-      const lpName: TDPName; dwFlags: DWORD; lpContext: Pointer): BOOL; stdcall;
+      const lpName: TDPName; dwFlags: DWORD; lpContext: Pointer) : BOOL; stdcall;
-  LPDPENUMPLAYERSCALLBACK2 = TDPEnumPlayersCallback2;
+(*
+ * ANSI callback for DirectPlayEnumerate
+ * This callback prototype will be used if compiling
+ * for ANSI strings
+ *)
-  TDPEnumDPCallback = function(const lpguidSP: TGUID; lpSPName: LPWSTR;
+  TDPEnumDPCallbackA = function(const lpguidSP: TGUID; lpSPName: PAnsiChar;
-      dwMajorVersion: DWORD; dwMinorVersion: DWORD; lpContext: Pointer): BOOL; stdcall;
+      dwMajorVersion: DWORD; dwMinorVersion: DWORD; lpContext: Pointer) : BOOL; stdcall;
-  LPDPENUMDPCALLBACK = TDPEnumDPCallback;
+(*
+ * Unicode callback for DirectPlayEnumerate
+ * This callback prototype will be used if compiling
+ * for Unicode strings
+ *)
-  TDPEnumDPCallbackA = function(const lpguidSP: TGUID; lpSPName: LPSTR;
+  TDPEnumDPCallbackW = function(const lpguidSP: TGUID; lpSPName: PWideChar;
-      dwMajorVersion: DWORD; dwMinorVersion: DWORD; lpContext: Pointer): BOOL; stdcall;
+      dwMajorVersion: DWORD; dwMinorVersion: DWORD; lpContext: Pointer) : BOOL; stdcall;
-  LPDPENUMDPCALLBACKA = TDPEnumDPCallbackA;
+(*
+ * Callback for DirectPlayEnumerate
+ *)
+{$IFDEF UNICODE}
+  TDPEnumDPCallback = TDPEnumDPCallbackW;
+{$ELSE}
+  TDPEnumDPCallback = TDPEnumDPCallbackA;
+{$ENDIF}
+(*
+ * Callback for IDirectPlay3(A/W).EnumConnections
+ *)
   TDPEnumConnectionsCallback = function(const lpguidSP: TGUID;
       lpConnection: Pointer; dwConnectionSize: DWORD; const lpName: TDPName;
-      dwFlags: DWORD; lpContext: Pointer): BOOL; stdcall;
+      dwFlags: DWORD; lpContext: Pointer) : BOOL; stdcall;
-  LPDPENUMCONNECTIONSCALLBACK = TDPEnumConnectionsCallback;
+(*
-{ API's }
+ * API's
+ *)
+var
-function DirectPlayEnumerateA(lpEnumDPCallback: TDPEnumDPCallbackA;
+  DirectPlayEnumerate : function (lpEnumDPCallback: TDPEnumDPCallback;
-    lpContext: Pointer): HResult; stdcall;
+      lpContext: Pointer) : HResult; stdcall;
-function DirectPlayEnumerateW(lpEnumDPCallback: TDPEnumDPCallback;
+  DirectPlayEnumerateA : function (lpEnumDPCallback: TDPEnumDPCallbackA;
-    lpContext: Pointer): HResult; stdcall;
+      lpContext: Pointer) : HResult; stdcall;
-function DirectPlayEnumerate(lpEnumDPCallback: TDPEnumDPCallbackA;
+  DirectPlayEnumerateW : function (lpEnumDPCallback: TDPEnumDPCallbackW;
-    lpContext: Pointer): HResult; stdcall;
+      lpContext: Pointer) : HResult; stdcall;
+(****************************************************************************
+ *
-{ IDirectPlay2 (and IDirectPlay2A) Interface }
+ * IDirectPlay2 (and IDirectPlay2A) Interface
+ *
+ ****************************************************************************)
 type
-  IDirectPlay2 = interface(IUnknown)
+  IDirectPlay2AW = interface (IUnknown)
-    ['{2B74F7C0-9154-11CF-A9CD-00AA006886E3}']
-    // IDirectPlay2 methods
+    (*** IDirectPlay2 methods ***)
-    function AddPlayerToGroup(idGroup: TDPID; idPlayer: TDPID): HResult; stdcall;
+    function AddPlayerToGroup(idGroup: TDPID; idPlayer: TDPID) : HResult; stdcall;
     function Close: HResult; stdcall;
-    function CreateGroup(var lpidGroup: TDPID; const lpGroupName: TDPName;
+    function CreateGroup(out lpidGroup: TDPID; lpGroupName: PDPName;
-        const lpData; dwDataSize: DWORD; dwFlags: DWORD): HResult; stdcall;
+        lpData: Pointer; dwDataSize: DWORD; dwFlags: DWORD) : HResult; stdcall;
-    function CreatePlayer(var lpidPlayer: TDPID; const pPlayerName: TDPName;
+    function CreatePlayer(out lpidPlayer: TDPID; pPlayerName: PDPName;
-        hEvent: THandle; const lpData; dwDataSize: DWORD; dwFliags: DWORD): HResult; stdcall;
+        hEvent: THandle; lpData: Pointer; dwDataSize: DWORD; dwFlags: DWORD) : HResult; stdcall;
-    function DeletePlayerFromGroup(idGroup: TDPID; idPlayer: TDPID): HResult; stdcall;
+    function DeletePlayerFromGroup(idGroup: TDPID; idPlayer: TDPID) : HResult; stdcall;
-    function DestroyGroup(idGroup: TDPID): HResult; stdcall;
+    function DestroyGroup(idGroup: TDPID) : HResult; stdcall;
-    function DestroyPlayer(idPlayer: TDPID): HResult; stdcall;
+    function DestroyPlayer(idPlayer: TDPID) : HResult; stdcall;
-    function EnumGroupPlayers(idGroup: TDPID; const lpguidInstance: TGUID;
+    function EnumGroupPlayers(idGroup: TDPID; lpguidInstance: PGUID;
         lpEnumPlayersCallback2: TDPEnumPlayersCallback2; lpContext: Pointer;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function EnumGroups(const lpguidInstance: TGUID; lpEnumPlayersCallback2:
+    function EnumGroups(lpguidInstance: PGUID; lpEnumPlayersCallback2:
-        LPDPENUMPLAYERSCALLBACK2; lpContext: Pointer; dwFlags: DWORD): HResult; stdcall;
+        TDPEnumPlayersCallback2; lpContext: Pointer; dwFlags: DWORD) : HResult; stdcall;
-    function EnumPlayers(const lpguidInstance: TGUID; lpEnumPlayersCallback2:
+    function EnumPlayers(lpguidInstance: PGUID; lpEnumPlayersCallback2:
-        LPDPENUMPLAYERSCALLBACK2; lpContext: Pointer; dwFlags: DWORD): HResult; stdcall;
+        TDPEnumPlayersCallback2; lpContext: Pointer; dwFlags: DWORD) : HResult; stdcall;
     function EnumSessions(const lpsd: TDPSessionDesc2; dwTimeout: DWORD;
         lpEnumSessionsCallback2: TDPEnumSessionsCallback2; lpContext: Pointer;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function GetCaps(var lpDPCaps: TDPCaps; dwFlags: DWORD): HResult; stdcall;
+    function GetCaps(var lpDPCaps: TDPCaps; dwFlags: DWORD) : HResult; stdcall;
-    function GetGroupData(idGroup: TDPID; var lpData; var lpdwDataSize: DWORD;
+    function GetGroupData(idGroup: TDPID; lpData: Pointer; var lpdwDataSize: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function GetGroupName(idGroup: TDPID; var lpData; var lpdwDataSize: DWORD): HResult; stdcall;
+    function GetGroupName(idGroup: TDPID; lpData: Pointer; var lpdwDataSize: DWORD) :
+        HResult; stdcall;
-    function GetMessageCount(idPlayer: TDPID; var lpdwCount: DWORD): HResult; stdcall;
+    function GetMessageCount(idPlayer: TDPID; var lpdwCount: DWORD) : HResult; stdcall;
-    function GetPlayerAddress(idPlayer: TDPID; var lpAddress;
+    function GetPlayerAddress(idPlayer: TDPID; lpAddress: Pointer;
-        var lpdwAddressSize: DWORD): HResult; stdcall;
+        var lpdwAddressSize: DWORD) : HResult; stdcall;
     function GetPlayerCaps(idPlayer: TDPID; var lpPlayerCaps: TDPCaps;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function GetPlayerData(idPlayer: TDPID; var lpData; var lpdwDataSize: DWORD;
+    function GetPlayerData(idPlayer: TDPID; lpData: Pointer; var lpdwDataSize: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function GetPlayerName(idPlayer: TDPID; var lpData; var lpdwDataSize: DWORD): HResult; stdcall;
+    function GetPlayerName(idPlayer: TDPID; lpData: Pointer; var lpdwDataSize: DWORD) : HResult; stdcall;
-    function GetSessionDesc(var lpData; var lpdwDataSize: DWORD): HResult; stdcall;
+    function GetSessionDesc(lpData: Pointer; var lpdwDataSize: DWORD) : HResult; stdcall;
-    function Initialize(const lpGUID: TGUID): HResult; stdcall;
+    function Initialize(const lpGUID: TGUID) : HResult; stdcall;
-    function Open(var lpsd: TDPSessionDesc2; dwFlags: DWORD): HResult; stdcall;
+    function Open(var lpsd: TDPSessionDesc2; dwFlags: DWORD) : HResult; stdcall;
     function Receive(var lpidFrom: TDPID; var lpidTo: TDPID; dwFlags: DWORD;
-        var lpData; var lpdwDataSize: DWORD): HResult; stdcall;
+        lpData: Pointer; var lpdwDataSize: DWORD) : HResult; stdcall;
-    function Send(idFrom: TDPID; lpidTo: TDPID; dwFlags: DWORD; const lpData;
+    function Send(idFrom: TDPID; lpidTo: TDPID; dwFlags: DWORD; var lpData;
-        lpdwDataSize: DWORD): HResult; stdcall;
+        lpdwDataSize: DWORD) : HResult; stdcall;
-    function SetGroupData(idGroup: TDPID; const lpData; dwDataSize: DWORD;
+    function SetGroupData(idGroup: TDPID; lpData: Pointer; dwDataSize: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function SetGroupName(idGroup: TDPID; const lpGroupName: TDPName;
+    function SetGroupName(idGroup: TDPID; lpGroupName: PDPName;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function SetPlayerData(idPlayer: TDPID; const lpData; dwDataSize: DWORD;
+    function SetPlayerData(idPlayer: TDPID; lpData: Pointer; dwDataSize: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function SetPlayerName(idPlayer: TDPID; const lpPlayerName: TDPName;
+    function SetPlayerName(idPlayer: TDPID; lpPlayerName: PDPName;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function SetSessionDesc(const lpSessDesc: TDPSessionDesc2; dwFlags: DWORD): HResult; stdcall;
+    function SetSessionDesc(var lpSessDesc: TDPSessionDesc2; dwFlags: DWORD) :
+        HResult; stdcall;
   end;
+  IDirectPlay2W = interface (IDirectPlay2AW)
+    ['{2B74F7C0-9154-11CF-A9CD-00AA006886E3}']
+  end;
-  IDirectPlay2A = interface(IDirectPlay2)
+  IDirectPlay2A = interface (IDirectPlay2AW)
-    ['{9D460580-A822-11CF-960C-0080C7534E82}']
+    ['{9d460580-a822-11cf-960c-0080c7534e82}']
   end;
+{$IFDEF UNICODE}
+  IDirectPlay2 = IDirectPlay2W;
+{$ELSE}
-{ IDirectPlay3 (and IDirectPlay3A) Interface }
+  IDirectPlay2 = IDirectPlay2A;
+{$ENDIF}
+(****************************************************************************
+ *
-  IDirectPlay3 = interface(IDirectPlay2)
+ * IDirectPlay3 (and IDirectPlay3A) Interface
+ *
+ ****************************************************************************)
-    ['{133EFE40-32DC-11D0-9CFB-00A0C90A43CB}']
+  IDirectPlay3AW = interface (IDirectPlay2AW)
-    // IDirectPlay3 methods
+    (*** IDirectPlay3 methods ***)
-    function AddGroupToGroup(idParentGroup: TDPID; idGroup: TDPID): HResult; stdcall;
+    function AddGroupToGroup(idParentGroup: TDPID; idGroup: TDPID) : HResult; stdcall;
     function CreateGroupInGroup(idParentGroup: TDPID; var lpidGroup: TDPID;
-        var lpGroupName: TDPName; const lpData; dwDataSize: DWORD;
+        lpGroupName: PDPName; lpData: Pointer; dwDataSize: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function DeleteGroupFromGroup(idParentGroup: TDPID; idGroup: TDPID): HResult; stdcall;
+    function DeleteGroupFromGroup(idParentGroup: TDPID; idGroup: TDPID) : HResult; stdcall;
-    function EnumConnections(const lpguidApplication: TGUID;
+    function EnumConnections(lpguidApplication: PGUID;
         lpEnumCallback: TDPEnumConnectionsCallback; lpContext: Pointer;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function EnumGroupsInGroup(idGroup: TDPID; const lpguidInstance: TGUID;
+    function EnumGroupsInGroup(idGroup: TDPID; lpguidInstance: PGUID;
         lpEnumPlayersCallback2: TDPEnumPlayersCallback2; lpContext: Pointer;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
     function GetGroupConnectionSettings(dwFlags: DWORD; idGroup: TDPID;
-        var lpData; var lpdwDataSize: DWORD): HResult; stdcall;
+        lpData: Pointer; var lpdwDataSize: DWORD) : HResult; stdcall;
-    function InitializeConnection(lpConnection: Pointer; dwFlags: DWORD): HResult; stdcall;
+    function InitializeConnection(lpConnection: Pointer; dwFlags: DWORD) : HResult; stdcall;
-    function SecureOpen(const lpsd: TDPSessionDesc2; dwFlags: DWORD;
+    function SecureOpen(var lpsd: TDPSessionDesc2; dwFlags: DWORD;
-        const lpSecurity: TDPSecurityDesc; const lpCredentials: TDPCredentials): HResult; stdcall;
+        var lpSecurity: TDPSecurityDesc; var lpCredentials: TDPCredentials) : HResult; stdcall;
     function SendChatMessage(idFrom: TDPID; idTo: TDPID; dwFlags: DWORD;
-        const lpChatMessage: TDPChat): HResult; stdcall;
+        var lpChatMessage: TDPChat) : HResult; stdcall;
     function SetGroupConnectionSettings(dwFlags: DWORD; idGroup: TDPID;
-        const lpConnection: TDPLConnection): HResult; stdcall;
+        var lpConnection: TDPLConnection) : HResult; stdcall;
-    function StartSession(dwFlags: DWORD; idGroup: TDPID): HResult; stdcall;
+    function StartSession(dwFlags: DWORD; idGroup: TDPID) : HResult; stdcall;
-    function GetGroupFlags(idGroup: TDPID; var lpdwFlags: DWORD): HResult; stdcall;
+    function GetGroupFlags(idGroup: TDPID; out lpdwFlags: DWORD) : HResult; stdcall;
-    function GetGroupParent(idGroup: TDPID; var lpidParent: TDPID): HResult; stdcall;
+    function GetGroupParent(idGroup: TDPID; out lpidParent: TDPID) : HResult; stdcall;
     function GetPlayerAccount(idPlayer: TDPID; dwFlags: DWORD; var lpData;
-        var lpdwDataSize: DWORD): HResult; stdcall;
+        var lpdwDataSize: DWORD) : HResult; stdcall;
-    function GetPlayerFlags(idPlayer: TDPID; var lpdwFlags: DWORD): HResult; stdcall;
+    function GetPlayerFlags(idPlayer: TDPID; out lpdwFlags: DWORD) : HResult; stdcall;
   end;
-  IDirectPlay3A = interface(IDirectPlay3)
+  IDirectPlay3W = interface (IDirectPlay3AW)
-    ['{133EFE41-32DC-11D0-9CFB-00A0C90A43CB}']
+    ['{133EFE40-32DC-11D0-9CFB-00A0C90A43CB}']
   end;
+  IDirectPlay3A = interface (IDirectPlay3AW)
+    ['{133efe41-32dc-11d0-9cfb-00a0c90a43cb}']
+  end;
+{$IFDEF UNICODE}
+  IDirectPlay3 = IDirectPlay3W;
+{$ELSE}
+  IDirectPlay3 = IDirectPlay3A;
+{$ENDIF}
-{ IDirectPlay4 (and IDirectPlay4A) Interface }
+(****************************************************************************
+ *
-  IDirectPlay4 = interface(IDirectPlay3)
+ * IDirectPlay4 (and IDirectPlay4A) Interface
+ *
+ ****************************************************************************)
-    ['{0AB1C530-4745-11D1-A7A1-0000F803ABFC}']
+  IDirectPlay4AW = interface (IDirectPlay3AW)
-    // IDirectPlay4 methods
+    (*** IDirectPlay4 methods ***)
-    function GetGroupOwner(idGroup: TDPID; var idOwner: TDPID): HResult; stdcall;
+    function GetGroupOwner(idGroup: TDPID; out idOwner: TDPID) : HResult; stdcall;
-    function SetGroupOwner(idGroup: TDPID; idOwner: TDPID): HResult; stdcall;
+    function SetGroupOwner(idGroup: TDPID; idOwner: TDPID) : HResult; stdcall;
-    function SendEx(idFrom: TDPID; idTo: TDPID; dwFlags: DWORD; const pData;
+    function SendEx(idFrom: TDPID; idTo: TDPID; dwFlags: DWORD; lpData: Pointer;
         dwDataSize: DWORD; dwPriority: DWORD; dwTimeout: DWORD;
-        lpContext: Pointer; lpdwMsgId: PDWORD): HResult; stdcall;
+        lpContext: Pointer; lpdwMsgId: PDWORD) : HResult; stdcall;
     function GetMessageQueue(idFrom: TDPID; idTo: TDPID; dwFlags: DWORD;
-        var lpdwNumMsgs: DWORD; var lpdwNumBytes: DWORD): HResult; stdcall;
+        lpdwNumMsgs: PDWORD; lpdwNumBytes: PDWORD) : HResult; stdcall;
-    function CancelMessage(dwMessageID: DWORD; dwFlags: DWORD): HResult; stdcall;
+    function CancelMessage(dwMessageID: DWORD; dwFlags: DWORD) : HResult; stdcall;
-    function CancelPriority(dwMinPriority: DWORD; dwMaxPriority: DWORD; dwFlags: DWORD): HResult; stdcall;
+    function CancelPriority(dwMinPriority: DWORD; dwMaxPriority: DWORD; dwFlags: DWORD) : HResult; stdcall;
- end;
+  end;
-  IDirectPlay4A = interface(IDirectPlay4)
+  IDirectPlay4W = interface (IDirectPlay4AW)
-    ['{0AB1C531-4745-11D1-A7A1-0000F803ABFC}']
+    ['{0ab1c530-4745-11D1-a7a1-0000f803abfc}']
   end;
+  IDirectPlay4A = interface (IDirectPlay4AW)
+    ['{0ab1c531-4745-11D1-a7a1-0000f803abfc}']
+  end;
+{$IFDEF UNICODE}
+  IDirectPlay4 = IDirectPlay4W;
+{$ELSE}
+  IDirectPlay4 = IDirectPlay4A;
+{$ENDIF}
 const
+(****************************************************************************
+ *
-{ EnumConnections API flags }
+ * EnumConnections API flags
+ *
+ ****************************************************************************)
+(*
+ * Enumerate Service Providers
+ *)
-  DPCONNECTION_DIRECTPLAY      = $00000001;
+  DPCONNECTION_DIRECTPLAY = $00000001;
+(*
+ * Enumerate Lobby Providers
+ *)
   DPCONNECTION_DIRECTPLAYLOBBY = $00000002;
+(****************************************************************************
+ *
-{ EnumPlayers API flags }
+ * EnumPlayers API flags
+ *
+ ****************************************************************************)
+(*
+ * Enumerate all players in the current session
+ *)
-  DPENUMPLAYERS_ALL          = $00000000;
+  DPENUMPLAYERS_ALL = $00000000;
-  DPENUMGROUPS_ALL           = DPENUMPLAYERS_ALL;
+  DPENUMGROUPS_ALL = DPENUMPLAYERS_ALL;
+(*
+ * Enumerate only local (created by this application) players
+ * or groups
+ *)
-  DPENUMPLAYERS_LOCAL        = $00000008;
+  DPENUMPLAYERS_LOCAL = $00000008;
-  DPENUMGROUPS_LOCAL         = DPENUMPLAYERS_LOCAL;
+  DPENUMGROUPS_LOCAL = DPENUMPLAYERS_LOCAL;
+(*
+ * Enumerate only remote (non-local) players
+ * or groups
+ *)
-  DPENUMPLAYERS_REMOTE       = $00000010;
+  DPENUMPLAYERS_REMOTE = $00000010;
-  DPENUMGROUPS_REMOTE        = DPENUMPLAYERS_REMOTE;
+  DPENUMGROUPS_REMOTE = DPENUMPLAYERS_REMOTE;
+(*
+ * Enumerate groups along with the players
+ *)
-  DPENUMPLAYERS_GROUP        = $00000020;
+  DPENUMPLAYERS_GROUP = $00000020;
+(*
+ * Enumerate players or groups in another session
+ * (must supply lpguidInstance)
+ *)
-  DPENUMPLAYERS_SESSION      = $00000080;
+  DPENUMPLAYERS_SESSION = $00000080;
-  DPENUMGROUPS_SESSION       = DPENUMPLAYERS_SESSION;
+  DPENUMGROUPS_SESSION = DPENUMPLAYERS_SESSION;
+(*
+ * Enumerate server players
+ *)
   DPENUMPLAYERS_SERVERPLAYER = $00000100;
+(*
+ * Enumerate spectator players
+ *)
-  DPENUMPLAYERS_SPECTATOR    = $00000200;
+  DPENUMPLAYERS_SPECTATOR = $00000200;
+(*
+ * Enumerate shortcut groups
+ *)
-  DPENUMGROUPS_SHORTCUT      = $00000400;
+  DPENUMGROUPS_SHORTCUT = $00000400;
+(*
+ * Enumerate staging area groups
+ *)
-  DPENUMGROUPS_STAGINGAREA   = $00000800;
+  DPENUMGROUPS_STAGINGAREA = $00000800;
+(*
+ * Enumerate hidden groups
+ *)
-  DPENUMGROUPS_HIDDEN        = $00001000;
+  DPENUMGROUPS_HIDDEN = $00001000;
+(*
+ * Enumerate the group's owner
+ *)
-  DPENUMPLAYERS_OWNER        = $00002000;
+  DPENUMPLAYERS_OWNER = $00002000;
+(****************************************************************************
+ *
-{ CreatePlayer API flags }
+ * CreatePlayer API flags
+ *
+ ****************************************************************************)
+(*
+ * This flag indicates that this player should be designated
+ * the server player. The app should specify this at CreatePlayer.
+ *)
   DPPLAYER_SERVERPLAYER = DPENUMPLAYERS_SERVERPLAYER;
+(*
+ * This flag indicates that this player should be designated
+ * a spectator. The app should specify this at CreatePlayer.
+ *)
-  DPPLAYER_SPECTATOR    = DPENUMPLAYERS_SPECTATOR;
+  DPPLAYER_SPECTATOR = DPENUMPLAYERS_SPECTATOR;
+(*
+ * This flag indicates that this player was created locally.
+ * (returned from GetPlayerFlags)
+ *)
-  DPPLAYER_LOCAL        = DPENUMPLAYERS_LOCAL;
+  DPPLAYER_LOCAL = DPENUMPLAYERS_LOCAL;
+(*
+ * This flag indicates that this player is the group's owner
+ * (Only returned in EnumGroupPlayers)
+ *)
-  DPPLAYER_OWNER        = DPENUMPLAYERS_OWNER;
+  DPPLAYER_OWNER = DPENUMPLAYERS_OWNER;
+(****************************************************************************
+ *
-{ CreateGroup API flags }
+ * CreateGroup API flags
+ *
+ ****************************************************************************)
+(*
+ * This flag indicates that the StartSession can be called on the group.
+ * The app should specify this at CreateGroup, or CreateGroupInGroup.
+ *)
   DPGROUP_STAGINGAREA = DPENUMGROUPS_STAGINGAREA;
+(*
+ * This flag indicates that this group was created locally.
+ * (returned from GetGroupFlags)
+ *)
-  DPGROUP_LOCAL       = DPENUMGROUPS_LOCAL;
+  DPGROUP_LOCAL = DPENUMGROUPS_LOCAL;
+(*
+ * This flag indicates that this group was created hidden.
+ *)
-  DPGROUP_HIDDEN      = DPENUMGROUPS_HIDDEN;
+  DPGROUP_HIDDEN = DPENUMGROUPS_HIDDEN;
+(****************************************************************************
+ *
-{ EnumSessions API flags }
+ * EnumSessions API flags
+ *
+ ****************************************************************************)
+(*
+ * Enumerate sessions which can be joined
+ *)
-  DPENUMSESSIONS_AVAILABLE        = $00000001;
+  DPENUMSESSIONS_AVAILABLE = $00000001;
+(*
+ * Enumerate all sessions even if they can't be joined.
+ *)
-  DPENUMSESSIONS_ALL              = $00000002;
+  DPENUMSESSIONS_ALL = $00000002;
+(*
+ * Start an asynchronous enum sessions
+ *)
-  DPENUMSESSIONS_ASYNC            = $00000010;
+  DPENUMSESSIONS_ASYNC = $00000010;
+(*
+ * Stop an asynchronous enum sessions
+ *)
-  DPENUMSESSIONS_STOPASYNC        = $00000020;
+  DPENUMSESSIONS_STOPASYNC = $00000020;
+(*
+ * Enumerate sessions even if they require a password
+ *)
   DPENUMSESSIONS_PASSWORDREQUIRED = $00000040;
+(*
+ * Return status about progress of enumeration instead of
+ * showing any status dialogs.
+ *)
-  DPENUMSESSIONS_RETURNSTATUS     = $00000080;
+  DPENUMSESSIONS_RETURNSTATUS = $00000080;
+(****************************************************************************
+ *
-{ GetCaps and GetPlayerCaps API flags }
+ * GetCaps and GetPlayerCaps API flags
+ *
+ ****************************************************************************)
+(*
+ * The latency returned should be for guaranteed message sending.
+ * Default is non-guaranteed messaging.
+ *)
   DPGETCAPS_GUARANTEED = $00000001;
+(****************************************************************************
+ *
-{ GetGroupData, GetPlayerData API flags }
+ * GetGroupData, GetPlayerData API flags
+ * Remote and local Group/Player data is maintained separately.
+ * Default is DPGET_REMOTE.
+ *
+ ****************************************************************************)
+(*
+ * Get the remote data (set by any DirectPlay object in
+ * the session using DPSET_REMOTE)
+ *)
   DPGET_REMOTE = $00000000;
+(*
+ * Get the local data (set by this DirectPlay object
+ * using DPSET_LOCAL)
+ *)
-  DPGET_LOCAL  = $00000001;
+  DPGET_LOCAL = $00000001;
+(****************************************************************************
+ *
-{ Open API flags }
+ * Open API flags
+ *
+ ****************************************************************************)
+(*
+ * Join the session that is described by the DPSESSIONDESC2 structure
+ *)
-  DPOPEN_JOIN         = $00000001;
+  DPOPEN_JOIN = $00000001;
+(*
+ * Create a new session as described by the DPSESSIONDESC2 structure
+ *)
-  DPOPEN_CREATE       = $00000002;
+  DPOPEN_CREATE = $00000002;
+(*
+ * Return status about progress of open instead of showing
+ * any status dialogs.
+ *)
   DPOPEN_RETURNSTATUS = DPENUMSESSIONS_RETURNSTATUS;
+(****************************************************************************
+ *
-{ TDPLConnection flags }
+ * DPLCONNECTION flags
+ *
+ ****************************************************************************)
+(*
+ * This application should create a new session as
+ * described by the DPSESIONDESC structure
+ *)
   DPLCONNECTION_CREATESESSION = DPOPEN_CREATE;
+(*
+ * This application should join the session described by
+ * the DPSESIONDESC structure with the lpAddress data
+ *)
-  DPLCONNECTION_JOINSESSION   = DPOPEN_JOIN;
+  DPLCONNECTION_JOINSESSION = DPOPEN_JOIN;
+(****************************************************************************
+ *
-{ Receive API flags }
+ * Receive API flags
+ * Default is DPRECEIVE_ALL
+ *
+ ****************************************************************************)
+(*
+ * Get the first message in the queue
+ *)
-  DPRECEIVE_ALL        = $00000001;
+  DPRECEIVE_ALL = $00000001;
+(*
+ * Get the first message in the queue directed to a specific player
+ *)
-  DPRECEIVE_TOPLAYER   = $00000002;
+  DPRECEIVE_TOPLAYER = $00000002;
+(*
+ * Get the first message in the queue from a specific player
+ *)
   DPRECEIVE_FROMPLAYER = $00000004;
+(*
+ * Get the message but don't remove it from the queue
+ *)
-  DPRECEIVE_PEEK       = $00000008;
+  DPRECEIVE_PEEK = $00000008;
+(****************************************************************************
+ *
-{ Send API flags }
+ * Send API flags
+ *
+ ****************************************************************************)
+(*
+ * Send the message using a guaranteed send method.
+ * Default is non-guaranteed.
+ *)
-  DPSEND_GUARANTEED         = $00000001;
+  DPSEND_GUARANTEED = $00000001;
+(*
+ * This flag is obsolete. It is ignored by DirectPlay
+ *)
-  DPSEND_HIGHPRIORITY       = $00000002;
+  DPSEND_HIGHPRIORITY = $00000002;
+(*
+ * This flag is obsolete. It is ignored by DirectPlay
+ *)
-  DPSEND_OPENSTREAM         = $00000008;
+  DPSEND_OPENSTREAM = $00000008;
+(*
+ * This flag is obsolete. It is ignored by DirectPlay
+ *)
-  DPSEND_CLOSESTREAM        = $00000010;
+  DPSEND_CLOSESTREAM = $00000010;
+(*
+ * Send the message digitally signed to ensure authenticity.
+ *)
-  DPSEND_SIGNED             = $00000020;
+  DPSEND_SIGNED = $00000020;
+(*
+ * Send the message with encryption to ensure privacy.
+ *)
-  DPSEND_ENCRYPTED          = $00000040;
+  DPSEND_ENCRYPTED = $00000040;
+(*
+ * The message is a lobby system message
+ *)
   DPSEND_LOBBYSYSTEMMESSAGE = $00000080;
+(*
+ * andyco - added this so we can make addforward async.
+ * needs to be sanitized when we add / expose full async
+ * support.  8/3/97.
+ *)
-  DPSEND_ASYNC              = $00000200;
+  DPSEND_ASYNC = $00000200;
+(*
+ * When a message is completed, don't tell me.
+ * by default the application is notified with a system message.
+ *)
-  DPSEND_NOSENDCOMPLETEMSG  = $00000400;
+  DPSEND_NOSENDCOMPLETEMSG = $00000400;
+(*
+ * Maximum priority for sends available to applications
+ *)
-  DPSEND_MAX_PRI            = $0000FFFF;
+  DPSEND_MAX_PRI = $0000FFFF;
-  DPSEND_MAX_PRIORITY       = DPSEND_MAX_PRI;
+  DPSEND_MAX_PRIORITY = DPSEND_MAX_PRI;
+(****************************************************************************
+ *
-{ SetGroupData, SetGroupName, SetPlayerData, SetPlayerName,
+ * SetGroupData, SetGroupName, SetPlayerData, SetPlayerName,
-  SetSessionDesc API flags. }
+ * SetSessionDesc API flags.
+ * Default is DPSET_REMOTE.
+ *
+ ****************************************************************************)
+(*
+ * Propagate the data to all players in the session
+ *)
-  DPSET_REMOTE     = $00000000;
+  DPSET_REMOTE = $00000000;
+(*
+ * Do not propagate the data to other players
+ *)
-  DPSET_LOCAL      = $00000001;
+  DPSET_LOCAL = $00000001;
+(*
+ * Used with DPSET_REMOTE, use guaranteed message send to
+ * propagate the data
+ *)
   DPSET_GUARANTEED = $00000002;
+(****************************************************************************
+ *
-{ GetMessageQueue API flags. }
+ * GetMessageQueue API flags.
+ * Default is DPMESSAGEQUEUE_SEND
+ *
+ ****************************************************************************)
+(*
+ * Get Send Queue - requires Service Provider Support
+ *)
-  DPMESSAGEQUEUE_SEND    = $00000001; // Default
+  DPMESSAGEQUEUE_SEND = $00000001;
+(*
+ * Get Receive Queue
+ *)
-  DPMESSAGEQUEUE_RECEIVE = $00000002; // Default
+  DPMESSAGEQUEUE_RECEIVE = $00000002;
+(****************************************************************************
+ *
-{ Connect API flags }
+ * Connect API flags
+ *
+ ****************************************************************************)
+(*
+ * Start an asynchronous connect which returns status codes
+ *)
   DPCONNECT_RETURNSTATUS = DPENUMSESSIONS_RETURNSTATUS;
+(****************************************************************************
+ *
-{ DirectPlay system messages and message data structures }
+ * DirectPlay system messages and message data structures
+ *
+ * All system message come 'From' player DPID_SYSMSG.  To determine what type
+ * of message it is, cast the lpData from Receive to TDPMsg_Generic and check
+ * the dwType member against one of the following DPSYS_xxx constants. Once
+ * a match is found, cast the lpData to the corresponding of the DPMSG_xxx
+ * structures to access the data of the message.
+ *
+ ****************************************************************************)
+(*
+ * A new player or group has been created in the session
+ * Use TDPMsg_CreatePlayerOrGroup.  Check dwPlayerType to see if it
+ * is a player or a group.
+ *)
-  DPSYS_CREATEPLAYERORGROUP   = $0003;
+  DPSYS_CREATEPLAYERORGROUP = $0003;
+(*
+ * A player has been deleted from the session
+ * Use TDPMsg_DestroyPlayerOrGroup
+ *)
-  DPSYS_DESTROYPLAYERORGROUP  = $0005;
+  DPSYS_DESTROYPLAYERORGROUP = $0005;
+(*
+ * A player has been added to a group
+ * Use DPMSG_ADDPLAYERTOGROUP
+ *)
-  DPSYS_ADDPLAYERTOGROUP      = $0007;
+  DPSYS_ADDPLAYERTOGROUP = $0007;
+(*
+ * A player has been removed from a group
+ * Use DPMSG_DELETEPLAYERFROMGROUP
+ *)
   DPSYS_DELETEPLAYERFROMGROUP = $0021;
+(*
+ * This DirectPlay object lost its connection with all the
+ * other players in the session.
+ * Use DPMSG_SESSIONLOST.
+ *)
-  DPSYS_SESSIONLOST           = $0031;
+  DPSYS_SESSIONLOST = $0031;
+(*
+ * The current host has left the session.
+ * This DirectPlay object is now the host.
+ * Use DPMSG_HOST.
+ *)
-  DPSYS_HOST                  = $0101;
+  DPSYS_HOST = $0101;
+(*
+ * The remote data associated with a player or
+ * group has changed. Check dwPlayerType to see
+ * if it is a player or a group
+ * Use DPMSG_SETPLAYERORGROUPDATA
+ *)
-  DPSYS_SETPLAYERORGROUPDATA  = $0102;
+  DPSYS_SETPLAYERORGROUPDATA = $0102;
+(*
+ * The name of a player or group has changed.
+ * Check dwPlayerType to see if it is a player
+ * or a group.
+ * Use TDPMsg_SetPlayerOrGroupName
+ *)
-  DPSYS_SETPLAYERORGROUPNAME  = $0103;
+  DPSYS_SETPLAYERORGROUPNAME = $0103;
+(*
+ * The session description has changed.
+ * Use DPMSG_SETSESSIONDESC
+ *)
-  DPSYS_SETSESSIONDESC        = $0104;
+  DPSYS_SETSESSIONDESC = $0104;
+(*
+ * A group has been added to a group
+ * Use TDPMsg_AddGroupToGroup
+ *)
-  DPSYS_ADDGROUPTOGROUP       = $0105;
+  DPSYS_ADDGROUPTOGROUP = $0105;
+(*
+ * A group has been removed from a group
+ * Use DPMsg_DeleteGroupFromGroup
+ *)
-  DPSYS_DELETEGROUPFROMGROUP  = $0106;
+  DPSYS_DELETEGROUPFROMGROUP = $0106;
+(*
+ * A secure player-player message has arrived.
+ * Use DPMSG_SECUREMESSAGE
+ *)
-  DPSYS_SECUREMESSAGE         = $0107;
+  DPSYS_SECUREMESSAGE = $0107;
+(*
+ * Start a new session.
+ * Use DPMSG_STARTSESSION
+ *)
-  DPSYS_STARTSESSION          = $0108;
+  DPSYS_STARTSESSION = $0108;
+(*
+ * A chat message has arrived
+ * Use DPMSG_CHAT
+ *)
-  DPSYS_CHAT                  = $0109;
+  DPSYS_CHAT = $0109;
-  DPSYS_SETGROUPOWNER         = $010A;
-  DPSYS_SENDCOMPLETE          = $010d;
+(*
+ * The owner of a group has changed
+ * Use DPMSG_SETGROUPOWNER
+ *)
+  DPSYS_SETGROUPOWNER = $010A;
+(*
-{ Used in the dwPlayerType field to indicate if it applies to a group or a player}
+ * An async send has finished, failed or been cancelled
+ * Use DPMSG_SENDCOMPLETE
+ *)
+  DPSYS_SENDCOMPLETE = $010D;
+(*
+ * Used in the dwPlayerType field to indicate if it applies to a group
+ * or a player
+ *)
-  DPPLAYERTYPE_GROUP          = $00000000;
+  DPPLAYERTYPE_GROUP = $00000000;
-  DPPLAYERTYPE_PLAYER         = $00000001;
+  DPPLAYERTYPE_PLAYER = $00000001;
-{ TDPMsg_Generic }
 type
+(*
+ * TDPMsg_Generic
+ * Generic message structure used to identify the message type.
+ *)
   PDPMsg_Generic = ^TDPMsg_Generic;
-  TDPMsg_Generic = record
+  TDPMsg_Generic = packed record
     dwType: DWORD;   // Message type
   end;
-  DPMSG_GENERIC = TDPMsg_Generic;
-  LPDPMSG_GENERIC = PDPMsg_Generic;
+(*
-{ TDPMsg_CreatePlayerOrGroup }
+ * TDPMsg_CreatePlayerOrGroup
+ * System message generated when a new player or group
+ * created in the session with information about it.
+ *)
   PDPMsg_CreatePlayerOrGroup = ^TDPMsg_CreatePlayerOrGroup;
-  TDPMsg_CreatePlayerOrGroup = record
+  TDPMsg_CreatePlayerOrGroup = packed record
     dwType: DWORD;             // Message type
     dwPlayerType: DWORD;       // Is it a player or group
-    dpId: TDPID;                // ID of the player or group
+    DPID: TDPID;               // ID of the player or group
     dwCurrentPlayers: DWORD;   // current # players & groups in session
     lpData: Pointer;           // pointer to remote data
     dwDataSize: DWORD;         // size of remote data
     dpnName: TDPName;           // structure with name info
                                // the following fields are only available when using
                                // the IDirectPlay3 interface or greater
-    dpIdParent: TDPID;          // id of parent group
+    dpIdParent: TDPID;         // id of parent group
     dwFlags: DWORD;            // player or group flags
   end;
-  DPMSG_CREATEPLAYERORGROUP = TDPMsg_CreatePlayerOrGroup;
-  LPDPMSG_CREATEPLAYERORGROUP = PDPMsg_CreatePlayerOrGroup;
+(*
-{ TDPMsg_DestroyPlayerOrGroup }
+ * TDPMsg_DestroyPlayerOrGroup
+ * System message generated when a player or group is being
+ * destroyed in the session with information about it.
+ *)
-  PDPMsg_DestroyPlayerOrGroup = ^TDPMsg_DestroyPlayerOrGroup;
+  PDPMsg_DestroyPlayerOrGroup= ^TDPMsg_DestroyPlayerOrGroup;
-  TDPMsg_DestroyPlayerOrGroup = record
+  TDPMsg_DestroyPlayerOrGroup = packed record
     dwType: DWORD;             // Message type
     dwPlayerType: DWORD;       // Is it a player or group
-    dpId: TDPID;                // player ID being deleted
+    DPID: TDPID;                // player ID being deleted
     lpLocalData: Pointer;      // copy of players local data
     dwLocalDataSize: DWORD;    // sizeof local data
     lpRemoteData: Pointer;     // copy of players remote data
     dwRemoteDataSize: DWORD;   // sizeof remote data
                                // the following fields are only available when using
                                // the IDirectPlay3 interface or greater
     dpnName: TDPName;           // structure with name info
     dpIdParent: TDPID;          // id of parent group
     dwFlags: DWORD;            // player or group flags
   end;
+(*
-  DPMSG_DESTROYPLAYERORGROUP = TDPMsg_DestroyPlayerOrGroup;
+ * DPMSG_ADDPLAYERTOGROUP
-  LPDPMSG_DESTROYPLAYERORGROUP = PDPMsg_DestroyPlayerOrGroup;
+ * System message generated when a player is being added
-{ TDPMsg_AddPlayerOrGroup }
+ * to a group.
+ *)
-  PDPMsg_AddPlayerOrGroup = ^TDPMsg_AddPlayerOrGroup;
+  PDPMsg_AddPlayerToGroup = ^TDPMsg_AddPlayerToGroup;
-  TDPMsg_AddPlayerOrGroup = record
+  TDPMsg_AddPlayerToGroup = packed record
     dwType: DWORD;      // Message type
     dpIdGroup: TDPID;    // group ID being added to
     dpIdPlayer: TDPID;   // player ID being added
   end;
-  DPMSG_ADDPLAYERTOGROUP = TDPMsg_AddPlayerOrGroup;
-  LPDPMSG_ADDPLAYERTOGROUP = PDPMsg_AddPlayerOrGroup;
+(*
-{ TDPMsg_DeletePlayerFromGroup }
+ * DPMSG_DELETEPLAYERFROMGROUP
-  TDPMsg_DeletePlayerFromGroup = TDPMsg_AddPlayerOrGroup;
+ * System message generated when a player is being
-  PDPMsg_DeletePlayerFromGroup = PDPMsg_AddPlayerOrGroup;
+ * removed from a group
+ *)
-  DPMSG_DELETEPLAYERFROMGROUP = TDPMsg_DeletePlayerFromGroup;
+  PDPMsg_DeletePlayerFromGroup = ^TDPMsg_DeletePlayerFromGroup;
-  LPDPMSG_DELETEPLAYERFROMGROUP = PDPMsg_DeletePlayerFromGroup;
+  TDPMsg_DeletePlayerFromGroup = TDPMsg_AddPlayerToGroup;
-{ TDPMsg_AddGroupToGroup }
+(*
+ * TDPMsg_AddGroupToGroup
+ * System message generated when a group is being added
+ * to a group.
+ *)
   PDPMsg_AddGroupToGroup = ^TDPMsg_AddGroupToGroup;
-  TDPMsg_AddGroupToGroup = record
+  TDPMsg_AddGroupToGroup = packed record
     dwType: DWORD;           // Message type
     dpIdParentGroup: TDPID;   // group ID being added to
     dpIdGroup: TDPID;         // group ID being added
   end;
-  DPMSG_ADDGROUPTOGROUP = TDPMsg_AddGroupToGroup;
-  LPDPMSG_ADDGROUPTOGROUP = PDPMsg_AddGroupToGroup;
+(*
-{ TDPMsg_DeleteGroupFromGroup }
+ * DPMsg_DeleteGroupFromGroup
+ * System message generated when a GROUP is being
+ * removed from a group
+ *)
+  PDPMsg_DeleteGroupFromGroup = ^TDPMsg_DeleteGroupFromGroup;
   TDPMsg_DeleteGroupFromGroup = TDPMsg_AddGroupToGroup;
-  PDPMsg_DeleteGroupFromGroup = PDPMsg_AddGroupToGroup;
-  DPMSG_DELETEGROUPFROMGROUP = TDPMsg_DeleteGroupFromGroup;
-  LPDPMSG_DELETEGROUPFROMGROUP = PDPMsg_DeleteGroupFromGroup;
-{ TDPMsg_SetPlayerOrGroupData }
+(*
+ * DPMSG_SETPLAYERORGROUPDATA
+ * System message generated when remote data for a player or
+ * group has changed.
+ *)
   PDPMsg_SetPlayerOrGroupData = ^TDPMsg_SetPlayerOrGroupData;
-  TDPMsg_SetPlayerOrGroupData = record
+  TDPMsg_SetPlayerOrGroupData = packed record
     dwType: DWORD;         // Message type
     dwPlayerType: DWORD;   // Is it a player or group
-    dpId: TDPID;            // ID of player or group
+    DPID: TDPID;           // ID of player or group
     lpData: Pointer;       // pointer to remote data
     dwDataSize: DWORD;     // size of remote data
   end;
+(*
-  DPMSG_SETPLAYERORGROUPDATA = TDPMsg_SetPlayerOrGroupData;
+ * DPMSG_SETPLAYERORGROUPNAME
-  LPDPMSG_SETPLAYERORGROUPDATA = PDPMsg_SetPlayerOrGroupData;
+ * System message generated when the name of a player or
-{ TDPMsg_SetPlayerOrGroupName }
+ * group has changed.
+ *)
   PDPMsg_SetPlayerOrGroupName = ^TDPMsg_SetPlayerOrGroupName;
-  TDPMsg_SetPlayerOrGroupName = record
+  TDPMsg_SetPlayerOrGroupName = packed record
     dwType: DWORD;         // Message type
     dwPlayerType: DWORD;   // Is it a player or group
-    dpId: TDPID;            // ID of player or group
+    DPID: TDPID;           // ID of player or group
-    dpnName: TDPName;       // structure with new name info
+    dpnName: TDPName;      // structure with new name info
   end;
-  DPMSG_SETPLAYERORGROUPNAME = TDPMsg_SetPlayerOrGroupName;
-  LPDPMSG_SETPLAYERORGROUPNAME = PDPMsg_SetPlayerOrGroupName;
+(*
-{ TDPMsg_SetSessionDesc }
+ * DPMSG_SETSESSIONDESC
+ * System message generated when session desc has changed
+ *)
   PDPMsg_SetSessionDesc = ^TDPMsg_SetSessionDesc;
-  TDPMsg_SetSessionDesc = record
+  TDPMsg_SetSessionDesc = packed record
     dwType: DWORD;            // Message type
     dpDesc: TDPSessionDesc2;   // Session desc
   end;
-  DPMSG_SETSESSIONDESC = TDPMsg_SetSessionDesc;
-  LPDPMSG_SETSESSIONDESC = PDPMsg_SetSessionDesc;
+(*
-{ TDPMsg_Host }
+ * DPMSG_HOST
+ * System message generated when the host has migrated to this
+ * DirectPlay object.
+ *
+ *)
   PDPMsg_Host = ^TDPMsg_Host;
   TDPMsg_Host = TDPMsg_Generic;
+(*
-  DPMSG_HOST = TDPMsg_Host;
+ * DPMSG_SESSIONLOST
-  LPDPMSG_HOST = PDPMsg_Host;
+ * System message generated when the connection to the session is lost.
+ *
-{ TDPMsg_SessionLost }
+ *)
   PDPMsg_SessionLost = ^TDPMsg_SessionLost;
   TDPMsg_SessionLost = TDPMsg_Generic;
-  DPMSG_SESSIONLOST = TDPMsg_SessionLost;
-  LPDPMSG_SESSIONLOST = PDPMsg_SessionLost;
+(*
-{ TDPMsg_SecureMessage }
+ * DPMSG_SECUREMESSAGE
+ * System message generated when a player requests a secure send
+ *)
   PDPMsg_SecureMessage = ^TDPMsg_SecureMessage;
-  TDPMsg_SecureMessage = record
+  TDPMsg_SecureMessage = packed record
     dwType: DWORD;       // Message Type
     dwFlags: DWORD;      // Signed/Encrypted
     dpIdFrom: TDPID;      // ID of Sending Player
     lpData: Pointer;     // Player message
     dwDataSize: DWORD;   // Size of player message
   end;
+(*
-  DPMSG_SECUREMESSAGE = TDPMsg_SecureMessage;
+ * DPMSG_STARTSESSION
-  LPDPMSG_SECUREMESSAGE = PDPMsg_SecureMessage;
+ * System message containing all information required to
-{ TDPMsg_StartSession }
+ * start a new session
+ *)
   PDPMsg_StartSession = ^TDPMsg_StartSession;
-  TDPMsg_StartSession = record
+  TDPMsg_StartSession = packed record
     dwType: DWORD;             // Message type
-    lpConn: PDPLConnection;    // TDPLConnection structure
+    lpConn: PDPLConnection;   // TDPLConnection structure
   end;
-  DPMSG_STARTSESSION = TDPMsg_StartSession;
-  LPDPMSG_STARTSESSION = PDPMsg_StartSession;
+(*
-{ TDPMsg_Chat }
+ * DPMSG_CHAT
+ * System message containing a chat message
+ *)
   PDPMsg_Chat = ^TDPMsg_Chat;
-  TDPMsg_Chat = record
+  TDPMsg_Chat = packed record
     dwType: DWORD;        // Message type
     dwFlags: DWORD;       // Message flags
     idFromPlayer: TDPID;  // ID of the Sending Player
     idToPlayer: TDPID;    // ID of the To Player
     idToGroup: TDPID;     // ID of the To Group
     lpChat: PDPChat;      // Pointer to a structure containing the chat message
   end;
-  DPMSG_CHAT = TDPMsg_Chat;
-  LPDPMSG_CHAT = PDPMsg_Chat;
+(*
-{ TDPMsg_SetGroupOwner }
+ * DPMSG_SETGROUPOWNER
+ * System message generated when the owner of a group has changed
+ *)
   PDPMsg_SetGroupOwner = ^TDPMsg_SetGroupOwner;
-  TDPMsg_SetGroupOwner = record
+  TDPMsg_SetGroupOwner = packed record
     dwType: DWORD;        // Message type
     idGroup: TDPID;       // ID of the group
     idNewOwner: TDPID;    // ID of the player that is the new owner
     idOldOwner: TDPID;    // ID of the player that used to be the owner
   end;
+(*
-  DPMSG_SETGROUPOWNER = TDPMsg_SetGroupOwner;
+ * DPMSG_SENDCOMPLETE
-  LPDPMSG_SETGROUPOWNER = PDPMsg_SetGroupOwner;
+ * System message generated when finished with an Async Send message
+ *
-{ TDPMsg_SendComplete }
+ * NOTE SENDPARMS has an overlay for DPMSG_SENDCOMPLETE, don't
+ *                change this message w/o changing SENDPARMS.
+ *)
-  PDPMsg_SendComplete= ^TDPMsg_SendComplete;
+  PDPMsg_SendComplete = ^TDPMsg_SendComplete;
-  TDPMsg_SendComplete = record
+  TDPMsg_SendComplete = packed record
     dwType: DWORD;        // Message type
     idFrom: TDPID;
     idTo: TDPID;
     dwFlags: DWORD;
     dwPriority: DWORD;
     dwTimeout: DWORD;
     lpvContext: Pointer;
     dwMsgID: DWORD;
     hr: HRESULT;
     dwSendTime: DWORD;
   end;
-  DPMSG_SENDCOMPLETE = TDPMsg_SendComplete;
-  LPDPMSG_SENDCOMPLETE = PDPMsg_SendComplete;
+(****************************************************************************
+ *
-{ DIRECTPLAY ERRORS }
+ * DIRECTPLAY ERRORS
+ *
+ * Errors are represented by negative values and cannot be combined.
+ *
+ ****************************************************************************)
 const
-  DP_OK                         = HResult(S_OK);
-  DPERR_ALREADYINITIALIZED      = HResult($88770000 + 5);
+  MAKE_DPHRESULT = HResult($88770000);
-  DPERR_ACCESSDENIED            = HResult($88770000 + 10);
-  DPERR_ACTIVEPLAYERS           = HResult($88770000 + 20);
-  DPERR_BUFFERTOOSMALL          = HResult($88770000 + 30);
-  DPERR_CANTADDPLAYER           = HResult($88770000 + 40);
-  DPERR_CANTCREATEGROUP         = HResult($88770000 + 50);
-  DPERR_CANTCREATEPLAYER        = HResult($88770000 + 60);
-  DPERR_CANTCREATESESSION       = HResult($88770000 + 70);
-  DPERR_CAPSNOTAVAILABLEYET     = HResult($88770000 + 80);
-  DPERR_EXCEPTION               = HResult($88770000 + 90);
-  DPERR_GENERIC                 = HResult(E_FAIL);
-  DPERR_INVALIDFLAGS            = HResult($88770000 + 120);
-  DPERR_INVALIDOBJECT           = HResult($88770000 + 130);
-  DPERR_INVALIDPARAM            = HResult(E_INVALIDARG);
-  DPERR_INVALIDPARAMS           = HResult(DPERR_INVALIDPARAM);
-  DPERR_INVALIDPLAYER           = HResult($88770000 + 150);
-  DPERR_INVALIDGROUP            = HResult($88770000 + 155);
-  DPERR_NOCAPS                  = HResult($88770000 + 160);
-  DPERR_NOCONNECTION            = HResult($88770000 + 170);
-  DPERR_NOMEMORY                = HResult(E_OUTOFMEMORY);
-  DPERR_OUTOFMEMORY             = HResult(DPERR_NOMEMORY);
-  DPERR_NOMESSAGES              = HResult($88770000 + 190);
-  DPERR_NONAMESERVERFOUND       = HResult($88770000 + 200);
-  DPERR_NOPLAYERS               = HResult($88770000 + 210);
-  DPERR_NOSESSIONS              = HResult($88770000 + 220);
-  DPERR_PENDING                 = HResult(E_PENDING);
-  DPERR_SENDTOOBIG              = HResult($88770000 + 230);
-  DPERR_TIMEOUT                 = HResult($88770000 + 240);
-  DPERR_UNAVAILABLE             = HResult($88770000 + 250);
-  DPERR_UNSUPPORTED             = HResult(E_NOTIMPL);
-  DPERR_BUSY                    = HResult($88770000 + 270);
-  DPERR_USERCANCEL              = HResult($88770000 + 280);
-  DPERR_NOINTERFACE             = HResult(E_NOINTERFACE);
-  DPERR_CANNOTCREATESERVER      = HResult($88770000 + 290);
-  DPERR_PLAYERLOST              = HResult($88770000 + 300);
-  DPERR_SESSIONLOST             = HResult($88770000 + 310);
-  DPERR_UNINITIALIZED           = HResult($88770000 + 320);
-  DPERR_NONEWPLAYERS            = HResult($88770000 + 330);
-  DPERR_INVALIDPASSWORD         = HResult($88770000 + 340);
-  DPERR_CONNECTING              = HResult($88770000 + 350);
-  DPERR_CONNECTIONLOST          = HResult($88770000 + 360);
-  DPERR_UNKNOWNMESSAGE          = HResult($88770000 + 370);
-  DPERR_CANCELFAILED            = HResult($88770000 + 380);
-  DPERR_INVALIDPRIORITY         = HResult($88770000 + 390);
-  DPERR_NOTHANDLED              = HResult($88770000 + 400);
-  DPERR_CANCELLED               = HResult($88770000 + 410);
-  DPERR_ABORTED                 = HResult($88770000 + 420);
-  DPERR_BUFFERTOOLARGE          = HResult($88770000 + 1000);
-  DPERR_CANTCREATEPROCESS       = HResult($88770000 + 1010);
-  DPERR_APPNOTSTARTED           = HResult($88770000 + 1020);
-  DPERR_INVALIDINTERFACE        = HResult($88770000 + 1030);
-  DPERR_NOSERVICEPROVIDER       = HResult($88770000 + 1040);
-  DPERR_UNKNOWNAPPLICATION      = HResult($88770000 + 1050);
-  DPERR_NOTLOBBIED              = HResult($88770000 + 1070);
-  DPERR_SERVICEPROVIDERLOADED   = HResult($88770000 + 1080);
-  DPERR_ALREADYREGISTERED       = HResult($88770000 + 1090);
-  DPERR_NOTREGISTERED           = HResult($88770000 + 1100);
-{ Security related errors }
-  DPERR_AUTHENTICATIONFAILED    = HResult($88770000 + 2000);
-  DPERR_CANTLOADSSPI            = HResult($88770000 + 2010);
-  DPERR_ENCRYPTIONFAILED        = HResult($88770000 + 2020);
-  DPERR_SIGNFAILED              = HResult($88770000 + 2030);
-  DPERR_CANTLOADSECURITYPACKAGE = HResult($88770000 + 2040);
-  DPERR_ENCRYPTIONNOTSUPPORTED  = HResult($88770000 + 2050);
-  DPERR_CANTLOADCAPI            = HResult($88770000 + 2060);
-  DPERR_NOTLOGGEDIN             = HResult($88770000 + 2070);
-  DPERR_LOGONDENIED             = HResult($88770000 + 2080);
+  DP_OK = S_OK;
+  DPERR_ALREADYINITIALIZED = MAKE_DPHRESULT + 5;
+  DPERR_ACCESSDENIED = MAKE_DPHRESULT + 10;
+  DPERR_ACTIVEPLAYERS = MAKE_DPHRESULT + 20;
+  DPERR_BUFFERTOOSMALL = MAKE_DPHRESULT + 30;
+  DPERR_CANTADDPLAYER = MAKE_DPHRESULT + 40;
+  DPERR_CANTCREATEGROUP = MAKE_DPHRESULT + 50;
+  DPERR_CANTCREATEPLAYER = MAKE_DPHRESULT + 60;
+  DPERR_CANTCREATESESSION = MAKE_DPHRESULT + 70;
+  DPERR_CAPSNOTAVAILABLEYET = MAKE_DPHRESULT + 80;
+  DPERR_EXCEPTION = MAKE_DPHRESULT + 90;
+  DPERR_GENERIC = E_FAIL;
+  DPERR_INVALIDFLAGS = MAKE_DPHRESULT + 120;
+  DPERR_INVALIDOBJECT = MAKE_DPHRESULT + 130;
+  DPERR_INVALIDPARAM = E_INVALIDARG;
+  DPERR_INVALIDPARAMS = DPERR_INVALIDPARAM;
+  DPERR_INVALIDPLAYER = MAKE_DPHRESULT + 150;
+  DPERR_INVALIDGROUP = MAKE_DPHRESULT + 155;
+  DPERR_NOCAPS = MAKE_DPHRESULT + 160;
+  DPERR_NOCONNECTION = MAKE_DPHRESULT + 170;
+  DPERR_NOMEMORY = E_OUTOFMEMORY;
+  DPERR_OUTOFMEMORY = DPERR_NOMEMORY;
+  DPERR_NOMESSAGES = MAKE_DPHRESULT + 190;
+  DPERR_NONAMESERVERFOUND = MAKE_DPHRESULT + 200;
+  DPERR_NOPLAYERS = MAKE_DPHRESULT + 210;
+  DPERR_NOSESSIONS = MAKE_DPHRESULT + 220;
+  DPERR_PENDING = E_PENDING;
+  DPERR_SENDTOOBIG = MAKE_DPHRESULT + 230;
+  DPERR_TIMEOUT = MAKE_DPHRESULT + 240;
+  DPERR_UNAVAILABLE = MAKE_DPHRESULT + 250;
+  DPERR_UNSUPPORTED = E_NOTIMPL;
+  DPERR_BUSY = MAKE_DPHRESULT + 270;
+  DPERR_USERCANCEL = MAKE_DPHRESULT + 280;
+  DPERR_NOINTERFACE = E_NOINTERFACE;
+  DPERR_CANNOTCREATESERVER = MAKE_DPHRESULT + 290;
+  DPERR_PLAYERLOST = MAKE_DPHRESULT + 300;
+  DPERR_SESSIONLOST = MAKE_DPHRESULT + 310;
+  DPERR_UNINITIALIZED = MAKE_DPHRESULT + 320;
+  DPERR_NONEWPLAYERS = MAKE_DPHRESULT + 330;
+  DPERR_INVALIDPASSWORD = MAKE_DPHRESULT + 340;
+  DPERR_CONNECTING = MAKE_DPHRESULT + 350;
+  DPERR_CONNECTIONLOST = MAKE_DPHRESULT + 360;
+  DPERR_UNKNOWNMESSAGE = MAKE_DPHRESULT + 370;
+  DPERR_CANCELFAILED = MAKE_DPHRESULT + 380;
+  DPERR_INVALIDPRIORITY = MAKE_DPHRESULT + 390;
+  DPERR_NOTHANDLED = MAKE_DPHRESULT + 400;
+  DPERR_CANCELLED = MAKE_DPHRESULT + 410;
+  DPERR_ABORTED = MAKE_DPHRESULT + 420;
+  DPERR_BUFFERTOOLARGE = MAKE_DPHRESULT + 1000;
+  DPERR_CANTCREATEPROCESS = MAKE_DPHRESULT + 1010;
+  DPERR_APPNOTSTARTED = MAKE_DPHRESULT + 1020;
+  DPERR_INVALIDINTERFACE = MAKE_DPHRESULT + 1030;
+  DPERR_NOSERVICEPROVIDER = MAKE_DPHRESULT + 1040;
+  DPERR_UNKNOWNAPPLICATION = MAKE_DPHRESULT + 1050;
+  DPERR_NOTLOBBIED = MAKE_DPHRESULT + 1070;
+  DPERR_SERVICEPROVIDERLOADED = MAKE_DPHRESULT + 1080;
+  DPERR_ALREADYREGISTERED = MAKE_DPHRESULT + 1090;
+  DPERR_NOTREGISTERED = MAKE_DPHRESULT + 1100;
+//
+// Security related errors
+//
+  DPERR_AUTHENTICATIONFAILED = MAKE_DPHRESULT + 2000;
+  DPERR_CANTLOADSSPI = MAKE_DPHRESULT + 2010;
+  DPERR_ENCRYPTIONFAILED = MAKE_DPHRESULT + 2020;
+  DPERR_SIGNFAILED = MAKE_DPHRESULT + 2030;
+  DPERR_CANTLOADSECURITYPACKAGE = MAKE_DPHRESULT + 2040;
+  DPERR_ENCRYPTIONNOTSUPPORTED = MAKE_DPHRESULT + 2050;
+  DPERR_CANTLOADCAPI = MAKE_DPHRESULT + 2060;
+  DPERR_NOTLOGGEDIN = MAKE_DPHRESULT + 2070;
+  DPERR_LOGONDENIED = MAKE_DPHRESULT + 2080;
+(****************************************************************************
+ *
-// define this to ignore obsolete interfaces and constants
+ *      dplay 1.0 obsolete structures + interfaces
+ *      Included for compatibility only. New apps should
+ *      use IDirectPlay2
+ *
+ ****************************************************************************)
-  DPOPEN_OPENSESSION   = DPOPEN_JOIN;
+  DPOPEN_OPENSESSION = DPOPEN_JOIN;
   DPOPEN_CREATESESSION = DPOPEN_CREATE;
   DPENUMSESSIONS_PREVIOUS = $00000004;
   DPENUMPLAYERS_PREVIOUS = $00000004;
   DPSEND_GUARANTEE = DPSEND_GUARANTEED;
-  DPSEND_TRYONCE   = $00000004;
+  DPSEND_TRYONCE = $00000004;
   DPCAPS_NAMESERVICE = $00000001;
-  DPCAPS_NAMESERVER  = DPCAPS_ISHOST;
+  DPCAPS_NAMESERVER = DPCAPS_ISHOST;
-  DPCAPS_GUARANTEED  = $00000004;
+  DPCAPS_GUARANTEED = $00000004;
-  DPLONGNAMELEN    = 52;
+  DPLONGNAMELEN = 52;
-  DPSHORTNAMELEN   = 20;
+  DPSHORTNAMELEN = 20;
   DPSESSIONNAMELEN = 32;
-  DPPASSWORDLEN    = 16;
+  DPPASSWORDLEN = 16;
-  DPUSERRESERVED   = 16;
+  DPUSERRESERVED = 16;
-  DPSYS_ADDPLAYER    = $0003;
+  DPSYS_ADDPLAYER = $0003;
   DPSYS_DELETEPLAYER = $0005;
-  DPSYS_DELETEGROUP         = $0020;
+  DPSYS_DELETEGROUP = $0020;
   DPSYS_DELETEPLAYERFROMGRP = $0021;
-  DPSYS_CONNECT             = $484b;
+  DPSYS_CONNECT = $484b;
-{ TDPMsg_AddPlayer }
 type
   PDPMsg_AddPlayer = ^TDPMsg_AddPlayer;
-  TDPMsg_AddPlayer = record
+  TDPMsg_AddPlayer = packed record
     dwType: DWORD;
     dwPlayerType: DWORD;
-    dpId: TDPID;
+    DPID: TDPID;
     szLongName: array[0..DPLONGNAMELEN-1] of Char;
     szShortName: array[0..DPSHORTNAMELEN-1] of Char;
     dwCurrentPlayers: DWORD;
   end;
-  DPMSG_ADDPLAYER = TDPMsg_AddPlayer;
-  LPDPMSG_ADDPLAYER = PDPMsg_AddPlayer;
-{ TDPMsg_AddGroup }
   PDPMsg_AddGroup = ^TDPMsg_AddGroup;
   TDPMsg_AddGroup = TDPMsg_AddPlayer;
-  DPMSG_ADDGROUP = TDPMsg_AddGroup;
-  LPDPMSG_ADDGROUP = PDPMsg_AddGroup;
-{ TDPMsg_GroupAdd }
   PDPMsg_GroupAdd = ^TDPMsg_GroupAdd;
-  TDPMsg_GroupAdd = record
+  TDPMsg_GroupAdd = packed record
     dwType: DWORD;
     dpIdGroup: TDPID;
     dpIdPlayer: TDPID;
   end;
-  DPMSG_GROUPADD = TDPMsg_GroupAdd;
-  LPDPMSG_GROUPADD = PDPMsg_GroupAdd;
-{ TDPMsg_GroupDelete }
   PDPMsg_GroupDelete = ^TDPMsg_GroupDelete;
   TDPMsg_GroupDelete = TDPMsg_GroupAdd;
-  DPMSG_GROUPDELETE = TDPMsg_GroupDelete;
-  LPDPMSG_GROUPDELETE = PDPMsg_GroupDelete;
-{ TDPMsg_DeletePlayer }
   PDPMsg_DeletePlayer = ^TDPMsg_DeletePlayer;
-  TDPMsg_DeletePlayer = record
+  TDPMsg_DeletePlayer = packed record
     dwType: DWORD;
-    dpId: TDPID;
+    DPID: TDPID;
   end;
-  DPMSG_DELETEPLAYER = TDPMsg_DeletePlayer;
-  LPDPMSG_DELETEPLAYER = PDPMsg_DeletePlayer;
-{ TDPEnumPlayersCallback }
-  TDPEnumPlayersCallback = function(dpId: TDPID; lpFriendlyName: LPSTR;
+  TDPEnumPlayersCallback = function(dpId: TDPID; lpFriendlyName: PChar;
-      lpFormalName: LPSTR; dwFlags: DWORD; lpContext: Pointer): BOOL; stdcall;
+      lpFormalName: PChar; dwFlags: DWORD; lpContext: Pointer) : BOOL; stdcall;
-  LPDPENUMPLAYERSCALLBACK = TDPEnumPlayersCallback;
-{ TDPSessionDesc }
   PDPSessionDesc = ^TDPSessionDesc;
-  TDPSessionDesc = record
+  TDPSessionDesc = packed record
     dwSize: DWORD;
     guidSession: TGUID;
     dwSession: DWORD;
     dwMaxPlayers: DWORD;
     dwCurrentPlayers: DWORD;
     dwFlags: DWORD;
-    szSessionName: array[0..DPSESSIONNAMELEN-1] of char;
+    szSessionName: Array [0..DPSESSIONNAMELEN-1] of char;
-    szUserField: array[0..DPUSERRESERVED-1] of char;
+    szUserField: Array [0..DPUSERRESERVED-1] of char;
     dwReserved1: DWORD;
-    szPassword: array[0..DPPASSWORDLEN-1] of char;
+    szPassword: Array [0..DPPASSWORDLEN-1] of char;
     dwReserved2: DWORD;
     dwUser1: DWORD;
     dwUser2: DWORD;
     dwUser3: DWORD;
     dwUser4: DWORD;
   end;
-  DPSESSIONDESC = TDPSessionDesc;
-  LPDPSESSIONDESC = PDPSessionDesc;
-{ TDPEnumSessionsCallback }
-  TDPEnumSessionsCallback = function(var lpDPSessionDesc: TDPSessionDesc;
+  TDPEnumSessionsCallback = function(const lpDPSessionDesc: TDPSessionDesc;
-      lpContext: Pointer; var lpdwTimeOut: DWORD; dwFlags: DWORD): BOOL; stdcall;
+      lpContext: Pointer; var lpdwTimeOut: DWORD; dwFlags: DWORD) : BOOL; stdcall;
-  LPDPENUMSESSIONSCALLBACK = TDPEnumSessionsCallback;
 type
-  IDirectPlay = interface(IUnknown)
+  IDirectPlay = interface (IUnknown)
+    ['{5454e9a0-db65-11ce-921c-00aa006c4972}']
-    // IDirectPlay methods
+    (*** IDirectPlay methods ***)
-    function AddPlayerToGroup(pidGroup: TDPID; pidPlayer: TDPID): HResult; stdcall;
+    function AddPlayerToGroup(pidGroup: TDPID; pidPlayer: TDPID) : HResult; stdcall;
     function Close: HResult; stdcall;
-    function CreatePlayer(var lppidID: TDPID; lpPlayerFriendlyName: LPSTR;
+    function CreatePlayer(out lppidID: TDPID; lpPlayerFriendlyName: PChar;
-        lpPlayerFormalName: LPSTR; lpEvent: PHandle): HResult; stdcall;
+        lpPlayerFormalName: PChar; lpEvent: PHandle) : HResult; stdcall;
-    function CreateGroup(var lppidID: TDPID; lpGroupFriendlyName: LPSTR;
+    function CreateGroup(out lppidID: TDPID; lpGroupFriendlyName: PChar;
-        lpGroupFormalName: LPSTR): HResult; stdcall;
+        lpGroupFormalName: PChar) : HResult; stdcall;
-    function DeletePlayerFromGroup(pidGroup: TDPID; pidPlayer: TDPID): HResult; stdcall;
+    function DeletePlayerFromGroup(pidGroup: TDPID; pidPlayer: TDPID) : HResult; stdcall;
-    function DestroyPlayer(pidID: TDPID): HResult; stdcall;
+    function DestroyPlayer(pidID: TDPID) : HResult; stdcall;
-    function DestroyGroup(pidID: TDPID): HResult; stdcall;
+    function DestroyGroup(pidID: TDPID) : HResult; stdcall;
-    function EnableNewPlayers(bEnable: BOOL): HResult; stdcall;
+    function EnableNewPlayers(bEnable: BOOL) : HResult; stdcall;
     function EnumGroupPlayers(pidGroupPID: TDPID; lpEnumPlayersCallback:
-        LPDPENUMPLAYERSCALLBACK; lpContext: Pointer; dwFlags: DWORD): HResult; stdcall;
+        TDPEnumPlayersCallback; lpContext: Pointer; dwFlags: DWORD) : HResult; stdcall;
     function EnumGroups(dwSessionID: DWORD; lpEnumPlayersCallback:
-        LPDPENUMPLAYERSCALLBACK; lpContext: Pointer; dwFlags: DWORD): HResult; stdcall;
+        TDPEnumPlayersCallback; lpContext: Pointer; dwFlags: DWORD) : HResult; stdcall;
     function EnumPlayers(dwSessionId: DWORD; lpEnumPlayersCallback:
-        LPDPENUMPLAYERSCALLBACK; lpContext: Pointer; dwFlags: DWORD): HResult; stdcall;
+        TDPEnumPlayersCallback; lpContext: Pointer; dwFlags: DWORD) : HResult; stdcall;
-    function EnumSessions(const lpSDesc: TDPSessionDesc; dwTimeout: DWORD;
+    function EnumSessions(var lpSDesc: TDPSessionDesc; dwTimeout: DWORD;
-        lpEnumSessionsCallback: TDPEnumPlayersCallback; lpContext: Pointer;
+        lpEnumSessionsCallback: TDPEnumSessionsCallback; lpContext: Pointer;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function GetCaps(const lpDPCaps: TDPCaps): HResult; stdcall;
+    function GetCaps(var lpDPCaps: TDPCaps) : HResult; stdcall;
-    function GetMessageCount(pidID: TDPID; var lpdwCount: DWORD): HResult; stdcall;
+    function GetMessageCount(pidID: TDPID; var lpdwCount: DWORD) : HResult; stdcall;
-    function GetPlayerCaps(pidID: TDPID; const lpDPPlayerCaps: TDPCaps): HResult; stdcall;
+    function GetPlayerCaps(pidID: TDPID; var lpDPPlayerCaps: TDPCaps) : HResult; stdcall;
-    function GetPlayerName(pidID: TDPID; lpPlayerFriendlyName: LPSTR;
+    function GetPlayerName(pidID: TDPID; lpPlayerFriendlyName: PChar;
-        var lpdwFriendlyNameLength: DWORD; lpPlayerFormalName: LPSTR;
+        var lpdwFriendlyNameLength: DWORD; lpPlayerFormalName: PChar;
-        var lpdwFormalNameLength: DWORD): HResult; stdcall;
+        var lpdwFormalNameLength: DWORD) : HResult; stdcall;
-    function Initialize(const lpGUID: TGUID): HResult; stdcall;
+    function Initialize(const lpGUID: TGUID) : HResult; stdcall;
-    function Open(const lpSDesc: TDPSessionDesc): HResult; stdcall;
+    function Open(var lpSDesc: TDPSessionDesc) : HResult; stdcall;
     function Receive(var lppidFrom, lppidTo: TDPID; dwFlags: DWORD;
-        var lpvBuffer; var lpdwSize: DWORD): HResult; stdcall;
+        var lpvBuffer; var lpdwSize: DWORD) : HResult; stdcall;
-    function SaveSession(lpSessionName: LPSTR): HResult; stdcall;
+    function SaveSession(lpSessionName: PChar) : HResult; stdcall;
     function Send(pidFrom: TDPID; pidTo: TDPID; dwFlags: DWORD;
-        const lpvBuffer; dwBuffSize: DWORD): HResult; stdcall;
+        var lpvBuffer; dwBuffSize: DWORD) : HResult; stdcall;
-    function SetPlayerName(pidID: TDPID; lpPlayerFriendlyName: LPSTR;
+    function SetPlayerName(pidID: TDPID; lpPlayerFriendlyName: PChar;
-        lpPlayerFormalName: LPSTR): HResult; stdcall;
+        lpPlayerFormalName: PChar) : HResult; stdcall;
   end;
+(*
-{ API's (cont.) }
+ * GUIDS used by DirectPlay objects
+ *)
+  IID_IDirectPlay2W = IDirectPlay2W;
+  IID_IDirectPlay2A = IDirectPlay2A;
+  IID_IDirectPlay2 =  IDirectPlay2;
+  IID_IDirectPlay3W = IDirectPlay3W;
+  IID_IDirectPlay3A = IDirectPlay3A;
+  IID_IDirectPlay3 =  IDirectPlay3;
+  IID_IDirectPlay4W = IDirectPlay4W;
+  IID_IDirectPlay4A = IDirectPlay4A;
+  IID_IDirectPlay4 =  IDirectPlay4;
+  IID_IDirectPlay = IDirectPlay;
+var
-function DirectPlayCreate(const lpGUID: TGUID; out lplpDP: IDirectPlay;
+  DirectPlayCreate : function (lpGUID: PGUID; out lplpDP: IDirectPlay;
-    pUnk: IUnknown): HResult; stdcall;
+      pUnk: IUnknown) : HResult; stdcall;
 (*==========================================================================;
+ *
  *  Copyright (C) 1996-1997 Microsoft Corporation.  All Rights Reserved.
+ *
  *  File:       dplobby.h
  *  Content:    DirectPlayLobby include file
- *
  ***************************************************************************)
+(*
-{ GUIDS used by DirectPlay objects }
+ * GUIDS used by DirectPlay objects
+ *)
 const
-  CLSID_DirectPlayLobby: TGUID = '{2FE8F810-B2A5-11D0-A787-0000F803ABFC}';
+(* {2FE8F810-B2A5-11d0-A787-0000F803ABFC} *)
-  IID_IDirectPlayLobby: TGUID = '{AF465C71-9588-11cf-A020-00AA006157AC}';
+  CLSID_DirectPlayLobby: TGUID =
-  IID_IDirectPlayLobbyA: TGUID = '{26C66A70-B367-11cf-A024-00AA006157AC}';
-  IID_IDirectPlayLobby2: TGUID = '{0194C220-A303-11d0-9C4F-00A0C905425E}';
+      (D1:$2fe8f810;D2:$b2a5;D3:$11d0;D4:($a7,$87,$00,$00,$f8,$3,$ab,$fc));
-  IID_IDirectPlayLobby2A: TGUID = '{1BB4AF80-A303-11d0-9C4F-00A0C905425E}';
-  IID_IDirectPlayLobby3: TGUID = '{2DB72490-652C-11d1-A7A8-0000F803ABFC}';
-  IID_IDirectPlayLobby3A: TGUID = '{2DB72491-652C-11d1-A7A8-0000F803ABFC}';
+(****************************************************************************
+ *
-{ IDirectPlayLobby Structures }
+ * IDirectPlayLobby Structures
+ *
+ * Various structures used to invoke DirectPlayLobby.
-{ TDPLAppInfo }
+ *
+ ****************************************************************************)
 type
+(*
+ * TDPLAppInfo
+ * Used to hold information about a registered DirectPlay
+ * application
+ *)
   PDPLAppInfo = ^TDPLAppInfo;
-  TDPLAppInfo = record
+  TDPLAppInfo = packed record
     dwSize: DWORD;            // Size of this structure
     guidApplication: TGUID;   // GUID of the Application
     case Integer of           // Pointer to the Application Name
-: (lpszAppNameA: LPSTR);
+: (lpszAppName: PCharAW);
+: (lpszAppNameW: PWideChar);
-: (lpszAppName: LPWSTR);
+: (lpszAppNameA: PChar);
   end;
-  DPLAPPINFO = TDPLAppInfo;
-  LPDPLAPPINFO = PDPLAppInfo;
+(*
-{ TDPCompoundAddressElement }
+ * TDPCompoundAddressElement
+ *
+ * An array of these is passed to CreateCompoundAddresses()
+ *)
   PDPCompoundAddressElement = ^TDPCompoundAddressElement;
-  TDPCompoundAddressElement = record
+  TDPCompoundAddressElement = packed record
     guidDataType: TGUID;
     dwDataSize: DWORD;
     lpData: Pointer;
   end;
-  DPCOMPOUNDADDRESSELEMENT = TDPCompoundAddressElement;
-  LPDPCOMPOUNDADDRESSELEMENT = PDPCompoundAddressElement;
+(*
-{ TDPApplicationDesc }
+ * TDPApplicationDesc
+ * Used to register a DirectPlay application
+ *)
   PDPApplicationDesc = ^TDPApplicationDesc;
-  TDPApplicationDesc = record
+  TDPApplicationDesc = packed record
     dwSize: DWORD;
     dwFlags: DWORD;
-    case Integer of
+    case integer of
-: (
-        lpszApplicationNameA: LPSTR;  // ANSI
+: (lpszApplicationName: PCharAW;
-        guidApplication: TGUID;
+           guidApplication: TGUID;
-        lpszFilenameA: LPSTR;
+           lpszFilename: PCharAW;
-        lpszCommandLineA: LPSTR;
+           lpszCommandLine: PCharAW;
-        lpszPathA: LPSTR;
+           lpszPath: PCharAW;
-        lpszCurrentDirectoryA: LPSTR;
+           lpszCurrentDirectory: PCharAW;
-        lpszDescriptionA: LPSTR;
+           lpszDescriptionA: PAnsiChar;
-        lpszDescriptionW: LPWSTR;
+           lpszDescriptionW: PWideChar);
-        );
-: (
-        lpszApplicationName: LPWSTR;  // Unicode
+: (lpszApplicationNameA: PAnsiChar;
-        _union1b: TGUID;
+           filler1: TGUID;
-        lpszFilename: LPWSTR;
+           lpszFilenameA: PAnsiChar;
-        lpszCommandLine: LPWSTR;
+           lpszCommandLineA: PAnsiChar;
-        lpszPath: LPWSTR;
+           lpszPathA: PAnsiChar;
-        lpszCurrentDirectory: LPWSTR;
+           lpszCurrentDirectoryA: PAnsiChar);
+: (lpszApplicationNameW: PWideChar;
-        _union1g: LPWSTR;
+           filler2: TGUID;
+           lpszFilenameW: PWideChar;
+           lpszCommandLineW: PWideChar;
-        );
+           lpszPathW: PWideChar;
+           lpszCurrentDirectoryW: PWideChar);
   end;
-  DPAPPLICATIONDESC = TDPApplicationDesc;
-  LPDPAPPLICATIONDESC = PDPApplicationDesc;
+(*
-{ TDPApplicationDesc2 }
+ * TDPApplicationDesc2
+ * Used to register a DirectPlay application
+ *)
   PDPApplicationDesc2 = ^TDPApplicationDesc2;
-  TDPApplicationDesc2 = record
+  TDPApplicationDesc2 = packed record
     dwSize: DWORD;
     dwFlags: DWORD;
-    case Integer of
+    case integer of
-: (
-        lpszApplicationNameA: LPSTR;  // ANSI
+: (lpszApplicationName: PCharAW;
-        guidApplication: TGUID;
+           guidApplication: TGUID;
-        lpszFilenameA: LPSTR;
+           lpszFilename: PCharAW;
-        lpszCommandLineA: LPSTR;
+           lpszCommandLine: PCharAW;
-        lpszPathA: LPSTR;
+           lpszPath: PCharAW;
-        lpszCurrentDirectoryA: LPSTR;
+           lpszCurrentDirectory: PCharAW;
-        lpszDescriptionA: LPSTR;
+           lpszDescriptionA: PAnsiChar;
-        lpszDescriptionW: LPWSTR;
+           lpszDescriptionW: PWideChar;
-        lpszAppLauncherNameA: LPSTR;
+           lpszAppLauncherName: PCharAW);
+: (lpszApplicationNameA: PAnsiChar;
+           filler1: TGUID;
+           lpszFilenameA: PAnsiChar;
+           lpszCommandLineA: PAnsiChar;
+           lpszPathA: PAnsiChar;
+           lpszCurrentDirectoryA: PAnsiChar;
-        );
+           filler3: PChar;
-: (
+           filler4: PChar;
+           lpszAppLauncherNameA: PAnsiChar);
-        lpszApplicationName: LPWSTR;  // Unicode
+: (lpszApplicationNameW: PWideChar;
-        _union1b: TGUID;
+           filler2: TGUID;
-        lpszFilename: LPWSTR;
+           lpszFilenameW: PWideChar;
-        lpszCommandLine: LPWSTR;
+           lpszCommandLineW: PWideChar;
-        lpszPath: LPWSTR;
+           lpszPathW: PWideChar;
-        lpszCurrentDirectory: LPWSTR;
+           lpszCurrentDirectoryW: PWideChar;
-        _union1g: LPWSTR;
+           filler5: PChar;
-        lpszAppLauncherName: LPWSTR;
+           filler6: PChar;
-        );
+           lpszAppLauncherNameW: PWideChar);
   end;
-  DPAPPLICATIONDESC2 = TDPApplicationDesc2;
-  LPDPAPPLICATIONDESC2 = PDPApplicationDesc2;
+(****************************************************************************
+ *
-{ Enumeration Method Callback Prototypes }
+ * Enumeration Method Callback Prototypes
+ *
+ ****************************************************************************)
+(*
+ * Callback for EnumAddress()
+ *)
-  TDPEnumAddressCallback = function(const guidDataType: TGUID;
+  TDPEnumAdressCallback = function(const guidDataType: TGUID;
-      dwDataSize: DWORD; lpData: Pointer; lpContext: Pointer): BOOL; stdcall;
+      dwDataSize: DWORD; lpData: Pointer; lpContext: Pointer) : BOOL; stdcall;
-  LPDPENUMADDRESSCALLBACK = TDPEnumAddressCallback;
+(*
+ * Callback for EnumAddressTypes()
+ *)
   TDPLEnumAddressTypesCallback = function(const guidDataType: TGUID;
-      lpContext: Pointer; dwFlags: DWORD): BOOL; stdcall;
+      lpContext: Pointer; dwFlags: DWORD) : BOOL; stdcall;
-  LPDPLENUMADDRESSTYPESCALLBACK = TDPLEnumAddressTypesCallback;
+(*
+ * Callback for EnumLocalApplications()
+ *)
   TDPLEnumLocalApplicationsCallback = function(const lpAppInfo: TDPLAppInfo;
-      lpContext: Pointer; dwFlags: DWORD): BOOL; stdcall;
+      lpContext: Pointer; dwFlags: DWORD) : BOOL; stdcall;
-  LPDPLENUMLOCALAPPLICATIONSCALLBACK = TDPLEnumLocalApplicationsCallback;
+(****************************************************************************
+ *
-{ IDirectPlayLobby (and IDirectPlayLobbyA) Interface }
+ * IDirectPlayLobby (and IDirectPlayLobbyA) Interface
+ *
+ ****************************************************************************)
 type
-  IDirectPlayLobby = interface(IUnknown)
+  IDirectPlayLobbyAW = interface (IUnknown)
-    ['{AF465C71-9588-11CF-A020-00AA006157AC}']
-    // IDirectPlayLobby methods
+    (*** IDirectPlayLobby methods ***)
     function Connect(dwFlags: DWORD; out lplpDP: IDirectPlay2;
-        pUnk: IUnknown): HResult; stdcall;
+        pUnk: IUnknown) : HResult; stdcall;
-    function CreateAddress(const guidSP, guidDataType: TGUID; const lpData;
+    function CreateAddress(const guidSP, guidDataType: TGUID; var lpData;
-        dwDataSize: DWORD; var lpAddress; var lpdwAddressSize: DWORD): HResult; stdcall;
+        dwDataSize: DWORD; var lpAddress; var lpdwAddressSize: DWORD) : HResult; stdcall;
-    function EnumAddress(lpEnumAddressCallback: TDPEnumAddressCallback;
+    function EnumAddress(lpEnumAddressCallback: TDPEnumAdressCallback;
-        const lpAddress; dwAddressSize: DWORD; lpContext : Pointer): HResult; stdcall;
+        var lpAddress; dwAddressSize: DWORD; lpContext : Pointer) : HResult; stdcall;
     function EnumAddressTypes(lpEnumAddressTypeCallback:
         TDPLEnumAddressTypesCallback; const guidSP: TGUID; lpContext: Pointer;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function EnumLocalApplications(lpEnumLocalAppCallback:
+    function EnumLocalApplications(lpEnumLocalAppCallback: TDPLEnumLocalApplicationsCallback;
-        TDPLEnumLocalApplicationsCallback; lpContext: Pointer; dwFlags: DWORD): HResult; stdcall;
+        lpContext: Pointer; dwFlags: DWORD) : HResult; stdcall;
-    function GetConnectionSettings(dwAppID: DWORD; var lpData: TDPLConnection;
+    function GetConnectionSettings(dwAppID: DWORD; lpData: PDPLConnection;
-        var lpdwDataSize: DWORD): HResult; stdcall;
+        var lpdwDataSize: DWORD) : HResult; stdcall;
     function ReceiveLobbyMessage(dwFlags: DWORD; dwAppID: DWORD;
-        var lpdwMessageFlags: DWORD; var lpData; var lpdwDataSize: DWORD): HResult; stdcall;
+        var lpdwMessageFlags: DWORD; lpData: Pointer; var lpdwDataSize: DWORD) : HResult; stdcall;
     function RunApplication(dwFlags: DWORD; var lpdwAppId: DWORD;
-        const lpConn: TDPLConnection; hReceiveEvent: THandle): HResult; stdcall;
+        const lpConn: TDPLConnection; hReceiveEvent: THandle) : HResult; stdcall;
     function SendLobbyMessage(dwFlags: DWORD; dwAppID: DWORD; const lpData;
-        dwDataSize: DWORD): HResult; stdcall;
+        dwDataSize: DWORD) : HResult; stdcall;
     function SetConnectionSettings(dwFlags: DWORD; dwAppID: DWORD;
-        const lpConn: TDPLConnection): HResult; stdcall;
+        var lpConn: TDPLConnection) : HResult; stdcall;
     function SetLobbyMessageEvent(dwFlags: DWORD; dwAppID: DWORD;
-        hReceiveEvent: THandle): HResult; stdcall;
+        hReceiveEvent: THandle) : HResult; stdcall;
   end;
+  IDirectPlayLobbyW = interface (IDirectPlayLobbyAW)
+    ['{AF465C71-9588-11CF-A020-00AA006157AC}']
+  end;
-  IDirectPlayLobbyA = interface(IDirectPlayLobby)
+  IDirectPlayLobbyA = interface (IDirectPlayLobbyAW)
-    ['{26C66A70-B367-11CF-A024-00AA006157AC}']
+    ['{26C66A70-B367-11cf-A024-00AA006157AC}']
   end;
+{$IFDEF UNICODE}
+  IDirectPlayLobby = IDirectPlayLobbyW;
+{$ELSE}
-{ IDirectPlayLobby2 (and IDirectPlayLobby2A) Interface }
+  IDirectPlayLobby = IDirectPlayLobbyA;
+{$ENDIF}
+(****************************************************************************
+ *
-  IDirectPlayLobby2 = interface(IDirectPlayLobby)
+ * IDirectPlayLobby2 (and IDirectPlayLobby2A) Interface
+ *
+ ****************************************************************************)
-    ['{0194C220-A303-11D0-9C4F-00A0C905425E}']
+  IDirectPlayLobby2AW = interface(IDirectPlayLobbyAW)
-    // IDirectPlayLobby2 methods
+    (*** IDirectPlayLobby2 methods ***)
     function CreateCompoundAddress(const lpElements: TDPCompoundAddressElement;
-        dwElementCount: DWORD; var lpAddress; var lpdwAddressSize: DWORD): HResult; stdcall;
+        dwElementCount: DWORD; lpAddress: Pointer; var lpdwAddressSize: DWORD) : HResult; stdcall;
   end;
+  IDirectPlayLobby2W = interface (IDirectPlayLobby2AW)
+    ['{0194C220-A303-11D0-9C4F-00A0C905425E}']
+  end;
-  IDirectPlayLobby2A = interface(IDirectPlayLobby2)
+  IDirectPlayLobby2A = interface (IDirectPlayLobby2AW)
-    ['{1BB4AF80-A303-11D0-9C4F-00A0C905425E}']
+    ['{1BB4AF80-A303-11d0-9C4F-00A0C905425E}']
   end;
+{$IFDEF UNICODE}
+  IDirectPlayLobby2 = IDirectPlayLobby2W;
+{$ELSE}
-{ IDirectPlayLobby3 (and IDirectPlayLobby3A) Interface }
+  IDirectPlayLobby2 = IDirectPlayLobby2A;
+{$ENDIF}
+(****************************************************************************
+ *
-  IDirectPlayLobby3 = interface(IDirectPlayLobby2)
+ * IDirectPlayLobby3 (and IDirectPlayLobby3A) Interface
+ *
+ ****************************************************************************)
-    ['{2DB72490-652C-11d1-A7A8-0000F803ABFC}']
+  IDirectPlayLobby3AW = interface(IDirectPlayLobby2AW)
-    // IDirectPlayLobby3 Methods
+    (*** IDirectPlayLobby3 methods ***)
-    function ConnectEx(dwFlags: DWORD; const riid: TGUID; var lplpDP: Pointer;
+    function ConnectEx(dwFlags: DWORD; const riid: TGUID;
-        pUnk: IUnknown): HResult; stdcall;
+        out lplpDP; pUnk: IUnknown) : HResult; stdcall;
+    function RegisterApplication(dwFlags: DWORD;
-    function RegisterApplication(dwFlags: DWORD; const lpAppDesc: TDPApplicationDesc): HResult; stdcall;
+        var lpAppDesc: TDPApplicationDesc) : HResult; stdcall;
+    function UnregisterApplication(dwFlags: DWORD;
-    function UnRegisterApplication(dwFlags: DWORD; const guidApplication: TGUID): HResult; stdcall;
+         const guidApplication: TGUID) : HResult; stdcall;
-    function WaitForConnectionSettings(dwFlags: DWORD): HResult; stdcall;
+    function WaitForConnectionSettings(dwFlags: DWORD) : HResult; stdcall;
-  end;
+        end;
+  IDirectPlayLobby3W = interface (IDirectPlayLobby3AW)
+    ['{2DB72490-652C-11d1-A7A8-0000F803ABFC}']
+  end;
-  IDirectPlayLobby3A = interface(IDirectPlayLobby3)
+  IDirectPlayLobby3A = interface (IDirectPlayLobby3AW)
     ['{2DB72491-652C-11d1-A7A8-0000F803ABFC}']
   end;
+{$IFDEF UNICODE}
+  IDirectPlayLobby3 = IDirectPlayLobby3W;
+{$ELSE}
-{ DirectPlayLobby API Prototypes }
+  IDirectPlayLobby3 = IDirectPlayLobby3A;
+{$ENDIF}
-function DirectPlayLobbyCreateW(const lpguidSP: TGUID; out lplpDPL: IDirectPlayLobby;
+  IID_IDirectPlayLobbyW =  IDirectPlayLobbyW;
-    lpUnk: IUnknown; lpData: Pointer; dwDataSize: DWORD): HResult; stdcall;
+  IID_IDirectPlayLobbyA =  IDirectPlayLobbyA;
-function DirectPlayLobbyCreateA(const lpguidSP: TGUID; out lplpDPL: IDirectPlayLobbyA;
+  IID_IDirectPlayLobby =   IDirectPlayLobby;
-    lpUnk: IUnknown; lpData: Pointer; dwDataSize: DWORD): HResult; stdcall;
+  IID_IDirectPlayLobby2W = IDirectPlayLobby2W;
+  IID_IDirectPlayLobby2A = IDirectPlayLobby2A;
-function DirectPlayLobbyCreate(const lpguidSP: TGUID; out lplpDPL: IDirectPlayLobbyA;
+  IID_IDirectPlayLobby2 =  IDirectPlayLobby2;
+  IID_IDirectPlayLobby3W = IDirectPlayLobby3W;
+  IID_IDirectPlayLobby3A = IDirectPlayLobby3A;
-    lpUnk: IUnknown; lpData: Pointer; dwDataSize: DWORD): HResult; stdcall;
+  IID_IDirectPlayLobby3 =  IDirectPlayLobby3;
+(****************************************************************************
+ *
-{ DirectPlayLobby Flags }
+ * DirectPlayLobby API Prototypes
+ *
+ ****************************************************************************)
+var
+  DirectPlayLobbyCreateW : function (lpguidSP: PGUID; out lplpDPL:
+      IDirectPlayLobbyW; lpUnk: IUnknown; lpData: Pointer; dwDataSize: DWORD) : HResult; stdcall;
+  DirectPlayLobbyCreateA : function (lpguidSP: PGUID; out lplpDPL:
+      IDirectPlayLobbyA; lpUnk: IUnknown; lpData: Pointer; dwDataSize: DWORD) : HResult; stdcall;
+  DirectPlayLobbyCreate : function (lpguidSP: PGUID; out lplpDPL:
+      IDirectPlayLobby; lpUnk: IUnknown; lpData: Pointer; dwDataSize: DWORD) : HResult; stdcall;
 const
+(****************************************************************************
+ *
+ * DirectPlayLobby Flags
+ *
+ ****************************************************************************)
+(*
+ *  This flag is used by IDirectPlayLobby.WaitForConnectionSettings to
+ *  cancel a current wait that is in progress.
+ *)
-  DPLWAIT_CANCEL  = $00000001;
+ DPLWAIT_CANCEL = $00000001;
+(*
+ *      This is a message flag used by ReceiveLobbyMessage.  It can be
+ *      returned in the dwMessageFlags parameter to indicate a message from
+ *      the system.
+ *)
-  DPLMSG_SYSTEM   = $00000001;
+  DPLMSG_SYSTEM = $00000001;
-  DPLMSG_STANDARD = $00000002;
-{ DirectPlayLobby messages and message data structures }
+(*
+ *      This is a message flag used by ReceiveLobbyMessage and SendLobbyMessage.
+ *  It is used to indicate that the message is a standard lobby message.
+ *  TDPLMsg_SetProperty, TDPLMsg_SetPropertyResponse, TDPLMsg_GetProperty,
-{ TDPLMsg_Generic }
+ *      TDPLMsg_GetPropertyResponse
+ *)
+  DPLMSG_STANDARD = $00000002;
 type
+(****************************************************************************
+ *
+ * DirectPlayLobby messages and message data structures
+ *
+ * All system messages have a dwMessageFlags value of DPLMSG_SYSTEM returned
+ * from a call to ReceiveLobbyMessage.
+ *
+ * All standard messages have a dwMessageFlags value of DPLMSG_STANDARD returned
+ * from a call to ReceiveLobbyMessage.
+ *
+ ****************************************************************************)
+(*
+ * TDPLMsg_Generic
+ * Generic message structure used to identify the message type.
+ *)
   PDPLMsg_Generic = ^TDPLMsg_Generic;
-  TDPLMsg_Generic = record
+  TDPLMsg_Generic = packed record
     dwType: DWORD;   // Message type
   end;
-  DPLMSG_GENERIC = TDPLMsg_Generic;
-  LPDPLMSG_GENERIC = PDPLMsg_Generic;
+(*
-{ TDPLMsg_SystemMessage }
+ * TDPLMsg_SystemMessage
+ * Generic message format for all system messages --
+ * DPLSYS_CONNECTIONSETTINGSREAD, DPLSYS_DPLYCONNECTSUCCEEDED,
+ * DPLSYS_DPLAYCONNECTFAILED, DPLSYS_APPTERMINATED, DPLSYS_NEWCONNECTIONSETTINGS
+ *)
   PDPLMsg_SystemMessage = ^TDPLMsg_SystemMessage;
-  TDPLMsg_SystemMessage = record
+  TDPLMsg_SystemMessage = packed record
-    dwType: DWORD;        // Message type
+    dwType: DWORD;         // Message type
-    guidInstance: TGUID;  // Instance GUID of the dplay session the message corresponds to
+    guidInstance: TGUID;    // Instance GUID of the dplay session the message corresponds to
   end;
-  DPLMSG_SYSTEMMESSAGE = TDPLMsg_SystemMessage;
-  LPDPLMSG_SYSTEMMESSAGE = PDPLMsg_SystemMessage;
+(*
-{ TDPLMsg_SetProperty }
+ *  TDPLMsg_SetProperty
+ *  Standard message sent by an application to a lobby to set a
+ *  property
+ *)
   PDPLMsg_SetProperty = ^TDPLMsg_SetProperty;
-  TDPLMsg_SetProperty = record
+  TDPLMsg_SetProperty = packed record
     dwType: DWORD;                           // Message type
     dwRequestID: DWORD;                      // Request ID (DPL_NOCONFIRMATION if no confirmation desired)
     guidPlayer: TGUID;                       // Player GUID
     guidPropertyTag: TGUID;                  // Property GUID
     dwDataSize: DWORD;                       // Size of data
-    dwPropertyData: array[0..0] of DWORD;   // Buffer containing data
+    dwPropertyData: array[0..0] of DWORD;    // Buffer containing data
   end;
-  DPLMSG_SETPROPERTY = TDPLMsg_SetProperty;
-  LPDPLMSG_SETPROPERTY = PDPLMsg_SetProperty;
 const
   DPL_NOCONFIRMATION = 0;
-{ TDPLMsg_SetPropertyResponse }
 type
+(*
+ *  TDPLMsg_SetPropertyResponse
+ *  Standard message returned by a lobby to confirm a
+ *  TDPLMsg_SetProperty message.
+ *)
   PDPLMsg_SetPropertyResponse = ^TDPLMsg_SetPropertyResponse;
-  TDPLMsg_SetPropertyResponse = record
+  TDPLMsg_SetPropertyResponse = packed record
     dwType: DWORD;            // Message type
     dwRequestID: DWORD;       // Request ID
     guidPlayer: TGUID;        // Player GUID
     guidPropertyTag: TGUID;   // Property GUID
     hr: HResult;              // Return Code
   end;
-  DPLMSG_SETPROPERTYRESPONSE = TDPLMsg_SetPropertyResponse;
-  LPDPLMSG_SETPROPERTYRESPONSE = PDPLMsg_SetPropertyResponse;
+(*
-{ TDPLMsg_GetProperty }
+ *  TDPLMsg_GetProperty
+ *  Standard message sent by an application to a lobby to request
+ *      the current value of a property
+ *)
   PDPLMsg_GetProperty = ^TDPLMsg_GetProperty;
-  TDPLMsg_GetProperty = record
+  TDPLMsg_GetProperty = packed record
     dwType: DWORD;            // Message type
     dwRequestID: DWORD;       // Request ID
     guidPlayer: TGUID;        // Player GUID
     guidPropertyTag: TGUID;   // Property GUID
   end;
+  LPDPLMSG_GETPROPERTY = ^TDPLMsg_GetProperty;
+(*
-  DPLMSG_GETPROPERTY = TDPLMsg_GetProperty;
+ *  TDPLMsg_GetPropertyResponse
-  LPDPLMSG_GETPROPERTY = PDPLMsg_GetProperty;
+ *  Standard message returned by a lobby in response to a
-{ TDPLMsg_GetPropertyResponse }
+ *      TDPLMsg_GetProperty message.
+ *)
   PDPLMsg_GetPropertyResponse = ^TDPLMsg_GetPropertyResponse;
-  TDPLMsg_GetPropertyResponse = record
+  TDPLMsg_GetPropertyResponse = packed record
     dwType: DWORD;                           // Message type
     dwRequestID: DWORD;                      // Request ID
     guidPlayer: TGUID;                       // Player GUID
     guidPropertyTag: TGUID;                  // Property GUID
     hr: HResult;                             // Return Code
     dwDataSize: DWORD;                       // Size of data
     dwPropertyData: array[0..0] of DWORD;    // Buffer containing data
   end;
-  DPLMSG_GETPROPERTYRESPONSE = TDPLMsg_GetPropertyResponse;
-  LPDPLMSG_GETPROPERTYRESPONSE = PDPLMsg_GetPropertyResponse;
+(*
-{ TDPLMsg_NewSessionHost }
+ *  TDPLMsg_NewSessionHost
+ *  Standard message returned by a lobby in response to a
+ *  the session host migrating to a new client
+ *)
   PDPLMsg_NewSessionHost = ^TDPLMsg_NewSessionHost;
-  TDPLMsg_NewSessionHost = record
+  TDPLMsg_NewSessionHost = packed record
     dwType: DWORD;            // Message type
-    guidInstance: TGUID;      // GUID Instance of the session
+    guidInstance: TGUID;      // Property GUID
   end;
-  DPLMSG_NEWSESSIONHOST = TDPLMsg_NewSessionHost;
-  LPDPLMSG_NEWSESSIONHOST = PDPLMsg_NewSessionHost;
-{ DirectPlay Lobby message dwType values }
 const
+(******************************************
+ *
+ *      DirectPlay Lobby message dwType values
+ *
+ *****************************************)
+(*
+ *  The application has read the connection settings.
+ *  It is now O.K. for the lobby client to release
+ *  its IDirectPlayLobby interface.
+ *)
   DPLSYS_CONNECTIONSETTINGSREAD = $00000001;
+(*
+ *  The application's call to DirectPlayConnect failed
+ *)
-  DPLSYS_DPLAYCONNECTFAILED     = $00000002;
+  DPLSYS_DPLAYCONNECTFAILED = $00000002;
+(*
+ *  The application has created a DirectPlay session.
+ *)
-  DPLSYS_DPLAYCONNECTSUCCEEDED  = $00000003;
+  DPLSYS_DPLAYCONNECTSUCCEEDED = $00000003;
+(*
+ *  The application has terminated.
+ *)
-  DPLSYS_APPTERMINATED          = $00000004;
+  DPLSYS_APPTERMINATED = $00000004;
+(*
+ *  The message is a TDPLMsg_SetProperty message.
+ *)
-  DPLSYS_SETPROPERTY            = $00000005;
+  DPLSYS_SETPROPERTY = $00000005;
+(*
+ *  The message is a TDPLMsg_SetPropertyResponse message.
+ *)
-  DPLSYS_SETPROPERTYRESPONSE    = $00000006;
+  DPLSYS_SETPROPERTYRESPONSE = $00000006;
+(*
+ *  The message is a TDPLMsg_GetProperty message.
+ *)
-  DPLSYS_GETPROPERTY            = $00000007;
+  DPLSYS_GETPROPERTY = $00000007;
+(*
+ *  The message is a TDPLMsg_GetPropertyResponse message.
+ *)
-  DPLSYS_GETPROPERTYRESPONSE    = $00000008;
+  DPLSYS_GETPROPERTYRESPONSE = $00000008;
+(*
+ *  The message is a TDPLMsg_NewSessionHost message.
+ *)
-  DPLSYS_NEWSESSIONHOST         = $00000009;
+  DPLSYS_NEWSESSIONHOST = $00000009;
+(*
+ *  New connection settings are available.
+ *)
-  DPLSYS_NEWCONNECTIONSETTINGS  = $0000000A;
+  DPLSYS_NEWCONNECTIONSETTINGS = $0000000A;
+(****************************************************************************
+ *
-{ DirectPlay defined property GUIDs and associated data structures }
+ * DirectPlay defined property GUIDs and associated data structures
+ *
+ ****************************************************************************)
+(*
-  DPLPROPERTY_MessagesSupported: TGUID = '{762CCDA1-D916-11d0-BA39-00C04FD7ED67}';
+ * DPLPROPERTY_MessagesSupported
+ *
+ * Request whether the lobby supports standard.  Lobby with respond with either
+ * TRUE or FALSE or may not respond at all.
+ *
+ * Property data is a single BOOL with TRUE or FALSE
+ *)
-  DPLPROPERTY_LobbyGuid: TGUID = '{F56920A0-D218-11d0-BA39-00C04FD7ED67}';
+// {762CCDA1-D916-11d0-BA39-00C04FD7ED67}
+  DPLPROPERTY_MessagesSupported: TGUID =
-  DPLPROPERTY_PlayerGuid: TGUID = '{B4319322-D20D-11d0-BA39-00C04FD7ED67}';
+      (D1:$762ccda1;D2:$d916;D3:$11d0;D4:($ba,$39,$00,$c0,$4f,$d7,$ed,$67));
+(*
+ * DPLPROPERTY_LobbyGuid
+ *
+ * Request the GUID that identifies the lobby software that the application
+ * is communicating with.
+ *
+ * Property data is a single GUID.
+ *)
+// {F56920A0-D218-11d0-BA39-00C04FD7ED67}
+  DPLPROPERTY_LobbyGuid: TGUID =
+      (D1:$F56920A0;D2:$D218;D3:$11d0;D4:($ba,$39,$00,$c0,$4f,$d7,$ed,$67));
+(*
+ * DPLPROPERTY_PlayerGuid
+ *
+ * Request the GUID that identifies the player on this machine for sending
+ * property data back to the lobby.
+ *
+ * Property data is the DPLDATA_PLAYERDATA structure
+ *)
+// {B4319322-D20D-11d0-BA39-00C04FD7ED67}
-{ TDPLData_PlayerGUID }
+  DPLPROPERTY_PlayerGuid: TGUID =
+      (D1:$b4319322;D2:$d20d;D3:$11d0;D4:($ba,$39,$00,$c0,$4f,$d7,$ed,$67));
 type
+(*
+ * TDPLData_PlayerGUID
+ *
+ * Data structure to hold the GUID of the player and player creation flags
+ * from the lobby.
+ *)
   PDPLData_PlayerGUID = ^TDPLData_PlayerGUID;
-  TDPLData_PlayerGUID = record
+  TDPLData_PlayerGUID = packed record
     guidPlayer: TGUID;
     dwPlayerFlags: DWORD;
   end;
-  DPLDATA_PLAYERGUID = TDPLData_PlayerGUID;
-  LPDPLDATA_PLAYERGUID = PDPLData_PlayerGUID;
-{ DPLPROPERTY_PlayerScore }
 const
+(*
+ * DPLPROPERTY_PlayerScore
+ *
-  DPLPROPERTY_PlayerScore: TGUID = '{48784000-D219-11d0-BA39-00C04FD7ED67}';
+ * Used to send an array of long integers to the lobby indicating the
+ * score of a player.
+ *
+ * Property data is the TDPLData_PlayerScore structure.
+ *)
+// {48784000-D219-11d0-BA39-00C04FD7ED67}
-{ TDPLData_PlayerScore }
+  DPLPROPERTY_PlayerScore: TGUID =
+      (D1:$48784000;D2:$d219;D3:$11d0;D4:($ba,$39,$00,$c0,$4f,$d7,$ed,$67));
 type
+(*
+ * TDPLData_PlayerScore
+ *
+ * Data structure to hold an array of long integers representing a player score.
+ * Application must allocate enough memory to hold all the scores.
+ *)
   PDPLData_PlayerScore = ^TDPLData_PlayerScore;
-  TDPLData_PlayerScore = record
+  TDPLData_PlayerScore = packed record
     dwScoreCount: DWORD;
-    Score: array[0..0] of Longint;
+    Score: array[0..0] of LongInt;
   end;
+(****************************************************************************
+ *
-  DPLDATA_PLAYERSCORE = TDPLData_PlayerScore;
+ * DirectPlay Address ID's
+ *
-  LPDPLDATA_PLAYERSCORE = PDPLData_PlayerScore;
+ ****************************************************************************)
-{ DirectPlay Address ID's }
+(* DirectPlay Address
+ *
+ * A DirectPlay address consists of multiple chunks of data, each tagged
+ * with a GUID signifying the type of data in the chunk. The chunk also
+ * has a length so that unknown chunk types can be skipped.
+ *
+ * The EnumAddress() function is used to parse these address data chunks.
+ *)
+(*
+ * TDPAddress
+ *
+ * Header for block of address data elements
-type
+ *)
   PDPAddress = ^TDPAddress;
-  TDPAddress = record
+  TDPAddress = packed record
     guidDataType: TGUID;
     dwDataSize: DWORD;
   end;
-  DPADDRESS = TDPAddress;
-  LPDPADDRESS = PDPAddress;
 const
+(*
-  DPAID_TotalSize: TGUID = '{1318F560-912C-11d0-9DAA-00A0C90A43CB}';
+ * DPAID_TotalSize
-  DPAID_ServiceProvider: TGUID = '{07D916C0-E0AF-11cf-9C4E-00A0C905425E}';
-  DPAID_LobbyProvider: TGUID = '{59B95640-9667-11d0-A77D-0000F803ABFC}';
-  DPAID_Phone: TGUID = '{78EC89A0-E0AF-11cf-9C4E-00A0C905425E}';
-  DPAID_PhoneW: TGUID = '{BA5A7A70-9DBF-11d0-9CC1-00A0C905425E}';
-  DPAID_Modem: TGUID = '{F6DCC200-A2FE-11d0-9C4F-00A0C905425E}';
-  DPAID_ModemW: TGUID = '{01FD92E0-A2FF-11d0-9C4F-00A0C905425E}';
+ *
-  DPAID_INet: TGUID = '{C4A54DA0-E0AF-11cf-9C4E-00A0C905425E}';
+ * Chunk is a DWORD containing size of entire TDPAddress structure
-  DPAID_INetW: TGUID = '{E63232A0-9DBF-11d0-9CC1-00A0C905425E}';
-  DPAID_INetPort: TGUID = '{E4524541-8EA5-11d1-8A96-006097B01411}';
-  DPAID_MaxMessageSize: TGUID = '{F5D09980-F0C4-11d1-8326-006097B01411}';
+ *)
+// {1318F560-912C-11d0-9DAA-00A0C90A43CB}
+  DPAID_TotalSize: TGUID =
+      (D1:$1318f560;D2:$912c;D3:$11d0;D4:($9d,$aa,$00,$a0,$c9,$a,$43,$cb));
+(*
+ * DPAID_ServiceProvider
+ *
+ * Chunk is a GUID describing the service provider that created the chunk.
+ * All addresses must contain this chunk.
+ *)
+// {07D916C0-E0AF-11cf-9C4E-00A0C905425E}
+  DPAID_ServiceProvider: TGUID =
+      (D1:$7d916c0;D2:$e0af;D3:$11cf;D4:($9c,$4e,$00,$a0,$c9,$5,$42,$5e));
+(*
+ * DPAID_LobbyProvider
+ *
+ * Chunk is a GUID describing the lobby provider that created the chunk.
+ * All addresses must contain this chunk.
+ *)
+// {59B95640-9667-11d0-A77D-0000F803ABFC}
+  DPAID_LobbyProvider: TGUID =
+      (D1:$59b95640;D2:$9667;D3:$11d0;D4:($a7,$7d,$00,$00,$f8,$3,$ab,$fc));
+(*
+ * DPAID_Phone and DPAID_PhoneW
+ *
+ * Chunk is a string containing a phone number (i.e. "1-800-555-1212")
+ * in ANSI or UNICODE format
+ *)
+// {78EC89A0-E0AF-11cf-9C4E-00A0C905425E}
+  DPAID_Phone: TGUID =
+      (D1:$78ec89a0;D2:$e0af;D3:$11cf;D4:($9c,$4e,$00,$a0,$c9,$5,$42,$5e));
+// {BA5A7A70-9DBF-11d0-9CC1-00A0C905425E}
+  DPAID_PhoneW: TGUID =
+      (D1:$ba5a7a70;D2:$9dbf;D3:$11d0;D4:($9c,$c1,$00,$a0,$c9,$5,$42,$5e));
+(*
+ * DPAID_Modem and DPAID_ModemW
+ *
+ * Chunk is a string containing a modem name registered with TAPI
+ * in ANSI or UNICODE format
+ *)
+// {F6DCC200-A2FE-11d0-9C4F-00A0C905425E}
+  DPAID_Modem: TGUID =
+      (D1:$f6dcc200;D2:$a2fe;D3:$11d0;D4:($9c,$4f,$00,$a0,$c9,$5,$42,$5e));
+// {01FD92E0-A2FF-11d0-9C4F-00A0C905425E}
+  DPAID_ModemW: TGUID =
+      (D1:$1fd92e0;D2:$a2ff;D3:$11d0;D4:($9c,$4f,$00,$a0,$c9,$5,$42,$5e));
+(*
+ * DPAID_Inet and DPAID_InetW
+ *
+ * Chunk is a string containing a TCP/IP host name or an IP address
+ * (i.e. "dplay.microsoft.com" or "137.55.100.173") in ANSI or UNICODE format
+ *)
+// {C4A54DA0-E0AF-11cf-9C4E-00A0C905425E}
+  DPAID_INet: TGUID =
+      (D1:$c4a54da0;D2:$e0af;D3:$11cf;D4:($9c,$4e,$00,$a0,$c9,$5,$42,$5e));
+// {E63232A0-9DBF-11d0-9CC1-00A0C905425E}
+  DPAID_INetW: TGUID =
+      (D1:$e63232a0;D2:$9dbf;D3:$11d0;D4:($9c,$c1,$00,$a0,$c9,$5,$42,$5e));
+(*
+ * DPAID_InetPort
+ *
+ * Chunk is the port number used for creating the apps TCP and UDP sockets.
+ * WORD value (i.e. 47624)
+ *)
+// {E4524541-8EA5-11d1-8A96-006097B01411}
+  DPAID_INetPort: TGUID =
+      (D1:$e4524541;D2:$8ea5;D3:$11d1;D4:($8a,$96,$00,$60,$97,$b0,$14,$11));
+//@@BEGIN_MSINTERNAL
+(*
+ * DPAID_MaxMessageSize
+ *
+ * Tells DPLAY what the maximum allowed message size is.  Enables SPs to
+ *      combat Denial of Service attacks
+ *)
+ // this terrible hack is needed so the SP can work with the Elmer build.
+ // it can be removed when the MSINTERNAL stuff is removed
+{$DEFINE MAXMSGSIZEGUIDDEFINED}
+// {F5D09980-F0C4-11d1-8326-006097B01411}
+  DPAID_MaxMessageSize: TGUID =
+      (D1:$f5d09980;D2:$f0c4;D3:$11d1;D4:($83,$26,$00,$60,$97,$b0,$14,$11));
+//@@END_MSINTERNAL
+(*
-{ TDPComPortAddress }
+ * TDPComPortAddress
+ *
+ * Used to specify com port settings. The constants that define baud rate,
+ * stop bits and parity are defined in WINBASE.H. The constants for flow
+ * control are given below.
+ *)
-const
-  DPCPA_NOFLOW      = 0;  // no flow control
+  DPCPA_NOFLOW       = 0;           // no flow control
-  DPCPA_XONXOFFFLOW = 1;  // software flow control
+  DPCPA_XONXOFFFLOW  = 1;           // software flow control
-  DPCPA_RTSFLOW     = 2;  // hardware flow control with RTS
+  DPCPA_RTSFLOW      = 2;           // hardware flow control with RTS
-  DPCPA_DTRFLOW     = 3;  // hardware flow control with DTR
+  DPCPA_DTRFLOW      = 3;           // hardware flow control with DTR
-  DPCPA_RTSDTRFLOW  = 4;  // hardware flow control with RTS and DTR
+  DPCPA_RTSDTRFLOW   = 4;           // hardware flow control with RTS and DTR
 type
   PDPComPortAddress = ^TDPComPortAddress;
-  TDPComPortAddress = record
+  TDPComPortAddress = packed record
     dwComPort: DWORD;       // COM port to use (1-4)
     dwBaudRate: DWORD;      // baud rate (100-256k)
     dwStopBits: DWORD;      // no. stop bits (1-2)
     dwParity: DWORD;        // parity (none, odd, even, mark)
     dwFlowControl: DWORD;   // flow control (none, xon/xoff, rts, dtr)
   end;
-  DPCOMPORTADDRESS = TDPComPortAddress;
-  LPDPCOMPORTADDRESS = PDPComPortAddress;
 const
+(*
+ * DPAID_ComPort
+ *
-  DPAID_ComPort: TGUID = '{F2F0CE00-E0AF-11cf-9C4E-00A0C905425E}';
+ * Chunk contains a TDPComPortAddress structure defining the serial port.
+ *)
+// {F2F0CE00-E0AF-11cf-9C4E-00A0C905425E}
+  DPAID_ComPort: TGUID =
+      (D1:$f2f0ce00;D2:$e0af;D3:$11cf;D4:($9c,$4e,$00,$a0,$c9,$5,$42,$5e));
+(****************************************************************************
+ *
-{ dplobby 1.0 obsolete definitions }
+ *      dplobby 1.0 obsolete definitions
+ *      Included for compatibility only.
+ *
+ ****************************************************************************)
   DPLAD_SYSTEM = DPLMSG_SYSTEM;
+//DirectSetup file
 (*==========================================================================
+ *
  *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *
  *  File:       dsetup.h
  *  Content:    DirectXSetup, error codes and flags
+ *
+ *  DirectX 7.0 Delphi adaptation by Erik Unger
+ *
+ *  Modyfied: 05-Oct-99
+ *
+ *  Download: http://www.delphi-jedi.org/DelphiGraphics/
+ *  E-Mail: DelphiDirectX@next-reality.com
+ *
  ***************************************************************************)
+var
+  DSetupDLL : HModule;
+type
+  PDLSVersion = ^TDLSVersion;
+  TDLSVersion = packed record
+    dwVersionMS: DWORD;
+    dwVersionLS: DWORD;
+  end;
 const
-  FOURCC_VERS = Ord('v') + Ord('e')*$100 + Ord('r')*$10000 + Ord('s')*$1000000;
+  FOURCC_VERS : array[0..3] of Char = ('v','e','r','s');
 // DSETUP Error Codes, must remain compatible with previous setup.
   DSETUPERR_SUCCESS_RESTART     = HResult(1);
   DSETUPERR_SUCCESS             = HResult(0);
   DSETUPERR_BADWINDOWSVERSION   = HResult(-1);
   DSETUPERR_SOURCEFILENOTFOUND  = HResult(-2);
   DSETUPERR_BADSOURCESIZE       = HResult(-3);
   DSETUPERR_BADSOURCETIME       = HResult(-4);
   DSETUPERR_NOCOPY              = HResult(-5);
   DSETUPERR_OUTOFDISKSPACE      = HResult(-6);
   DSETUPERR_CANTFINDINF         = HResult(-7);
   DSETUPERR_CANTFINDDIR         = HResult(-8);
   DSETUPERR_INTERNAL            = HResult(-9);
+  DSETUPERR_NTWITHNO3D          = HResult(-10);  // REM: obsolete, you'll never see this
   DSETUPERR_UNKNOWNOS           = HResult(-11);
   DSETUPERR_USERHITCANCEL       = HResult(-12);
   DSETUPERR_NOTPREINSTALLEDONNT = HResult(-13);
-  DSETUPERR_NEWERVERSION        = HResult(-14);
+  DSETUPERR_NEWERVERSION        = HResult(-14);
 // DSETUP flags. DirectX 5.0 apps should use these flags only.
   DSETUP_DDRAWDRV     = $00000008;   (* install DirectDraw Drivers           *)
   DSETUP_DSOUNDDRV    = $00000010;   (* install DirectSound Drivers          *)
   DSETUP_DXCORE       = $00010000;   (* install DirectX runtime              *)
   DSETUP_DIRECTX = DSETUP_DXCORE or DSETUP_DDRAWDRV or DSETUP_DSOUNDDRV;
   DSETUP_TESTINSTALL  = $00020000;   (* just test install, don't do anything *)
-  DSETUP_USEROLDERFLAG = $02000000;  (* enable return DSETUPERR_NEWERVERSION *)
+  DSETUP_USEROLDERFLAG= $02000000;   (* enable return DSETUPERR_NEWERVERSION *)
+// Bug #22730
+  DSETUP_NTINSTALL              = $00080000;   (* install on Win2K platform *)
 // These OBSOLETE flags are here for compatibility with pre-DX5 apps only.
 // They are present to allow DX3 apps to be recompiled with DX5 and still work.
 // DO NOT USE THEM for DX5. They will go away in future DX releases.
   DSETUP_DDRAW         = $00000001; (* OBSOLETE. install DirectDraw           *)
   DSETUP_DSOUND        = $00000002; (* OBSOLETE. install DirectSound          *)
   DSETUP_DPLAY         = $00000004; (* OBSOLETE. install DirectPlay           *)
   DSETUP_DPLAYSP       = $00000020; (* OBSOLETE. install DirectPlay Providers *)
   DSETUP_DVIDEO        = $00000040; (* OBSOLETE. install DirectVideo          *)
   DSETUP_D3D           = $00000200; (* OBSOLETE. install Direct3D             *)
   DSETUP_DINPUT        = $00000800; (* OBSOLETE. install DirectInput          *)
   DSETUP_DIRECTXSETUP  = $00001000; (* OBSOLETE. install DirectXSetup DLL's   *)
   DSETUP_NOUI          = $00002000; (* OBSOLETE. install DirectX with NO UI   *)
   DSETUP_PROMPTFORDRIVERS = $10000000; (* OBSOLETE. prompt when replacing display/audio drivers *)
   DSETUP_RESTOREDRIVERS = $20000000;(* OBSOLETE. restore display/audio drivers *)
 //******************************************************************
 // DirectX Setup Callback mechanism
 //******************************************************************
 // DSETUP Message Info Codes, passed to callback as Reason parameter.
   DSETUP_CB_MSG_NOMESSAGE                 = 0;
   DSETUP_CB_MSG_CANTINSTALL_UNKNOWNOS     = 1;
   DSETUP_CB_MSG_CANTINSTALL_NT            = 2;
   DSETUP_CB_MSG_CANTINSTALL_BETA          = 3;
   DSETUP_CB_MSG_CANTINSTALL_NOTWIN32      = 4;
   DSETUP_CB_MSG_CANTINSTALL_WRONGLANGUAGE = 5;
   DSETUP_CB_MSG_CANTINSTALL_WRONGPLATFORM = 6;
   DSETUP_CB_MSG_PREINSTALL_NT             = 7;
   DSETUP_CB_MSG_NOTPREINSTALLEDONNT       = 8;
   DSETUP_CB_MSG_SETUP_INIT_FAILED         = 9;
   DSETUP_CB_MSG_INTERNAL_ERROR            = 10;
   DSETUP_CB_MSG_CHECK_DRIVER_UPGRADE      = 11;
   DSETUP_CB_MSG_OUTOFDISKSPACE            = 12;
   DSETUP_CB_MSG_BEGIN_INSTALL             = 13;
   DSETUP_CB_MSG_BEGIN_INSTALL_RUNTIME     = 14;
   DSETUP_CB_MSG_BEGIN_INSTALL_DRIVERS     = 15;
   DSETUP_CB_MSG_BEGIN_RESTORE_DRIVERS     = 16;
   DSETUP_CB_MSG_FILECOPYERROR             = 17;
   DSETUP_CB_UPGRADE_TYPE_MASK      = $000F;
   DSETUP_CB_UPGRADE_KEEP           = $0001;
   DSETUP_CB_UPGRADE_SAFE           = $0002;
   DSETUP_CB_UPGRADE_FORCE          = $0004;
   DSETUP_CB_UPGRADE_UNKNOWN        = $0008;
   DSETUP_CB_UPGRADE_HASWARNINGS    = $0100;
   DSETUP_CB_UPGRADE_CANTBACKUP     = $0200;
   DSETUP_CB_UPGRADE_DEVICE_ACTIVE  = $0800;
   DSETUP_CB_UPGRADE_DEVICE_DISPLAY = $1000;
   DSETUP_CB_UPGRADE_DEVICE_MEDIA   = $2000;
-type
-{ TDLSVersion }
-  PDLSVersion = ^TDLSVersion;
-  TDLSVersion = record
-    dwVersionMS: DWORD;
-    dwVersionLS: WORD;
-  end;
-  DLSVERSION = TDLSVersion;
-  LPDLSVERSION = PDLSVersion;
-{ TDSetup_CB_UpgradeInfo }
+type
   PDSetup_CB_UpgradeInfo = ^TDSetup_CB_UpgradeInfo;
   TDSetup_CB_UpgradeInfo = record
     UpgradeFlags: DWORD;
   end;
-  DSETUP_CB_UPGRADEINFO = TDSetup_CB_UpgradeInfo;
-  LPDSETUP_CB_UPGRADEINFO = PDSetup_CB_UpgradeInfo;
-{ TDSetup_CB_FileCopyError }
   PDSetup_CB_FileCopyError = ^TDSetup_CB_FileCopyError;
   TDSetup_CB_FileCopyError = record
     dwError: DWORD;
   end;
-  DSETUP_CB_FILECOPYERROR = TDSetup_CB_FileCopyError;
-  LPDSETUP_CB_FILECOPYERROR = PDSetup_CB_FileCopyError;
 //
 // Data Structures
 //
-{ TDirectXRegisterAppA }
   PDirectXRegisterAppA = ^TDirectXRegisterAppA;
   TDirectXRegisterAppA = record
     dwSize: DWORD;
     dwFlags: DWORD;
     lpszApplicationName: PAnsiChar;
     lpGUID: PGUID;
     lpszFilename: PAnsiChar;
     lpszCommandLine: PAnsiChar;
     lpszPath: PAnsiChar;
     lpszCurrentDirectory: PAnsiChar;
   end;
-  DIRECTXREGISTERAPPA = TDirectXRegisterAppA;
-  LPDIRECTXREGISTERAPPA = PDirectXRegisterAppA;
-{ TDirectXRegisterApp2A }
   PDirectXRegisterApp2A = ^TDirectXRegisterApp2A;
   TDirectXRegisterApp2A = record
     dwSize: DWORD;
     dwFlags: DWORD;
     lpszApplicationName: PAnsiChar;
     lpGUID: PGUID;
     lpszFilename: PAnsiChar;
     lpszCommandLine: PAnsiChar;
     lpszPath: PAnsiChar;
     lpszCurrentDirectory: PAnsiChar;
     lpszLauncherName: PAnsiChar;
   end;
-  DIRECTXREGISTERAPP2A = TDirectXRegisterApp2A;
-  LPDIRECTXREGISTERAPP2A = PDirectXRegisterApp2A;
-{ TDirectXRegisterAppW }
   PDirectXRegisterAppW = ^TDirectXRegisterAppW;
   TDirectXRegisterAppW = record
     dwSize: DWORD;
     dwFlags: DWORD;
     lpszApplicationName: PWideChar;
     lpGUID: PGUID;
     lpszFilename: PWideChar;
     lpszCommandLine: PWideChar;
     lpszPath: PWideChar;
     lpszCurrentDirectory: PWideChar;
   end;
-  DIRECTXREGISTERAPPW = TDirectXRegisterAppW;
-  LPDIRECTXREGISTERAPPW = PDirectXRegisterAppW;
-{ TDirectXRegisterApp2W }
   PDirectXRegisterApp2W = ^TDirectXRegisterApp2W;
   TDirectXRegisterApp2W = record
     dwSize: DWORD;
     dwFlags: DWORD;
     lpszApplicationName: PWideChar;
     lpGUID: PGUID;
     lpszFilename: PWideChar;
     lpszCommandLine: PWideChar;
     lpszPath: PWideChar;
     lpszCurrentDirectory: PWideChar;
     lpszLauncherName: PWideChar;
   end;
-  DIRECTXREGISTERAPP2W = TDirectXRegisterApp2W;
+  PDirectXRegisterApp = ^TDirectXRegisterApp;
-  LPDIRECTXREGISTERAPP2W = PDirectXRegisterApp2W;
+  PDirectXRegisterApp2 = ^TDirectXRegisterApp2;
+{$IFDEF UNICODE}
-{ TDirectXRegisterApp }
+  TDirectXRegisterApp = TDirectXRegisterAppW;
-  PDirectXRegisterApp = PDirectXRegisterAppA;
+  TDirectXRegisterApp2 = TDirectXRegisterApp2W;
+{$ELSE}
   TDirectXRegisterApp = TDirectXRegisterAppA;
-  PDirectXRegisterApp2 = PDirectXRegisterApp2A;
   TDirectXRegisterApp2 = TDirectXRegisterApp2A;
+{$ENDIF}
-  DIRECTXREGISTERAPP = TDirectXRegisterApp;
-  LPDIRECTXREGISTERAPP = PDirectXRegisterApp;
-  DIRECTXREGISTERAPP2 = TDirectXRegisterApp2;
-  LPDIRECTXREGISTERAPP2 = PDirectXRegisterApp2;
+//
-{ API }
+// API
+//
+var
-function DirectXSetupA(hWnd: HWND; lpszRootPath: PAnsiChar; dwFlags: DWORD): Longint; stdcall;
+  DirectXSetupW : function (hWnd: HWND; lpszRootPath: PWideChar; dwFlags: DWORD) : Integer; stdcall;
-function DirectXSetupW(hWnd: HWND; lpszRootPath: PWideChar; dwFlags: DWORD): Longint; stdcall;
+  DirectXSetupA : function (hWnd: HWND; lpszRootPath: PAnsiChar; dwFlags: DWORD) : Integer; stdcall;
-function DirectXSetup(hWnd: HWND; lpszRootPath: PAnsiChar; dwFlags: DWORD): Longint; stdcall;
+  DirectXSetup : function (hWnd: HWND; lpszRootPath: PCharAW; dwFlags: DWORD) : Integer; stdcall;
-function DirectXDeviceDriverSetupA(hWnd: HWND; lpszDriverClass: PAnsiChar;
+  DirectXDeviceDriverSetupW : function (hWnd: HWND; lpszDriverClass: PWideChar;
-    lpszDriverPath: PAnsiChar; dwFlags: DWORD): Longint; stdcall;
+     lpszDriverPath: PWideChar; dwFlags: DWORD) : Integer; stdcall;
-function DirectXDeviceDriverSetupW(hWnd: HWND; lpszDriverClass: PWideChar;
+  DirectXDeviceDriverSetupA : function (hWnd: HWND; lpszDriverClass: PAnsiChar;
-    lpszDriverPath: PWideChar; dwFlags: DWORD): Longint; stdcall;
+     lpszDriverPath: PAnsiChar; dwFlags: DWORD) : Integer; stdcall;
-function DirectXDeviceDriverSetup(hWnd: HWND; lpszDriverClass: PAnsiChar;
+  DirectXDeviceDriverSetup : function (hWnd: HWND; lpszDriverClass: PCharAW;
-    lpszDriverPath: PAnsiChar; dwFlags: DWORD): Longint; stdcall;
+     lpszDriverPath: PCharAW; dwFlags: DWORD) : Integer; stdcall;
+  DirectXRegisterApplicationW : function
+     (hWnd: HWND; const lpDXRegApp: TDirectXRegisterAppW) : Integer; stdcall;
+  DirectXRegisterApplicationA : function
+     (hWnd: HWND; const lpDXRegApp: TDirectXRegisterAppA) : Integer; stdcall;
+  DirectXRegisterApplication : function
+     (hWnd: HWND; const lpDXRegApp: TDirectXRegisterApp) : Integer; stdcall;
-function DirectXRegisterApplicationA(hWnd: HWND; const lpDXRegApp: TDirectXRegisterAppA): Longint; stdcall;
-function DirectXRegisterApplicationW(hWnd: HWND; const lpDXRegApp: TDirectXRegisterAppW): Longint; stdcall;
-function DirectXRegisterApplication(hWnd: HWND; const lpDXRegApp: TDirectXRegisterAppA): Longint; stdcall;
+  DirectXUnRegisterApplication : function
-function DirectXUnRegisterApplication(hWnd: HWND; const lpGUID: TGUID): Longint; stdcall;
+     (hWnd: HWND; const lpGUID: TGUID) : Integer; stdcall;
 type
-  TDSetup_Callback = function (Reason: DWORD; MsgType: DWORD;
+  TDSetup_Callback = function (Reason: DWORD; MsgType: DWORD; // Same as flags to MessageBox
-      szMessage: PAnsiChar; szName: PAnsiChar; pInfo: Pointer): DWORD; stdcall;
+      szMessage: PChar; szName: PChar; pInfo: Pointer) : DWORD; stdcall;
-  DSETUP_CALLBACK = TDSetup_Callback;
+var
-function DirectXSetupSetCallback(Callback: TDSetup_Callback): Longint; stdcall;
+  DirectXSetupSetCallback : function (Callback: TDSetup_Callback) : Integer; stdcall;
-function DirectXSetupGetVersion(var lpdwVersion, lpdwMinorVersion: DWORD): Longint; stdcall;
+  DirectXSetupGetVersion : function (out lpdwVersion, lpdwMinorVersion: DWORD) : Integer; stdcall;
+//DirectSound file
 (*==========================================================================;
+ *
- *  Copyright (C) 1995,1996 Microsoft Corporation.  All Rights Reserved.
+ *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *
  *  File:       dsound.h
  *  Content:    DirectSound include file
+ *
+ *  DirectX 7.0 Delphi adaptation by Erik Unger
+ *
+ *  Modified: 10-Sep-2000
+ *
+ *  Download: http://www.delphi-jedi.org/DelphiGraphics/
+ *  E-Mail: DelphiDirectX@next-reality.com
+ *
- **************************************************************************)
+ ***************************************************************************)
+{
+  Windows 98 and debug versions DInput and DSound
+  Under Windows 98, the "debug" setup of the DirectX SDK 6.x skips DInput.DLL
+  and DSound.DLL, i.e. makes you end up with the retail version of these two
+  files without any notice.
+  The debug versions of DInput.DLL and DSound.DLL can be found in the
+  \extras\Win98\Win98Dbg folder of the SDK CD; they need to be installed
+  "manually".
+}
+var
-{ GUIDS used by DirectDraw objects }
+  DSoundDLL : HMODULE;
+function DSErrorString(Value: HResult) : string;
 const
-  CLSID_DirectSound: TGUID = '{47D4D946-62E8-11cf-93BC-444553540000}';
+  _FACDS = $878;
-  CLSID_DirectSoundCapture: TGUID = '{B0210780-89CD-11d0-AF08-00A0C925CD16}';
+function MAKE_DSHResult(code: DWORD) : HResult;
+const
-  IID_IDirectSound: TGUID = '{279AFA83-4981-11CE-A521-0020AF0BE560}';
+  FLT_MIN = 1.175494351E-38;
-  IID_IDirectSoundBuffer: TGUID = '{279AFA85-4981-11CE-A521-0020AF0BE560}';
+  FLT_MAX = 3.402823466E+38;
-  IID_IDirectSound3DListener: TGUID = '{279AFA84-4981-11CE-A521-0020AF0BE560}';
-  IID_IDirectSound3DBuffer: TGUID = '{279AFA86-4981-11CE-A521-0020AF0BE560}';
-  IID_IDirectSoundCapture: TGUID = '{B0210781-89CD-11D0-AF08-00A0C925CD16}';
-  IID_IDirectSoundCaptureBuffer: TGUID = '{B0210782-89CD-11D0-AF08-00A0C925CD16}';
+const
+// Direct Sound Component GUID {47D4D946-62E8-11cf-93BC-444553540000}
-  IID_IDirectSoundNotify: TGUID = '{B0210783-89CD-11D0-AF08-00A0C925CD16}';
+  CLSID_DirectSound: TGUID = '{47D4D946-62E8-11cf-93BC-444553540000}';
-{ DirectSound Structures }
+// DirectSound Capture Component GUID {B0210780-89CD-11d0-AF08-00A0C925CD16}
+  CLSID_DirectSoundCapture: TGUID = '{47D4D946-62E8-11cf-93BC-444553540000}';
+//
+// Structures
+//
 type
   IDirectSound = interface;
   IDirectSoundBuffer = interface;
   IDirectSound3DListener = interface;
   IDirectSound3DBuffer = interface;
   IDirectSoundCapture = interface;
   IDirectSoundCaptureBuffer = interface;
   IDirectSoundNotify = interface;
-{ TDSCaps }
+  IKsPropertySet = interface;
   PDSCaps = ^TDSCaps;
-  TDSCaps = record
+  TDSCaps = packed record
     dwSize: DWORD;
     dwFlags: DWORD;
     dwMinSecondarySampleRate: DWORD;
     dwMaxSecondarySampleRate: DWORD;
     dwPrimaryBuffers: DWORD;
     dwMaxHwMixingAllBuffers: DWORD;
     dwMaxHwMixingStaticBuffers: DWORD;
     dwMaxHwMixingStreamingBuffers: DWORD;
     dwFreeHwMixingAllBuffers: DWORD;
     dwFreeHwMixingStaticBuffers: DWORD;
     dwFreeHwMixingStreamingBuffers: DWORD;
     dwMaxHw3DAllBuffers: DWORD;
     dwMaxHw3DStaticBuffers: DWORD;
     dwMaxHw3DStreamingBuffers: DWORD;
     dwFreeHw3DAllBuffers: DWORD;
     dwFreeHw3DStaticBuffers: DWORD;
     dwFreeHw3DStreamingBuffers: DWORD;
     dwTotalHwMemBytes: DWORD;
     dwFreeHwMemBytes: DWORD;
     dwMaxContigFreeHwMemBytes: DWORD;
     dwUnlockTransferRateHwBuffers: DWORD;
     dwPlayCpuOverheadSwBuffers: DWORD;
     dwReserved1: DWORD;
     dwReserved2: DWORD;
   end;
-  DSCAPS = TDSCaps;
+  PCDSCaps = ^TDSCaps;
-  LPDSCAPS = PDSCaps;
-{ TDSBCaps }
   PDSBCaps = ^TDSBCaps;
-  TDSBCaps = record
+  TDSBCaps = packed record
     dwSize: DWORD;
     dwFlags: DWORD;
     dwBufferBytes: DWORD;
     dwUnlockTransferRate: DWORD;
     dwPlayCpuOverhead: DWORD;
   end;
+  PCDSBCaps = ^TDSBCaps;
-  DSBCAPS = TDSBCaps;
-  LPDSBCAPS = DSBCAPS;
-{ TDSBufferDesc }
-  PDSBufferDesc = ^TDSBufferDesc;
-  TDSBufferDesc = record
+  TDSBufferDesc_DX6 = packed record
     dwSize: DWORD;
     dwFlags: DWORD;
     dwBufferBytes: DWORD;
     dwReserved: DWORD;
     lpwfxFormat: PWaveFormatEx;
-{$IFDEF SupportDirectX7}
-    guid3DAlgorithm: TGUID;
-{$ENDIF}
   end;
-  DSBUFFERDESC = TDSBufferDesc;
+  TDSBufferDesc1 = TDSBufferDesc_DX6;
-  LPDSBUFFERDESC = PDSBufferDesc;
-{ TDSBufferDesc1 }
   PDSBufferDesc1 = ^TDSBufferDesc1;
+  PCDSBufferDesc1 = PDSBufferDesc1;
-  TDSBufferDesc1 = record
+  TDSBufferDesc_DX7 = packed record
     dwSize: DWORD;
     dwFlags: DWORD;
     dwBufferBytes: DWORD;
     dwReserved: DWORD;
     lpwfxFormat: PWaveFormatEx;
+    guid3DAlgorithm: TGUID;
   end;
+{$IFDEF DIRECTX6}
+  TDSBufferDesc = TDSBufferDesc_DX6;
+{$ELSE}
+  TDSBufferDesc = TDSBufferDesc_DX7;
+{$ENDIF}
-  DSBUFFERDESC1 = TDSBufferDesc1;
+  PDSBufferDesc = ^TDSBufferDesc;
-  LPDSBUFFERDESC1 = PDSBufferDesc1;
+  PCDSBufferDesc = PDSBufferDesc;
+(***
+// Snipped from D3DTypes.pas:
-{ TDS3DBuffer }
+  TD3DValue = Single;
+  PD3DVector = ^TD3DVector;
+  TD3DVector = packed record
+    case Integer of
+: (
+      x: TD3DValue;
+      y: TD3DValue;
+      z: TD3DValue;
+     );
+: (
+      dvX: TD3DValue;
+      dvY: TD3DValue;
+      dvZ: TD3DValue;
+     );
+  end;
+*)
   PDS3DBuffer = ^TDS3DBuffer;
-  TDS3DBuffer = record
+  TDS3DBuffer = packed record
     dwSize: DWORD;
     vPosition: TD3DVector;
     vVelocity: TD3DVector;
     dwInsideConeAngle: DWORD;
     dwOutsideConeAngle: DWORD;
     vConeOrientation: TD3DVector;
-    lConeOutsideVolume: Longint;
+    lConeOutsideVolume: LongInt;
     flMinDistance: TD3DValue;
     flMaxDistance: TD3DValue;
     dwMode: DWORD;
   end;
-  DS3DBUFFER = TDS3DBuffer;
+  TCDS3DBuffer = ^TDS3DBuffer;
-  LPDS3DBUFFER = PDS3DBuffer;
-{ TDS3DListener }
   PDS3DListener = ^TDS3DListener;
-  TDS3DListener = record
+  TDS3DListener = packed record
     dwSize: DWORD;
     vPosition: TD3DVector;
     vVelocity: TD3DVector;
     vOrientFront: TD3DVector;
     vOrientTop: TD3DVector;
     flDistanceFactor: TD3DValue;
     flRolloffFactor: TD3DValue;
     flDopplerFactor: TD3DValue;
   end;
-  DS3DLISTENER = TDS3DListener;
+  PCDS3DListener = ^TDS3DListener;
-  LPDS3DLISTENER = PDS3DListener;
-{ TDSCCaps }
   PDSCCaps = ^TDSCCaps;
-  TDSCCaps = record
+  TDSCCaps = packed record
     dwSize: DWORD;
     dwFlags: DWORD;
     dwFormats: DWORD;
     dwChannels: DWORD;
   end;
-  DSCCAPS = TDSCCaps;
+  PCDSCCaps = ^TDSCCaps;
-  LPDSCCAPS = PDSCCaps;
-{ TDSCBufferDesc }
   PDSCBufferDesc = ^TDSCBufferDesc;
-  TDSCBufferDesc = record
+  TDSCBufferDesc = packed record
     dwSize: DWORD;
     dwFlags: DWORD;
     dwBufferBytes: DWORD;
     dwReserved: DWORD;
     lpwfxFormat: PWaveFormatEx;
   end;
-  DSCBUFFERDESC = TDSCBufferDesc;
+  PCDSCBufferDesc = ^TDSCBufferDesc;
-  LPDSCBUFFERDESC = PDSCBufferDesc;
-{ TDSCBCaps }
   PDSCBCaps = ^TDSCBCaps;
-  TDSCBCaps = record
+  TDSCBCaps = packed record
     dwSize: DWORD;
     dwFlags: DWORD;
     dwBufferBytes: DWORD;
     dwReserved: DWORD;
   end;
-  DSCBCAPS = TDSCBCaps;
+  PCDSCBCaps = ^TDSCBCaps;
-  LPDSCBCAPS = PDSCBCaps;
-{ TDSBPositionNotify }
   PDSBPositionNotify = ^TDSBPositionNotify;
-  TDSBPositionNotify = record
+  TDSBPositionNotify = packed record
     dwOffset: DWORD;
     hEventNotify: THandle;
   end;
+  PCDSBPositionNotify = ^TDSBPositionNotify;
+//
+// DirectSound API
+//
+  TDSEnumCallbackW = function (lpGuid: PGUID; lpstrDescription: PWideChar;
+      lpstrModule: PWideChar; lpContext: Pointer) : BOOL; stdcall;
-  DSBPOSITIONNOTIFY = TDSBPositionNotify;
+  TDSEnumCallbackA = function (lpGuid: PGUID; lpstrDescription: PAnsiChar;
+      lpstrModule: PAnsiChar; lpContext: Pointer) : BOOL; stdcall;
+{$IFDEF UNICODE}
-  LPDSBPOSITIONNOTIFY = PDSBPositionNotify;
+  TDSEnumCallback = TDSEnumCallbackW;
+{$ELSE}
+  TDSEnumCallback = TDSEnumCallbackA;
-{ IDirectSound }
+{$ENDIF}
+//
+// IDirectSound
+//
-  IDirectSound = interface(IUnknown)
+  IDirectSound = interface (IUnknown)
     ['{279AFA83-4981-11CE-A521-0020AF0BE560}']
     // IDirectSound methods
     function CreateSoundBuffer(const lpDSBufferDesc: TDSBufferDesc;
-        out lplpDirectSoundBuffer: IDirectSoundBuffer;
+        out lpIDirectSoundBuffer: IDirectSoundBuffer;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function GetCaps(var lpDSCaps: TDSCaps): HResult; stdcall;
+    function GetCaps(var lpDSCaps: TDSCaps) : HResult; stdcall;
     function DuplicateSoundBuffer(lpDsbOriginal: IDirectSoundBuffer;
-        out lpDsbDuplicate: IDirectSoundBuffer): HResult; stdcall;
+        out lpDsbDuplicate: IDirectSoundBuffer) : HResult; stdcall;
-    function SetCooperativeLevel(hwnd: HWND; dwLevel: DWORD): HResult; stdcall;
+    function SetCooperativeLevel(hwnd: HWND; dwLevel: DWORD) : HResult; stdcall;
     function Compact: HResult; stdcall;
-    function GetSpeakerConfig(var lpdwSpeakerConfig: DWORD): HResult; stdcall;
+    function GetSpeakerConfig(var lpdwSpeakerConfig: DWORD) : HResult; stdcall;
-    function SetSpeakerConfig(dwSpeakerConfig: DWORD): HResult; stdcall;
+    function SetSpeakerConfig(dwSpeakerConfig: DWORD) : HResult; stdcall;
-    function Initialize(lpGuid: PGUID): HResult; stdcall;
+    function Initialize(lpGuid: PGUID) : HResult; stdcall;
   end;
+//
-{ IDirectSoundBuffer }
+// IDirectSoundBuffer
+//
-  IDirectSoundBuffer = interface(IUnknown)
+  IDirectSoundBuffer = interface (IUnknown)
     ['{279AFA85-4981-11CE-A521-0020AF0BE560}']
     // IDirectSoundBuffer methods
-    function GetCaps(var lpDSBufferCaps: TDSBCaps): HResult; stdcall;
+    function GetCaps(var lpDSCaps: TDSBCaps) : HResult; stdcall;
-    function GetCurrentPosition(var lpdwCurrentPlayCursor,
+    function GetCurrentPosition
-        lpdwCurrentWriteCursor: DWORD): HResult; stdcall;
+        (lpdwCapturePosition, lpdwReadPosition : PDWORD) : HResult; stdcall;
-    function GetFormat(var lpwfxFormat: TWaveFormatEx; dwSizeAllocated: DWORD;
+    function GetFormat(lpwfxFormat: PWaveFormatEx; dwSizeAllocated: DWORD;
-        var lpdwSizeWritten: DWORD): HResult; stdcall;
+        lpdwSizeWritten: PWORD) : HResult; stdcall;
-    function GetVolume(var lplVolume: Longint): HResult; stdcall;
+    function GetVolume(var lplVolume: integer) : HResult; stdcall;
-    function GetPan(var lplPan: Longint): HResult; stdcall;
+    function GetPan(var lplPan: integer) : HResult; stdcall;
-    function GetFrequency(var lpdwFrequency: DWORD): HResult; stdcall;
+    function GetFrequency(var lpdwFrequency: DWORD) : HResult; stdcall;
-    function GetStatus(var lpdwStatus: DWORD): HResult; stdcall;
+    function GetStatus(var lpdwStatus: DWORD) : HResult; stdcall;
-    function Initialize(lpDirectSound: IDirectSound; const
+    function Initialize(lpDirectSound: IDirectSound;
-        lpDSBufferDesc: TDSBufferDesc): HResult; stdcall;
+        const lpcDSBufferDesc: TDSBufferDesc) : HResult; stdcall;
-    function Lock(dwWriteCursor: DWORD; dwWriteBytes: DWORD;
+    function Lock(dwWriteCursor, dwWriteBytes: DWORD;
         var lplpvAudioPtr1: Pointer; var lpdwAudioBytes1: DWORD;
         var lplpvAudioPtr2: Pointer; var lpdwAudioBytes2: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function Play(dwReserved1, dwReserved2: DWORD; dwFlags: DWORD): HResult; stdcall;
+    function Play(dwReserved1,dwReserved2,dwFlags: DWORD) : HResult; stdcall;
-    function SetCurrentPosition(dwNewPosition: DWORD): HResult; stdcall;
+    function SetCurrentPosition(dwPosition: DWORD) : HResult; stdcall;
-    function SetFormat(const lpfxFormat: TWaveFormatEx): HResult; stdcall;
+    function SetFormat(const lpcfxFormat: TWaveFormatEx) : HResult; stdcall;
-    function SetVolume(lVolume: Longint): HResult; stdcall;
+    function SetVolume(lVolume: integer) : HResult; stdcall;
-    function SetPan(lPan: Longint): HResult; stdcall;
+    function SetPan(lPan: integer) : HResult; stdcall;
-    function SetFrequency(dwFrequency: DWORD): HResult; stdcall;
+    function SetFrequency(dwFrequency: DWORD) : HResult; stdcall;
     function Stop: HResult; stdcall;
     function Unlock(lpvAudioPtr1: Pointer; dwAudioBytes1: DWORD;
-        lpvAudioPtr2: Pointer; dwAudioBytes2: DWORD): HResult; stdcall;
+        lpvAudioPtr2: Pointer; dwAudioBytes2: DWORD) : HResult; stdcall;
     function Restore: HResult; stdcall;
   end;
+//
-{ IDirectSound3DListener }
+// IDirectSound3DListener
+//
-  IDirectSound3DListener = interface(IUnknown)
+  IDirectSound3DListener = interface (IUnknown)
     ['{279AFA84-4981-11CE-A521-0020AF0BE560}']
-    // IDirectSound3DListener methods
+    // IDirectSound3D methods
-    function GetAllParameters(var lpListener: TDS3DListener): HResult; stdcall;
+    function GetAllParameters(var lpListener: TDS3DListener) : HResult; stdcall;
-    function GetDistanceFactor(var lpflDistanceFactor: TD3DValue): HResult; stdcall;
+    function GetDistanceFactor(var lpflDistanceFactor: TD3DValue) : HResult; stdcall;
-    function GetDopplerFactor(var lpflDopplerFactor: TD3DValue): HResult; stdcall;
+    function GetDopplerFactor(var lpflDopplerFactor: TD3DValue) : HResult; stdcall;
+    function GetOrientation
-    function GetOrientation(var lpvOrientFront, lpvOrientTop: TD3DVector): HResult; stdcall;
+        (var lpvOrientFront, lpvOrientTop: TD3DVector) : HResult; stdcall;
-    function GetPosition(var lpvPosition: TD3DVector): HResult; stdcall;
+    function GetPosition(var lpvPosition: TD3DVector) : HResult; stdcall;
-    function GetRolloffFactor(var lpflRolloffFactor: TD3DValue): HResult; stdcall;
+    function GetRolloffFactor(var lpflRolloffFactor: TD3DValue) : HResult; stdcall;
-    function GetVelocity(var lpvVelocity: TD3DVector): HResult; stdcall;
+    function GetVelocity(var lpvVelocity: TD3DVector) : HResult; stdcall;
+    function SetAllParameters
-    function SetAllParameters(const lpListener: TDS3DListener; dwApply: DWORD): HResult; stdcall;
+        (const lpcListener: TDS3DListener; dwApply: DWORD) : HResult; stdcall;
+    function SetDistanceFactor
-    function SetDistanceFactor(flDistanceFactor: TD3DValue; dwApply: DWORD): HResult; stdcall;
+        (flDistanceFactor: TD3DValue; dwApply: DWORD) : HResult; stdcall;
+    function SetDopplerFactor
-    function SetDopplerFactor(flDopplerFactor: TD3DValue; dwApply: DWORD): HResult; stdcall;
+        (flDopplerFactor: TD3DValue; dwApply: DWORD) : HResult; stdcall;
     function SetOrientation(xFront, yFront, zFront, xTop, yTop, zTop: TD3DValue;
-        dwApply: DWORD): HResult; stdcall;
+        dwApply: DWORD) : HResult; stdcall;
-    function SetPosition(x, y, z: TD3DValue; dwApply: DWORD): HResult; stdcall;
+    function SetPosition(x, y, z: TD3DValue; dwApply: DWORD) : HResult; stdcall;
+    function SetRolloffFactor
-    function SetRolloffFactor(flRolloffFactor: TD3DValue; dwApply: DWORD): HResult; stdcall;
+        (flRolloffFactor: TD3DValue; dwApply: DWORD) : HResult; stdcall;
-    function SetVelocity(x, y, z: TD3DValue; dwApply: DWORD): HResult; stdcall;
+    function SetVelocity(x, y, z: TD3DValue; dwApply: DWORD) : HResult; stdcall;
     function CommitDeferredSettings: HResult; stdcall;
   end;
-{ IDirectSound3DBuffer }
+//
+// IDirectSound3DBuffer
+//
-  IDirectSound3DBuffer = interface(IUnknown)
+  IDirectSound3DBuffer = interface (IUnknown)
     ['{279AFA86-4981-11CE-A521-0020AF0BE560}']
-    // IDirectSound3DBuffer methods
+    // IDirectSoundBuffer3D methods
-    function GetAllParameters(var lpDs3dBuffer: TDS3DBuffer): HResult; stdcall;
+    function GetAllParameters(var lpDs3dBuffer: TDS3DBuffer) : HResult; stdcall;
-    function GetConeAngles(var lpdwInsideConeAngle: DWORD;
+    function GetConeAngles
-        var lpdwOutsideConeAngle: DWORD): HResult; stdcall;
+        (var lpdwInsideConeAngle, lpdwOutsideConeAngle: DWORD) : HResult; stdcall;
-    function GetConeOrientation(var lpvOrientation: TD3DVector): HResult; stdcall;
+    function GetConeOrientation(var lpvOrientation: TD3DVector) : HResult; stdcall;
-    function GetConeOutsideVolume(var lplConeOutsideVolume: Longint): HResult; stdcall;
+    function GetConeOutsideVolume(var lplConeOutsideVolume: integer) : HResult; stdcall;
-    function GetMaxDistance(var lpflMaxDistance: TD3DValue): HResult; stdcall;
+    function GetMaxDistance(var lpflMaxDistance: TD3DValue) : HResult; stdcall;
-    function GetMinDistance(var lpflMinDistance: TD3DValue): HResult; stdcall;
+    function GetMinDistance(var lpflMinDistance: TD3DValue) : HResult; stdcall;
-    function GetMode(var lpdwMod: DWORD): HResult; stdcall;
+    function GetMode(var lpdwMode: DWORD) : HResult; stdcall;
-    function GetPosition(var lpvPosition: TD3DVector): HResult; stdcall;
+    function GetPosition(var lpvPosition: TD3DVector) : HResult; stdcall;
-    function GetVelocity(var lpvVelocity: TD3DVector): HResult; stdcall;
+    function GetVelocity(var lpvVelocity: TD3DVector) : HResult; stdcall;
+    function SetAllParameters
-    function SetAllParameters(const lpDs3dBuffer: TDS3DBuffer; dwApply: DWORD): HResult; stdcall;
+        (const lpcDs3dBuffer: TDS3DBuffer; dwApply: DWORD) : HResult; stdcall;
-    function SetConeAngles(dwInsideConeAngle: DWORD; dwOutsideConeAngle: DWORD;
+    function SetConeAngles
-        dwApply: DWORD): HResult; stdcall;
+        (dwInsideConeAngle, dwOutsideConeAngle, dwApply: DWORD) : HResult; stdcall;
-    function SetConeOrientation(x, y, z: TD3DValue; dwApply: DWORD): HResult; stdcall;
+    function SetConeOrientation(x, y, z: TD3DValue; dwApply: DWORD) : HResult; stdcall;
+    function SetConeOutsideVolume
-    function SetConeOutsideVolume(lConeOutsideVolume: Longint; dwApply: DWORD): HResult; stdcall;
+        (lConeOutsideVolume: LongInt; dwApply: DWORD) : HResult; stdcall;
-    function SetMaxDistance(flMaxDistance: TD3DValue; dwApply: DWORD): HResult; stdcall;
+    function SetMaxDistance(flMaxDistance: TD3DValue; dwApply: DWORD) : HResult; stdcall;
-    function SetMinDistance(flMinDistance: TD3DValue; dwApply: DWORD): HResult; stdcall;
+    function SetMinDistance(flMinDistance: TD3DValue; dwApply: DWORD) : HResult; stdcall;
-    function SetMode(dwMode: DWORD; dwApply: DWORD): HResult; stdcall;
+    function SetMode(dwMode: DWORD; dwApply: DWORD) : HResult; stdcall;
-    function SetPosition(x, y, z: TD3DValue; dwApply: DWORD): HResult; stdcall;
+    function SetPosition(x, y, z: TD3DValue; dwApply: DWORD) : HResult; stdcall;
-    function SetVelocity(x, y, z: TD3DValue; dwApply: DWORD): HResult; stdcall;
+    function SetVelocity(x, y, z: TD3DValue; dwApply: DWORD) : HResult; stdcall;
   end;
-{ IDirectSoundCapture }
+//
+// IDirectSoundCapture
+//
-  IDirectSoundCapture = interface(IUnknown)
+  IDirectSoundCapture = interface (IUnknown)
-    ['{B0210781-89CD-11D0-AF08-00A0C925CD16}']
+    ['{b0210781-89cd-11d0-af08-00a0c925cd16}']
     // IDirectSoundCapture methods
     function CreateCaptureBuffer(const lpDSCBufferDesc: TDSCBufferDesc;
-        out lplpDirectSoundCaptureBuffer: IDirectSoundCaptureBuffer;
+        var lplpDirectSoundCaptureBuffer: IDirectSoundCaptureBuffer;
-        pUnkOuter: IUnknown): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function GetCaps(var lpDSCCaps: TDSCCaps): HResult; stdcall;
+    function GetCaps(var lpdwCaps: TDSCCaps) : HResult; stdcall;
-    function Initialize(lpGuid: PGUID): HResult; stdcall;
+    function Initialize(lpGuid: PGUID) : HResult; stdcall;
   end;
-{ IDirectSoundCaptureBuffer }
+//
+// IDirectSoundCaptureBuffer
+//
-  IDirectSoundCaptureBuffer = interface(IUnknown)
+  IDirectSoundCaptureBuffer = interface (IUnknown)
-    ['{B0210782-89CD-11D0-AF08-00A0C925CD16}']
+    ['{b0210782-89cd-11d0-af08-00a0c925cd16}']
     // IDirectSoundCaptureBuffer methods
-    function GetCaps(var lpDSCBCaps: TDSCBCaps): HResult; stdcall;
+    function GetCaps(var lpdwCaps: TDSCBCaps) : HResult; stdcall;
-    function GetCurrentPosition(var lpdwCapturePosition,
+    function GetCurrentPosition
-        lpdwReadPosition: DWORD): HResult; stdcall;
+        (lpdwCapturePosition, lpdwReadPosition: PDWORD) : HResult; stdcall;
-    function GetFormat(var lpwfxFormat: TWaveFormatEx; dwSizeAllocated: DWORD;
+    function GetFormat(lpwfxFormat: PWaveFormatEx; dwSizeAllocated: DWORD;
-        var lpdwSizeWritten: DWORD): HResult; stdcall;
+        lpdwSizeWritten : PDWORD) : HResult; stdcall;
-    function GetStatus(var lpdwStatus: DWORD): HResult; stdcall;
+    function GetStatus(var lpdwStatus: DWORD) : HResult; stdcall;
     function Initialize(lpDirectSoundCapture: IDirectSoundCapture;
-        const lpcDSBufferDesc: TDSCBufferDesc): HResult; stdcall;
+        const lpcDSBufferDesc: TDSCBufferDesc) : HResult; stdcall;
-    function Lock(dwReadCursor: DWORD; dwReadBytes: DWORD;
+    function Lock(dwReadCursor, dwReadBytes: DWORD;
         var lplpvAudioPtr1: Pointer; var lpdwAudioBytes1: DWORD;
         var lplpvAudioPtr2: Pointer; var lpdwAudioBytes2: DWORD;
-        dwFlags: DWORD): HResult; stdcall;
+        dwFlags: DWORD) : HResult; stdcall;
-    function Start(dwFlags: DWORD): HResult; stdcall;
+    function Start(dwFlags: DWORD) : HResult; stdcall;
     function Stop: HResult; stdcall;
     function Unlock(lpvAudioPtr1: Pointer; dwAudioBytes1: DWORD;
-        lpvAudioPtr2: Pointer; dwAudioBytes2: DWORD): HResult; stdcall;
+        lpvAudioPtr2: Pointer; dwAudioBytes2: DWORD) : HResult; stdcall;
   end;
+//
-{ IDirectSoundNotify }
+// IDirectSoundNotify
+//
-  IDirectSoundNotify = interface(IUnknown)
+  IDirectSoundNotify = interface (IUnknown)
-    ['{B0210783-89CD-11D0-AF08-00A0C925CD16}']
+    ['{b0210783-89cd-11d0-af08-00a0c925cd16}']
     // IDirectSoundNotify methods
     function SetNotificationPositions(cPositionNotifies: DWORD;
-        const lpcPositionNotifies): HResult; stdcall;
+        const lpcPositionNotifies: TDSBPositionNotify) : HResult; stdcall;
+  end;
+//
+// IKsPropertySet
+//
+  IKsPropertySet = interface (IUnknown)
+    ['{31efac30-515c-11d0-a9aa-00aa0061be93}']
+    // IKsPropertySet methods
+    function Get(const rguidPropSet: TGUID; ulId: DWORD; var pInstanceData;
+        ulInstanceLength: DWORD; var pPropertyData; ulDataLength: DWORD;
+        var pulBytesReturned: DWORD) : HResult; stdcall;
+    // Warning: The following method is defined as Set() in DirectX
+    //          which is a reserved word in Delphi!
+    function SetProperty(const rguidPropSet: TGUID; ulId: DWORD;
+        var pInstanceData; ulInstanceLength: DWORD;
+        var pPropertyData; pulDataLength: DWORD) : HResult; stdcall;
+    function QuerySupport(const rguidPropSet: TGUID; ulId: DWORD;
+        var pulTypeSupport: DWORD) : HResult; stdcall;
   end;
-{ IKsPropertySet }
 const
   KSPROPERTY_SUPPORT_GET = $00000001;
   KSPROPERTY_SUPPORT_SET = $00000002;
+//
-  IID_IKsPropertySet: TGUID = (D1:$31efac30;D2:$515c;D3:$11d0;D4:($a9,$aa,$00,$aa,$00,$61,$be,$93));
+// GUID's for all the objects
+//
 type
+  IID_IDirectSound = IDirectSound;
+  IID_IDirectSoundBuffer = IDirectSoundBuffer;
+  IID_IDirectSound3DListener = IDirectSound3DListener;
+  IID_IDirectSound3DBuffer = IDirectSound3DBuffer;
+  IID_IDirectSoundCapture = IDirectSoundCapture;
+  IID_IDirectSoundCaptureBuffer = IDirectSoundCaptureBuffer;
+  IID_IDirectSoundNotify = IDirectSoundNotify;
-  IKsPropertySet = interface;
+  IID_IKsPropertySet = IKsPropertySet;
+//
+// Creation Routines
+//
+var
+    DirectSoundCreate : function ( lpGuid: PGUID; out ppDS: IDirectSound;
-  IKsPropertySet = interface(IUnknown)
+        pUnkOuter: IUnknown) : HResult; stdcall;
+    DirectSoundEnumerateW : function (lpDSEnumCallback: TDSEnumCallbackW;
-    ['{31EFAC30-515C-11D0-A9AA-00AA0061BE93}']
+        lpContext: Pointer) : HResult; stdcall;
+    DirectSoundEnumerateA : function (lpDSEnumCallback: TDSEnumCallbackA;
-    // IKsPropertySet methods
+        lpContext: Pointer) : HResult; stdcall;
-    function GetProperty(const PropertySetId: TGUID; PropertyId: DWORD;
+    DirectSoundEnumerate : function (lpDSEnumCallback: TDSEnumCallback;
-        var pPropertyParams; cbPropertyParams: DWORD;
+        lpContext: Pointer) : HResult; stdcall;
+    DirectSoundCaptureCreate : function (lpGUID: PGUID;
-        var pPropertyData; cbPropertyData: DWORD;
+        out lplpDSC: IDirectSoundCapture;
-        var pcbReturnedData: ULONG): HResult; stdcall;
+        pUnkOuter: IUnknown) : HResult; stdcall;
-    function SetProperty(const PropertySetId: TGUID; PropertyId: DWORD;
+    DirectSoundCaptureEnumerateW : function (lpDSEnumCallback: TDSEnumCallbackW;
-        const pPropertyParams; cbPropertyParams: DWORD;
+        lpContext: Pointer) : HResult; stdcall;
+    DirectSoundCaptureEnumerateA : function (lpDSEnumCallback: TDSEnumCallbackA;
-        const pPropertyData; cbPropertyData: DWORD): HResult; stdcall;
+        lpContext: Pointer) : HResult; stdcall;
-    function QuerySupport(const PropertySetId: TGUID; PropertyId: DWORD;
+    DirectSoundCaptureEnumerate : function(lpDSEnumCallback: TDSEnumCallback;
-        var pSupport: ULONG): HResult; stdcall;
+        lpContext: Pointer) : HResult; stdcall;
-  end;
+//
-{ Return Codes }
+// Return Codes
+//
 const
-  DS_OK                         = HResult(S_OK);
-  DS_NO_VIRTUALIZATION          = HResult($878000A);
+  MAKE_DSHRESULT_ = HResult($88780000);
-  DSERR_ALLOCATED               = HResult($88780000 + 10);
-  DSERR_CONTROLUNAVAIL          = HResult($88780000 + 30);
-  DSERR_INVALIDPARAM            = HResult(E_INVALIDARG);
-  DSERR_INVALIDCALL             = HResult($88780000 + 50);
-  DSERR_GENERIC                 = HResult(E_FAIL);
-  DSERR_PRIOLEVELNEEDED         = HResult($88780000 + 70);
-  DSERR_OUTOFMEMORY             = HResult(E_OUTOFMEMORY);
-  DSERR_BADFORMAT               = HResult($88780000 + 100);
-  DSERR_UNSUPPORTED             = HResult(E_NOTIMPL);
-  DSERR_NODRIVER                = HResult($88780000 + 120);
-  DSERR_ALREADYINITIALIZED      = HResult($88780000 + 130);
-  DSERR_NOAGGREGATION           = HResult(CLASS_E_NOAGGREGATION);
-  DSERR_BUFFERLOST              = HResult($88780000 + 150);
-  DSERR_OTHERAPPHASPRIO         = HResult($88780000 + 160);
-  DSERR_UNINITIALIZED           = HResult($88780000 + 170);
-  DSERR_NOINTERFACE             = HResult(E_NOINTERFACE);
-  DSERR_ACCESSDENIED            = HResult(E_ACCESSDENIED);
+  DS_OK = 0;
+// The function completed successfully, but we had to substitute the 3D algorithm
+  DS_NO_VIRTUALIZATION = MAKE_DSHRESULT_ + 10;
+// The call failed because resources (such as a priority level)
+// were already being used by another caller.
+  DSERR_ALLOCATED = MAKE_DSHRESULT_ + 10;
+// The control (vol,pan,etc.) requested by the caller is not available.
+  DSERR_CONTROLUNAVAIL = MAKE_DSHRESULT_ + 30;
+// An invalid parameter was passed to the returning function
+  DSERR_INVALIDPARAM = E_INVALIDARG;
+// This call is not valid for the current state of this object
+  DSERR_INVALIDCALL = MAKE_DSHRESULT_ + 50;
+// An undetermined error occured inside the DirectSound subsystem
+  DSERR_GENERIC = E_FAIL;
+// The caller does not have the priority level required for the function to
+// succeed.
+  DSERR_PRIOLEVELNEEDED = MAKE_DSHRESULT_ + 70;
+// Not enough free memory is available to complete the operation
+  DSERR_OUTOFMEMORY = E_OUTOFMEMORY;
+// The specified WAVE format is not supported
+  DSERR_BADFORMAT = MAKE_DSHRESULT_ + 100;
+// The function called is not supported at this time
+  DSERR_UNSUPPORTED = E_NOTIMPL;
+// No sound driver is available for use
+  DSERR_NODRIVER = MAKE_DSHRESULT_ + 120;
+// This object is already initialized
+  DSERR_ALREADYINITIALIZED = MAKE_DSHRESULT_ + 130;
+// This object does not support aggregation
+  DSERR_NOAGGREGATION = CLASS_E_NOAGGREGATION;
+// The buffer memory has been lost, and must be restored.
+  DSERR_BUFFERLOST = MAKE_DSHRESULT_ + 150;
+// Another app has a higher priority level, preventing this call from
+// succeeding.
+  DSERR_OTHERAPPHASPRIO = MAKE_DSHRESULT_ + 160;
+// This object has not been initialized
+  DSERR_UNINITIALIZED = MAKE_DSHRESULT_ + 170;
+// The requested COM interface is not available
+  DSERR_NOINTERFACE = E_NOINTERFACE;
+// Access is denied
+  DSERR_ACCESSDENIED = E_ACCESSDENIED;
+//
-{ Flags }
+// Flags
+//
-  DSCAPS_PRIMARYMONO      = $00000001;
+  DSCAPS_PRIMARYMONO = $00000001;
-  DSCAPS_PRIMARYSTEREO    = $00000002;
+  DSCAPS_PRIMARYSTEREO = $00000002;
-  DSCAPS_PRIMARY8BIT      = $00000004;
+  DSCAPS_PRIMARY8BIT = $00000004;
-  DSCAPS_PRIMARY16BIT     = $00000008;
+  DSCAPS_PRIMARY16BIT = $00000008;
-  DSCAPS_CONTINUOUSRATE   = $00000010;
+  DSCAPS_CONTINUOUSRATE = $00000010;
-  DSCAPS_EMULDRIVER       = $00000020;
+  DSCAPS_EMULDRIVER = $00000020;
-  DSCAPS_CERTIFIED        = $00000040;
+  DSCAPS_CERTIFIED = $00000040;
-  DSCAPS_SECONDARYMONO    = $00000100;
+  DSCAPS_SECONDARYMONO = $00000100;
-  DSCAPS_SECONDARYSTEREO  = $00000200;
+  DSCAPS_SECONDARYSTEREO = $00000200;
-  DSCAPS_SECONDARY8BIT    = $00000400;
+  DSCAPS_SECONDARY8BIT = $00000400;
-  DSCAPS_SECONDARY16BIT   = $00000800;
+  DSCAPS_SECONDARY16BIT = $00000800;
-  DSSCL_NORMAL            = $00000001;
+  DSSCL_NORMAL = $00000001;
-  DSSCL_PRIORITY          = $00000002;
+  DSSCL_PRIORITY = $00000002;
-  DSSCL_EXCLUSIVE         = $00000003;
+  DSSCL_EXCLUSIVE = $00000003;
-  DSSCL_WRITEPRIMARY      = $00000004;
+  DSSCL_WRITEPRIMARY = $00000004;
   DSSPEAKER_HEADPHONE = $00000001;
-  DSSPEAKER_MONO      = $00000002;
+  DSSPEAKER_MONO = $00000002;
-  DSSPEAKER_QUAD      = $00000003;
+  DSSPEAKER_QUAD = $00000003;
-  DSSPEAKER_STEREO    = $00000004;
+  DSSPEAKER_STEREO = $00000004;
-  DSSPEAKER_SURROUND  = $00000005;
+  DSSPEAKER_SURROUND = $00000005;
-  DSSPEAKER_5POINT1   = $00000006;
+  DSSPEAKER_5POINT1 = $00000006;
-  DSSPEAKER_GEOMETRY_MIN    = $00000005;
+  DSSPEAKER_GEOMETRY_MIN     = $00000005;  //   5 degrees
-  DSSPEAKER_GEOMETRY_NARROW = $0000000A;
+  DSSPEAKER_GEOMETRY_NARROW  = $0000000A;  //  10 degrees
-  DSSPEAKER_GEOMETRY_WIDE   = $00000014;
+  DSSPEAKER_GEOMETRY_WIDE    = $00000014;  //  20 degrees
-  DSSPEAKER_GEOMETRY_MAX    = $000000B4;
+  DSSPEAKER_GEOMETRY_MAX     = $000000B4;  // 180 degrees
+function DSSPEAKER_COMBINED(c, g: variant) : DWORD;
+function DSSPEAKER_CONFIG(a: variant) : byte;
+function DSSPEAKER_GEOMETRY(a: variant) : byte;
+const
-  DSBCAPS_PRIMARYBUFFER       = $00000001;
+  DSBCAPS_PRIMARYBUFFER = $00000001;
-  DSBCAPS_STATIC              = $00000002;
+  DSBCAPS_STATIC = $00000002;
-  DSBCAPS_LOCHARDWARE         = $00000004;
+  DSBCAPS_LOCHARDWARE = $00000004;
-  DSBCAPS_LOCSOFTWARE         = $00000008;
+  DSBCAPS_LOCSOFTWARE = $00000008;
-  DSBCAPS_CTRL3D              = $00000010;
+  DSBCAPS_CTRL3D = $00000010;
-  DSBCAPS_CTRLFREQUENCY       = $00000020;
+  DSBCAPS_CTRLFREQUENCY = $00000020;
-  DSBCAPS_CTRLPAN             = $00000040;
+  DSBCAPS_CTRLPAN = $00000040;
-  DSBCAPS_CTRLVOLUME          = $00000080;
+  DSBCAPS_CTRLVOLUME = $00000080;
-  DSBCAPS_CTRLPOSITIONNOTIFY  = $00000100;
+  DSBCAPS_CTRLPOSITIONNOTIFY = $00000100;
-  DSBCAPS_CTRLDEFAULT         = $000000E0;
-  DSBCAPS_CTRLALL             = $000001F0;
-  DSBCAPS_STICKYFOCUS         = $00004000;
+  DSBCAPS_STICKYFOCUS = $00004000;
-  DSBCAPS_GLOBALFOCUS         = $00008000;
+  DSBCAPS_GLOBALFOCUS = $00008000;
   DSBCAPS_GETCURRENTPOSITION2 = $00010000;
   DSBCAPS_MUTE3DATMAXDISTANCE = $00020000;
   DSBCAPS_LOCDEFER            = $00040000;
-  DSBPLAY_LOOPING              = $00000001;
+  DSBPLAY_LOOPING = $00000001;
-  DSBPLAY_LOCHARDWARE          = $00000002;
+  DSBPLAY_LOCHARDWARE = $00000002;
-  DSBPLAY_LOCSOFTWARE          = $00000004;
+  DSBPLAY_LOCSOFTWARE = $00000004;
-  DSBPLAY_TERMINATEBY_TIME     = $00000008;
+  DSBPLAY_TERMINATEBY_TIME = $00000008;
-  DSBPLAY_TERMINATEBY_DISTANCE = $00000010;
+  DSBPLAY_TERMINATEBY_DISTANCE = $000000010;
-  DSBPLAY_TERMINATEBY_PRIORITY = $00000020;
+  DSBPLAY_TERMINATEBY_PRIORITY = $000000020;
-  DSBSTATUS_PLAYING       = $00000001;
+  DSBSTATUS_PLAYING = $00000001;
-  DSBSTATUS_BUFFERLOST    = $00000002;
+  DSBSTATUS_BUFFERLOST = $00000002;
-  DSBSTATUS_LOOPING       = $00000004;
+  DSBSTATUS_LOOPING = $00000004;
-  DSBSTATUS_LOCHARDWARE   = $00000008;
+  DSBSTATUS_LOCHARDWARE = $00000008;
-  DSBSTATUS_LOCSOFTWARE   = $00000010;
+  DSBSTATUS_LOCSOFTWARE = $00000010;
-  DSBSTATUS_TERMINATED    = $00000020;
+  DSBSTATUS_TERMINATED = $00000020;
   DSBLOCK_FROMWRITECURSOR = $00000001;
-  DSBLOCK_ENTIREBUFFER    = $00000002;
+  DSBLOCK_ENTIREBUFFER = $00000002;
-  DSBFREQUENCY_MIN        = 100;
+  DSBFREQUENCY_MIN = 100;
-  DSBFREQUENCY_MAX        = 100000;
+  DSBFREQUENCY_MAX = 100000;
-  DSBFREQUENCY_ORIGINAL   = 0;
+  DSBFREQUENCY_ORIGINAL = 0;
-  DSBPAN_LEFT             = -10000;
+  DSBPAN_LEFT = -10000;
-  DSBPAN_CENTER           = 0;
+  DSBPAN_CENTER = 0;
-  DSBPAN_RIGHT            = 10000;
+  DSBPAN_RIGHT = 10000;
-  DSBVOLUME_MIN           = -10000;
+  DSBVOLUME_MIN = -10000;
-  DSBVOLUME_MAX           = 0;
+  DSBVOLUME_MAX = 0;
-  DSBSIZE_MIN             = 4;
+  DSBSIZE_MIN = 4;
-  DSBSIZE_MAX             = $0FFFFFFF;
+  DSBSIZE_MAX = $0FFFFFFF;
-  DS3DMODE_NORMAL         = $00000000;
+  DS3DMODE_NORMAL = $00000000;
-  DS3DMODE_HEADRELATIVE   = $00000001;
+  DS3DMODE_HEADRELATIVE = $00000001;
-  DS3DMODE_DISABLE        = $00000002;
+  DS3DMODE_DISABLE = $00000002;
-  DS3D_IMMEDIATE          = $00000000;
+  DS3D_IMMEDIATE = $00000000;
-  DS3D_DEFERRED           = $00000001;
+  DS3D_DEFERRED = $00000001;
-  DS3D_MINDISTANCEFACTOR     = 0.0;
+  DS3D_MINDISTANCEFACTOR = FLT_MIN;
-  DS3D_MAXDISTANCEFACTOR     = 10.0;
+  DS3D_MAXDISTANCEFACTOR = FLT_MAX;
   DS3D_DEFAULTDISTANCEFACTOR = 1.0;
-  DS3D_MINROLLOFFFACTOR      = 0.0;
+  DS3D_MINROLLOFFFACTOR = 0.0;
-  DS3D_MAXROLLOFFFACTOR      = 10.0;
+  DS3D_MAXROLLOFFFACTOR = 10.0;
-  DS3D_DEFAULTROLLOFFFACTOR  = 1.0;
+  DS3D_DEFAULTROLLOFFFACTOR = 1.0;
-  DS3D_MINDOPPLERFACTOR      = 0.0;
+  DS3D_MINDOPPLERFACTOR = 0.0;
-  DS3D_MAXDOPPLERFACTOR      = 10.0;
+  DS3D_MAXDOPPLERFACTOR = 10.0;
-  DS3D_DEFAULTDOPPLERFACTOR  = 1.0;
+  DS3D_DEFAULTDOPPLERFACTOR = 1.0;
-  DS3D_DEFAULTMINDISTANCE    = 1.0;
+  DS3D_DEFAULTMINDISTANCE = 1.0;
-  DS3D_DEFAULTMAXDISTANCE    = 1000000000.0;
+  DS3D_DEFAULTMAXDISTANCE = 1000000000.0;
-  DS3D_MINCONEANGLE          = 0;
+  DS3D_MINCONEANGLE = 0;
-  DS3D_MAXCONEANGLE          = 360;
+  DS3D_MAXCONEANGLE = 360;
-  DS3D_DEFAULTCONEANGLE      = 360;
+  DS3D_DEFAULTCONEANGLE = 360;
   DS3D_DEFAULTCONEOUTSIDEVOLUME = DSBVOLUME_MAX;
-  DSCCAPS_EMULDRIVER          = DSCAPS_EMULDRIVER;
+  DSCCAPS_EMULDRIVER = $00000020;
-  DSCCAPS_CERTIFIED           = DSCAPS_CERTIFIED;
+  DSCCAPS_CERTIFIED = DSCAPS_CERTIFIED;
-  DSCBCAPS_WAVEMAPPED         = $80000000;
+  DSCBCAPS_WAVEMAPPED = $80000000;
+  DSBCAPS_CTRLDEFAULT = $000000E0;
+  DSBCAPS_CTRLALL = $000001F0;
-  DSCBLOCK_ENTIREBUFFER       = $00000001;
+  DSCBLOCK_ENTIREBUFFER = $00000001;
-  DSCBSTATUS_CAPTURING        = $00000001;
+  DSCBSTATUS_CAPTURING = $00000001;
-  DSCBSTATUS_LOOPING          = $00000002;
+  DSCBSTATUS_LOOPING = $00000002;
-  DSCBSTART_LOOPING           = $00000001;
+  DSCBSTART_LOOPING = $00000001;
-  DSBPN_OFFSETSTOP            = $FFFFFFFF;
+  DSBPN_OFFSETSTOP = DWORD(-1);
+//
+// DirectSound3D Algorithms
+//
+// Default DirectSound3D algorithm {00000000-0000-0000-0000-000000000000}
   DS3DALG_DEFAULT: TGUID = '{00000000-0000-0000-0000-000000000000}';
-  DS3DALG_NO_VIRTUALIZATION: TGUID = '{C241333F-1C1B-11D2-94F5-00C04FC28ACA}';
-  DS3DALG_HRTF_FULL: TGUID = '{C2413340-1C1B-11D2-94F5-00C04FC28ACA}';
-  DS3DALG_HRTF_LIGHT: TGUID = '{C2413342-1C1B-11D2-94F5-00C04FC28ACA}';
-function DSSPEAKER_COMBINED(c, g: Byte): DWORD;
+// No virtualization {C241333F-1C1B-11d2-94F5-00C04FC28ACA}
-function DSSPEAKER_CONFIG(a: DWORD): Byte;
+  DS3DALG_NO_VIRTUALIZATION: TGUID = '';
-function DSSPEAKER_GEOMETRY(a: DWORD): Byte;
-{ DirectSound API }
+// High-quality HRTF algorithm {C2413340-1C1B-11d2-94F5-00C04FC28ACA}
+  DS3DALG_HRTF_FULL: TGUID = '{C2413340-1C1B-11d2-94F5-00C04FC28ACA}';
-type
-  TDSEnumCallbackW = function(lpGuid: PGUID; lpstrDescription: LPCWSTR;
+// Lower-quality HRTF algorithm {C2413342-1C1B-11d2-94F5-00C04FC28ACA}
-    lpstrModule: LPCWSTR; lpContext: Pointer): BOOL; stdcall;
+  DS3DALG_HRTF_LIGHT: TGUID = '{C2413342-1C1B-11d2-94F5-00C04FC28ACA}';
-  LPDSENUMCALLBACKW = TDSEnumCallbackW;
+//DirectMusic file
+(*==========================================================================;
+ *
-  TDSEnumCallbackA = function(lpGuid: PGUID; lpstrDescription: LPCSTR;
+ *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *
-    lpstrModule: LPCSTR; lpContext: Pointer): BOOL; stdcall;
+ *  Files:      dls1.h dls2.h dmdls.h dmerror.h dmksctrl.h
+                dmusicc.h dmusici.h dmusicf.h dmusbuff.h
+ *  Content:    DirectMusic, DirectSetup
+ *
+ *  DirectX 7.0 Delphi adaptation by Erik Unger
+ *
+ *  Modyfied: 10-Sep-2000
+ *
+ *  Download: http://www.delphi-jedi.org/DelphiGraphics/
-  LPDSENUMCALLBACKA = TDSEnumCallbackA;
+ *  E-Mail: DelphiDirectX@next-reality.com
+ *
+ ***************************************************************************)
-  TDSEnumCallback = TDSEnumCallbackA;
-  LPDSENUMCALLBACK = TDSEnumCallback;
-function DirectSoundCreate(lpGUID: PGUID; out lpDS: IDirectSound; pUnkOuter: IUnknown): HResult; stdcall;
-function DirectSoundEnumerateA(lpDSEnumCallback: TDSEnumCallbackA; lpContext: Pointer): HResult; stdcall;
-function DirectSoundEnumerateW(lpDSEnumCallback: TDSEnumCallbackW; lpContext: Pointer): HResult; stdcall;
-function DirectSoundEnumerate(lpDSEnumCallback: TDSEnumCallbackA; lpContext: Pointer): HResult; stdcall;
+function MAKE_HRESULT(sev,fac,code: DWORD) : HResult;
-function DirectSoundCaptureCreate(lpGUID: PGUID; out lplpDSC: IDirectSoundCapture; pUnkOuter: IUnknown): HResult; stdcall;
-function DirectSoundCaptureEnumerateA(lpDSEnumCallback: TDSEnumCallbackA; lpContext: Pointer): HResult; stdcall;
-function DirectSoundCaptureEnumerateW(lpDSEnumCallback: TDSEnumCallbackW; lpContext: Pointer): HResult; stdcall;
-function DirectSoundCaptureEnumerate(lpDSEnumCallback: TDSEnumCallbackA; lpContext: Pointer): HResult; stdcall;
+type
+  mmioFOURCC = array [0..3] of Char;
-//==========================================================================;
+(*==========================================================================;
 //
 //  dls1.h
 //
 //
 //  Description:
 //
 //  Interface defines and structures for the Instrument Collection Form
 //  RIFF DLS.
 //
 //
 //  Written by Sonic Foundry 1996.  Released for public use.
 //
-//=========================================================================
+//=========================================================================*)
-////////////////////////////////////////////////////////////////////////////
+(*//////////////////////////////////////////////////////////////////////////
 //
 //
 // Layout of an instrument collection:
 //
 //
 // RIFF [] 'DLS ' [dlid,colh,INSTLIST,WAVEPOOL,INFOLIST]
 //
 // INSTLIST
 // LIST [] 'lins'
 //               LIST [] 'ins ' [dlid,insh,RGNLIST,ARTLIST,INFOLIST]
 //               LIST [] 'ins ' [dlid,insh,RGNLIST,ARTLIST,INFOLIST]
 //               LIST [] 'ins ' [dlid,insh,RGNLIST,ARTLIST,INFOLIST]
 //
 // RGNLIST
 // LIST [] 'lrgn'
 //               LIST [] 'rgn '  [rgnh,wsmp,wlnk,ARTLIST]
 //               LIST [] 'rgn '  [rgnh,wsmp,wlnk,ARTLIST]
 //               LIST [] 'rgn '  [rgnh,wsmp,wlnk,ARTLIST]
 //
 // ARTLIST
 // LIST [] 'lart'
 //         'art1' level 1 Articulation connection graph
 //         'art2' level 2 Articulation connection graph
 //         '3rd1' Possible 3rd party articulation structure 1
 //         '3rd2' Possible 3rd party articulation structure 2 .... and so on
 //
 // WAVEPOOL
 // ptbl [] [pool table]
 // LIST [] 'wvpl'
 //               [path],
 //               [path],
 //               LIST [] 'wave' [dlid,RIFFWAVE]
 //               LIST [] 'wave' [dlid,RIFFWAVE]
 //               LIST [] 'wave' [dlid,RIFFWAVE]
 //               LIST [] 'wave' [dlid,RIFFWAVE]
 //               LIST [] 'wave' [dlid,RIFFWAVE]
 //
 // INFOLIST
 // LIST [] 'INFO'
 //               'icmt' 'One of those crazy comments.'
 //               'icop' 'Copyright (C) 1996 Sonic Foundry'
 //
-//////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////(*)
-///////////////////////////////////////////////////////////////////////////
+(*/////////////////////////////////////////////////////////////////////////
 // FOURCC's used in the DLS file
-//////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////(*)
 const
-  FOURCC_DLS  = Ord('D') + Ord('L') shl 8 + Ord('S') shl 16 + Ord(' ') shl 24;
+  FOURCC_DLS   : mmioFOURCC = ('D','L','S',' ');
-  FOURCC_DLID = Ord('d') + Ord('l') shl 8 + Ord('i') shl 16 + Ord('d') shl 24;
+  FOURCC_DLID  : mmioFOURCC = ('d','l','i','d');
-  FOURCC_COLH = Ord('c') + Ord('o') shl 8 + Ord('l') shl 16 + Ord('h') shl 24;
+  FOURCC_COLH  : mmioFOURCC = ('c','o','l','h');
-  FOURCC_WVPL = Ord('w') + Ord('v') shl 8 + Ord('p') shl 16 + Ord('l') shl 24;
+  FOURCC_WVPL  : mmioFOURCC = ('w','v','p','l');
-  FOURCC_PTBL = Ord('p') + Ord('t') shl 8 + Ord('b') shl 16 + Ord('l') shl 24;
+  FOURCC_PTBL  : mmioFOURCC = ('p','t','b','l');
-  FOURCC_PATH = Ord('p') + Ord('a') shl 8 + Ord('t') shl 16 + Ord('h') shl 24;
+  FOURCC_PATH  : mmioFOURCC = ('p','a','t','h');
-  FOURCC_wave = Ord('w') + Ord('a') shl 8 + Ord('v') shl 16 + Ord('e') shl 24;
+  FOURCC_wave  : mmioFOURCC = ('w','a','v','e');
-  FOURCC_LINS = Ord('l') + Ord('i') shl 8 + Ord('n') shl 16 + Ord('s') shl 24;
+  FOURCC_LINS  : mmioFOURCC = ('l','i','n','s');
-  FOURCC_INS  = Ord('i') + Ord('n') shl 8 + Ord('s') shl 16 + Ord(' ') shl 24;
+  FOURCC_INS   : mmioFOURCC = ('i','n','s',' ');
-  FOURCC_INSH = Ord('i') + Ord('n') shl 8 + Ord('s') shl 16 + Ord('h') shl 24;
+  FOURCC_INSH  : mmioFOURCC = ('i','n','s','h');
-  FOURCC_LRGN = Ord('l') + Ord('r') shl 8 + Ord('g') shl 16 + Ord('n') shl 24;
+  FOURCC_LRGN  : mmioFOURCC = ('l','r','g','n');
-  FOURCC_RGN  = Ord('r') + Ord('g') shl 8 + Ord('n') shl 16 + Ord(' ') shl 24;
+  FOURCC_RGN   : mmioFOURCC = ('r','g','n',' ');
-  FOURCC_RGNH = Ord('r') + Ord('g') shl 8 + Ord('n') shl 16 + Ord('h') shl 24;
+  FOURCC_RGNH  : mmioFOURCC = ('r','g','n','h');
-  FOURCC_LART = Ord('l') + Ord('a') shl 8 + Ord('r') shl 16 + Ord('t') shl 24;
+  FOURCC_LART  : mmioFOURCC = ('l','a','r','t');
-  FOURCC_ART1 = Ord('a') + Ord('r') shl 8 + Ord('t') shl 16 + Ord('1') shl 24;
+  FOURCC_ART1  : mmioFOURCC = ('a','r','t','1');
-  FOURCC_WLNK = Ord('w') + Ord('l') shl 8 + Ord('n') shl 16 + Ord('k') shl 24;
+  FOURCC_WLNK  : mmioFOURCC = ('w','l','n','k');
-  FOURCC_WSMP = Ord('w') + Ord('s') shl 8 + Ord('m') shl 16 + Ord('p') shl 24;
+  FOURCC_WSMP  : mmioFOURCC = ('w','s','m','p');
-  //FOURCC_VERS = Ord('v') + Ord('e') shl 8 + Ord('r') shl 16 + Ord('s') shl 24;
+  //FOURCC_VERS  : mmioFOURCC = ('v','e','r','s');
-///////////////////////////////////////////////////////////////////////////
+(*/////////////////////////////////////////////////////////////////////////
 // Articulation connection graph definitions
-//////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////(*)
-// Generic Sources
+(* Generic Sources *)
-  CONN_SRC_NONE           = $0000;
+  CONN_SRC_NONE              = $0000;
-  CONN_SRC_LFO            = $0001;
+  CONN_SRC_LFO               = $0001;
-  CONN_SRC_KEYONVELOCITY  = $0002;
+  CONN_SRC_KEYONVELOCITY     = $0002;
-  CONN_SRC_KEYNUMBER      = $0003;
+  CONN_SRC_KEYNUMBER         = $0003;
-  CONN_SRC_EG1            = $0004;
+  CONN_SRC_EG1               = $0004;
-  CONN_SRC_EG2            = $0005;
+  CONN_SRC_EG2               = $0005;
-  CONN_SRC_PITCHWHEEL     = $0006;
+  CONN_SRC_PITCHWHEEL        = $0006;
-// Midi Controllers 0-127
+(* Midi Controllers 0-127 *)
-  CONN_SRC_CC1            = $0081;
+  CONN_SRC_CC1               = $0081;
-  CONN_SRC_CC7            = $0087;
+  CONN_SRC_CC7               = $0087;
-  CONN_SRC_CC10           = $008A;
+  CONN_SRC_CC10              = $008a;
-  CONN_SRC_CC11           = $008B;
+  CONN_SRC_CC11              = $008b;
-// Generic Destinations
+(* Generic Destinations *)
-  CONN_DST_NONE           = $0000;
+  CONN_DST_NONE              = $0000;
-  CONN_DST_ATTENUATION    = $0001;
+  CONN_DST_ATTENUATION       = $0001;
-  CONN_DST_PITCH          = $0003;
+  CONN_DST_PITCH             = $0003;
-  CONN_DST_PAN            = $0004;
+  CONN_DST_PAN               = $0004;
-// LFO Destinations
+(* LFO Destinations *)
-  CONN_DST_LFO_FREQUENCY  = $0104;
+  CONN_DST_LFO_FREQUENCY     = $0104;
-  CONN_DST_LFO_STARTDELAY = $0105;
+  CONN_DST_LFO_STARTDELAY    = $0105;
-// EG1 Destinations
+(* EG1 Destinations *)
-  CONN_DST_EG1_ATTACKTIME   = $0206;
+  CONN_DST_EG1_ATTACKTIME    = $0206;
-  CONN_DST_EG1_DECAYTIME    = $0207;
+  CONN_DST_EG1_DECAYTIME     = $0207;
-  CONN_DST_EG1_RELEASETIME  = $0209;
+  CONN_DST_EG1_RELEASETIME   = $0209;
-  CONN_DST_EG1_SUSTAINLEVEL = $020A;
+  CONN_DST_EG1_SUSTAINLEVEL  = $020a;
-// EG2 Destinations
+(* EG2 Destinations *)
-  CONN_DST_EG2_ATTACKTIME   = $030A;
+  CONN_DST_EG2_ATTACKTIME    = $030a;
-  CONN_DST_EG2_DECAYTIME    = $030B;
+  CONN_DST_EG2_DECAYTIME     = $030b;
-  CONN_DST_EG2_RELEASETIME  = $030D;
+  CONN_DST_EG2_RELEASETIME   = $030d;
-  CONN_DST_EG2_SUSTAINLEVEL = $030E;
+  CONN_DST_EG2_SUSTAINLEVEL  = $030e;
-  CONN_TRN_NONE             = $0000;
+  CONN_TRN_NONE              = $0000;
-  CONN_TRN_CONCAVE          = $0001;
+  CONN_TRN_CONCAVE           = $0001;
 type
+  PDLSId = ^TDLSId;
-  TDLSID = record
+  TDLSId = packed record
-    ulData1 : Cardinal;
+    ulData1 : ULONG;
     usData2 : Word;
     usData3 : Word;
-    abData4 : array[0..7] of Byte;
+    abData4 : array [0..7] of BYTE;
   end;
-  DLSID   = TDLSID;
-  LPDLSID = ^DLSID;
+//  PDLSVersion = ^TDLSVersion;
-  {TDLSVERSION = record
+//  TDLSVersion = packed record
-    dwVersionMS : DWORD;
+//    dwVersionMS,
-    dwVersionLS : DWORD;
+//    dwVersionLS : DWORD;
-  end;
+//  end;
-  DLSVERSION   = TDLSVERSION;
-  LPDLSVERSION = ^DLSVERSION;
+  PConnection = ^TConnection;
-   }
-  TCONNECTION = record
+  TConnection = packed record
-    usSource      : Word;
+    usSource : Word;
-    usControl     : Word;
+    usControl : Word;
-    usDestination : Word;
+    SuDestination : Word;
-    usTransform   : Word;
+    usTransform :  Word;
-    lScale        : Cardinal;
+    lScale : LongInt;
   end;
-  CONNECTION   = TCONNECTION;
-  LPCONNECTION = ^CONNECTION;
-// Level 1 Articulation Data
+(* Level 1 Articulation Data *)
+  PConnectionList = ^TConnectionList;
-  TCONNECTIONLIST = record
+  TConnectionList = packed record
-    cbSize       : Cardinal;      // size of the connection list structure
+    cbSize : ULONG;            (* size of the connection list structure *)
-    cConnections : Cardinal;      // count of connections in the list
+    cConnections : ULONG;      (* count of connections in the list *)
   end;
-  CONNECTIONLIST   = TCONNECTIONLIST;
-  LPCONNECTIONLIST = ^CONNECTIONLIST;
-///////////////////////////////////////////////////////////////////////////
+(*/////////////////////////////////////////////////////////////////////////
 // Generic type defines for regions and instruments
-//////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////(*)
-type
+  PRGNRange = ^TRGNRange;
-  TRGNRANGE = record
+  TRGNRange = packed record
-    usLow  : Word;
+    usLow : Word;
     usHigh : Word;
   end;
-  RGNRANGE   = TRGNRANGE;
-  LPRGNRANGE = ^RGNRANGE;
 const
-  FTINSTRUMENTTDRUMS = $80000000;
+  F_INSTRUMENT_DRUMS      = $80000000;
 type
+  PMIDILocale = ^TMIDILocale;
-  TMIDILOCALE = record
+  TMIDILocale = packed record
-    ulBank       : Cardinal;
+    ulBank : ULONG;
-    ulInstrument : Cardinal;
+    ulInstrument : ULONG;
   end;
-  MIDILOCALE   = TMIDILOCALE;
-  LPMIDILOCALE = ^MIDILOCALE;
-///////////////////////////////////////////////////////////////////////////
+(*/////////////////////////////////////////////////////////////////////////
 // Header structures found in an DLS file for collection, instruments, and
 // regions.
-//////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////(*)
 const
-  F_RGN_OPTION_SELFNONEXCLUSIVE = $0001;
+  F_RGN_OPTION_SELFNONEXCLUSIVE  = $0001;
 type
+  PRGNHeader = ^TRGNHeader;
-  TRGNHEADER = record
+  TRGNHeader = packed record
-    RangeKey      : RGNRANGE;       // Key range
+    RangeKey : TRGNRange;          (* Key range  *)
-    RangeVelocity : RGNRANGE;       // Velocity Range
+    RangeVelocity : TRGNRange;     (* Velocity Range  *)
-    fusOptions    : Word;           // Synthesis options for this range
+    fusOptions : Word   ;          (* Synthesis options for this range *)
-    usKeyGroup    : Word;           // Key grouping for non simultaneous play
+    usKeyGroup : Word   ;          (* Key grouping for non simultaneous play *)
-  end;                              // 0 = no group, 1 up is group
+                                   (* 0 = no group, 1 up is group *)
-                                    // for Level 1 only groups 1-15 are allowed
+                                   (* for Level 1 only groups 1-15 are allowed *)
-  RGNHEADER   = TRGNHEADER;
-  LPRGNHEADER = ^RGNHEADER;
-  TINSTHEADER = record
-    cRegions : Cardinal;            // Count of regions in this instrument
-    Locale : MIDILOCALE;            // Intended MIDI locale of this instrument
   end;
-  INSTHEADER   = TINSTHEADER;
-  LPINSTHEADER = ^INSTHEADER;
+  PInstHeader = ^TInstHeader;
-  TDLSHEADER = record
+  TInstHeader = packed record
-    cInstruments : Cardinal;        // Count of instruments in the collection
+    cRegions : ULONG;                (* Count of regions in this instrument *)
+    Locale : TMIDILocale;            (* Intended MIDI locale of this instrument *)
   end;
-  DLSHEADER = TDLSHEADER;
-  LPDLSHEADER = ^DLSHEADER;
+  PDLSHeader = ^TDLSHeader;
+  TDLSHeader = packed record
+    cInstruments : ULONG;
+  end;
-//////////////////////////////////////////////////////////////////////////////
+(*////////////////////////////////////////////////////////////////////////////
 // definitions for the Wave link structure
-/////////////////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////////////(*)
-// ****  For level 1 only WAVELINK_CHANNEL_MONO is valid  ****
+(* ****  For level 1 only WAVELINK_CHANNEL_MONO is valid  **** *)
-// ulChannel allows for up to 32 channels of audio with each bit position
+(* ulChannel allows for up to 32 channels of audio with each bit position *)
-// specifiying a channel of playback
+(* specifiying a channel of playback *)
 const
-  WAVELINK_CHANNEL_LEFT   = $0001;
+  WAVELINK_CHANNEL_LEFT    = $0001;
-  WAVELINK_CHANNEL_RIGHT  = $0002;
+  WAVELINK_CHANNEL_RIGHT   = $0002;
-  F_WAVELINK_PHASE_MASTER = $0001;
+  F_WAVELINK_PHASE_MASTER  = $0001;
 type
+  PWaveLink = ^TWaveLink;
-  TWAVELINK = record           // any paths or links are stored right after struct
+  TWaveLink = packed record  (* any paths or links are stored right after struct *)
-    fusOptions   : Word;       // options flags for this wave
+    fusOptions :   Word;     (* options flags for this wave *)
-    usPhaseGroup : Word;       // Phase grouping for locking channels
+    usPhaseGroup : Word;     (* Phase grouping for locking channels *)
-    ulChannel    : Cardinal;   // channel placement
+    ulChannel :    ULONG;    (* channel placement *)
-    ulTableIndex : Cardinal;   // index into the wave pool table, 0 based
+    ulTableIndex : ULONG;    (* index into the wave pool table, 0 based *)
   end;
-  WAVELINK   = TWAVELINK;
-  LPWAVELINK = ^WAVELINK;
 const
-  POOL_CUE_NULL = $FFFFFFFF;
+  POOL_CUE_NULL  = $ffffffff;
 type
+  PPoolCUE = ^TPoolCUE;
-  TPOOLCUE = record
+  TPoolCUE = packed record
-    ulOffset : Cardinal;       // Offset to the entry in the list
+    ulOffset : ULONG;
   end;
-  POOLCUE   = TPOOLCUE;
-  LPPOOLCUE = ^POOLCUE;
+  PPoolTable = ^TPoolTable;
-  TPOOLTABLE = record
+  TPoolTable = packed record
-    cbSize : Cardinal;         // size of the pool table structure
+    cbSize : ULONG;             (* size of the pool table structure *)
-    cCues  : Cardinal;         // count of cues in the list
+    cCues :  ULONG;             (* count of cues in the list *)
   end;
-  POOLTABLE   = TPOOLTABLE;
-  LPPOOLTABLE = ^POOLTABLE;
-//////////////////////////////////////////////////////////////////////////////
+(*////////////////////////////////////////////////////////////////////////////
 // Structures for the "wsmp" chunk
-/////////////////////////////////////////////////////////////////////////////
+///////////////////////////////////////////////////////////////////////////(*)
 const
-  F_WSMP_NO_TRUNCATION  = $0001;
+  F_WSMP_NO_TRUNCATION     = $0001;
-  F_WSMP_NO_COMPRESSION = $0002;
+  F_WSMP_NO_COMPRESSION    = $0002;
 type
+  PWSMPL = ^TWSMPL;
-  Trwsmp = record
+  TWSMPL = packed record
-    cbSize       : Cardinal;
+    cbSize :        ULONG;
-    usUnityNote  : Word;         // MIDI Unity Playback Note
+    usUnityNote :   Word;       (* MIDI Unity Playback Note *)
-    sFineTune    : Smallint;     // Fine Tune in log tuning
+    sFineTune :     SmallInt;   (* Fine Tune in log tuning *)
-    lAttenuation : Longint;      // Overall Attenuation to be applied to data
+    lAttenuation :  Integer;    (* Overall Attenuation to be applied to data *)
-    fulOptions   : Cardinal;     // Flag options
+    fulOptions :    ULONG;      (* Flag options  *)
-    cSampleLoops : Cardinal;     // Count of Sample loops, 0 loops is one shot
+    cSampleLoops :  ULONG;      (* Count of Sample loops, 0 loops is one shot *)
   end;
-  WSMPL   = Trwsmp;
-  LPWSMPL = ^WSMPL;
-// This loop type is a normal forward playing loop which is continually
+(* This loop type is a normal forward playing loop which is continually *)
-// played until the envelope reaches an off threshold in the release
+(* played until the envelope reaches an off threshold in the release *)
-// portion of the volume envelope
+(* portion of the volume envelope *)
 const
- WLOOP_TYPE_FORWARD = 0;
+  WLOOP_TYPE_FORWARD  = 0;
 type
-  Trloop = record
+  TWLoop = packed record
-    cbSize   : Cardinal;
+    cbSize :   ULONG;
-    ulType   : Cardinal;           // Loop Type
+    ulType :   ULONG;           (* Loop Type *)
-    ulStart  : Cardinal;           // Start of loop in samples
+    ulStart :  ULONG;           (* Start of loop in samples *)
-    ulLength : Cardinal;           // Length of loop in samples
+    ulLength : ULONG;           (* Length of loop in samples *)
   end;
-  WLOOP = Trloop;
-  LPWLOOP = ^WLOOP;
-{/*
+(*******************************************************************************
 dls2.h
 Description:
 Interface defines and structures for the DLS2 extensions of DLS.
   Written by Microsoft 1998.  Released for public use.
-}
+*******************************************************************************)
+(*
+  FOURCC's used in the DLS2 file, in addition to DLS1 chunks
+*)
 const
-//
+  FOURCC_RGN2  : mmioFOURCC = ('r','g','n','2');
+  FOURCC_LAR2  : mmioFOURCC = ('l','a','r','2');
+  FOURCC_ART2  : mmioFOURCC = ('a','r','t','2');
+  FOURCC_CDL   : mmioFOURCC = ('c','d','l',' ');
-//  FOURCC's used in the DLS2 file, in addition to DLS1 chunks
+//  FOURCC_DLID  : mmioFOURCC = ('d','l','i','d');
-///
-  FOURCC_RGN2  = Ord('r') + Ord('g') shl 8 + Ord('n') shl 16 + Ord('2') shl 24;
-  FOURCC_LAR2  = Ord('l') + Ord('a') shl 8 + Ord('r') shl 16 + Ord('2') shl 24;
-  FOURCC_ART2  = Ord('a') + Ord('r') shl 8 + Ord('t') shl 16 + Ord('2') shl 24;
-  FOURCC_CDL   = Ord('c') + Ord('d') shl 8 + Ord('l') shl 16 + Ord(' ') shl 24;
-  //FOURCC_DLID  = Ord('d') + Ord('l') shl 8 + Ord('i') shl 16 + Ord('d') shl 24;
-//
+(*
-//  Articulation connection graph definitions. These are in addition to
+  Articulation connection graph definitions. These are in addition to
-//  the definitions in the DLS1 header.
+  the definitions in the DLS1 header.
-///
-// Generic Sources (in addition to DLS1 sources.
-  CONN_SRC_POLYPRESSURE        = $0007;         // Polyphonic Pressure
-  CONN_SRC_CHANNELPRESSURE     = $0008;         // Channel Pressure
-  CONN_SRC_VIBRATO             = $0009;         // Vibrato LFO
-  CONN_SRC_MONOPRESSURE        = $000a;         // MIDI Mono pressure
-// Midi Controllers
-  CONN_SRC_CC91                = $00db;         // Reverb Send
-  CONN_SRC_CC93                = $00dd;         // Chorus Send
-// Generic Destinations
-  CONN_DST_GAIN                = $0001;         // Same as CONN_DST_ ATTENUATION
-  CONN_DST_KEYNUMBER           = $0005;         // Key Number Generator
-// Audio Channel Output Destinations
-  CONN_DST_LEFT                = $0010;         // Left Channel Send
-  CONN_DST_RIGHT               = $0011;         // Right Channel Send
-  CONN_DST_CENTER              = $0012;         // Center Channel Send
-  CONN_DST_LEFTREAR            = $0013;         // Left Rear Channel Send
-  CONN_DST_RIGHTREAR           = $0014;         // Right Rear Channel Send
-  CONN_DST_LFE_CHANNEL         = $0015;         // LFE Channel Send
-  CONN_DST_CHORUS              = $0080;         // Chorus Send
-  CONN_DST_REVERB              = $0081;         // Reverb Send
-// Vibrato LFO Destinations
-  CONN_DST_VIB_FREQUENCY       = $0114;         // Vibrato Frequency
-  CONN_DST_VIB_STARTDELAY      = $0115;         // Vibrato Start Delay
-// EG1 Destinations
-  CONN_DST_EG1_DELAYTIME       = $020B;         // EG1 Delay Time
-  CONN_DST_EG1_HOLDTIME        = $020C;         // EG1 Hold Time
-//      EG2 Destinations
-  CONN_DST_EG2_DELAYTIME       = $030F;         // EG2 Delay Time
-  CONN_DST_EG2_HOLDTIME        = $0310;         // EG2 Hold Time
-// Filter Destinations
-  CONN_DST_FILTER_CUTOFF       = $0500;         // Filter Cutoff Frequency
-  CONN_DST_FILTER_Q            = $0501;         // Filter Resonance
-// Transforms
-  CONN_TRN_CONVEX              = $0002;         // Convex Transform
-  CONN_TRN_SWITCH              = $0003;         // Switch Transform
+*)
-//      Conditional chunk operators
-  DLS_CDL_AND                  = $0001;         // X = X & Y
-  DLS_CDL_OR                   = $0002;         // X = X | Y
-  DLS_CDL_XOR                  = $0003;         // X = X ^ Y
-  DLS_CDL_ADD                  = $0004;         // X = X + Y
-  DLS_CDL_SUBTRACT             = $0005;         // X = X - Y
-  DLS_CDL_MULTIPLY             = $0006;         // X = X * Y
-  DLS_CDL_DIVIDE               = $0007;         // X = X / Y
-  DLS_CDL_LOGICAL_AND          = $0008;         // X = X && Y
-  DLS_CDL_LOGICAL_OR           = $0009;         // X = X || Y
-  DLS_CDL_LT                   = $000A;         // X = (X < Y)
-  DLS_CDL_LE                   = $000B;         // X = (X <= Y)
-  DLS_CDL_GT                   = $000C;         // X = (X > Y)
-  DLS_CDL_GE                   = $000D;         // X = (X >= Y)
-  DLS_CDL_EQ                   = $000E;         // X = (X == Y)
-  DLS_CDL_NOT                  = $000F;         // X = !X
-  DLS_CDL_CONST                = $0010;         // 32-bit constant
-  DLS_CDL_QUERY                = $0011;         // 32-bit value returned from query
-  DLS_CDL_QUERYSUPPORTED       = $0012;         // Test to see if DLSID Query is supported
+const
+(* Generic Sources (in addition to DLS1 sources. *)
+  CONN_SRC_POLYPRESSURE           = $0007;      (* Polyphonic Pressure *)
+  CONN_SRC_CHANNELPRESSURE      = $0008;        (* Channel Pressure *)
+  CONN_SRC_VIBRATO                    = $0009;  (* Vibrato LFO *)
+  CONN_SRC_MONOPRESSURE     = $000a; (* MIDI Mono pressure *)
+(* Midi Controllers *)
+  CONN_SRC_CC91                     = $00db;    (* Reverb Send *)
+  CONN_SRC_CC93                     = $00dd;    (* Chorus Send *)
+(* Generic Destinations *)
+  CONN_DST_GAIN                 = $0001;        (* Same as CONN_DST_ ATTENUATION *)
+  CONN_DST_KEYNUMBER            = $0005;        (* Key Number Generator *)
+(* Audio Channel Output Destinations *)
+  CONN_DST_LEFT                     = $0010;    (* Left Channel Send *)
+  CONN_DST_RIGHT                        = $0011;        (* Right Channel Send *)
+  CONN_DST_CENTER                         = $0012;      (* Center Channel Send *)
+  CONN_DST_LEFTREAR                     = $0013;        (* Left Rear Channel Send *)
+  CONN_DST_RIGHTREAR            = $0014;        (* Right Rear Channel Send *)
+  CONN_DST_LFE_CHANNEL  = $0015;        (* LFE Channel Send *)
+  CONN_DST_CHORUS                         = $0080;      (* Chorus Send *)
+  CONN_DST_REVERB                         = $0081;      (* Reverb Send *)
+(* Vibrato LFO Destinations *)
+  CONN_DST_VIB_FREQUENCY                = $0114;        (* Vibrato Frequency *)
+  CONN_DST_VIB_STARTDELAY         = $0115;      (* Vibrato Start Delay *)
+(* EG1 Destinations *)
+  CONN_DST_EG1_DELAYTIME                = $020B;        (* EG1 Delay Time *)
+  CONN_DST_EG1_HOLDTIME         = $020C;        (* EG1 Hold Time *)
+(*      EG2 Destinations *)
+  CONN_DST_EG2_DELAYTIME                = $030F;        (* EG2 Delay Time *)
+  CONN_DST_EG2_HOLDTIME         = $0310;        (* EG2 Hold Time *)
+(* Filter Destinations *)
+  CONN_DST_FILTER_CUTOFF                = $0500;        (* Filter Cutoff Frequency *)
+  CONN_DST_FILTER_Q                     = $0501;        (* Filter Resonance *)
+(* Transforms *)
+  CONN_TRN_CONVEX                       = $0002;        (* Convex Transform *)
+  CONN_TRN_SWITCH                       = $0003;        (* Switch Transform *)
+(*      Conditional chunk operators *)
+  DLS_CDL_AND                          = $0001; (* X = X & Y *)
+  DLS_CDL_OR                           = $0002; (* X = X | Y *)
+  DLS_CDL_XOR                          = $0003; (* X = X ^ Y *)
+  DLS_CDL_ADD                        = $0004;   (* X = X + Y *)
+  DLS_CDL_SUBTRACT         = $0005;     (* X = X - Y *)
+  DLS_CDL_MULTIPLY           = $0006;   (* X = X * Y *)
+  DLS_CDL_DIVIDE                     = $0007;   (* X = X / Y *)
+  DLS_CDL_LOGICAL_AND      = $0008;     (* X = X && Y *)
+  DLS_CDL_LOGICAL_OR       = $0009;     (* X = X || Y *)
+  DLS_CDL_LT                           = $000A; (* X = (X < Y) *)
+  DLS_CDL_LE                           = $000B; (* X = (X <= Y) *)
+  DLS_CDL_GT                       = $000C;     (* X = (X > Y) *)
+  DLS_CDL_GE                       = $000D;     (* X = (X >= Y) *)
+  DLS_CDL_EQ                       = $000E;     (* X = (X == Y) *)
+  DLS_CDL_NOT                        = $000F;   (* X = !X *)
+  DLS_CDL_CONST            = $0010;     (* 32-bit constant *)
+  DLS_CDL_QUERY            = $0011;     (* 32-bit value returned from query *)
+  DLS_CDL_QUERYSUPPORTED = $0012;       (* Test to see if DLSID Query is supported *)
+(*
-//Loop and release
+Loop and release
+*)
-  WLOOP_TYPE_RELEASE           = 2;
+  WLOOP_TYPE_RELEASE  = 2;
+(*
-//DLSID queries for <cdl-ck>
+DLSID queries for <cdl-ck>
+*)
-  DLSID_GMInHardware       : TGUID = '{178F2F24-C364-11D1-A760-0000F875AC12}';
+  DLSID_GMInHardware : TGUID =        '{178f2f24-c364-11d1-a760-0000f875ac12}';
-  DLSID_GSInHardware       : TGUID = '{178F2F25-C364-11D1-A760-0000F875AC12}';
+  DLSID_GSInHardware : TGUID =        '{178f2f25-c364-11d1-a760-0000f875ac12}';
-  DLSID_XGInHardware       : TGUID = '{178F2F26-C364-11D1-A760-0000F875AC12}';
+  DLSID_XGInHardware : TGUID =        '{178f2f26-c364-11d1-a760-0000f875ac12}';
-  DLSID_SupportsDLS1       : TGUID = '{178F2F27-C364-11D1-A760-0000F875AC12}';
+  DLSID_SupportsDLS1 : TGUID =        '{178f2f27-c364-11d1-a760-0000f875ac12}';
-  DLSID_SupportsDLS2       : TGUID = '{F14599E5-4689-11D2-AFA6-00AA0024D8B6}';
+  DLSID_SupportsDLS2 : TGUID =        '{f14599e5-4689-11d2-afa6-00aa0024d8b6}';
-  DLSID_SampleMemorySize   : TGUID = '{178F2F28-C364-11D1-A760-0000F875AC12}';
+  DLSID_SampleMemorySize : TGUID =    '{178f2f28-c364-11d1-a760-0000f875ac12}';
-  DLSID_ManufacturersID    : TGUID = '{B03E1181-8095-11D2-A1EF-00600833DBD8}';
+  DLSID_ManufacturersID : TGUID =     '{b03e1181-8095-11d2-a1ef-00600833dbd8}';
-  DLSID_ProductID          : TGUID = '{B03E1182-8095-11D2-A1EF-00600833DBD8}';
+  DLSID_ProductID : TGUID =           '{b03e1182-8095-11d2-a1ef-00600833dbd8}';
-  DLSID_SamplePlaybackRate : TGUID = '{2A91F713-A4BF-11D2-BBDF-00600833DBD8}';
+  DLSID_SamplePlaybackRate : TGUID =  '{2a91f713-a4bf-11d2-bbdf-00600833dbd8}';
-//***********************************************************************
+(************************************************************************
-//                                                                      *
+*                                                                       *
-//   dmdls.h -- DLS download definitions for DirectMusic API's          *
+*   dmdls.h -- DLS download definitions for DirectMusic API's           *
-//                                                                      *
+*                                                                       *
-//   Copyright (c) 1998, Microsoft Corp. All rights reserved.           *
+*   Copyright (c) 1998, Microsoft Corp. All rights reserved.            *
-//                                                                      *
+*                                                                       *
-//**********************************************************************
+************************************************************************)
 type
-  PCENT   = Longint;     // Pitch cents
+  TPCent =   LongInt;  (* Pitch cents *)
-  GCENT   = Longint;     // Gain cents
+  TGCent =   LongInt;  (* Gain cents *)
-  TCENT   = Longint;     // Time cents
+  TTCent =   LongInt;  (* Time cents *)
-  PERCENT = Longint;     // Per.. cent!
+  TPercent = LongInt;  (* Per.. cent! *)
   PReference_Time = ^TReference_Time;
-  TReference_Time  = LONGLONG;
+  TReference_Time = LongLong;
-  Reference_Time   = TReference_Time;
+  TFourCC = DWORD;   (* a four character code *)
-  LPREFERENCE_TIME = PReference_Time;
-function MAKEFOURCC(ch0, ch1, ch2, ch3: Char) : DWORD;
+//function MAKEFOURCC (ch0, ch1, ch2, ch3: Char) : TFourCC;
 type
-  FOURCC = DWORD;         // a four character code
-  TDMUS_DOWNLOADINFO = record
+  TDMus_DownloadInfor = packed record
-    dwDLType                : DWORD;      // Instrument or Wave
+    dwDLType:                DWORD;      (* Instrument or Wave *)
-    dwDLId                  : DWORD;      // Unique identifier to tag this download.
+    dwDLId:                  DWORD;      (* Unique identifier to tag this download. *)
-    dwNumOffsetTableEntries : DWORD;      // Number of index in the offset address table.
+    dwNumOffsetTableEntries: DWORD;      (* Number of index in the offset address table. *)
-    cbSize                  : DWORD;      // Total size of this memory chunk.
+    cbSize:                  DWORD;      (* Total size of this memory chunk. *)
   end;
-  DMUS_DOWNLOADINFO = TDMUS_DOWNLOADINFO;
 const
-  DMUS_DOWNLOADINFO_INSTRUMENT = 1;
+  DMUS_DOWNLOADINFO_INSTRUMENT   = 1;
-  DMUS_DOWNLOADINFO_WAVE       = 2;
+  DMUS_DOWNLOADINFO_WAVE         = 2;
+  DMUS_DOWNLOADINFO_INSTRUMENT2  = 3;   (* New version for better DLS2 support. *)
-  DMUS_DEFAULT_SIZE_OFFSETTABLE = 1;
+  DMUS_DEFAULT_SIZE_OFFSETTABLE  = 1;
-// Flags for DMUS_INSTRUMENT's ulFlags member
+(* Flags for DMUS_INSTRUMENT's ulFlags member *)
-  DMUS_INSTRUMENT_GM_INSTRUMENT = 1; //   (1 << 0) ????
+  DMUS_INSTRUMENT_GM_INSTRUMENT  = 1 shl 0;
 type
-  TDMUS_OFFSETTABLE = record
+  TDMus_OffsetTable = packed record
-    ulOffsetTable : array [0..DMUS_DEFAULT_SIZE_OFFSETTABLE] of Cardinal;
+    ulOffsetTable : array [0..DMUS_DEFAULT_SIZE_OFFSETTABLE-1] of ULONG;
   end;
-  DMUS_OFFSETTABLE = TDMUS_OFFSETTABLE;
-  TDMUS_INSTRUMENT = record
+  TDMus_Instrument = packed record
-    ulPatch          : Cardinal;
+    ulPatch:          ULONG;
-    ulFirstRegionIdx : Cardinal;
+    ulFirstRegionIdx: ULONG;
-    ulGlobalArtIdx   : Cardinal;        // If zero the instrument does not have an articulation
+    ulGlobalArtIdx:   ULONG;                 (* If zero the instrument does not have an articulation *)
-    ulFirstExtCkIdx  : Cardinal;        // If zero no 3rd party entenstion chunks associated with the instrument
+    ulFirstExtCkIdx:  ULONG;                 (* If zero no 3rd party entenstion chunks associated with the instrument *)
-    ulCopyrightIdx   : Cardinal;        // If zero no Copyright information associated with the instrument
+    ulCopyrightIdx:   ULONG;                 (* If zero no Copyright information associated with the instrument *)
-    ulFlags          : Cardinal;
+    ulFlags:          ULONG;
   end;
-  DMUS_INSTRUMENT = TDMUS_INSTRUMENT;
-  TDMUS_REGION = record
+  TDMus_Region = packed record
-    RangeKey        : RGNRANGE;
+    RangeKey:         TRGNRange;
-    RangeVelocity   : RGNRANGE;
+    RangeVelocity:    TRGNRange;
-    fusOptions      : Word;
+    fusOptions:       Word;
-    usKeyGroup      : Word;
+    usKeyGroup:       Word;
-    ulRegionArtIdx  : Cardinal;                // If zero the region does not have an articulation
+    ulRegionArtIdx:   ULONG;                 (* If zero the region does not have an articulation *)
-    ulNextRegionIdx : Cardinal;                // If zero no more regions
+    ulNextRegionIdx:  ULONG;                 (* If zero no more regions *)
-    ulFirstExtCkIdx : Cardinal;                // If zero no 3rd party entenstion chunks associated with the region
+    ulFirstExtCkIdx:  ULONG;                 (* If zero no 3rd party entenstion chunks associated with the region *)
-    WaveLink        : WAVELINK;
+    WaveLink:         TWaveLink;
-    WSMP            : WSMPL;                   //  If WSMP.cSampleLoops > 1 then a WLOOP is included
+    WSMP:             TWSMPL;                (*  If WSMP.cSampleLoops > 1 then a WLOOP is included *)
-    WLOOP           : array[0..0] of WLOOP;
+    WLOOP:            array [0..0] of TWLoop;
   end;
-  DMUS_REGION = TDMUS_REGION;
-  TDMUS_LFOPARAMS = record
+  TDMus_LFOParams = packed record
-    pcFrequency   : PCENT;
+    pcFrequency:   TPCent;
-    tcDelay       : TCENT;
+    tcDelay:       TTCent;
-    gcVolumeScale : GCENT;
+    gcVolumeScale: TGCent;
-    pcPitchScale  : PCENT;
+    pcPitchScale:  TPCent;
-    gcMWToVolume  : GCENT;
+    gcMWToVolume:  TGCent;
-    pcMWToPitch   : PCENT;
+    pcMWToPitch:   TPCent;
   end;
-  DMUS_LFOPARAMS = TDMUS_LFOPARAMS;
-  TDMUS_VEGPARAMS = record
+  TDMus_VEGParams = packed record
-    tcAttack     : TCENT;
+    tcAttack:      TTCent;
-    tcDecay      : TCENT;
+    tcDecay:       TTCent;
-    ptSustain    : PERCENT;
+    ptSustain:     TPercent;
-    tcRelease    : TCENT;
+    tcRelease:     TTCent;
-    tcVel2Attack : TCENT;
+    tcVel2Attack:  TTCent;
-    tcKey2Decay  : TCENT;
+    tcKey2Decay:   TTCent;
   end;
-  DMUS_VEGPARAMS = TDMUS_VEGPARAMS;
-  TDMUS_PEGPARAMS = record
+  TDMus_PEGParams = packed record
-    tcAttack     : TCENT;
+    tcAttack:      TTCent;
-    tcDecay      : TCENT;
+    tcDecay:       TTCent;
-    ptSustain    : PERCENT;
+    ptSustain:     TPercent;
-    tcRelease    : TCENT;
+    tcRelease:     TTCent;
-    tcVel2Attack : TCENT;
+    tcVel2Attack:  TTCent;
-    tcKey2Decay  : TCENT;
+    tcKey2Decay:   TTCent;
-    pcRange      : PCENT;
+    pcRange:       TPCent;
   end;
-  DMUS_PEGPARAMS = TDMUS_PEGPARAMS;
-  TDMUS_MSCPARAMS = record
+  TDMus_MSCParams = packed record
-    ptDefaultPan : PERCENT;
+    ptDefaultPan: TPercent;
   end;
-  DMUS_MSCPARAMS = TDMUS_MSCPARAMS;
-  TDMUS_ARTICPARAMS = record
+  TDMus_ArticParams = packed record
-    LFO     : DMUS_LFOPARAMS;
+    LFO:      TDMus_LFOParams;
-    VolEG   : DMUS_VEGPARAMS;
+    VolEG:    TDMus_VEGParams;
-    PitchEG : DMUS_PEGPARAMS;
+    PitchEG:  TDMus_PEGParams;
-    Misc    : DMUS_MSCPARAMS;
+    Misc:     TDMus_MSCParams;
   end;
-  DMUS_ARTICPARAMS = TDMUS_ARTICPARAMS;
-  TDMUS_ARTICULATION = record
+  TDMus_Articulation = packed record
-    ulArt1Idx       : Cardinal;        // If zero no DLS Level 1 articulation chunk
-    ulFirstExtCkIdx : Cardinal;        // If zero no 3rd party entenstion chunks associated with the articulation
-    ulNextArtIdx    : Cardinal;        // Additional articulation chunks
-  end;
-  DMUS_ARTICULATION = TDMUS_ARTICULATION;
-  TDMUS_ARTICULATION2 = record
-    ulArt1Idx       : Cardinal;        // If zero no DLS Level 1 articulation chunk
+    ulArt1Idx:       ULONG;                  (* If zero no DLS Level 1 articulation chunk *)
-    ulFirstExtCkIdx : Cardinal;        // If zero no 3rd party entenstion chunks associated with the articulation
+    ulFirstExtCkIdx: ULONG;                  (* If zero no 3rd party entenstion chunks associated with the articulation *)
   end;
-  DMUS_ARTICULATION2 = TDMUS_ARTICULATION2;
 const
   DMUS_MIN_DATA_SIZE = 4;
-//  The actual number is determined by cbSize of struct _DMUS_EXTENSIONCHUNK
+(*  The actual number is determined by cbSize of struct _DMUS_EXTENSIONCHUNK *)
 type
-  TDMUS_EXTENSIONCHUNK = record
+  DMus_ExtensionChunk = packed record
-    cbSize : Cardinal;                                  //  Size of extension chunk
+    cbSize:                      ULONG;           (*  Size of extension chunk  *)
-    ulNextExtCkIdx : Cardinal;                          //  If zero no more 3rd party entenstion chunks
+    ulNextExtCkIdx:              ULONG;           (*  If zero no more 3rd party entenstion chunks *)
-    ExtCkID : FOURCC;
+    ExtCkID:                     TFourCC;
-    byExtCk : array[0..DMUS_MIN_DATA_SIZE - 1] of Byte; //  The actual number that follows is determined by cbSize
+    byExtCk: array [0..DMUS_MIN_DATA_SIZE-1] of BYTE;  (*  The actual number that follows is determined by cbSize *)
   end;
-  DMUS_EXTENSIONCHUNK = TDMUS_EXTENSIONCHUNK;
-//  The actual number is determined by cbSize of struct TDMUS_COPYRIGHT
+(*  The actual number is determined by cbSize of struct _DMUS_COPYRIGHT *)
-  TDMUS_COPYRIGHT = record
+  TDmus_Copyright = packed record
-    cbSize      : Cardinal;                                    //  Size of copyright information
+    cbSize:                          ULONG;              (*  Size of copyright information *)
-    byCopyright : array[0..DMUS_MIN_DATA_SIZE - 1] of Byte;    //  The actual number that follows is determined by cbSize
+    byCopyright: array [0..DMUS_MIN_DATA_SIZE-1] of BYTE;               (*  The actual number that follows is determined by cbSize *)
   end;
-  DMUS_COPYRIGHT = TDMUS_COPYRIGHT;
-  TDMUS_WAVEDATA = record
+  TDMus_WaveData = packed record
-    cbSize : Cardinal;
+    cbSize:                     ULONG;
-    byData : array[0..DMUS_MIN_DATA_SIZE - 1] of Byte;
+    byData: array [0..DMUS_MIN_DATA_SIZE-1] of BYTE;
   end;
-  DMUS_WAVEDATA = TDMUS_WAVEDATA;
-  TDMUS_WAVE = record
+  TDMus_Wave = packed record
-    ulFirstExtCkIdx : Cardinal;      // If zero no 3rd party entenstion chunks associated with the wave
+    ulFirstExtCkIdx: ULONG;              (* If zero no 3rd party entenstion chunks associated with the wave *)
-    ulCopyrightIdx  : Cardinal;      // If zero no Copyright information associated with the wave
+    ulCopyrightIdx:  ULONG;              (* If zero no Copyright information associated with the wave *)
-    ulWaveDataIdx   : Cardinal;      // Location of actual wave data.
+    ulWaveDataIdx:   ULONG;              (* Location of actual wave data. *)
-    WaveformatEx    : TWAVEFORMATEX;
+///    WaveformatEx:    TWaveFormatEx;
   end;
-  DMUS_WAVE = TDMUS_WAVE;
-  LPDMUS_NOTERANGE = ^TDMUS_NOTERANGE;
+  PDMus_NoteRange = ^TDMus_NoteRange;
-  TDMUS_NOTERANGE = record
+  TDMus_NoteRange = packed record
-    dwLowNote  : DWORD;  // Sets the low note for the range of MIDI note events to which the instrument responds.
+    dwLowNote:  DWORD;           (* Sets the low note for the range of MIDI note events to which the instrument responds.*)
-    dwHighNote : DWORD;  // Sets the high note for the range of MIDI note events to which the instrument responds.
+    dwHighNote: DWORD;           (* Sets the high note for the range of MIDI note events to which the instrument responds.*)
   end;
-  DMUS_NOTERANGE = TDMUS_NOTERANGE;
+(************************************************************************
+*                                                                       *
+*   dmerror.h -- Error code returned by DirectMusic API's               *
+*                                                                       *
+*   Copyright (c) 1998, Microsoft Corp. All rights reserved.            *
+*                                                                       *
+************************************************************************)
+const
+  FACILITY_DIRECTMUSIC      = $878;       (* Shared with DirectSound *)
+  DMUS_ERRBASE              = $1000;      (* Make error codes human readable in hex *)
+  MAKE_DMHRESULTSUCCESS = (0 shl 31) or (FACILITY_DIRECTMUSIC shl 16) or DMUS_ERRBASE;
+  MAKE_DMHRESULTERROR =   (1 shl 31) or (FACILITY_DIRECTMUSIC shl 16) or DMUS_ERRBASE;
-//***********************************************************************
-//                                                                      *
-//   dmerror.h -- Error code returned by DirectMusic API's              *
+(* DMUS_S_PARTIALLOAD
+ *
-//                                                                      *
+ * The object could only load partially. This can happen if some components are
-//   Copyright (c) 1998, Microsoft Corp. All rights reserved.           *
+ * not registered properly, such as embedded tracks and tools.
+ *)
-//                                                                      *
+  DMUS_S_PARTIALLOAD               = MAKE_DMHRESULTSUCCESS + $091;
-//**********************************************************************
+(* DMUS_S_PARTIALDOWNLOAD
-const
+ *
+ * This code indicates that a band download was only successful in reaching
-  FACILITY_DIRECTMUSIC = $878;       // Shared with DirectSound
+ * some, but not all, of the referenced ports. Some samples may not play
+ * correctly.
+ *)
-  DMUS_ERRBASE         = $1000;      // Make error codes human readable in hex
+  DMUS_S_PARTIALDOWNLOAD          = MAKE_DMHRESULTSUCCESS + $092;
+(* DMUS_S_REQUEUE
+ *
-  function MAKE_DMHRESULTSUCCESS(code: Cardinal) : HResult;
+ * Return value from IDirectMusicTool::ProcessPMsg() which indicates to the
-  function MAKE_DMHRESULTERROR(code: Cardinal) : HResult;
+ * performance that it should cue the PMsg again automatically.
+ *)
+  DMUS_S_REQUEUE                   = MAKE_DMHRESULTSUCCESS + $200;
-// DMUS_S_PARTIALLOAD
+(* DMUS_S_FREE
-//
+ *
-// The object could only load partially. This can happen if some components are
+ * Return value from IDirectMusicTool::ProcessPMsg() which indicates to the
-// not registered properly, such as embedded tracks and tools.
+ * performance that it should free the PMsg automatically.
-///
+ *)
-const
-  DMUS_S_PARTIALLOAD = (0 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $091;// MAKE_DMHRESULTSUCCESS($091);
+  DMUS_S_FREE                      = MAKE_DMHRESULTSUCCESS + $201;
-// DMUS_S_REQUEUE
+(* DMUS_S_END
-//
+ *
-// Return value from IDirectMusicTool::ProcessPMsg() which indicates to the
+ * Return value from IDirectMusicTrack::Play() which indicates to the
-// performance that it should cue the PMsg again automatically.
+ * segment that the track has no more data after mtEnd.
-///
+ *)
-  DMUS_S_REQUEUE = (0 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $200;//MAKE_DMHRESULTSUCCESS(0x200)
+  DMUS_S_END                       = MAKE_DMHRESULTSUCCESS + $202;
-// DMUS_S_FREE
+(* DMUS_S_STRING_TRUNCATED
-//
+ *
-// Return value from IDirectMusicTool::ProcessPMsg() which indicates to the
-// performance that it should free the PMsg automatically.
+ * Returned string has been truncated to fit the buffer size.
-///
+ *)
-  DMUS_S_FREE = (0 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $201;//MAKE_DMHRESULTSUCCESS(0x201)
+  DMUS_S_STRING_TRUNCATED          = MAKE_DMHRESULTSUCCESS + $210;
-// DMUS_S_END
+(* DMUS_S_LAST_TOOL
-//
+ *
-// Return value from IDirectMusicTrack::Play() which indicates to the
+ * Returned from IDirectMusicGraph::StampPMsg(), this indicates that the PMsg
-// segment that the track has no more data after mtEnd.
+ * is already stamped with the last tool in the graph. The returned PMsg's
+ * tool pointer is now NULL.
-///
+ *)
-  DMUS_S_END = (0 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $202;//MAKE_DMHRESULTSUCCESS(0x202)
+  DMUS_S_LAST_TOOL                 = MAKE_DMHRESULTSUCCESS + $211;
-// DMUS_S_STRING_TRUNCATED
+(* DMUS_S_OVER_CHORD
-//
+ *
+ * Returned from IDirectMusicPerformance::MusicToMIDI(), this indicates
-// Returned string has been truncated to fit the buffer size.
+ * that no note has been calculated because the music value has the note
+ * at a position higher than the top note of the chord. This applies only
+ * to DMUS_PLAYMODE_NORMALCHORD play mode. This success code indicates
+ * that the caller should not do anything with the note. It is not meant
+ * to be played against this chord.
-///
+ *)
-  DMUS_S_STRING_TRUNCATED = (0 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $210;//MAKE_DMHRESULTSUCCESS(0x210)
+  DMUS_S_OVER_CHORD                = MAKE_DMHRESULTSUCCESS + $212;
-// DMUS_S_LAST_TOOL
+(* DMUS_S_UP_OCTAVE
-//
+ *
-// Returned from IDirectMusicGraph::StampPMsg(), this indicates that the PMsg
+ * Returned from IDirectMusicPerformance::MIDIToMusic(),  and
+ * IDirectMusicPerformance::MusicToMIDI(), this indicates
+ * that the note conversion generated a note value that is below 0,
-// is already stamped with the last tool in the graph. The returned PMsg's
+ * so it has been bumped up one or more octaves to be in the proper
+ * MIDI range of 0 through 127.
+ * Note that this is valid for MIDIToMusic() when using play modes
+ * DMUS_PLAYMODE_FIXEDTOCHORD and DMUS_PLAYMODE_FIXEDTOKEY, both of
+ * which store MIDI values in wMusicValue. With MusicToMIDI(), it is
-// tool pointer is now NULL.
+ * valid for all play modes.
+ * Ofcourse, DMUS_PLAYMODE_FIXED will never return this success code.
-///
+ *)
-  DMUS_S_LAST_TOOL = (0 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $211;//MAKE_DMHRESULTSUCCESS(0x211)
+  DMUS_S_UP_OCTAVE                 = MAKE_DMHRESULTSUCCESS + $213;
-// DMUS_S_OVER_CHORD
+(* DMUS_S_DOWN_OCTAVE
-//
+ *
+ * Returned from IDirectMusicPerformance::MIDIToMusic(),  and
-// Returned from IDirectMusicPerformance::MusicToMIDI(), this indicates
+ * IDirectMusicPerformance::MusicToMIDI(), this indicates
-// that no note has been calculated because the music value has the note
+ * that the note conversion generated a note value that is above 127,
-// at a position higher than the top note of the chord. This applies only
+ * so it has been bumped down one or more octaves to be in the proper
+ * MIDI range of 0 through 127.
+ * Note that this is valid for MIDIToMusic() when using play modes
-// to DMUS_PLAYMODE_NORMALCHORD play mode. This success code indicates
+ * DMUS_PLAYMODE_FIXEDTOCHORD and DMUS_PLAYMODE_FIXEDTOKEY, both of
-// that the caller should not do anything with the note. It is not meant
+ * which store MIDI values in wMusicValue. With MusicToMIDI(), it is
-// to be played against this chord.
+ * valid for all play modes.
+ * Ofcourse, DMUS_PLAYMODE_FIXED will never return this success code.
-///
+ *)
-  DMUS_S_OVER_CHORD = (0 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $212;//MAKE_DMHRESULTSUCCESS(0x212)
+  DMUS_S_DOWN_OCTAVE               = MAKE_DMHRESULTSUCCESS + $214;
-// DMUS_S_UP_OCTAVE
+(* DMUS_S_NOBUFFERCONTROL
-//
+ *
-// Returned from IDirectMusicPerformance::MIDIToMusic(),  and
-// IDirectMusicPerformance::MusicToMIDI(), this indicates
-// that the note conversion generated a note value that is below 0,
-// so it has been bumped up one or more octaves to be in the proper
+ * Although the audio output from the port will be routed to the
-// MIDI range of 0 through 127.
-// Note that this is valid for MIDIToMusic() when using play modes
+ * same device as the given DirectSound buffer, buffer controls
-// DMUS_PLAYMODE_FIXEDTOCHORD and DMUS_PLAYMODE_FIXEDTOKEY, both of
-// which store MIDI values in wMusicValue. With MusicToMIDI(), it is
+ * such as pan and volume will not affect the output.
-// valid for all play modes.
+ *
-// Ofcourse, DMUS_PLAYMODE_FIXED will never return this success code.
-///
+ *)
-  DMUS_S_UP_OCTAVE = (0 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $213;//MAKE_DMHRESULTSUCCESS(0x213)
+  DMUS_S_NOBUFFERCONTROL          = MAKE_DMHRESULTSUCCESS + $215;
-// DMUS_S_DOWN_OCTAVE
+(* DMUS_E_DRIVER_FAILED
-//
+ *
-// Returned from IDirectMusicPerformance::MIDIToMusic(),  and
-// IDirectMusicPerformance::MusicToMIDI(), this indicates
+ * An unexpected error was returned from a device driver, indicating
-// that the note conversion generated a note value that is above 127,
-// so it has been bumped down one or more octaves to be in the proper
-// MIDI range of 0 through 127.
+ * possible failure of the driver or hardware.
-// Note that this is valid for MIDIToMusic() when using play modes
-// DMUS_PLAYMODE_FIXEDTOCHORD and DMUS_PLAYMODE_FIXEDTOKEY, both of
-// which store MIDI values in wMusicValue. With MusicToMIDI(), it is
-// valid for all play modes.
-// Ofcourse, DMUS_PLAYMODE_FIXED will never return this success code.
-///
+ *)
-  DMUS_S_DOWN_OCTAVE = (0 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $214;//MAKE_DMHRESULTSUCCESS(0x214)
+  DMUS_E_DRIVER_FAILED            = MAKE_DMHRESULTERROR + $0101;
-// DMUS_E_DRIVER_FAILED
+(* DMUS_E_PORTS_OPEN
-//
+ *
-// An unexpected error was returned from a device driver, indicating
+ * The requested operation cannot be performed while there are
-// possible failure of the driver or hardware.
+ * instantiated ports in any process in the system.
-///
+ *)
-  DMUS_E_DRIVER_FAILED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0101;//MAKE_DMHRESULTERROR(0x0101)
+  DMUS_E_PORTS_OPEN               = MAKE_DMHRESULTERROR + $0102;
-// DMUS_E_PORTS_OPEN
+(* DMUS_E_DEVICE_IN_USE
-//
+ *
-// The requested operation cannot be performed while there are
+ * The requested device is already in use (possibly by a non-DirectMusic
-// instantiated ports in any process in the system.
+ * client) and cannot be opened again.
-///
+ *)
-  DMUS_E_PORTS_OPEN = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0102;//MAKE_DMHRESULTERROR(0x0102)
+  DMUS_E_DEVICE_IN_USE            = MAKE_DMHRESULTERROR + $0103;
-// DMUS_E_DEVICE_IN_USE
+(* DMUS_E_INSUFFICIENTBUFFER
-//
+ *
-// The requested device is already in use (possibly by a non-DirectMusic
-// client) and cannot be opened again.
+ * Buffer is not large enough for requested operation.
-///
+ *)
-  DMUS_E_DEVICE_IN_USE = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0103;//MAKE_DMHRESULTERROR(0x0103)
+  DMUS_E_INSUFFICIENTBUFFER       = MAKE_DMHRESULTERROR + $0104;
-// DMUS_E_INSUFFICIENTBUFFER
+(* DMUS_E_BUFFERNOTSET
-//
+ *
-// Buffer is not large enough for requested operation.
+ * No buffer was prepared for the download data.
-///
+ *)
-  DMUS_E_INSUFFICIENTBUFFER = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0104;//MAKE_DMHRESULTERROR(0x0104)
+  DMUS_E_BUFFERNOTSET             = MAKE_DMHRESULTERROR + $0105;
-// DMUS_E_BUFFERNOTSET
+(* DMUS_E_BUFFERNOTAVAILABLE
-//
+ *
-// No buffer was prepared for the download data.
+ * Download failed due to inability to access or create download buffer.
-///
+ *)
-  DMUS_E_BUFFERNOTSET = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0105;//MAKE_DMHRESULTERROR(0x0105)
+  DMUS_E_BUFFERNOTAVAILABLE       = MAKE_DMHRESULTERROR + $0106;
-// DMUS_E_BUFFERNOTAVAILABLE
+(* DMUS_E_NOTADLSCOL
-//
+ *
-// Download failed due to inability to access or create download buffer.
+ * Error parsing DLS collection. File is corrupt.
-///
+ *)
-  DMUS_E_BUFFERNOTAVAILABLE = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0106;//MAKE_DMHRESULTERROR(0x0106)
+  DMUS_E_NOTADLSCOL               = MAKE_DMHRESULTERROR + $0108;
-// DMUS_E_NOTADLSCOL
+(* DMUS_E_INVALIDOFFSET
-//
+ *
-// Error parsing DLS collection. File is corrupt.
+ * Wave chunks in DLS collection file are at incorrect offsets.
-///
+ *)
-  DMUS_E_NOTADLSCOL = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0108;//MAKE_DMHRESULTERROR(0x0108)
+  DMUS_E_INVALIDOFFSET            = MAKE_DMHRESULTERROR + $0109;
-// DMUS_E_INVALIDOFFSET
+(* DMUS_E_ALREADY_LOADED
-//
+ *
-// Wave chunks in DLS collection file are at incorrect offsets.
+ * Second attempt to load a DLS collection that is currently open.
-///
+ *)
-  DMUS_E_INVALIDOFFSET = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0109;//MAKE_DMHRESULTERROR(0x0109)
+  DMUS_E_ALREADY_LOADED           = MAKE_DMHRESULTERROR + $0111;
-// DMUS_E_ALREADY_LOADED
+(* DMUS_E_INVALIDPOS
-//
+ *
-// Second attempt to load a DLS collection that is currently open.
+ * Error reading wave data from DLS collection. Indicates bad file.
-///
+ *)
-  DMUS_E_ALREADY_LOADED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0111;//MAKE_DMHRESULTERROR(0x0111)
+  DMUS_E_INVALIDPOS               = MAKE_DMHRESULTERROR + $0113;
-// DMUS_E_INVALIDPOS
+(* DMUS_E_INVALIDPATCH
-//
+ *
-// Error reading wave data from DLS collection. Indicates bad file.
+ * There is no instrument in the collection that matches patch number.
-///
+ *)
-  DMUS_E_INVALIDPOS = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0113;//MAKE_DMHRESULTERROR(0x0113)
+  DMUS_E_INVALIDPATCH             = MAKE_DMHRESULTERROR + $0114;
-// DMUS_E_INVALIDPATCH
+(* DMUS_E_CANNOTSEEK
-//
+ *
-// There is no instrument in the collection that matches patch number.
+ * The IStream* doesn't support Seek().
-///
+ *)
-  DMUS_E_INVALIDPATCH = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0114;//MAKE_DMHRESULTERROR(0x0114)
+  DMUS_E_CANNOTSEEK               = MAKE_DMHRESULTERROR + $0115;
-// DMUS_E_CANNOTSEEK
+(* DMUS_E_CANNOTWRITE
-//
+ *
-// The IStream* doesn't support Seek().
+ * The IStream* doesn't support Write().
-///
+ *)
-  DMUS_E_CANNOTSEEK = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0115;//MAKE_DMHRESULTERROR(0x0115)
+  DMUS_E_CANNOTWRITE              = MAKE_DMHRESULTERROR + $0116;
-// DMUS_E_CANNOTWRITE
+(* DMUS_E_CHUNKNOTFOUND
-//
+ *
-// The IStream* doesn't support Write().
+ * The RIFF parser doesn't contain a required chunk while parsing file.
-///
+ *)
-  DMUS_E_CANNOTWRITE = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0116;//MAKE_DMHRESULTERROR(0x0116)
+  DMUS_E_CHUNKNOTFOUND            = MAKE_DMHRESULTERROR + $0117;
-// DMUS_E_CHUNKNOTFOUND
+(* DMUS_E_INVALID_DOWNLOADID
-//
+ *
-// The RIFF parser doesn't contain a required chunk while parsing file.
+ * Invalid download id was used in the process of creating a download buffer.
-///
+ *)
-  DMUS_E_CHUNKNOTFOUND = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0117;//MAKE_DMHRESULTERROR(0x0117)
+  DMUS_E_INVALID_DOWNLOADID       = MAKE_DMHRESULTERROR + $0119;
-// DMUS_E_INVALID_DOWNLOADID
+(* DMUS_E_NOT_DOWNLOADED_TO_PORT
-//
+ *
-// Invalid download id was used in the process of creating a download buffer.
+ * Tried to unload an object that was not downloaded or previously unloaded.
-///
+ *)
-  DMUS_E_INVALID_DOWNLOADID = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0119;//MAKE_DMHRESULTERROR(0x0119)
+  DMUS_E_NOT_DOWNLOADED_TO_PORT   = MAKE_DMHRESULTERROR + $0120;
-// DMUS_E_NOT_DOWNLOADED_TO_PORT
+(* DMUS_E_ALREADY_DOWNLOADED
-//
+ *
-// Tried to unload an object that was not downloaded or previously unloaded.
+ * Buffer was already downloaded to synth.
-///
+ *)
-  DMUS_E_NOT_DOWNLOADED_TO_PORT = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0120;//MAKE_DMHRESULTERROR(0x0120)
+  DMUS_E_ALREADY_DOWNLOADED       = MAKE_DMHRESULTERROR + $0121;
-// DMUS_E_ALREADY_DOWNLOADED
+(* DMUS_E_UNKNOWN_PROPERTY
-//
+ *
-// Buffer was already downloaded to synth.
+ * The specified property item was not recognized by the target object.
-///
+ *)
-  DMUS_E_ALREADY_DOWNLOADED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0121;//MAKE_DMHRESULTERROR(0x0121)
+  DMUS_E_UNKNOWN_PROPERTY         = MAKE_DMHRESULTERROR + $0122;
-// DMUS_E_UNKNOWN_PROPERTY
+(* DMUS_E_SET_UNSUPPORTED
-//
+ *
-// The specified property item was not recognized by the target object.
+ * The specified property item may not be set on the target object.
-///
+ *)
-  DMUS_E_UNKNOWN_PROPERTY = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0122;//MAKE_DMHRESULTERROR(0x0122)
+  DMUS_E_SET_UNSUPPORTED          = MAKE_DMHRESULTERROR + $0123;
-// DMUS_E_SET_UNSUPPORTED
+(* DMUS_E_GET_UNSUPPORTED
-//
+ *
-// The specified property item may not be set on the target object.
+ * The specified property item may not be retrieved from the target object.
-///
+ *)
-  DMUS_E_SET_UNSUPPORTED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0123;//MAKE_DMHRESULTERROR(0x0123)
+  DMUS_E_GET_UNSUPPORTED          = MAKE_DMHRESULTERROR + $0124;
-// DMUS_E_GET_UNSUPPORTED
+(* DMUS_E_NOTMONO
-//
+ *
-// The specified property item may not be retrieved from the target object.
+ * Wave chunk has more than one interleaved channel. DLS format requires MONO.
-///
+ *)
-  DMUS_E_GET_UNSUPPORTED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0124;//MAKE_DMHRESULTERROR(0x0124)
+  DMUS_E_NOTMONO                  = MAKE_DMHRESULTERROR + $0125;
-// DMUS_E_NOTMONO
+(* DMUS_E_BADARTICULATION
-//
+ *
-// Wave chunk has more than one interleaved channel. DLS format requires MONO.
+ * Invalid articulation chunk in DLS collection.
-///
+ *)
-  DMUS_E_NOTMONO = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0125;//MAKE_DMHRESULTERROR(0x0125)
+  DMUS_E_BADARTICULATION          = MAKE_DMHRESULTERROR + $0126;
-// DMUS_E_BADARTICULATION
+(* DMUS_E_BADINSTRUMENT
-//
+ *
-// Invalid articulation chunk in DLS collection.
+ * Invalid instrument chunk in DLS collection.
-///
+ *)
-  DMUS_E_BADARTICULATION = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0126;//MAKE_DMHRESULTERROR(0x0126)
+  DMUS_E_BADINSTRUMENT            = MAKE_DMHRESULTERROR + $0127;
-// DMUS_E_BADINSTRUMENT
+(* DMUS_E_BADWAVELINK
-//
+ *
-// Invalid instrument chunk in DLS collection.
+ * Wavelink chunk in DLS collection points to invalid wave.
-///
+ *)
-  DMUS_E_BADINSTRUMENT = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0127;//MAKE_DMHRESULTERROR(0x0127)
+  DMUS_E_BADWAVELINK              = MAKE_DMHRESULTERROR + $0128;
-// DMUS_E_BADWAVELINK
+(* DMUS_E_NOARTICULATION
-//
+ *
-// Wavelink chunk in DLS collection points to invalid wave.
+ * Articulation missing from instrument in DLS collection.
-///
+ *)
-  DMUS_E_BADWAVELINK = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0128;//MAKE_DMHRESULTERROR(0x0128)
+  DMUS_E_NOARTICULATION           = MAKE_DMHRESULTERROR + $0129;
-// DMUS_E_NOARTICULATION
+(* DMUS_E_NOTPCM
-//
+ *
-// Articulation missing from instrument in DLS collection.
+ * Downoaded DLS wave is not in PCM format.
-///
+*)
-  DMUS_E_NOARTICULATION = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0129;//MAKE_DMHRESULTERROR(0x0129)
+  DMUS_E_NOTPCM                   = MAKE_DMHRESULTERROR + $012A;
-// DMUS_E_NOTPCM
+(* DMUS_E_BADWAVE
-//
+ *
-// Downoaded DLS wave is not in PCM format.
+ * Bad wave chunk in DLS collection
-///
+ *)
-  DMUS_E_NOTPCM = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $012A;//MAKE_DMHRESULTERROR(0x012A)
+  DMUS_E_BADWAVE                  = MAKE_DMHRESULTERROR + $012B;
-// DMUS_E_BADWAVE
+(* DMUS_E_BADOFFSETTABLE
-//
+ *
-// Bad wave chunk in DLS collection
+ * Offset Table for download buffer has errors.
-///
+ *)
-  DMUS_E_BADWAVE = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $012B;//MAKE_DMHRESULTERROR(0x012B)
+  DMUS_E_BADOFFSETTABLE           = MAKE_DMHRESULTERROR + $012C;
-// DMUS_E_BADOFFSETTABLE
+(* DMUS_E_UNKNOWNDOWNLOAD
-//
+ *
-// Offset Table for download buffer has errors.
+ * Attempted to download unknown data type.
-///
+ *)
-  DMUS_E_BADOFFSETTABLE = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $012C;//MAKE_DMHRESULTERROR(0x012C)
+  DMUS_E_UNKNOWNDOWNLOAD          = MAKE_DMHRESULTERROR + $012D;
-// DMUS_E_UNKNOWNDOWNLOAD
+(* DMUS_E_NOSYNTHSINK
-//
+ *
-// Attempted to download unknown data type.
+ * The operation could not be completed because no sink was connected to
+ * the synthesizer.
-///
+ *)
-  DMUS_E_UNKNOWNDOWNLOAD = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $012D;//MAKE_DMHRESULTERROR(0x012D)
+  DMUS_E_NOSYNTHSINK              = MAKE_DMHRESULTERROR + $012E;
-// DMUS_E_NOSYNTHSINK
+(* DMUS_E_ALREADYOPEN
-//
+ *
-// The operation could not be completed because no sink was connected to
+ * An attempt was made to open the software synthesizer while it was already
-// the synthesizer.
+ * open.
+ * ASSERT?
-///
+ *)
-  DMUS_E_NOSYNTHSINK = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $012E;//MAKE_DMHRESULTERROR(0x012E)
+  DMUS_E_ALREADYOPEN              = MAKE_DMHRESULTERROR + $012F;
-// DMUS_E_ALREADYOPEN
+(* DMUS_E_ALREADYCLOSE
-//
+ *
-// An attempt was made to open the software synthesizer while it was already
+ * An attempt was made to close the software synthesizer while it was already
-// open.
+ * open.
-// ASSERT?
+ * ASSERT?
-///
+ *)
-  DMUS_E_ALREADYOPEN = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $012F;//MAKE_DMHRESULTERROR(0x012F)
+  DMUS_E_ALREADYCLOSED            = MAKE_DMHRESULTERROR + $0130;
-// DMUS_E_ALREADYCLOSE
+(* DMUS_E_SYNTHNOTCONFIGURED
-//
+ *
-// An attempt was made to close the software synthesizer while it was already
+ * The operation could not be completed because the software synth has not
-// open.
+ * yet been fully configured.
-// ASSERT?
+ * ASSERT?
-///
+ *)
-  DMUS_E_ALREADYCLOSED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0130;//MAKE_DMHRESULTERROR(0x0130)
+  DMUS_E_SYNTHNOTCONFIGURED       = MAKE_DMHRESULTERROR + $0131;
-// DMUS_E_SYNTHNOTCONFIGURED
+(* DMUS_E_SYNTHACTIVE
-//
+ *
-// The operation could not be completed because the software synth has not
+ * The operation cannot be carried out while the synthesizer is active.
-// yet been fully configured.
-// ASSERT?
-///
+ *)
-  DMUS_E_SYNTHNOTCONFIGURED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0131;//MAKE_DMHRESULTERROR(0x0131)
+  DMUS_E_SYNTHACTIVE              = MAKE_DMHRESULTERROR + $0132;
-// DMUS_E_SYNTHACTIVE
+(* DMUS_E_CANNOTREAD
-//
+ *
-// The operation cannot be carried out while the synthesizer is active.
+ * An error occurred while attempting to read from the IStream* object.
-///
+ *)
-  DMUS_E_SYNTHACTIVE = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0132;//MAKE_DMHRESULTERROR(0x0132)
+  DMUS_E_CANNOTREAD               = MAKE_DMHRESULTERROR + $0133;
-// DMUS_E_CANNOTREAD
+(* DMUS_E_DMUSIC_RELEASED
-//
+ *
+ * The operation cannot be performed because the final instance of the
-// An error occurred while attempting to read from the IStream* object.
+ * DirectMusic object was released. Ports cannot be used after final
+ * release of the DirectMusic object.
-///
+ *)
-  DMUS_E_CANNOTREAD = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0133;//MAKE_DMHRESULTERROR(0x0133)
+  DMUS_E_DMUSIC_RELEASED          = MAKE_DMHRESULTERROR + $0134;
-// DMUS_E_DMUSIC_RELEASED
+(* DMUS_E_BUFFER_EMPTY
-//
+ *
-// The operation cannot be performed because the final instance of the
-// DirectMusic object was released. Ports cannot be used after final
-// release of the DirectMusic object.
+ * There was no data in the referenced buffer.
-///
+ *)
-  DMUS_E_DMUSIC_RELEASED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0134;//MAKE_DMHRESULTERROR(0x0134)
+  DMUS_E_BUFFER_EMPTY             = MAKE_DMHRESULTERROR + $0135;
-// DMUS_E_BUFFER_EMPTY
+(* DMUS_E_BUFFER_FULL
-//
+ *
-// There was no data in the referenced buffer.
+ * There is insufficient space to insert the given event into the buffer.
-///
+ *)
-  DMUS_E_BUFFER_EMPTY = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0135;//MAKE_DMHRESULTERROR(0x0135)
+  DMUS_E_BUFFER_FULL              = MAKE_DMHRESULTERROR + $0136;
-// DMUS_E_BUFFER_FULL
+(* DMUS_E_PORT_NOT_CAPTURE
-//
+ *
-// There is insufficient space to insert the given event into the buffer.
+ * The given operation could not be carried out because the port is a
+ * capture port.
-///
+ *)
-  DMUS_E_BUFFER_FULL = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0136;//MAKE_DMHRESULTERROR(0x0136)
+  DMUS_E_PORT_NOT_CAPTURE         = MAKE_DMHRESULTERROR + $0137;
-// DMUS_E_PORT_NOT_CAPTURE
+(* DMUS_E_PORT_NOT_RENDER
-//
+ *
-// The given operation could not be carried out because the port is a
+ * The given operation could not be carried out because the port is a
-// capture port.
+ * render port.
-///
+ *)
-  DMUS_E_PORT_NOT_CAPTURE = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0137;//MAKE_DMHRESULTERROR(0x0137)
+  DMUS_E_PORT_NOT_RENDER          = MAKE_DMHRESULTERROR + $0138;
-// DMUS_E_PORT_NOT_RENDER
+(* DMUS_E_DSOUND_NOT_SET
-//
+ *
-// The given operation could not be carried out because the port is a
+ * The port could not be created because no DirectSound has been specified.
+ * Specify a DirectSound interface via the IDirectMusic::SetDirectSound
-// render port.
+ * method; pass NULL to have DirectMusic manage usage of DirectSound.
-///
+ *)
-  DMUS_E_PORT_NOT_RENDER = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0138;//MAKE_DMHRESULTERROR(0x0138)
+  DMUS_E_DSOUND_NOT_SET           = MAKE_DMHRESULTERROR + $0139;
-// DMUS_E_DSOUND_NOT_SET
+(* DMUS_E_ALREADY_ACTIVATED
-//
+ *
-// The port could not be created because no DirectSound has been specified.
+ * The operation cannot be carried out while the port is active.
-// Specify a DirectSound interface via the IDirectMusic::SetDirectSound
-// method; pass NULL to have DirectMusic manage usage of DirectSound.
-///
+ *)
-  DMUS_E_DSOUND_NOT_SET = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0139;//MAKE_DMHRESULTERROR(0x0139)
+  DMUS_E_ALREADY_ACTIVATED        = MAKE_DMHRESULTERROR + $013A;
-// DMUS_E_ALREADY_ACTIVATED
+(* DMUS_E_INVALIDBUFFER
-//
+ *
-// The operation cannot be carried out while the port is active.
+ * Invalid DirectSound buffer was handed to port.
-///
+ *)
-  DMUS_E_ALREADY_ACTIVATED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $013A;//MAKE_DMHRESULTERROR(0x013A)
+  DMUS_E_INVALIDBUFFER            = MAKE_DMHRESULTERROR + $013B;
-// DMUS_E_INVALIDBUFFER
+(* DMUS_E_WAVEFORMATNOTSUPPORTED
-//
+ *
-// Invalid DirectSound buffer was handed to port.
+ * Invalid buffer format was handed to the synth sink.
-///
+ *)
-  DMUS_E_INVALIDBUFFER = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $013B;//MAKE_DMHRESULTERROR(0x013B)
+  DMUS_E_WAVEFORMATNOTSUPPORTED   = MAKE_DMHRESULTERROR + $013C;
-// DMUS_E_WAVEFORMATNOTSUPPORTED
+(* DMUS_E_SYNTHINACTIVE
-//
+ *
-// Invalid buffer format was handed to the synth sink.
+ * The operation cannot be carried out while the synthesizer is inactive.
-///
+ *)
-  DMUS_E_WAVEFORMATNOTSUPPORTED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $013C;//MAKE_DMHRESULTERROR(0x013C)
+  DMUS_E_SYNTHINACTIVE            = MAKE_DMHRESULTERROR + $013D;
-// DMUS_E_SYNTHINACTIVE
+(* DMUS_E_DSOUND_ALREADY_SET
-//
+ *
-// The operation cannot be carried out while the synthesizer is inactive.
+ * IDirectMusic::SetDirectSound has already been called. It may not be
+ * changed while in use.
-///
+ *)
-  DMUS_E_SYNTHINACTIVE = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $013D;//MAKE_DMHRESULTERROR(0x013D)
+  DMUS_E_DSOUND_ALREADY_SET       = MAKE_DMHRESULTERROR + $013E;
-// DMUS_E_DSOUND_ALREADY_SET
+(* DMUS_E_INVALID_EVENT
-//
+ *
-// IDirectMusic::SetDirectSound has already been called. It may not be
+ * The given event is invalid (either it is not a valid MIDI message
+ * or it makes use of running status). The event cannot be packed
-// changed while in use.
+ * into the buffer.
-///
+ *)
-  DMUS_E_DSOUND_ALREADY_SET = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $013E;//MAKE_DMHRESULTERROR(0x013E)
+  DMUS_E_INVALID_EVENT            = MAKE_DMHRESULTERROR + $013F;
-// DMUS_E_INVALID_EVENT
+(* DMUS_E_UNSUPPORTED_STREAM
-//
+ *
-// The given event is invalid (either it is not a valid MIDI message
+ * The IStream* object does not contain data supported by the loading object.
-// or it makes use of running status). The event cannot be packed
-// into the buffer.
-///
+ *)
-  DMUS_E_INVALID_EVENT = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $013F;//MAKE_DMHRESULTERROR(0x013F)
+  DMUS_E_UNSUPPORTED_STREAM       = MAKE_DMHRESULTERROR + $0150;
-// DMUS_E_UNSUPPORTED_STREAM
+(* DMUS_E_ALREADY_INITED
-//
+ *
-// The IStream* object does not contain data supported by the loading object.
+ * The object has already been initialized.
-///
+ *)
-  DMUS_E_UNSUPPORTED_STREAM = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0150;//MAKE_DMHRESULTERROR(0x0150)
+  DMUS_E_ALREADY_INITED           = MAKE_DMHRESULTERROR + $0151;
-// DMUS_E_ALREADY_INITED
+(* DMUS_E_INVALID_BAND
-//
+ *
-// The object has already been initialized.
+ * The file does not contain a valid band.
-///
+ *)
-  DMUS_E_ALREADY_INITED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0151;//MAKE_DMHRESULTERROR(0x0151)
+  DMUS_E_INVALID_BAND             = MAKE_DMHRESULTERROR + $0152;
-// DMUS_E_INVALID_BAND
+(* DMUS_E_TRACK_HDR_NOT_FIRST_CK
-//
+ *
+ * The IStream* object's data does not have a track header as the first chunk,
-// The file does not contain a valid band.
+ * and therefore can not be read by the segment object.
-///
+ *)
-  DMUS_E_INVALID_BAND = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0152;//MAKE_DMHRESULTERROR(0x0152)
+  DMUS_E_TRACK_HDR_NOT_FIRST_CK   = MAKE_DMHRESULTERROR + $0155;
-// DMUS_E_TRACK_HDR_NOT_FIRST_CK
+(* DMUS_E_TOOL_HDR_NOT_FIRST_CK
-//
+ *
-// The IStream* object's data does not have a track header as the first chunk,
+ * The IStream* object's data does not have a tool header as the first chunk,
-// and therefore can not be read by the segment object.
+ * and therefore can not be read by the graph object.
-///
+ *)
-  DMUS_E_TRACK_HDR_NOT_FIRST_CK = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0155;//MAKE_DMHRESULTERROR(0x0155)
+  DMUS_E_TOOL_HDR_NOT_FIRST_CK    = MAKE_DMHRESULTERROR + $0156;
-// DMUS_E_TOOL_HDR_NOT_FIRST_CK
+(* DMUS_E_INVALID_TRACK_HDR
-//
+ *
-// The IStream* object's data does not have a tool header as the first chunk,
+ * The IStream* object's data contains an invalid track header (ckid is 0 and
-// and therefore can not be read by the graph object.
+ * fccType is NULL,) and therefore can not be read by the segment object.
-///
+ *)
-  DMUS_E_TOOL_HDR_NOT_FIRST_CK = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0156;//MAKE_DMHRESULTERROR(0x0156)
+  DMUS_E_INVALID_TRACK_HDR        = MAKE_DMHRESULTERROR + $0157;
-// DMUS_E_INVALID_TRACK_HDR
+(* DMUS_E_INVALID_TOOL_HDR
-//
+ *
-// The IStream* object's data contains an invalid track header (ckid is 0 and
+ * The IStream* object's data contains an invalid tool header (ckid is 0 and
-// fccType is NULL,) and therefore can not be read by the segment object.
+ * fccType is NULL,) and therefore can not be read by the graph object.
-///
+ *)
-  DMUS_E_INVALID_TRACK_HDR = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0157;//MAKE_DMHRESULTERROR(0x0157)
+  DMUS_E_INVALID_TOOL_HDR         = MAKE_DMHRESULTERROR + $0158;
-// DMUS_E_INVALID_TOOL_HDR
+(* DMUS_E_ALL_TOOLS_FAILED
-//
+ *
-// The IStream* object's data contains an invalid tool header (ckid is 0 and
+ * The graph object was unable to load all tools from the IStream* object data.
-// fccType is NULL,) and therefore can not be read by the graph object.
+ * This may be due to errors in the stream, or the tools being incorrectly
+ * registered on the client.
-///
+ *)
-  DMUS_E_INVALID_TOOL_HDR = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0158;//MAKE_DMHRESULTERROR(0x0158)
+  DMUS_E_ALL_TOOLS_FAILED         = MAKE_DMHRESULTERROR + $0159;
-// DMUS_E_ALL_TOOLS_FAILED
+(* DMUS_E_ALL_TRACKS_FAILED
-//
+ *
-// The graph object was unable to load all tools from the IStream* object data.
+ * The segment object was unable to load all tracks from the IStream* object data.
-// This may be due to errors in the stream, or the tools being incorrectly
+ * This may be due to errors in the stream, or the tracks being incorrectly
-// registered on the client.
+ * registered on the client.
-///
+ *)
-  DMUS_E_ALL_TOOLS_FAILED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0159;//MAKE_DMHRESULTERROR(0x0159)
+  DMUS_E_ALL_TRACKS_FAILED        = MAKE_DMHRESULTERROR + $0160;
-// DMUS_E_ALL_TRACKS_FAILED
+(* DMUS_E_NOT_FOUND
-//
+ *
-// The segment object was unable to load all tracks from the IStream* object data.
+ * The requested item was not contained by the object.
-// This may be due to errors in the stream, or the tracks being incorrectly
-// registered on the client.
-///
+ *)
-  DMUS_E_ALL_TRACKS_FAILED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0160;//MAKE_DMHRESULTERROR(0x0160)
+  DMUS_E_NOT_FOUND                = MAKE_DMHRESULTERROR + $0161;
-// DMUS_E_NOT_FOUND
+(* DMUS_E_NOT_INIT
-//
+ *
-// The requested item was not contained by the object.
+ * A required object is not initialized or failed to initialize.
-///
+ *)
-  DMUS_E_NOT_FOUND = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0161;//MAKE_DMHRESULTERROR(0x0161)
+  DMUS_E_NOT_INIT                 = MAKE_DMHRESULTERROR + $0162;
-// DMUS_E_NOT_INIT
+(* DMUS_E_TYPE_DISABLED
-//
+ *
+ * The requested parameter type is currently disabled. Parameter types may
-// A required object is not initialized or failed to initialize.
+ * be enabled and disabled by certain calls to SetParam().
-///
+ *)
-  DMUS_E_NOT_INIT = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0162;//MAKE_DMHRESULTERROR(0x0162)
+  DMUS_E_TYPE_DISABLED            = MAKE_DMHRESULTERROR + $0163;
-// DMUS_E_TYPE_DISABLED
+(* DMUS_E_TYPE_UNSUPPORTED
-//
+ *
-// The requested parameter type is currently disabled. Parameter types may
+ * The requested parameter type is not supported on the object.
-// be enabled and disabled by certain calls to SetParam().
-///
+ *)
-  DMUS_E_TYPE_DISABLED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0163;//MAKE_DMHRESULTERROR(0x0163)
+  DMUS_E_TYPE_UNSUPPORTED         = MAKE_DMHRESULTERROR + $0164;
-// DMUS_E_TYPE_UNSUPPORTED
+(* DMUS_E_TIME_PAST
-//
+ *
-// The requested parameter type is not supported on the object.
+ * The time is in the past, and the operation can not succeed.
-///
+ *)
-  DMUS_E_TYPE_UNSUPPORTED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0164;//MAKE_DMHRESULTERROR(0x0164)
+  DMUS_E_TIME_PAST                = MAKE_DMHRESULTERROR + $0165;
-// DMUS_E_TIME_PAST
+(* DMUS_E_TRACK_NOT_FOUND
-//
+ *
-// The time is in the past, and the operation can not succeed.
+ * The requested track is not contained by the segment.
-///
+ *)
-  DMUS_E_TIME_PAST = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0165;//MAKE_DMHRESULTERROR(0x0165)
+  DMUS_E_TRACK_NOT_FOUND        = MAKE_DMHRESULTERROR + $0166;
-// DMUS_E_TRACK_NOT_FOUND
+(* DMUS_E_NO_MASTER_CLOCK
-//
+ *
-// The requested track is not contained by the segment.
+ * There is no master clock in the performance. Be sure to call
+ * IDirectMusicPerformance::Init().
-///
+ *)
-  DMUS_E_TRACK_NOT_FOUND = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0166;//MAKE_DMHRESULTERROR(0x0166)
+  DMUS_E_NO_MASTER_CLOCK          = MAKE_DMHRESULTERROR + $0170;
-// DMUS_E_NO_MASTER_CLOCK
+(* DMUS_E_LOADER_NOCLASSID
-//
+ *
-// There is no master clock in the performance. Be sure to call
+ * The class id field is required and missing in the DMUS_OBJECTDESC.
-// IDirectMusicPerformance::Init().
-///
+ *)
-  DMUS_E_NO_MASTER_CLOCK = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0170;//MAKE_DMHRESULTERROR(0x0170)
+  DMUS_E_LOADER_NOCLASSID         = MAKE_DMHRESULTERROR + $0180;
-// DMUS_E_LOADER_NOCLASSID
+(* DMUS_E_LOADER_BADPATH
-//
+ *
-// The class id field is required and missing in the DMUS_OBJECTDESC.
+ * The requested file path is invalid.
-///
+ *)
-  DMUS_E_LOADER_NOCLASSID = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0180;//MAKE_DMHRESULTERROR(0x0180)
+  DMUS_E_LOADER_BADPATH           = MAKE_DMHRESULTERROR + $0181;
-// DMUS_E_LOADER_BADPATH
+(* DMUS_E_LOADER_FAILEDOPEN
-//
+ *
-// The requested file path is invalid.
+ * File open failed - either file doesn't exist or is locked.
-///
+ *)
-  DMUS_E_LOADER_BADPATH = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0181;//MAKE_DMHRESULTERROR(0x0181)
+  DMUS_E_LOADER_FAILEDOPEN        = MAKE_DMHRESULTERROR + $0182;
-// DMUS_E_LOADER_FAILEDOPEN
+(* DMUS_E_LOADER_FORMATNOTSUPPORTED
-//
+ *
-// File open failed - either file doesn't exist or is locked.
+ * Search data type is not supported.
-///
+ *)
-  DMUS_E_LOADER_FAILEDOPEN = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0182;//MAKE_DMHRESULTERROR(0x0182)
+  DMUS_E_LOADER_FORMATNOTSUPPORTED    = MAKE_DMHRESULTERROR + $0183;
-// DMUS_E_LOADER_FORMATNOTSUPPORTED
+(* DMUS_E_LOADER_FAILEDCREATE
-//
+ *
-// Search data type is not supported.
+ * Unable to find or create object.
-///
+ *)
-  DMUS_E_LOADER_FORMATNOTSUPPORTED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0183;//MAKE_DMHRESULTERROR(0x0183)
+  DMUS_E_LOADER_FAILEDCREATE      = MAKE_DMHRESULTERROR + $0184;
-// DMUS_E_LOADER_FAILEDCREATE
+(* DMUS_E_LOADER_OBJECTNOTFOUND
-//
+ *
-// Unable to find or create object.
+ * Object was not found.
-///
+ *)
-  DMUS_E_LOADER_FAILEDCREATE = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0184;//MAKE_DMHRESULTERROR(0x0184)
+  DMUS_E_LOADER_OBJECTNOTFOUND    = MAKE_DMHRESULTERROR + $0185;
-// DMUS_E_LOADER_OBJECTNOTFOUND
+(* DMUS_E_LOADER_NOFILENAME
-//
+ *
-// Object was not found.
+ * The file name is missing from the DMUS_OBJECTDESC.
-///
+ *)
-  DMUS_E_LOADER_OBJECTNOTFOUND = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0185;//MAKE_DMHRESULTERROR(0x0185)
+  DMUS_E_LOADER_NOFILENAME          = MAKE_DMHRESULTERROR + $0186;
-// DMUS_E_LOADER_NOFILENAME
+(* DMUS_E_INVALIDFILE
-//
+ *
-// The file name is missing from the DMUS_OBJECTDESC.
+ * The file requested is not a valid file.
-///
+ *)
-  DMUS_E_LOADER_NOFILENAME = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0186;//MAKE_DMHRESULTERROR(0x0186)
+  DMUS_E_INVALIDFILE              = MAKE_DMHRESULTERROR + $0200;
-// DMUS_E_INVALIDFILE
+(* DMUS_E_ALREADY_EXISTS
-//
+ *
-// The file requested is not a valid file.
+ * The tool is already contained in the graph. Create a new instance.
-///
+ *)
-  DMUS_E_INVALIDFILE = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0200;//MAKE_DMHRESULTERROR(0x0200)
+  DMUS_E_ALREADY_EXISTS           = MAKE_DMHRESULTERROR + $0201;
-// DMUS_E_ALREADY_EXISTS
+(* DMUS_E_OUT_OF_RANGE
-//
+ *
-// The tool is already contained in the graph. Create a new instance.
+ * Value is out of range, for instance the requested length is longer than
+ * the segment.
-///
+ *)
-  DMUS_E_ALREADY_EXISTS = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0201;//MAKE_DMHRESULTERROR(0x0201)
+  DMUS_E_OUT_OF_RANGE             = MAKE_DMHRESULTERROR + $0202;
-// DMUS_E_OUT_OF_RANGE
+(* DMUS_E_SEGMENT_INIT_FAILED
-//
+ *
-// Value is out of range, for instance the requested length is longer than
+ * Segment initialization failed, most likely due to a critical memory situation.
-// the segment.
-///
+ *)
-  DMUS_E_OUT_OF_RANGE = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0202;//MAKE_DMHRESULTERROR(0x0202)
+  DMUS_E_SEGMENT_INIT_FAILED      = MAKE_DMHRESULTERROR + $0203;
-// DMUS_E_SEGMENT_INIT_FAILED
+(* DMUS_E_ALREADY_SENT
-//
+ *
-// Segment initialization failed, most likely due to a critical memory situation.
+ * The DMUS_PMSG has already been sent to the performance object via
+ * IDirectMusicPerformance::SendPMsg().
-///
+ *)
-  DMUS_E_SEGMENT_INIT_FAILED = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0203;//MAKE_DMHRESULTERROR(0x0203)
+  DMUS_E_ALREADY_SENT             = MAKE_DMHRESULTERROR + $0204;
-// DMUS_E_ALREADY_SENT
+(* DMUS_E_CANNOT_FREE
-//
+ *
-// The DMUS_PMSG has already been sent to the performance object via
+ * The DMUS_PMSG was either not allocated by the performance via
+ * IDirectMusicPerformance::AllocPMsg(), or it was already freed via
-// IDirectMusicPerformance::SendPMsg().
+ * IDirectMusicPerformance::FreePMsg().
-///
+ *)
-  DMUS_E_ALREADY_SENT = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0204;//MAKE_DMHRESULTERROR(0x0204)
+  DMUS_E_CANNOT_FREE              = MAKE_DMHRESULTERROR + $0205;
-// DMUS_E_CANNOT_FREE
+(* DMUS_E_CANNOT_OPEN_PORT
-//
+ *
-// The DMUS_PMSG was either not allocated by the performance via
+ * The default system port could not be opened.
-// IDirectMusicPerformance::AllocPMsg(), or it was already freed via
-// IDirectMusicPerformance::FreePMsg().
-///
+ *)
-  DMUS_E_CANNOT_FREE = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0205;//MAKE_DMHRESULTERROR(0x0205)
+  DMUS_E_CANNOT_OPEN_PORT         = MAKE_DMHRESULTERROR + $0206;
-// DMUS_E_CANNOT_OPEN_PORT
+(* DMUS_E_CONNOT_CONVERT
-//
+ *
+ * A call to MIDIToMusic() or MusicToMIDI() resulted in an error because
-// The default system port could not be opened.
+ * the requested conversion could not happen. This usually occurs when the
+ * provided DMUS_CHORD_KEY structure has an invalid chord or scale pattern.
-///
+ *)
-  DMUS_E_CANNOT_OPEN_PORT = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0206;//MAKE_DMHRESULTERROR(0x0206)
+  DMUS_E_CONNOT_CONVERT           = MAKE_DMHRESULTERROR + $0207;
-// DMUS_E_CONNOT_CONVERT
+(* DMUS_E_DESCEND_CHUNK_FAIL
-//
+ *
-// A call to MIDIToMusic() or MusicToMIDI() resulted in an error because
+ * DMUS_E_DESCEND_CHUNK_FAIL is returned when the end of the file
-// the requested conversion could not happen. This usually occurs when the
+ * was reached before the desired chunk was found.
-// provided DMUS_CHORD_KEY structure has an invalid chord or scale pattern.
-///
+ *)
-  DMUS_E_CONNOT_CONVERT = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0207;//MAKE_DMHRESULTERROR(0x0207)
+  DMUS_E_DESCEND_CHUNK_FAIL       = MAKE_DMHRESULTERROR + $0210;
-// DMUS_E_DESCEND_CHUNK_FAIL
-//
-// DMUS_E_DESCEND_CHUNK_FAIL is returned when the end of the file
-// was reached before the desired chunk was found.
-///
-  DMUS_E_DESCEND_CHUNK_FAIL = (1 shl 31) + (FACILITY_DIRECTMUSIC shl 16) + DMUS_ERRBASE + $0210;//MAKE_DMHRESULTERROR(0x0210)
+(************************************************************************
+*                                                                       *
+*   dmksctrl.h -- Definition of IKsControl                              *
+*                                                                       *
+*   Copyright (c) 1998, Microsoft Corp. All rights reserved.            *
+*                                                                       *
+*                                                                       *
+*   This header file contains the definition of IKsControl, which       *
+*   duplicates definitions from ks.h and ksproxy.h. Your code should    *
+*   include ks.h and ksproxy.h directly if you have them (they are      *
+*   provided in the Windows 98 DDK and will be in the Windows NT 5      *
+*   SDK).                                                               *
+*                                                                       *
+************************************************************************)
-//************************************************************************
-//                                                                       *
-//   dmksctrl.h -- Definition of IKsControl                              *
-//                                                                       *
-//   Copyright (c) 1998, Microsoft Corp. All rights reserved.            *
-//                                                                       *
-//                                                                       *
+(*
-//   This header file contains the definition of IKsControl, which       *
+ * Warning: This will prevent the rest of ks.h from being pulled in if ks.h is
-//   duplicates definitions from ks.h and ksproxy.h. Your code should    *
-//   include ks.h and ksproxy.h directly if you have them (they are      *
+ * included after dmksctrl.h. Make sure you do not include both headers in
-//   provided in the Windows 98 DDK and will be in the Windows NT 5      *
+ * the same source file.
-//   SDK).                                                               *
-//                                                                       *
-//**********************************************************************
+ *)
-//
-// Warning: This will prevent the rest of ks.h from being pulled in if ks.h is
-// included after dmksctrl.h. Make sure you do not include both headers in
-// the same source file.
-///
 type
+  PKsIdentifier = ^TKsIdentifier;
+  TKsIdentifier = packed record
-  TData = record
+    case integer of
+: (
-    _Set      : TGUID;
+             Set_: TGUID;
-    Id        : Cardinal;
+             Id : ULONG;
-    Flags     : Cardinal;
+             Flags: ULONG
+          );
+: (Alignment: LONGLONG);
   end;
-  TKSIDENTIFIER = record
-    Data      : TData;
+  PKsProperty = ^TKsProperty;
-    Alignment : LONGLONG;
+  TKsProperty = TKsIdentifier;
-  end;
-  KSIDENTIFIER = TKSIDENTIFIER;
+  PKsMethod = ^TKsMethod;
-  PKSIDENTIFIER = ^KSIDENTIFIER;
+  TKsMethod = TKsIdentifier;
-  TKSPROPERTY = KSIDENTIFIER;
-  KSPROPERTY  = KSIDENTIFIER;
-  PKSPROPERTY = ^KSIDENTIFIER;
-  TKSMETHOD   = KSIDENTIFIER;
-  KSMETHOD    = KSIDENTIFIER;
-  PKSMETHOD   = ^KSIDENTIFIER;
+  PKsEvent = ^TKsEvent;
-  TKSEVENT    = KSIDENTIFIER;
+  TKsEvent = TKsIdentifier;
-  KSEVENT     = KSIDENTIFIER;
-  PKSEVENT    = ^KSIDENTIFIER;
 const
-  KSMETHOD_TYPE_NONE             = $00000000;
+  KSMETHOD_TYPE_NONE                  = $00000000;
-  KSMETHOD_TYPE_READ             = $00000001;
+  KSMETHOD_TYPE_READ                  = $00000001;
-  KSMETHOD_TYPE_WRITE            = $00000002;
+  KSMETHOD_TYPE_WRITE                 = $00000002;
-  KSMETHOD_TYPE_MODIFY           = $00000003;
+  KSMETHOD_TYPE_MODIFY                = $00000003;
-  KSMETHOD_TYPE_SOURCE           = $00000004;
+  KSMETHOD_TYPE_SOURCE                = $00000004;
-  KSMETHOD_TYPE_SEND             = $00000001;
+  KSMETHOD_TYPE_SEND                  = $00000001;
-  KSMETHOD_TYPE_SETSUPPORT       = $00000100;
+  KSMETHOD_TYPE_SETSUPPORT            = $00000100;
-  KSMETHOD_TYPE_BASICSUPPORT     = $00000200;
+  KSMETHOD_TYPE_BASICSUPPORT          = $00000200;
-  KSPROPERTY_TYPE_GET            = $00000001;
+  KSPROPERTY_TYPE_GET                 = $00000001;
-  KSPROPERTY_TYPE_SET            = $00000002;
+  KSPROPERTY_TYPE_SET                 = $00000002;
-  KSPROPERTY_TYPE_SETSUPPORT     = $00000100;
+  KSPROPERTY_TYPE_SETSUPPORT          = $00000100;
-  KSPROPERTY_TYPE_BASICSUPPORT   = $00000200;
+  KSPROPERTY_TYPE_BASICSUPPORT        = $00000200;
-  KSPROPERTY_TYPE_RELATIONS      = $00000400;
+  KSPROPERTY_TYPE_RELATIONS           = $00000400;
-  KSPROPERTY_TYPE_SERIALIZESET   = $00000800;
+  KSPROPERTY_TYPE_SERIALIZESET        = $00000800;
-  KSPROPERTY_TYPE_UNSERIALIZESET = $00001000;
+  KSPROPERTY_TYPE_UNSERIALIZESET      = $00001000;
-  KSPROPERTY_TYPE_SERIALIZERAW   = $00002000;
+  KSPROPERTY_TYPE_SERIALIZERAW        = $00002000;
-  KSPROPERTY_TYPE_UNSERIALIZERAW = $00004000;
+  KSPROPERTY_TYPE_UNSERIALIZERAW      = $00004000;
-  KSPROPERTY_TYPE_SERIALIZESIZE  = $00008000;
+  KSPROPERTY_TYPE_SERIALIZESIZE       = $00008000;
-  KSPROPERTY_TYPE_DEFAULTVALUES  = $00010000;
+  KSPROPERTY_TYPE_DEFAULTVALUES       = $00010000;
-  KSPROPERTY_TYPE_TOPOLOGY       = $10000000;
+  KSPROPERTY_TYPE_TOPOLOGY            = $10000000;
 type
-  IKsControl = interface(IUnknown)
+  IKsControl = interface (IUnknown)
-  ['{28F54685-06FD-11D2-B27A-00A0C9223196}']
+    ['{28F54685-06FD-11D2-B27A-00A0C9223196}']
-    //IKsControl
-    function KsProperty(const _Property: TKSPROPERTY; PropertyLength: Cardinal; var PropertyData;
+    function KsProperty (const pProperty: TKsProperty; PropertyLength: ULONG;
-                        DataLength: Cardinal; var BytesReturned: Cardinal) : HResult; stdcall;
+        var PropertyData; DataLength: ULONG; out BytesReturned: ULONG) : HResult; stdcall;
-    function KsMethod(const Method: TKSMETHOD; MethodLength: Cardinal; var PropertyData;
+    function KsMethod(const Method: TKsMethod; MethodLength: ULONG;
-                      DataLength: Cardinal; var BytesReturned: Cardinal) : HResult; stdcall;
+        var MethodData; DataLength: ULONG; out BytesReturned: ULONG) : HResult; stdcall;
-    function KsEvent(const Event: TKSEVENT; EventLength: Cardinal; var EventData;
+    function KsEvent (const Event: TKsEvent; EventLength: ULONG;
-                     DataLength: Cardinal; var BytesReturned: Cardinal) : HResult; stdcall;
+        var EventData; DataLength: ULONG; out BytesReturned: ULONG) : HResult; stdcall;
   end;
-const
+type
-  IID_IKsControl : TGUID = '{28F54685-06FD-11D2-B27A-00A0C9223196}';
+  IID_IKsControl = IKsControl;
+  STATIC_IID_IKsControl = IID_IKsControl;
+const
-  // These formats are in ksmedia.h
+(* These formats are in ksmedia.h
+ *)
-  KSDATAFORMAT_SUBTYPE_MIDI        : TGUID = '{1D262760-E957-11CF-A5D6-28DB04C10000}';
+  KSDATAFORMAT_SUBTYPE_MIDI : TGUID = '{1D262760-E957-11CF-A5D6-28DB04C10000}';
-  KSDATAFORMAT_SUBTYPE_DIRECTMUSIC : TGUID = '{1A82F8BC-3F8B-11D2-B774-0060083316C1}';
-//**************************************************************************
-//                                                                          *
-//   DMusBuff.h -- This module defines the buffer format for DirectMusic    *
+  KSDATAFORMAT_SUBTYPE_DIRECTMUSIC : TGUID = '{1a82f8bc-3f8b-11d2-b774-0060083316c1}';
-//                 Shared file between user mode and kernel mode components *
-//                                                                          *
-//   Copyright (c) 1998, Microsoft Corp. All rights reserved.               *
-//                                                                          *
-//*************************************************************************
-// Format of DirectMusic events in a buffer
-//
-// A buffer contains 1 or more events, each with the following header.
-// Immediately following the header is the event data. The header+data
-// size is rounded to the nearest quadword (8 bytes).
-///
-// Do not pad at end - that's where the data is
-type
-  TDMUS_EVENTHEADER = record
-    cbEvent        : DWORD;                // Unrounded bytes in event
-    dwChannelGroup : DWORD;                // Channel group of event
-    rtDelta        : REFERENCE_TIME;       // Delta from start time of entire buffer
-    dwFlags        : DWORD;                // Flags DMUS_EVENT_xxx
-  end;
-  DMUS_EVENTHEADER = TDMUS_EVENTHEADER;
-  LPDMUS_EVENTHEADER = ^TDMUS_EVENTHEADER;
-const
-  DMUS_EVENT_STRUCTURED  = $00000001;  // Unstructured data (SysEx, etc.)
-// The number of bytes to allocate for an event with 'cb' data bytes.
-//
-  function QWORD_ALIGN(x: LONGLONG) : LONGLONG; //(((x) + 7) & ~7)
-  function DMUS_EVENT_SIZE(cb: LONGLONG) : LONGLONG; //QWORD_ALIGN(sizeof(DMUS_EVENTHEADER) + cb)
-//***********************************************************************
+(************************************************************************
-//                                                                      *
+*                                                                       *
-//   dmusicc.h -- This module defines the DirectMusic core API's        *
+*   dmusicc.h -- This module defines the DirectMusic core API's         *
-//                                                                      *
+*                                                                       *
-//   Copyright (c) 1998, Microsoft Corp. All rights reserved.           *
+*   Copyright (c) 1998, Microsoft Corp. All rights reserved.            *
-//                                                                      *
+*                                                                       *
-//**********************************************************************
+************************************************************************)
 const
   DMUS_MAX_DESCRIPTION = 128;
-  DMUS_MAX_DRIVER      = 128;
+  DMUS_MAX_DRIVER = 128;
 type
+  PDMus_BufferDesc = ^TDMus_BufferDesc;
-  TDMUS_BUFFERDESC = record
+  TDMus_BufferDesc = packed record
-    dwSize           : DWORD;
+    dwSize,
-    dwFlags          : DWORD;
+    dwFlags : DWORD;
     guidBufferFormat : TGUID;
-    cbBuffer         : DWORD;
+    cbBuffer : DWORD;
   end;
-  DMUS_BUFFERDESC   = TDMUS_BUFFERDESC;
-  LPDMUS_BUFFERDESC = ^TDMUS_BUFFERDESC;
-// DMUS_EFFECT_ flags are used in the dwEffectFlags fields of both DMUS_PORTCAPS
-// and DMUS_PORTPARAMS.
-///
 const
+(* DMUS_EFFECT_ flags are used in the dwEffectFlags fields of both DMUS_PORTCAPS
+ * and DMUS_PORTPARAMS.
+ *)
-  DMUS_EFFECT_NONE           = $00000000;
+  DMUS_EFFECT_NONE             = $00000000;
-  DMUS_EFFECT_REVERB         = $00000001;
+  DMUS_EFFECT_REVERB           = $00000001;
-  DMUS_EFFECT_CHORUS         = $00000002;
+  DMUS_EFFECT_CHORUS           = $00000002;
-// For DMUS_PORTCAPS dwClass
+(* For DMUS_PORTCAPS dwClass
-//
+ *)
-  DMUS_PC_INPUTCLASS     = (0);
+  DMUS_PC_INPUTCLASS        = 0;
-  DMUS_PC_OUTPUTCLASS    = (1);
+  DMUS_PC_OUTPUTCLASS       = 1;
-// For DMUS_PORTCAPS dwFlags
+(* For DMUS_PORTCAPS dwFlags
-//
+ *)
-  DMUS_PC_DLS             = ($00000001);
+  DMUS_PC_DLS              = $00000001;
-  DMUS_PC_EXTERNAL        = ($00000002);
+  DMUS_PC_EXTERNAL         = $00000002;
-  DMUS_PC_SOFTWARESYNTH   = ($00000004);
+  DMUS_PC_SOFTWARESYNTH    = $00000004;
-  DMUS_PC_MEMORYSIZEFIXED = ($00000008);
+  DMUS_PC_MEMORYSIZEFIXED  = $00000008;
-  DMUS_PC_GMINHARDWARE    = ($00000010);
+  DMUS_PC_GMINHARDWARE     = $00000010;
-  DMUS_PC_GSINHARDWARE    = ($00000020);
+  DMUS_PC_GSINHARDWARE     = $00000020;
-  DMUS_PC_XGINHARDWARE    = ($00000040);
+  DMUS_PC_XGINHARDWARE     = $00000040;
-  DMUS_PC_DIRECTSOUND     = ($00000080);
+  DMUS_PC_DIRECTSOUND      = $00000080;
-  DMUS_PC_SHAREABLE       = ($00000100);
+  DMUS_PC_SHAREABLE        = $00000100;
+  DMUS_PC_DLS2             = $00000200;
-  DMUS_PC_SYSTEMMEMORY    = ($7FFFFFFF);
+  DMUS_PC_SYSTEMMEMORY     = $7FFFFFFF;
 type
+  PDMus_PortCaps = ^TDMus_PortCaps;
-  TDMUS_PORTCAPS = record
+  TDMus_PortCaps = packed record
-    dwSize             : DWORD;
+    dwSize:              DWORD;
-    dwFlags            : DWORD;
+    dwFlags:             DWORD;
-    guidPort           : TGUID;
+    guidPort:            TGUID;
-    dwClass            : DWORD;
+    dwClass:             DWORD;
-    dwType             : DWORD;
+    dwType:              DWORD;
-    dwMemorySize       : DWORD;
+    dwMemorySize:        DWORD;
-    dwMaxChannelGroups : DWORD;
+    dwMaxChannelGroups:  DWORD;
-    dwMaxVoices        : DWORD;
+    dwMaxVoices:         DWORD;
-    dwMaxAudioChannels : DWORD;
+    dwMaxAudioChannels:  DWORD;
-    dwEffectFlags      : DWORD;
+    dwEffectFlags:       DWORD;
-    wszDescription     : array[0..DMUS_MAX_DESCRIPTION - 1] of WCHAR;
+    wszDescription:      array [0..DMUS_MAX_DESCRIPTION-1] of WideChar;
   end;
-  DMUS_PORTCAPS   = TDMUS_PORTCAPS;
-  LPDMUS_PORTCAPS = ^TDMUS_PORTCAPS;
-// Values for DMUS_PORTCAPS dwType. This field indicates the underlying
-// driver type of the port.
-///
 const
+(* Values for DMUS_PORTCAPS dwType. This field indicates the underlying
+ * driver type of the port.
+ *)
-  DMUS_PORT_WINMM_DRIVER     = (0);
+  DMUS_PORT_WINMM_DRIVER      = 0;
-  DMUS_PORT_USER_MODE_SYNTH  = (1);
+  DMUS_PORT_USER_MODE_SYNTH   = 1;
-  DMUS_PORT_KERNEL_MODE      = (2);
+  DMUS_PORT_KERNEL_MODE       = 2;
-// These flags (set in dwValidParams) indicate which other members of the
+(* These flags (set in dwValidParams) indicate which other members of the *)
-// DMUS_PORTPARAMS are valid.
+(* DMUS_PORTPARAMS are valid. *)
-//
+(* *)
-  DMUS_PORTPARAMS_VOICES          = $00000001;
+  DMUS_PORTPARAMS_VOICES           = $00000001;
-  DMUS_PORTPARAMS_CHANNELGROUPS   = $00000002;
+  DMUS_PORTPARAMS_CHANNELGROUPS    = $00000002;
-  DMUS_PORTPARAMS_AUDIOCHANNELS   = $00000004;
+  DMUS_PORTPARAMS_AUDIOCHANNELS    = $00000004;
-  DMUS_PORTPARAMS_SAMPLERATE      = $00000008;
+  DMUS_PORTPARAMS_SAMPLERATE       = $00000008;
-  DMUS_PORTPARAMS_EFFECTS         = $00000020;
+  DMUS_PORTPARAMS_EFFECTS          = $00000020;
-  DMUS_PORTPARAMS_SHARE           = $00000040;
+  DMUS_PORTPARAMS_SHARE            = $00000040;
 type
+  PDMus_PortParams = ^TDMus_PortParams;
-  TDMUS_PORTPARAMS = record
+  TDMus_PortParams = packed record
-    dwSize          : DWORD;
+    dwSize:          DWORD;
-    dwValidParams   : DWORD;
+    dwValidParams:   DWORD;
-    dwVoices        : DWORD;
+    dwVoices:        DWORD;
-    dwChannelGroups : DWORD;
+    dwChannelGroups: DWORD;
-    dwAudioChannels : DWORD;
+    dwAudioChannels: DWORD;
-    dwSampleRate    : DWORD;
+    dwSampleRate:    DWORD;
-    dwEffectFlags   : DWORD;
+    dwEffectFlags:   DWORD;
-    fShare          : BOOL;
+    fShare:          BOOL;
   end;
-  DMUS_PORTPARAMS = TDMUS_PORTPARAMS;
-  LPDMUS_PORTPARAMS = ^TDMUS_PORTPARAMS;
+  PDMus_SynthStats = ^TDMus_SynthStats;
-  TDMUS_SYNTHSTATS = record
+  TDMus_SynthStats = packed record
-    dwSize        : DWORD;      // Size in bytes of the structure
+    dwSize:        DWORD;        (* Size in bytes of the structure *)
-    dwValidStats  : DWORD;      // Flags indicating which fields below are valid.
+    dwValidStats:  DWORD;        (* Flags indicating which fields below are valid. *)
-    dwVoices      : DWORD;      // Average number of voices playing.
+    dwVoices:      DWORD;        (* Average number of voices playing. *)
-    dwTotalCPU    : DWORD;      // Total CPU usage as percent * 100.
+    dwTotalCPU:    DWORD;        (* Total CPU usage as percent * 100. *)
-    dwCPUPerVoice : DWORD;      // CPU per voice as percent * 100.
+    dwCPUPerVoice: DWORD;        (* CPU per voice as percent * 100. *)
-    dwLostNotes   : DWORD;      // Number of notes lost in 1 second.
+    dwLostNotes:   DWORD;        (* Number of notes lost in 1 second. *)
-    dwFreeMemory  : DWORD;      // Free memory in bytes
+    dwFreeMemory:  DWORD;        (* Free memory in bytes *)
-    lPeakVolume   : Longint;    // Decibel level * 100.
+    lPeakVolume:   LongInt;      (* Decibel level * 100. *)
   end;
-  DMUS_SYNTHSTATS = TDMUS_SYNTHSTATS;
-  LPDMUS_SYNTHSTATS = ^TDMUS_SYNTHSTATS;
 const
-  DMUS_SYNTHSTATS_VOICES        = 1;
+  DMUS_SYNTHSTATS_VOICES          = 1 shl 0;
-  DMUS_SYNTHSTATS_TOTAL_CPU     = 2;
+  DMUS_SYNTHSTATS_TOTAL_CPU       = 1 shl 1;
-  DMUS_SYNTHSTATS_CPU_PER_VOICE = 4;
+  DMUS_SYNTHSTATS_CPU_PER_VOICE   = 1 shl 2;
-  DMUS_SYNTHSTATS_LOST_NOTES    = 8;
+  DMUS_SYNTHSTATS_LOST_NOTES      = 1 shl 3;
-  DMUS_SYNTHSTATS_PEAK_VOLUME   = 16;
+  DMUS_SYNTHSTATS_PEAK_VOLUME     = 1 shl 4;
-  DMUS_SYNTHSTATS_FREE_MEMORY   = 32;
+  DMUS_SYNTHSTATS_FREE_MEMORY     = 1 shl 5;
-  DMUS_SYNTHSTATS_SYSTEMMEMORY  = DMUS_PC_SYSTEMMEMORY;
+  DMUS_SYNTHSTATS_SYSTEMMEMORY   = DMUS_PC_SYSTEMMEMORY;
 type
-  TDMUS_WAVES_REVERB_PARAMS = record
+  TDMus_Waves_Reverb_Params = packed record
-    fInGain          : Single;     // Input gain in dB (to avoid output overflows)
+    fInGain,        (* Input gain in dB (to avoid output overflows) *)
-    fReverbMix       : Single;     // Reverb mix in dB. 0dB means 100% wet reverb (no direct signal)
+    fReverbMix,     (* Reverb mix in dB. 0dB means 100% wet reverb (no direct signal)
-                                   //Negative values gives less wet signal.
+                    Negative values gives less wet signal.
-                                   //The coeficients are calculated so that the overall output level stays
+                    The coeficients are calculated so that the overall output level stays
-                                   //(approximately) constant regardless of the ammount of reverb mix.
+                    (approximately) constant regardless of the ammount of reverb mix. *)
-    fReverbTime      : Single;     // The reverb decay time, in milliseconds.
+    fReverbTime,    (* The reverb decay time, in milliseconds. *)
-    fHighFreqRTRatio : Single;     // The ratio of the high frequencies to the global reverb time.
+    fHighFreqRTRatio : Single; (* The ratio of the high frequencies to the global reverb time.
-                                   //Unless very 'splashy-bright' reverbs are wanted, this should be set to
+                    Unless very 'splashy-bright' reverbs are wanted, this should be set to
-                                   //a value < 1.0.
+                    a value < 1.0.
-                                   //For example if dRevTime==1000ms and dHighFreqRTRatio=0.1 than the
+                    For example if dRevTime==1000ms and dHighFreqRTRatio=0.1 than the
-                                   //decay time for high frequencies will be 100ms.
+                    decay time for high frequencies will be 100ms.*)
   end;
-  DMUS_WAVES_REVERB_PARAMS = TDMUS_WAVES_REVERB_PARAMS;
-//  Note: Default values for Reverb are:
+(*  Note: Default values for Reverb are:
-//    fInGain             = 0.0dB   (no change in level)
+    fInGain             = 0.0dB   (no change in level)
-//    fReverbMix          = -10.0dB   (a reasonable reverb mix)
+    fReverbMix          = -10.0dB   (a reasonable reverb mix)
-//    fReverbTime         = 1000.0ms (one second global reverb time)
+    fReverbTime         = 1000.0ms (one second global reverb time)
-//    fHighFreqRTRatio    = 0.001    (the ratio of the high frequencies to the global reverb time)
+    fHighFreqRTRatio    = 0.001    (the ratio of the high frequencies to the global reverb time)
-///
+*)
+  TDMus_ClockType = (
-  DMUS_CLOCKTYPE = (DMUS_CLOCK_SYSTEM, DMUS_CLOCK_WAVE);  //DMUS_CLOCK_SYSTEM = 0,
+    DMUS_CLOCK_SYSTEM,
-                                                          //DMUS_CLOCK_WAVE = 1
+    DMUS_CLOCK_WAVE
+  );
+  PDMus_ClockInfo = ^TDMus_ClockInfo;
-  TDMUS_CLOCKINFO = record
+  TDMus_ClockInfo = packed record
-    dwSize         : DWORD;
+    dwSize : WORD;
-    ctType         : DMUS_CLOCKTYPE;
+    ctType : TDMus_ClockType;
-    guidClock      : TGUID;          // Identifies this time source
+    guidClock : TGUID;          (* Identifies this time source *)
-    wszDescription : array[0..DMUS_MAX_DESCRIPTION - 1] of WCHAR;
+    wszDescription : array [0..DMUS_MAX_DESCRIPTION-1] of WideChar;
   end;
+const
+  DMUS_EVENT_STRUCTURED   = $00000001;  (* Unstructured data (SysEx, etc.) *)
+(* Standard values for voice priorities. Numerically higher priorities are higher in priority.
+ * These priorities are used to set the voice priority for all voices on a channel. They are
+ * used in the dwPriority parameter of IDirectMusicPort::GetPriority and returned in the
+ * lpwPriority parameter of pdwPriority.
+ *
+ * These priorities are shared with DirectSound.
+ *)
+const
+  DAUD_CRITICAL_VOICE_PRIORITY    = $F0000000;
-  DMUS_CLOCKINFO   = TDMUS_CLOCKINFO;
+  DAUD_HIGH_VOICE_PRIORITY        = $C0000000;
+  DAUD_STANDARD_VOICE_PRIORITY    = $80000000;
-  LPDMUS_CLOCKINFO = ^TDMUS_CLOCKINFO;
+  DAUD_LOW_VOICE_PRIORITY         = $40000000;
+  DAUD_PERSIST_VOICE_PRIORITY     = $10000000;
+(* These are the default priorities assigned if not overridden. By default priorities are
+ * equal across channel groups (e.g. channel 5 on channel group 1 has the same priority as
+ * channel 5 on channel group 2;.
+ *
+ * In accordance with DLS level 1, channel 10 has the highest priority, followed by 1 through 16
+ * except for 10.
+ *)
+  DAUD_CHAN1_VOICE_PRIORITY_OFFSET    = $0000000E;
+  DAUD_CHAN2_VOICE_PRIORITY_OFFSET    = $0000000D;
+  DAUD_CHAN3_VOICE_PRIORITY_OFFSET    = $0000000C;
+  DAUD_CHAN4_VOICE_PRIORITY_OFFSET    = $0000000B;
+  DAUD_CHAN5_VOICE_PRIORITY_OFFSET    = $0000000A;
+  DAUD_CHAN6_VOICE_PRIORITY_OFFSET    = $00000009;
+  DAUD_CHAN7_VOICE_PRIORITY_OFFSET    = $00000008;
+  DAUD_CHAN8_VOICE_PRIORITY_OFFSET    = $00000007;
+  DAUD_CHAN9_VOICE_PRIORITY_OFFSET    = $00000006;
+  DAUD_CHAN10_VOICE_PRIORITY_OFFSET   = $0000000F;
+  DAUD_CHAN11_VOICE_PRIORITY_OFFSET   = $00000005;
+  DAUD_CHAN12_VOICE_PRIORITY_OFFSET   = $00000004;
+  DAUD_CHAN13_VOICE_PRIORITY_OFFSET   = $00000003;
+  DAUD_CHAN14_VOICE_PRIORITY_OFFSET   = $00000002;
+  DAUD_CHAN15_VOICE_PRIORITY_OFFSET   = $00000001;
+  DAUD_CHAN16_VOICE_PRIORITY_OFFSET   = $00000000;
+  DAUD_CHAN1_DEF_VOICE_PRIORITY   = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN1_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN2_DEF_VOICE_PRIORITY   = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN2_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN3_DEF_VOICE_PRIORITY   = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN3_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN4_DEF_VOICE_PRIORITY   = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN4_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN5_DEF_VOICE_PRIORITY   = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN5_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN6_DEF_VOICE_PRIORITY   = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN6_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN7_DEF_VOICE_PRIORITY   = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN7_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN8_DEF_VOICE_PRIORITY   = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN8_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN9_DEF_VOICE_PRIORITY   = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN9_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN10_DEF_VOICE_PRIORITY  = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN10_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN11_DEF_VOICE_PRIORITY  = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN11_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN12_DEF_VOICE_PRIORITY  = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN12_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN13_DEF_VOICE_PRIORITY  = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN13_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN14_DEF_VOICE_PRIORITY  = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN14_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN15_DEF_VOICE_PRIORITY  = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN15_VOICE_PRIORITY_OFFSET);
+  DAUD_CHAN16_DEF_VOICE_PRIORITY  = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN16_VOICE_PRIORITY_OFFSET);
 type
   IDirectMusicBuffer = interface;
-  IDirectMusicPort   = interface;
+  IDirectMusicPort = interface;
-  IDirectMusicThru   = interface;
+  IDirectMusicThru = interface;
-  IReferenceClock    = interface;
+  IReferenceClock = interface;
-  LPDIRECTMUSICBUFFER = IDirectMusicBuffer;
-  LPDIRECTMUSICPORT = IDirectMusicPort;
+  PIReferenceClock = IReferenceClock;
-  IDirectMusic = interface(IUnknown)
+  IDirectMusic = interface (IUnknown)
-    ['{6536115A-7B2D-11D2-BA18-0000F875AC12}']
+    ['{6536115a-7b2d-11d2-ba18-0000f875ac12}']
-    //  IDirectMusic
+    function EnumPort (dwIndex: DWORD;
-    function EnumPort(dwIndex: DWORD; var pPortCaps: TDMUS_PORTCAPS) : HResult; stdcall;
+                       var pPortCaps: TDMus_PortCaps) : HResult; stdcall;
-    function CreateMusicBuffer(const pBufferDesc: TDMUS_BUFFERDESC; out ppBuffer: IDirectMusicBuffer;
+    function CreateMusicBuffer (var pBufferDesc: TDMus_BufferDesc;
+                                out ppBuffer: IDirectMusicBuffer;
+                                pUnkOuter: IUnknown) : HResult; stdcall;
+    function CreatePort (const rclsidPort: TGUID;
+                         const pPortParams: TDMus_PortParams;
+                         out ppPort: IDirectMusicPort;
-                               pUnkOuter: IUnknown) : HResult; stdcall;
+                         pUnkOuter: IUnknown) : HResult; stdcall;
-    function CreatePort(const rclsidPort: TGUID; const pPortParams: TDMUS_PORTPARAMS;
+    function EnumMasterClock (dwIndex: DWORD;
-                        out ppPort: IDirectMusicPort; pUnkOuter: IUnknown) : HResult; stdcall;
+                              var lpClockInfo: TDMus_ClockInfo) : HResult; stdcall;
-    function EnumMasterClock(dwIndex: DWORD; var lpClockInfo: TDMUS_CLOCKINFO) : HResult; stdcall;
+    function GetMasterClock (pguidClock: PGUID;
-    function GetMasterClock(pguidClock: PGUID; out ppReferenceClock: IReferenceClock) : HResult; stdcall;
+                             ppReferenceClock : PIReferenceClock) : HResult; stdcall;
-    function SetMasterClock(const rguidClock: TGUID) : HResult; stdcall;
+    function SetMasterClock (const rguidClock: TGUID) : HResult; stdcall;
-    function Activate(fEnable: BOOL) : HResult; stdcall;
+    function Activate (fEnable: BOOL) : HResult; stdcall;
-    function GetDefaultPort(var pguidPort: TGUID) : HResult; stdcall;
+    function GetDefaultPort (out pguidPort: TGUID) : HResult; stdcall;
-    function SetDirectSound(pDirectSound: IDirectSound; hWnd: HWND) : HResult; stdcall;
+    function SetDirectSound (pDirectSound: IDirectSound;
+                             hWnd: HWND) : HResult; stdcall;
   end;
-  IDirectMusicBuffer = interface(IUnknown)
+  IDirectMusicBuffer = interface (IUnknown)
-    ['{D2AC2878-B39B-11D1-8704-00600893B1BD}']
+    ['{d2ac2878-b39b-11d1-8704-00600893b1bd}']
-    //  IDirectMusicBuffer
     function Flush : HResult; stdcall;
-    function TotalTime(var prtTime: TREFERENCE_TIME) : HResult; stdcall;
+    function TotalTime (out prtTime: TReference_Time) : HResult; stdcall;
-    function PackStructured(rt: TREFERENCE_TIME; dwChannelGroup: DWORD;
+    function PackStructured (const rt: TReference_Time;
+                             dwChannelGroup: DWORD;
-                            dwChannelMessage: DWORD) : HResult; stdcall;
+                             dwChannelMessage: DWORD ) : HResult; stdcall;
-    function PackUnstructured(rt: TREFERENCE_TIME; dwChannelGroup: DWORD;
+    function PackUnstructured (const rt: TReference_Time;
+                               dwChannelGroup: DWORD;
+                               cb: DWORD;
-                              cb: DWORD; const lpb) : HResult; stdcall;
+                               const lpb) : HResult; stdcall;
     function ResetReadPtr : HResult; stdcall;
-    function GetNextEvent(var prt: TREFERENCE_TIME; var pdwChannelGroup: DWORD;
+    function GetNextEvent (out prt: TReference_Time;
+                           out pdwChannelGroup: DWORD;
+                           out pdwLength: DWORD;
-                          var pdwLength: DWORD; var ppData: Pointer) : HResult; stdcall;
+                           out ppData: Pointer) : HResult; stdcall;
-    function GetRawBufferPtr(var ppData: Pointer) : HResult; stdcall;
+    function GetRawBufferPtr (out ppData: Pointer) : HResult; stdcall;
-    function GetStartTime(var prt: TREFERENCE_TIME) : HResult; stdcall;
+    function GetStartTime (out prt: TReference_Time) : HResult; stdcall;
-    function GetUsedBytes(var pcb: DWORD) : HResult; stdcall;
+    function GetUsedBytes (out pcb: DWORD) : HResult; stdcall;
-    function GetMaxBytes(var pcb: DWORD) : HResult; stdcall;
+    function GetMaxBytes (out pcb: DWORD) : HResult; stdcall;
-    function GetBufferFormat(var pGuidFormat: TGUID) : HResult; stdcall;
+    function GetBufferFormat (out pGuidFormat: TGUID) : HResult; stdcall;
-    function SetStartTime(rt: TREFERENCE_TIME) : HResult; stdcall;
+    function SetStartTime (const rt: TReference_Time) : HResult; stdcall;
-    function SetUsedBytes(cb: DWORD) : HResult; stdcall;
+    function SetUsedBytes (cb: DWORD) : HResult; stdcall;
   end;
-// Format of DirectMusic events in a buffer
+(* Format of DirectMusic events in a buffer
-//
+ *
-// A buffer contains 1 or more events, each with the following header.
+ * A buffer contains 1 or more events, each with the following header.
-// Immediately following the header is the event data. The header+data
+ * Immediately following the header is the event data. The header+data
-// size is rounded to the nearest quadword (8 bytes).
+ * size is rounded to the nearest quadword (8 bytes).
-///
+ *)
-  {TDMUS_EVENTHEADER = record
+  TDMus_EventHeader = packed record
-    cbEvent        : DWORD;                // Unrounded bytes in event
+    cbEvent:        DWORD;                   (* Unrounded bytes in event *)
-    dwChannelGroup : DWORD;                // Channel group of event
+    dwChannelGroup: DWORD;                   (* Channel group of event *)
-    rtDelta        : REFERENCE_TIME;       // Delta from start time of entire buffer
+    rtDelta:        TReference_Time;         (* Delta from start time of entire buffer *)
-    dwFlags        : DWORD;                // Flags DMUS_EVENT_xxx
+    dwFlags:        DWORD;                   (* Flags DMUS_EVENT_xxx *)
   end;
-  DMUS_EVENTHEADER   = TDMUS_EVENTHEADER;
-  LPDMUS_EVENTHEADER = ^TDMUS_EVENTHEADER;}
-  IDirectMusicInstrument = interface(IUnknown)
+  IDirectMusicInstrument = interface (IUnknown)
-    ['{D2AC287D-B39B-11D1-8704-00600893B1BD}']
+    ['{d2ac287d-b39b-11d1-8704-00600893b1bd}']
-    // IDirectMusicInstrument
-    function GetPatch(var pdwPatch: DWORD) : HResult; stdcall;
+    function GetPatch (out pdwPatch: DWORD ) : HResult; stdcall;
-    function SetPatch(dwPatch: DWORD) : HResult; stdcall;
+    function SetPatch (dwPatch: DWORD) : HResult; stdcall;
   end;
-  IDirectMusicDownloadedInstrument = interface(IUnknown)
+  IDirectMusicDownloadedInstrument = interface (IUnknown)
-    ['{D2AC287E-B39B-11D1-8704-00600893B1BD}']
+    ['{d2ac287e-b39b-11d1-8704-00600893b1bd}']
-    // IDirectMusicDownloadedInstrument
-    // None at this time
+    (* None at this time *)
   end;
-  IDirectMusicCollection = interface(IUnknown)
+  IDirectMusicCollection = interface (IUnknown)
-    ['{D2AC287C-B39B-11D1-8704-00600893B1BD}']
+    ['{d2ac287c-b39b-11d1-8704-00600893b1bd}']
-    // IDirectMusicCollection
+    function GetInstrument (dwPatch: DWORD;
-    function GetInstrument(dwPatch: DWORD; out ppInstrument: IDirectMusicInstrument) : HResult; stdcall;
+                            out ppInstrument: IDirectMusicInstrument) : HResult; stdcall;
-    function EnumInstrument(dwIndex: DWORD; var pdwPatch: DWORD;
+    function EnumInstrument (dwIndex: DWORD;
+                             out pdwPatch: DWORD;
+                             pwszName: LPWSTR;
-                            pwszName: LPWSTR; dwNameLen: DWORD) : HResult; stdcall;
+                             dwNameLen: DWORD) : HResult; stdcall;
   end;
-  IDirectMusicDownload = interface(IUnknown)
+  IDirectMusicDownload = interface (IUnknown)
-    ['{D2AC287B-B39B-11D1-8704-00600893B1BD}']
+    ['{d2ac287b-b39b-11d1-8704-00600893b1bd}']
-    // IDirectMusicDownload
+    function GetBuffer (out ppvBuffer: Pointer;
-    function GetBuffer(var ppvBuffer: Pointer; var pdwSize: DWORD) : HResult; stdcall;
+                        out pdwSize: DWORD) : HResult; stdcall;
   end;
-  IDirectMusicPortDownload = interface(IUnknown)
+  IDirectMusicPortDownload = interface (IUnknown)
-    ['{D2AC287A-B39B-11D1-8704-00600893B1BD}']
+    ['{d2ac287a-b39b-11d1-8704-00600893b1bd}']
-    // IDirectMusicPortDownload
+    function GetBuffer (dwDLId: DWORD;
-    function GetBuffer(dwDLId: DWORD; out ppIDMDownload: IDirectMusicDownload) : HResult; stdcall;
+                        out ppIDMDownload: IDirectMusicDownload) : HResult; stdcall;
+    function AllocateBuffer (dwSize: DWORD;
-    function AllocateBuffer(dwSize: DWORD; out ppIDMDownload: IDirectMusicDownload) : HResult; stdcall;
+                             out ppIDMDownload: IDirectMusicDownload) : HResult; stdcall;
+    function GetDLId (out pdwStartDLId: DWORD;
-    function GetDLId(var pdwStartDLId; dwCount: DWORD) : HResult; stdcall;
+                      dwCount: DWORD) : HResult; stdcall;
-    function GetAppend(var pdwAppend: DWORD) : HResult; stdcall;
+    function GetAppend (out pdwAppend: DWORD) : HResult; stdcall;
-    function Download(pIDMDownload: IDirectMusicDownload) : HResult; stdcall;
+    function Download (pIDMDownload: IDirectMusicDownload) : HResult; stdcall;
     function Unload(pIDMDownload: IDirectMusicDownload) : HResult; stdcall;
   end;
-// These are the default priorities assigned if not overridden. By default priorities are
-// equal across channel groups (e.g. channel 5 on channel group 1 has the same priority as
-// channel 5 on channel group 2).
-//
-// In accordance with DLS level 1, channel 10 has the highest priority, followed by 1 through 16
-// except for 10.
-///
-  IDirectMusicPort = interface(IUnknown)
+  IDirectMusicPort = interface (IUnknown)
-    ['{08F2D8C9-37C2-11D2-B9F9-0000F875AC12}']
+    ['{08f2d8c9-37c2-11d2-b9f9-0000f875ac12}']
-    //  IDirectMusicPort
-    //
-    function PlayBuffer(pBuffer: IDirectMusicBuffer) : HResult; stdcall;
+    function PlayBuffer (pBuffer: IDirectMusicBuffer) : HResult; stdcall;
-    function SetReadNotificationHandle(hEvent: THandle) : HResult; stdcall;
+    function SetReadNotificationHandle (hEvent: THANDLE) : HResult; stdcall;
-    function Read(pBuffer: IDirectMusicBuffer) : HResult; stdcall;
+    function Read (pBuffer: IDirectMusicBuffer) : HResult; stdcall;
-    function DownloadInstrument(pInstrument: IDirectMusicInstrument;
+    function DownloadInstrument (pInstrument: IDirectMusicInstrument;
-                                out ppDownloadedInstrument: IDirectMusicDownloadedInstrument;
+                                 out ppDownloadedInstrument: IDirectMusicDownloadedInstrument;
-                                const pNoteRanges;
+                                 pNoteRanges: PDMus_NoteRange;
-                                dwNumNoteRanges: DWORD) : HResult; stdcall;
+                                 dwNumNoteRanges: DWORD) : HResult; stdcall;
-    function UnloadInstrument(pDownloadedInstrument: IDirectMusicDownloadedInstrument) : HResult; stdcall;
+    function UnloadInstrument (pDownloadedInstrument: IDirectMusicDownloadedInstrument) : HResult; stdcall;
-    function GetLatencyClock(out ppClock: IReferenceClock) : HResult; stdcall;
+    function GetLatencyClock (out ppClock: IReferenceClock) : HResult; stdcall;
-    function GetRunningStats(var pStats: TDMUS_SYNTHSTATS) : HResult stdcall;
+    function GetRunningStats (var pStats: TDMus_SynthStats) : HResult; stdcall;
     function Compact : HResult; stdcall;
-    function GetCaps(var pPortCaps: TDMUS_PORTCAPS) : HResult; stdcall;
+    function GetCaps (var pPortCaps: TDMus_PortCaps) : HResult; stdcall;
-    function DeviceIoControl(dwIoControlCode: DWORD;
+    function DeviceIoControl (dwIoControlCode: DWORD;
-                             const lpInBuffer;
+                              const lpInBuffer;
-                             nInBufferSize: DWORD;
+                              nInBufferSize: DWORD;
-                             var lpOutBuffer;
+                              out lpOutBuffer;
-                             nOutBufferSize: DWORD;
+                              nOutBufferSize: DWORD;
-                             var lpBytesReturned: DWORD;
+                              out lpBytesReturned: DWORD;
-                             var lpOverlapped: TOVERLAPPED) : HResult; stdcall;
+                              var lpOverlapped: TOVERLAPPED) : HResult; stdcall;
-    function SetNumChannelGroups(dwChannelGroups: DWORD) : HResult; stdcall;
+    function SetNumChannelGroups (dwChannelGroups: DWORD) : HResult; stdcall;
-    function GetNumChannelGroups(var pdwChannelGroups: DWORD) : HResult; stdcall;
+    function GetNumChannelGroups (out pdwChannelGroups: DWORD) : HResult; stdcall;
-    function Activate(fActive: BOOL) : HResult; stdcall;
+    function Activate (fActive: BOOL) : HResult; stdcall;
-    function SetChannelPriority(dwChannelGroup: DWORD; dwChannel:  DWORD; dwPriority: DWORD) : HResult; stdcall;
+    function SetChannelPriority (dwChannelGroup, dwChannel,
+                                 dwPriority: DWORD) : HResult; stdcall;
-    function GetChannelPriority(dwChannelGroup: DWORD; dwChannel: DWORD; var pdwPriority: DWORD) : HResult; stdcall;
+    function GetChannelPriority (dwChannelGroup, dwChannel: DWORD;
+                                 out pdwPriority: DWORD) : HResult; stdcall;
+    function SetDirectSound (pDirectSound: IDirectSound;
-    function SetDirectSound(pDirectSound: IDirectSound; pDirectSoundBuffer: IDirectSoundBuffer) : HResult; stdcall;
+                             pDirectSoundBuffer: IDirectSoundBuffer) : HResult; stdcall;
+    function GetFormat (pWaveFormatEx: PWaveFormatEx;
+                        var pdwWaveFormatExSize: DWORD;
-    function GetFormat(var pWaveFormatEx: TWAVEFORMATEX; var pdwWaveFormatExSize: DWORD; var pdwBufferSize: DWORD) : HResult; stdcall;
+                        out pdwBufferSize: DWORD) : HResult; stdcall;
-  end;
+end;
-  IDirectMusicThru = interface(IUnknown)
+  IDirectMusicThru = interface (IUnknown)
-    ['{CED153E7-3606-11D2-B9F9-0000F875AC12}']
+    ['{ced153e7-3606-11d2-b9f9-0000f875ac12}']
-    // IDirectMusicThru
-    ///
-    function ThruChannel(dwSourceChannelGroup: DWORD;
+    function ThruChannel (dwSourceChannelGroup,
-                         dwSourceChannel: DWORD;
+                          dwSourceChannel,
-                         dwDestinationChannelGroup: DWORD;
+                          dwDestinationChannelGroup,
-                         dwDestinationChannel: DWORD;
+                          dwDestinationChannel: DWORD;
-                         pDestinationPort: IDirectMusicPort) : HResult; stdcall;
+                          pDestinationPort: IDirectMusicPort) : HResult; stdcall;
   end;
-  IReferenceClock = interface(IUnknown)
-    ['{56A86897-0AD4-11CE-B03A-0020AF0BA770}']
-    //  IReferenceClock
-    //
-    //  get the time now
-    function GetTime(var pTime: TREFERENCE_TIME) : HResult; stdcall;
+  IReferenceClock = interface (IUnknown)
+    ['{56a86897-0ad4-11ce-b03a-0020af0ba770}']
+    (*  get the time now *)
+    function GetTime (out pTime: TReference_Time) : HResult; stdcall;
-    //  ask for an async notification that a time has elapsed
+    (*  ask for an async notification that a time has elapsed *)
-    function AdviseTime(baseTime: TREFERENCE_TIME;         //  base time
+    function AdviseTime (const baseTime,                  (*  base time *)
-                        streamTime: TREFERENCE_TIME;       //  stream offset time
+                         streamTime: TReference_Time;     (*  stream offset time *)
-                        hEvent: THandle;                   //  advise via this event
+                         hEvent: THANDLE;                 (*  advise via this event *)
-                        var pdwAdviseCookie: DWORD) : HResult; stdcall;   //  where your cookie goes
+                         var pdwAdviseCookie: DWORD) : HResult; stdcall;   (*  where your cookie goes *)
-    //  ask for an async periodic notification that a time has elapsed
+    (*  ask for an async periodic notification that a time has elapsed *)
-    function AdvisePeriodic(startTime: REFERENCE_TIME;        //  starting at this time
+    function AdvisePeriodic (const startTime,                  (*  starting at this time *)
-                            periodTime: REFERENCE_TIME;       //  time between notifications
+                             periodTime: TReference_Time;      (*  time between notifications *)
-                            hSemaphore: THandle;              //  advise via a semaphore
+                             hSemaphore: THANDLE;              (*  advise via a semaphore *)
-                            var pdwAdviseCookie: DWORD) : HResult; stdcall;   //  where your cookie goes
+                             var pdwAdviseCookie: DWORD) : HResult; stdcall;   (*  where your cookie goes *)
-    //  cancel a request for notification
+    (*  cancel a request for notification *)
-    function Unadvise(dwAdviseCookie: DWORD) : HResult; stdcall;
+    function Unadvise (dwAdviseCookie: DWORD) : HResult; stdcall;
   end;
-// DelphiÌ«iãAé¾ðÚ®³¹½àÌBinterfaceAclass^Ìforwardé¾Í¯¶typejbgàÅÄé¾³êÈÄÍÈçÈ¢I
-//const
+type
-// Format of DirectMusic events in a buffer
+  IID_IDirectMusic = IDirectMusic;
-//
-// A buffer contains 1 or more events, each with the following header.
+  IID_IDirectMusicBuffer = IDirectMusicBuffer;
-// Immediately following the header is the event data. The header+data
-// size is rounded to the nearest quadword (8 bytes).
+  IID_IDirectMusicPort = IDirectMusicPort;
-///
-  //DMUS_EVENT_STRUCTURED = $00000001;  // Unstructured data (SysEx, etc.)
+  IID_IDirectMusicThru = IDirectMusicThru;
-// The number of bytes to allocate for an event with 'cb' data bytes.
+  IID_IDirectMusicPortDownload = IDirectMusicPortDownload;
-///
-  //function QWORD_ALIGN(x: Cardinal) : Cardinal;
+  IID_IDirectMusicDownload = IDirectMusicDownload;
-  //function DMUS_EVENT_SIZE(cb: Cardinal) : Cardinal;
+  IID_IDirectMusicCollection = IDirectMusicCollection;
-// Standard values for voice priorities. Numerically higher priorities are higher in priority.
-// These priorities are used to set the voice priority for all voices on a channel. They are
+  IID_IDirectMusicInstrument = IDirectMusicInstrument;
-// used in the dwPriority parameter of IDirectMusicPort::GetPriority and returned in the
+  IID_IDirectMusicDownloadedInstrument = IDirectMusicDownloadedInstrument;
-// lpwPriority parameter of pdwPriority.
-//
-// These priorities are shared with DirectSound.
+  IID_IReferenceClock = IReferenceClock;
-///
 const
-  DAUD_CRITICAL_VOICE_PRIORITY = $F0000000;
-  DAUD_HIGH_VOICE_PRIORITY     = $C0000000;
-  DAUD_STANDARD_VOICE_PRIORITY = $80000000;
-  DAUD_LOW_VOICE_PRIORITY      = $40000000;
-  DAUD_PERSIST_VOICE_PRIORITY  = $10000000;
-// These are the default priorities assigned if not overridden. By default priorities are
-// equal across channel groups (e.g. channel 5 on channel group 1 has the same priority as
-// channel 5 on channel group 2).
-//
-// In accordance with DLS level 1, channel 10 has the highest priority, followed by 1 through 16
-// except for 10.
-///
-  DAUD_CHAN1_VOICE_PRIORITY_OFFSET = $0000000E;
-  DAUD_CHAN2_VOICE_PRIORITY_OFFSET = $0000000D;
-  DAUD_CHAN3_VOICE_PRIORITY_OFFSET = $0000000C;
-  DAUD_CHAN4_VOICE_PRIORITY_OFFSET = $0000000B;
-  DAUD_CHAN5_VOICE_PRIORITY_OFFSET = $0000000A;
-  DAUD_CHAN6_VOICE_PRIORITY_OFFSET = $00000009;
-  DAUD_CHAN7_VOICE_PRIORITY_OFFSET = $00000008;
-  DAUD_CHAN8_VOICE_PRIORITY_OFFSET = $00000007;
+  CLSID_DirectMusic: TGUID = '{636b9f10-0c7d-11d1-95b2-0020afdc7421}';
-  DAUD_CHAN9_VOICE_PRIORITY_OFFSET = $00000006;
-  DAUD_CHAN10_VOICE_PRIORITY_OFFSET = $0000000F;
-  DAUD_CHAN11_VOICE_PRIORITY_OFFSET = $00000005;
-  DAUD_CHAN12_VOICE_PRIORITY_OFFSET = $00000004;
-  DAUD_CHAN13_VOICE_PRIORITY_OFFSET = $00000003;
-  DAUD_CHAN14_VOICE_PRIORITY_OFFSET = $00000002;
-  DAUD_CHAN15_VOICE_PRIORITY_OFFSET = $00000001;
-  DAUD_CHAN16_VOICE_PRIORITY_OFFSET = $00000000;
-  DAUD_CHAN1_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN1_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN2_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN2_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN3_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN3_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN4_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN4_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN5_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN5_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN6_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN6_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN7_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN7_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN8_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN8_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN9_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN9_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN10_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN10_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN11_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN11_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN12_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN12_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN13_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN13_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN14_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN14_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN15_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN15_VOICE_PRIORITY_OFFSET);
-  DAUD_CHAN16_DEF_VOICE_PRIORITY = (DAUD_STANDARD_VOICE_PRIORITY or DAUD_CHAN16_VOICE_PRIORITY_OFFSET);
-//GUID definition
-  IID_IReferenceClock         : TGUID = '{56A86897-0AD4-11CE-B03A-0020AF0BA770}';
-  CLSID_DirectMusic           : TGUID = '{636B9F10-0C7D-11D1-95B2-0020AFDC7421}';
-  CLSID_DirectMusicCollection : TGUID = '{480FF4B0-28B2-11D1-BEF7-00C04FBF8FEF}';
+  CLSID_DirectMusicCollection: TGUID = '{480ff4b0-28b2-11d1-bef7-00c04fbf8fef}';
-  CLSID_DirectMusicSynth      : TGUID = '{58C2B4D0-46E7-11D1-89AC-00A0C9054129}';
+  CLSID_DirectMusicSynth: TGUID = '{58C2B4D0-46E7-11D1-89AC-00A0C9054129}';
-  IID_IDirectMusic            : TGUID = '{6536115A-7B2D-11D2-BA18-0000F875AC12}';
-  IID_IDirectMusicBuffer      : TGUID = '{D2AC2878-B39B-11D1-8704-00600893B1BD}';
-  IID_IDirectMusicPort        : TGUID = '{08F2D8C9-37C2-11D2-B9F9-0000F875AC12}';
-  IID_IDirectMusicThru        : TGUID = '{CED153E7-3606-11D2-B9F9-0000F875AC12}';
-  IID_IDirectMusicPortDownload: TGUID = '{D2AC287A-B39B-11D1-8704-00600893B1BD}';
-  IID_IDirectMusicDownload    : TGUID = '{D2AC287B-B39B-11D1-8704-00600893B1BD}';
-  IID_IDirectMusicCollection  : TGUID = '{D2AC287C-B39B-11D1-8704-00600893B1BD}';
-  IID_IDirectMusicInstrument  : TGUID = '{D2AC287D-B39B-11D1-8704-00600893B1BD}';
-  IID_IDirectMusicDownloadedInstrument: TGUID = '{D2AC287E-B39B-11D1-8704-00600893B1BD}';
-// Alternate interface ID for IID_IDirectMusic, available in DX7 release and after.
-  IID_IDirectMusic2           : TGUID = '{6FC2CAE1-BC78-11D2-AFA6-00AA0024D8B6}';
-// Property Query GUID_DMUS_PROP_GM_Hardware - Local GM set, no need to download
+(* Property Query GUID_DMUS_PROP_GM_Hardware - Local GM set, no need to download
-// Property Query GUID_DMUS_PROP_GS_Hardware - Local GS set, no need to download
+ * Property Query GUID_DMUS_PROP_GS_Hardware - Local GS set, no need to download
-// Property Query GUID_DMUS_PROP_XG_Hardware - Local XG set, no need to download
+ * Property Query GUID_DMUS_PROP_XG_Hardware - Local XG set, no need to download
-// Property Query GUID_DMUS_PROP_DLS1        - Support DLS level 1
+ * Property Query GUID_DMUS_PROP_DLS1        - Support DLS level 1
-// Property Query GUID_DMUS_PROP_XG_Capable  - Support minimum requirements of XG
+ * Property Query GUID_DMUS_PROP_XG_Capable  - Support minimum requirements of XG
-// Property Query GUID_DMUS_PROP_GS_Capable  - Support minimum requirements of GS
+ * Property Query GUID_DMUS_PROP_GS_Capable  - Support minimum requirements of GS
-// Property Query GUID_DMUS_PROP_SynthSink_DSOUND - Synthsink talks to DSound
+ * Property Query GUID_DMUS_PROP_SynthSink_DSOUND - Synthsink talks to DSound
-// Property Query GUID_DMUS_PROP_SynthSink_WAVE - Synthsink talks to Wave device
+ * Property Query GUID_DMUS_PROP_SynthSink_WAVE - Synthsink talks to Wave device
-//
+ *
-// Item 0: Supported
+ * Item 0: Supported
-// Returns a DWORD which is non-zero if the feature is supported
+ * Returns a DWORD which is non-zero if the feature is supported
-///
+ *)
-  GUID_DMUS_PROP_GM_Hardware     : TGUID = '{178F2F24-C364-11D1-A760-0000F875AC12}';
+  GUID_DMUS_PROP_GM_Hardware: TGUID = '{178f2f24-c364-11d1-a760-0000f875ac12}';
-  GUID_DMUS_PROP_GS_Hardware     : TGUID = '{178F2F25-C364-11D1-A760-0000F875AC12}';
+  GUID_DMUS_PROP_GS_Hardware: TGUID = '{178f2f25-c364-11d1-a760-0000f875ac12}';
-  GUID_DMUS_PROP_XG_Hardware     : TGUID = '{178F2F26-C364-11D1-A760-0000F875AC12}';
+  GUID_DMUS_PROP_XG_Hardware: TGUID = '{178f2f26-c364-11d1-a760-0000f875ac12}';
-  GUID_DMUS_PROP_XG_Capable      : TGUID = '{6496ABA1-61B0-11D2-AFA6-00AA0024D8B6}';
+  GUID_DMUS_PROP_XG_Capable: TGUID = '{6496aba1-61b0-11d2-afa6-00aa0024d8b6}';
-  GUID_DMUS_PROP_GS_Capable      : TGUID = '{6496ABA2-61B0-11D2-AFA6-00AA0024D8B6}';
+  GUID_DMUS_PROP_GS_Capable: TGUID = '{6496aba2-61b0-11d2-afa6-00aa0024d8b6}';
-  GUID_DMUS_PROP_DLS1            : TGUID = '{178F2F27-C364-11D1-A760-0000F875AC12}';
+  GUID_DMUS_PROP_DLS1: TGUID = '{178f2f27-c364-11d1-a760-0000f875ac12}';
-  GUID_DMUS_PROP_SynthSink_DSOUND: TGUID = '{0AA97844-C877-11D1-870C-00600893B1BD}';
+  GUID_DMUS_PROP_DLS2: TGUID = '{f14599e5-4689-11d2-afa6-00aa0024d8b6}';
-  GUID_DMUS_PROP_SynthSink_WAVE  : TGUID = '{0AA97845-C877-11D1-870C-00600893B1BD}';
+  GUID_DMUS_PROP_INSTRUMENT2: TGUID = '{865fd372-9f67-11d2-872a-00600893b1bd}';
-// Property Get/Set GUID_DMUS_PROP_WriteLatency
+  GUID_DMUS_PROP_SynthSink_DSOUND: TGUID = '{0aa97844-c877-11d1-870c-00600893b1bd}';
-//
-// Item 0: Synth buffer write latency, in milliseconds
+  GUID_DMUS_PROP_SynthSink_WAVE: TGUID = '{0aa97845-c877-11d1-870c-00600893b1bd}';
-// Get/Set SynthSink latency, the average time after the play head that the next buffer gets written.
+  GUID_DMUS_PROP_SampleMemorySize: TGUID = '{178f2f28-c364-11d1-a760-0000f875ac12}';
-///
-  GUID_DMUS_PROP_WriteLatency    : TGUID = '{268A0FA0-60F2-11D2-AFA6-00AA0024D8B6}';
+  GUID_DMUS_PROP_SamplePlaybackRate: TGUID = '{2a91f713-a4bf-11d2-bbdf-00600833dbd8}';
-// Property Get/Set GUID_DMUS_PROP_WritePeriod
+(* Property Get/Set GUID_DMUS_PROP_WriteLatency
-//
+ *
-// Item 0: Synth buffer write period, in milliseconds
+ * Item 0: Synth buffer write latency, in milliseconds
-// Get/Set SynthSink buffer write period, time span between successive writes.
+ * Get/Set SynthSink latency, the average time after the play head that the next buffer gets written.
-///
+ *)
-  GUID_DMUS_PROP_WritePeriod     : TGUID = '{268A0FA1-60F2-11D2-AFA6-00AA0024D8B6}';
+  GUID_DMUS_PROP_WriteLatency: TGUID = '{268a0fa0-60f2-11d2-afa6-00aa0024d8b6}';
-// Property Get GUID_DMUS_PROP_MemorySize
+(* Property Get/Set GUID_DMUS_PROP_WritePeriod
-//
+ *
-// Item 0: Memory size
+ * Item 0: Synth buffer write period, in milliseconds
-// Returns a DWORD containing the total number of bytes of sample RAM
+ * Get/Set SynthSink buffer write period, time span between successive writes.
-///
+ *)
-  GUID_DMUS_PROP_MemorySize      : TGUID = '{178F2F28-C364-11D1-A760-0000F875AC12}';
+  GUID_DMUS_PROP_WritePeriod: TGUID = '{268a0fa1-60f2-11d2-afa6-00aa0024d8b6}';
-// Property Set GUID_DMUS_PROP_WavesReverb
+(* Property Get GUID_DMUS_PROP_MemorySize
-//
+ *
-// Item 0: DMUS_WAVES_REVERB structure
+ * Item 0: Memory size
-// Sets reverb parameters
+ * Returns a DWORD containing the total number of bytes of sample RAM
-///
+ *)
-  GUID_DMUS_PROP_WavesReverb     : TGUID = '{04CB5622-32E5-11D2-AFA6-00AA0024D8B6}';
+  GUID_DMUS_PROP_MemorySize: TGUID = '{178f2f28-c364-11d1-a760-0000f875ac12}';
-// Property Set GUID_DMUS_PROP_Effects
+(* Property Set GUID_DMUS_PROP_WavesReverb
-//
+ *
-// Item 0: DWORD with effects flags.
+ * Item 0: DMUS_WAVES_REVERB structure
-// Get/Set effects bits, same as dwEffectFlags in DMUS_PORTPARAMS and DMUS_PORTCAPS:
-// DMUS_EFFECT_NONE
-// DMUS_EFFECT_REVERB
-// DMUS_EFFECT_CHORUS
+ * Sets reverb parameters
-///
+ *)
-  GUID_DMUS_PROP_Effects         : TGUID = '{CDA8D611-684A-11D2-871E-00600893B1BD}';
+  GUID_DMUS_PROP_WavesReverb: TGUID = '{04cb5622-32e5-11d2-afa6-00aa0024d8b6}';
-// Property Set GUID_DMUS_PROP_LegacyCaps
+(* Property Set GUID_DMUS_PROP_Effects
-//
+ *
+ * Item 0: DWORD with effects flags.
-// Item 0: The MIDINCAPS or MIDIOUTCAPS which describes the port's underlying WinMM device. This property is only supported
+ * Get/Set effects bits, same as dwEffectFlags in DMUS_PORTPARAMS and DMUS_PORTCAPS:
+ * DMUS_EFFECT_NONE
+ * DMUS_EFFECT_REVERB
-// by ports which wrap WinMM devices.
+ * DMUS_EFFECT_CHORUS
-///
+ *)
+  GUID_DMUS_PROP_Effects: TGUID = '{cda8d611-684a-11d2-871e-00600893b1bd}';
+(* Property Set GUID_DMUS_PROP_LegacyCaps
+ *
-  GUID_DMUS_PROP_LegacyCaps      : TGUID = '{CFA7CDC2-00A1-11D2-AAD5-0000F875AC12}';
+ * Item 0: The MIDINCAPS or MIDIOUTCAPS which describes the port's underlying WinMM device. This property is only supported
+ * by ports which wrap WinMM devices.
+ *)
-// Property Set GUID_DMUS_Volume
-//
-// Item 0: A long which contains an offset, in 1/100 dB, to be added to the final volume
-//
-///
-  GUID_DMUS_PROP_Volume          : TGUID = '{FEDFAE25-E46E-11D1-AACE-0000F875AC12}';
+  GUID_DMUS_PROP_LegacyCaps: TGUID = '{cfa7cdc2-00a1-11d2-aad5-0000f875ac12}';
+(* Property Set GUID_DMUS_Volume
+ *
+ * Item 0: A long which contains an offset, in 1/100 dB, to be added to the final volume
+ *
+ *)
+  GUID_DMUS_PROP_Volume: TGUID = '{fedfae25-e46e-11d1-aace-0000f875ac12}';
+(* Min and Max values for setting volume with GUID_DMUS_PROP_Volume *)
+  DMUS_VOLUME_MAX =    2000;        (* +20 dB *)
+  DMUS_VOLUME_MIN =  -20000;        (* -200 dB *)
+(************************************************************************
+*                                                                       *
+*   dmusici.h -- This module contains the API for the                   *
+*                DirectMusic performance layer                          *
+*                                                                       *
+*   Copyright (c) 1998, Microsoft Corp. All rights reserved.            *
+*                                                                       *
+************************************************************************)
-//***********************************************************************
-//                                                                      *
-//   dmusici.h -- This module contains the API for the                  *
-//                DirectMusic performance layer                         *
-//                                                                      *
-//   Copyright (c) 1998, Microsoft Corp. All rights reserved.           *
-//                                                                      *
-//**********************************************************************
 type
-  TRANSITION_TYPE = Word;
+  TTransition_Type = WORD;
-  MUSIC_TIME      = Longint;
+  PMusic_Time = ^TMusic_Time;
-const
-  DMUS_PPQ        = 768;     // parts per quarter note
+  TMusic_Time = LongInt;
 const
-  DMUS_MAX_NAME          = 64;         // Maximum object name length.
+  DMUS_PPQ       = 768;     (* parts per quarter note *)
-  DMUS_MAX_CATEGORY      = 64;         // Maximum object category name length.
-  DMUS_MAX_FILENAME      = MAX_PATH;
+type
+  TDMus_CommandT_Types = (
+    DMUS_COMMANDT_GROOVE,
+    DMUS_COMMANDT_FILL  ,
+    DMUS_COMMANDT_INTRO ,
+    DMUS_COMMANDT_BREAK ,
+    DMUS_COMMANDT_END   ,
+    DMUS_COMMANDT_ENDANDINTRO
+  );
+  TDMus_ShapeT_Types = (
+    DMUS_SHAPET_FALLING ,
+    DMUS_SHAPET_LEVEL   ,
+    DMUS_SHAPET_LOOPABLE,
+    DMUS_SHAPET_LOUD    ,
+    DMUS_SHAPET_QUIET   ,
+    DMUS_SHAPET_PEAKING ,
+    DMUS_SHAPET_RANDOM  ,
+    DMUS_SHAPET_RISING  ,
+    DMUS_SHAPET_SONG
+  );
+type
+  TDMus_ComposeF_Flags = DWORD;
 const
-  DMUS_COMMANDT_GROOVE            = 0;
-  DMUS_COMMANDT_FILL              = 1;
-  DMUS_COMMANDT_INTRO             = 2;
-  DMUS_COMMANDT_BREAK             = 3;
-  DMUS_COMMANDT_END               = 4;
-  DMUS_COMMANDT_ENDANDINTRO       = 5;
-{typedef enum enumDMUS_COMMANDT_TYPES
-{
-    DMUS_COMMANDT_GROOVE            = 0,
-    DMUS_COMMANDT_FILL              = 1,
-    DMUS_COMMANDT_INTRO             = 2,
-    DMUS_COMMANDT_BREAK             = 3,
-    DMUS_COMMANDT_END               = 4,
-    DMUS_COMMANDT_ENDANDINTRO       = 5
- DMUS_COMMANDT_TYPES;}
-  DMUS_SHAPET_FALLING             = 0;
-  DMUS_SHAPET_LEVEL               = 1;
-  DMUS_SHAPET_LOOPABLE            = 2;
-  DMUS_SHAPET_LOUD                = 3;
-  DMUS_SHAPET_QUIET               = 4;
-  DMUS_SHAPET_PEAKING             = 5;
-  DMUS_SHAPET_RANDOM              = 6;
-  DMUS_SHAPET_RISING              = 7;
-  DMUS_SHAPET_SONG                = 8;
-{typedef enum enumDMUS_SHAPET_TYPES
-{
-    DMUS_SHAPET_FALLING             = 0,
-    DMUS_SHAPET_LEVEL               = 1,
-    DMUS_SHAPET_LOOPABLE            = 2,
-    DMUS_SHAPET_LOUD                = 3,
-    DMUS_SHAPET_QUIET               = 4,
-    DMUS_SHAPET_PEAKING             = 5,
-    DMUS_SHAPET_RANDOM              = 6,
-    DMUS_SHAPET_RISING              = 7,
-    DMUS_SHAPET_SONG                = 8
-   DMUS_SHAPET_TYPES;}
   DMUS_COMPOSEF_NONE              = 0;
   DMUS_COMPOSEF_ALIGN             = $1;
   DMUS_COMPOSEF_OVERLAP           = $2;
   DMUS_COMPOSEF_IMMEDIATE         = $4;
   DMUS_COMPOSEF_GRID              = $8;
   DMUS_COMPOSEF_BEAT              = $10;
   DMUS_COMPOSEF_MEASURE           = $20;
   DMUS_COMPOSEF_AFTERPREPARETIME  = $40;
   DMUS_COMPOSEF_MODULATE          = $1000;
   DMUS_COMPOSEF_LONG              = $2000;
-{typedef enum enumDMUS_COMPOSEF_FLAGS
-{
-    DMUS_COMPOSEF_NONE              = 0,
-    DMUS_COMPOSEF_ALIGN             = 0x1,
-    DMUS_COMPOSEF_OVERLAP           = 0x2,
-    DMUS_COMPOSEF_IMMEDIATE         = 0x4,
-    DMUS_COMPOSEF_GRID              = 0x8,
-    DMUS_COMPOSEF_BEAT              = 0x10,
-    DMUS_COMPOSEF_MEASURE           = 0x20,
-    DMUS_COMPOSEF_AFTERPREPARETIME  = 0x40,
-    DMUS_COMPOSEF_MODULATE          = 0x1000,
-    DMUS_COMPOSEF_LONG              = 0x2000
-   DMUS_COMPOSEF_FLAGS;}
-const
-// DMUS_PMSGF_FLAGS fill the DMUS_PMSG's dwFlags member
-  DMUS_PMSGF_REFTIME          = 1;      // if rtTime is valid
-  DMUS_PMSGF_MUSICTIME        = 2;      // if mtTime is valid
-  DMUS_PMSGF_TOOL_IMMEDIATE   = 4;      // if PMSG should be processed immediately
-  DMUS_PMSGF_TOOL_QUEUE       = 8;      // if PMSG should be processed a little early, at Queue time
-  DMUS_PMSGF_TOOL_ATTIME      = 16;     // if PMSG should be processed at the time stamp
-  DMUS_PMSGF_TOOL_FLUSH       = 32;     // if PMSG is being flushed
-  // The values of DMUS_TIME_RESOLVE_FLAGS may also be used inside the
-  // DMUS_PMSG's dwFlags member.
-type
-  TDMUS_PMSGF_FLAGS    = Cardinal;
-  DMUS_PMSGF_FLAGS     = TDMUS_PMSGF_FLAGS;
-{typedef enum enumDMUS_PMSGF_FLAGS
-{
-    DMUS_PMSGF_REFTIME          = 1,      /* if rtTime is valid
-    DMUS_PMSGF_MUSICTIME        = 2,      /* if mtTime is valid
-    DMUS_PMSGF_TOOL_IMMEDIATE   = 4,      /* if PMSG should be processed immediately
-    DMUS_PMSGF_TOOL_QUEUE       = 8,      /* if PMSG should be processed a little early, at Queue time
-    DMUS_PMSGF_TOOL_ATTIME      = 16,     /* if PMSG should be processed at the time stamp
-    DMUS_PMSGF_TOOL_FLUSH       = 32      /* if PMSG is being flushed
-    /* The values of DMUS_TIME_RESOLVE_FLAGS may also be used inside the
-    /* DMUS_PMSG's dwFlags member.
- DMUS_PMSGF_FLAGS;}
-const
-// DMUS_PMSGT_TYPES fill the DMUS_PMSG's dwType member
-  DMUS_PMSGT_MIDI             = 0;      // MIDI short message
-  DMUS_PMSGT_NOTE             = 1;      // Interactive Music Note
-  DMUS_PMSGT_SYSEX            = 2;      // MIDI long message (system exclusive message)
-  DMUS_PMSGT_NOTIFICATION     = 3;      // Notification message
-  DMUS_PMSGT_TEMPO            = 4;      // Tempo message
-  DMUS_PMSGT_CURVE            = 5;      // Control change / pitch bend, etc. curve
-  DMUS_PMSGT_TIMESIG          = 6;      // Time signature
-  DMUS_PMSGT_PATCH            = 7;      // Patch changes
-  DMUS_PMSGT_TRANSPOSE        = 8;      // Transposition messages
-  DMUS_PMSGT_CHANNEL_PRIORITY = 9;      // Channel priority
-  DMUS_PMSGT_STOP             = 10;     // Stop message
-  DMUS_PMSGT_DIRTY            = 11;     // Tells Tools that cache GetParam() info to refresh
-  DMUS_PMSGT_USER             = 255;    // User message
-type
-  TDMUS_PMSGT_TYPES = Cardinal;
-  DMUS_PMSGT_TYPES  = TDMUS_PMSGT_TYPES;
-{typedef enum enumDMUS_PMSGT_TYPES
-{
-    DMUS_PMSGT_MIDI             = 0,      /* MIDI short message
-    DMUS_PMSGT_NOTE             = 1,      /* Interactive Music Note
-    DMUS_PMSGT_SYSEX            = 2,      /* MIDI long message (system exclusive message)
-    DMUS_PMSGT_NOTIFICATION     = 3,      /* Notification message
-    DMUS_PMSGT_TEMPO            = 4,      /* Tempo message
-    DMUS_PMSGT_CURVE            = 5,      /* Control change / pitch bend, etc. curve
-    DMUS_PMSGT_TIMESIG          = 6,      /* Time signature
-    DMUS_PMSGT_PATCH            = 7,      /* Patch changes
-    DMUS_PMSGT_TRANSPOSE        = 8,      /* Transposition messages
-    DMUS_PMSGT_CHANNEL_PRIORITY = 9,      /* Channel priority
-    DMUS_PMSGT_STOP             = 10,     /* Stop message
-    DMUS_PMSGT_DIRTY            = 11,     /* Tells Tools that cache GetParam() info to refresh
-    DMUS_PMSGT_USER             = 255     /* User message
- DMUS_PMSGT_TYPES;}
-const
-// DMUS_SEGF_FLAGS correspond to IDirectMusicPerformance::PlaySegment, and other API
-  DMUS_SEGF_REFTIME           = 64;        // time parameter is in reference time
-  DMUS_SEGF_SECONDARY         = 128;       // secondary segment
-  DMUS_SEGF_QUEUE             = 256;       // queue at the end of the primary segment queue (primary only)
-  DMUS_SEGF_CONTROL           = 512;       // play as a control track (secondary segments only)
-  DMUS_SEGF_AFTERPREPARETIME  = 1 shl 10;  // play after the prepare time (See IDirectMusicPerformance::GetPrepareTime)
-  DMUS_SEGF_GRID              = 1 shl 11;  // play on grid boundary
-  DMUS_SEGF_BEAT              = 1 shl 12;  // play on beat boundary
-  DMUS_SEGF_MEASURE           = 1 shl 13;  // play on measure boundary
-  DMUS_SEGF_DEFAULT           = 1 shl 14;  // use segment's default boundary
-  DMUS_SEGF_NOINVALIDATE      = 1 shl 15;  // play without invalidating the currently playing segment(s)
-type
-  TDMUS_SEGF_FLAGS = Cardinal;
-  DMUS_SEGF_FLAGS  = TDMUS_SEGF_FLAGS;
-{typedef enum enumDMUS_SEGF_FLAGS
-{
-    DMUS_SEGF_REFTIME           = 64,     /* time parameter is in reference time
-    DMUS_SEGF_SECONDARY         = 128,    /* secondary segment
-    DMUS_SEGF_QUEUE             = 256,    /* queue at the end of the primary segment queue (primary only)
-    DMUS_SEGF_CONTROL           = 512,    /* play as a control track (secondary segments only)
-    DMUS_SEGF_AFTERPREPARETIME  = 1<<10,  /* play after the prepare time (See IDirectMusicPerformance::GetPrepareTime)
-    DMUS_SEGF_GRID              = 1<<11,  /* play on grid boundary
-    DMUS_SEGF_BEAT              = 1<<12,  /* play on beat boundary
-    DMUS_SEGF_MEASURE           = 1<<13,  /* play on measure boundary
-    DMUS_SEGF_DEFAULT           = 1<<14,  /* use segment's default boundary
-    DMUS_SEGF_NOINVALIDATE      = 1<<15   /* play without invalidating the currently playing segment(s)
- DMUS_SEGF_FLAGS;}
-const
-// DMUS_TIME_RESOLVE_FLAGS correspond to IDirectMusicPerformance::GetResolvedTime, and can
-// also be used interchangeably with the corresponding DMUS_SEGF_FLAGS, since their values
-// are intentionally the same
-  DMUS_TIME_RESOLVE_AFTERPREPARETIME  = 1 shl 10;  // resolve to a time after the prepare time
-  DMUS_TIME_RESOLVE_GRID              = 1 shl 11;  // resolve to a time on a grid boundary
-  DMUS_TIME_RESOLVE_BEAT              = 1 shl 12;  // resolve to a time on a beat boundary
-  DMUS_TIME_RESOLVE_MEASURE           = 1 shl 13;  // resolve to a time on a measure boundary
-type
-  TDMUS_TIME_RESOLVE_FLAGS = Cardinal;
-  DMUS_TIME_RESOLVE_FLAGS  = TDMUS_TIME_RESOLVE_FLAGS;
-{typedef enum enumDMUS_TIME_RESOLVE_FLAGS
-{
-    DMUS_TIME_RESOLVE_AFTERPREPARETIME  = 1<<10,  /* resolve to a time after the prepare time
-    DMUS_TIME_RESOLVE_GRID              = 1<<11,  /* resolve to a time on a grid boundary
-    DMUS_TIME_RESOLVE_BEAT              = 1<<12,  /* resolve to a time on a beat boundary
-    DMUS_TIME_RESOLVE_MEASURE           = 1<<13   /* resolve to a time on a measure boundary
- DMUS_TIME_RESOLVE_FLAGS;}
-const
-// The following flags are sent in the IDirectMusicTrack::Play() method
-// inside the dwFlags parameter
-  DMUS_TRACKF_SEEK            = 1;      // set on a seek
-  DMUS_TRACKF_LOOP            = 2;      // set on a loop (repeat)
-  DMUS_TRACKF_START           = 4;      // set on first call to Play
-  DMUS_TRACKF_FLUSH           = 8;      // set when this call is in response to a flush on the perfomance
-  DMUS_TRACKF_DIRTY           = 16;     // set when the track should consider any cached values from a previous call to GetParam to be invalidated
-type
-  TDMUS_TRACKF_FLAGS = Cardinal;
-  DMUS_TRACKF_FLAGS  = TDMUS_TRACKF_FLAGS;
-{typedef enum enumDMUS_TRACKF_FLAGS
-{
-    DMUS_TRACKF_SEEK            = 1,      /* set on a seek
-    DMUS_TRACKF_LOOP            = 2,      /* set on a loop (repeat)
-    DMUS_TRACKF_START           = 4,      /* set on first call to Play
-    DMUS_TRACKF_FLUSH           = 8,      /* set when this call is in response to a flush on the perfomance
-    DMUS_TRACKF_DIRTY           = 16,     /* set when the track should consider any cached values from a previous call to GetParam to be invalidated
- DMUS_TRACKF_FLAGS;}
-const
-  DMUS_MAXSUBCHORD = 8;
-type
-  TDMUS_SUBCHORD = record
-    dwChordPattern    : DWORD;     // Notes in the subchord
-    dwScalePattern    : DWORD;     // Notes in the scale
-    dwInversionPoints : DWORD;     // Where inversions can occur
-    dwLevels          : DWORD;     // Which levels are supported by this subchord
-    bChordRoot        : Byte;      // Root of the subchord
-    bScaleRoot        : Byte;      // Root of the scale
-  end;
-  DMUS_SUBCHORD = TDMUS_SUBCHORD;
-  TDMUS_CHORD_KEY = record
-    wszName        : array[0..15] of WideChar;                        // Name of the chord
-    wMeasure       : Word;                                            // Measure this falls on
-    bBeat          : Byte;                                            // Beat this falls on
-    bSubChordCount : Byte;                                            // Number of chords in the list of subchords
-    SubChordList   : array[0..DMUS_MAXSUBCHORD - 1] of TDMUS_SUBCHORD;// List of sub chords
-    dwScale        : DWORD;                                           // Scale underlying the entire chord
-    bKey           : Byte;                                            // Key underlying the entire chord
-  end;
-  DMUS_CHORD_KEY = TDMUS_CHORD_KEY;
-const
-//typedef enum enumDMUS_NOTEF_FLAGS
-  DMUS_NOTEF_NOTEON = 1;     // Set if this is a MIDI Note On. Otherwise, it is MIDI Note Off
-type
-  TDMUS_NOTEF_FLAGS = Cardinal;
-  DMUS_NOTEF_FLAGS  = TDMUS_NOTEF_FLAGS;
-// The DMUS_PLAYMODE_FLAGS are used to determine how to convert wMusicValue
-//  into the appropriate bMidiValue.
-///
-const
-//typedef enum enumDMUS_PLAYMODE_FLAGS
-  DMUS_PLAYMODE_KEY_ROOT          = 1;  // Transpose on top of the key root.
-  DMUS_PLAYMODE_CHORD_ROOT        = 2;  // Transpose on top of the chord root.
-  DMUS_PLAYMODE_SCALE_INTERVALS   = 4;  // Use scale intervals from scale pattern.
-  DMUS_PLAYMODE_CHORD_INTERVALS   = 8;  // Use chord intervals from chord pattern.
-  DMUS_PLAYMODE_NONE              = 16; // No mode. Indicates the parent part's mode should be used.
-type
-  TDMUS_PLAYMODE_FLAGS = Cardinal;
-  DMUS_PLAYMODE_FLAGS  = TDMUS_PLAYMODE_FLAGS;
-// The following are playback modes that can be created by combining the DMUS_PLAYMODE_FLAGS
-//   in various ways:
-///
-// Fixed. wMusicValue holds final MIDI note value. This is used for drums, sound effects, and sequenced
-//   notes that should not be transposed by the chord or scale.
-///
-const
-  DMUS_PLAYMODE_FIXED            = 0;
-// In fixed to key, the musicvalue is again a fixed MIDI value, but it
-//   is transposed on top of the key root.
-///
-  DMUS_PLAYMODE_FIXEDTOKEY       = DMUS_PLAYMODE_KEY_ROOT;
-// In fixed to chord, the musicvalue is also a fixed MIDI value, but it
-//   is transposed on top of the chord root.
-///
-  DMUS_PLAYMODE_FIXEDTOCHORD     = DMUS_PLAYMODE_CHORD_ROOT;
-// In Pedalpoint, the key root is used and the notes only track the intervals in
-//   the scale. The chord root and intervals are completely ignored. This is useful
-//   for melodic lines that play relative to the key root.
-///
-  DMUS_PLAYMODE_PEDALPOINT       = (DMUS_PLAYMODE_KEY_ROOT or DMUS_PLAYMODE_SCALE_INTERVALS);
-// In the Melodic mode, the chord root is used but the notes only track the intervals in
-//   the scale. The key root and chord intervals are completely ignored. This is useful
-//   for melodic lines that play relative to the chord root.
-///
-  DMUS_PLAYMODE_MELODIC          = (DMUS_PLAYMODE_CHORD_ROOT or DMUS_PLAYMODE_SCALE_INTERVALS);
-// Normal chord mode is the prevalent playback mode.
-//   The notes track the intervals in the chord, which is based on the chord root.
-//   If there is a scale component to the MusicValue, the additional intervals
-//   are pulled from the scale and added.
-//   If the chord does not have an interval to match the chord component of
-//   the MusicValue, the note is silent.
-///
-  DMUS_PLAYMODE_NORMALCHORD      = (DMUS_PLAYMODE_CHORD_ROOT or DMUS_PLAYMODE_CHORD_INTERVALS);
-// If it is desirable to play a note that is above the top of the chord, the
-//   always play mode (known as "purpleized" in a former life) finds a position
-//   for the note by using intervals from the scale. Essentially, this mode is
-//   a combination of the Normal and Melodic playback modes, where a failure
-//   in Normal causes a second try in Melodic mode.
-///
-  DMUS_PLAYMODE_ALWAYSPLAY       = (DMUS_PLAYMODE_MELODIC or DMUS_PLAYMODE_NORMALCHORD);
-//  Legacy names for modes...
-  DMUS_PLAYMODE_PURPLEIZED       = DMUS_PLAYMODE_ALWAYSPLAY;
-  DMUS_PLAYMODE_SCALE_ROOT       = DMUS_PLAYMODE_KEY_ROOT;
-  DMUS_PLAYMODE_FIXEDTOSCALE     = DMUS_PLAYMODE_FIXEDTOKEY;
-const
-  DMUS_TEMPO_MAX         = 350;
-  DMUS_TEMPO_MIN         = 10;
-  DMUS_MASTERTEMPO_MAX   = 2.0;
-  DMUS_MASTERTEMPO_MIN   = 0.25;
-const
-  DMUS_CURVE_RESET = 1;           // Set if the curve needs to be reset.
 type
-  TDMUS_CURVE_FLAGS = Cardinal;
-  DMUS_CURVE_FLAGS  = TDMUS_CURVE_FLAGS;
+(* DMUS_PMsgF_FLAGS fill the TDMus_PMsg's dwFlags member *)
-{
-    DMUS_CURVE_RESET = 1,           /* Set if the curve needs to be reset.
- DMUS_CURVE_FLAGS; }
+  TDMus_PMsgF_Flags = DWORD;
 const
-  //DMUS_CURVE_RESET   = 1;
+  DMUS_PMsgF_REFTIME          = 1;      (* if rtTime is valid *)
-// Curve shapes
-  DMUS_CURVES_LINEAR  = 0;
-  DMUS_CURVES_INSTANT = 1;
-  DMUS_CURVES_EXP     = 2;
+  DMUS_PMsgF_MUSICTIME        = 2;      (* if mtTime is valid *)
-  DMUS_CURVES_LOG     = 3;
+  DMUS_PMsgF_TOOL_IMMEDIATE   = 4;      (* if PMSG should be processed immediately *)
-  DMUS_CURVES_SINE    = 4;
+  DMUS_PMsgF_TOOL_QUEUE       = 8;      (* if PMSG should be processed a little early, at Queue time *)
-// curve types
-  DMUS_CURVET_PBCURVE     = $03;
+  DMUS_PMsgF_TOOL_ATTIME      = 16;     (* if PMSG should be processed at the time stamp *)
-  DMUS_CURVET_CCCURVE     = $04;
+  DMUS_PMsgF_TOOL_FLUSH       = 32;     (* if PMSG is being flushed *)
-  DMUS_CURVET_MATCURVE    = $05;
+  (* The values of DMUS_TIME_RESOLVE_FLAGS may also be used inside the *)
-  DMUS_CURVET_PATCURVE    = $06;
+  (* TDMus_PMsg's dwFlags member. *)
-// notification type values
-// The following correspond to GUID_NOTIFICATION_SEGMENT
-const
+type
-  DMUS_NOTIFICATION_SEGSTART     = 0;
+(* DMUS_PMsgT_TYPES fill the TDMus_PMsg's dwType member *)
-  DMUS_NOTIFICATION_SEGEND       = 1;
+  TDMus_PMsgT_Types = (
-  DMUS_NOTIFICATION_SEGALMOSTEND = 2;
+    DMUS_PMsgT_MIDI            ,      (* MIDI short message *)
-  DMUS_NOTIFICATION_SEGLOOP      = 3;
+    DMUS_PMsgT_NOTE            ,      (* Interactive Music Note *)
-  DMUS_NOTIFICATION_SEGABORT     = 4;
+    DMUS_PMsgT_SYSEX           ,      (* MIDI long message (system exclusive message) *)
-// The following correspond to GUID_NOTIFICATION_PERFORMANCE
+    DMUS_PMsgT_NOTIFICATION    ,      (* Notification message *)
-  DMUS_NOTIFICATION_MUSICSTARTED = 0;
+    DMUS_PMsgT_TEMPO           ,      (* Tempo message *)
-  DMUS_NOTIFICATION_MUSICSTOPPED = 1;
+    DMUS_PMsgT_CURVE           ,      (* Control change / pitch bend, etc. curve *)
-// The following corresponds to GUID_NOTIFICATION_MEASUREANDBEAT
+    DMUS_PMsgT_TIMESIG         ,      (* Time signature *)
-  DMUS_NOTIFICATION_MEASUREBEAT  = 0;
+    DMUS_PMsgT_PATCH           ,      (* Patch changes *)
-// The following corresponds to GUID_NOTIFICATION_CHORD
+    DMUS_PMsgT_TRANSPOSE       ,      (* Transposition messages *)
-  DMUS_NOTIFICATION_CHORD        = 0;
+    DMUS_PMsgT_CHANNEL_PRIORITY,      (* Channel priority *)
-// The following correspond to GUID_NOTIFICATION_COMMAND
+    DMUS_PMsgT_STOP            ,      (* Stop message *)
-  DMUS_NOTIFICATION_GROOVE       = 0;
+    DMUS_PMsgT_DIRTY                  (* Tells Tools that cache GetParam() info to refresh *)
+  );
+const
-  DMUS_NOTIFICATION_EMBELLISHMENT= 1;
+  DMUS_PMsgT_USER             = TDMus_PMsgT_Types(255); (* User message *)
 type
-// Time Signature structure, used by IDirectMusicStyle
+(* DMUS_SEGF_FLAGS correspond to IDirectMusicPerformance::PlaySegment, and other API *)
+  TDMus_SegF_Flags = DWORD;
+const
-// Also used as a parameter for GetParam() and SetParam
+  DMUS_SEGF_REFTIME           = 64;     (* time parameter is in reference time  *)
-  TDMUS_TIMESIGNATURE = record
+  DMUS_SEGF_SECONDARY         = 128;    (* secondary segment *)
-    mtTime           : MUSIC_TIME;
+  DMUS_SEGF_QUEUE             = 256;    (* queue at the end of the primary segment queue (primary only) *)
-    bBeatsPerMeasure : Byte;        // beats per measure (top of time sig)
+  DMUS_SEGF_CONTROL           = 512;    (* play as a control track (secondary segments only) *)
-    bBeat            : Byte;        // what note receives the beat (bottom of time sig.)
+  DMUS_SEGF_AFTERPREPARETIME  = 1 shl 10;  (* play after the prepare time (See IDirectMusicPerformance::GetPrepareTime) *)
-                                    // we can assume that 0 means 256th note
+  DMUS_SEGF_GRID              = 1 shl 11;  (* play on grid boundary *)
-    wGridsPerBeat    : Word;        // grids per beat
+  DMUS_SEGF_BEAT              = 1 shl 12;  (* play on beat boundary *)
-  end;
-  DMUS_TIMESIGNATURE = TDMUS_TIMESIGNATURE;
+  DMUS_SEGF_MEASURE           = 1 shl 13;  (* play on measure boundary *)
+  DMUS_SEGF_DEFAULT           = 1 shl 14;  (* use segment's default boundary *)
+  DMUS_SEGF_NOINVALIDATE      = 1 shl 15;  (* play without invalidating the currently playing segment(s) *)
-//      Flags for dwValidData. When set, a flag indicates that the
+(* DMUS_TIME_RESOLVE_FLAGS correspond to IDirectMusicPerformance::GetResolvedTime, and can *)
-//      corresponding field in DMUSOBJECTDESC holds valid data.
+(* also be used interchangeably with the corresponding DMUS_SEGF_FLAGS, since their values *)
+(* are intentionally the same *)
+type
+  TDMus_Time_Resolve_Flags = DWORD;
 const
-  DMUS_OBJ_OBJECT         = 1 shl 0;     // Object GUID is valid.
+  DMUS_TIME_RESOLVE_AFTERPREPARETIME  = 1 shl 10;  (* resolve to a time after the prepare time *)
-  DMUS_OBJ_CLASS          = 1 shl 1;     // Class GUID is valid.
+  DMUS_TIME_RESOLVE_GRID              = 1 shl 11;  (* resolve to a time on a grid boundary *)
-  DMUS_OBJ_NAME           = 1 shl 2;     // Name is valid.
+  DMUS_TIME_RESOLVE_BEAT              = 1 shl 12;  (* resolve to a time on a beat boundary *)
-  DMUS_OBJ_CATEGORY       = 1 shl 3;     // Category is valid.
+  DMUS_TIME_RESOLVE_MEASURE           = 1 shl 13;  (* resolve to a time on a measure boundary *)
-  DMUS_OBJ_FILENAME       = 1 shl 4;     // File path is valid.
+(* The following flags are sent in the IDirectMusicTrack::Play() method *)
+(* inside the dwFlags parameter *)
+type
-  DMUS_OBJ_FULLPATH       = 1 shl 5;     // Path is full path.
+  TDMus_TrackF_Flags = DWORD;
+const
-  DMUS_OBJ_URL            = 1 shl 6;     // Path is URL.
+  DMUS_TRACKF_SEEK   = 1;      (* set on a seek *)
-  DMUS_OBJ_VERSION        = 1 shl 7;     // Version is valid.
+  DMUS_TRACKF_LOOP   = 2;      (* set on a loop (repeat) *)
-  DMUS_OBJ_DATE           = 1 shl 8;     // Date is valid.
+  DMUS_TRACKF_START  = 4;      (* set on first call to Play *)
-  DMUS_OBJ_LOADED         = 1 shl 9;     // Object is currently loaded in memory.
+  DMUS_TRACKF_FLUSH  = 8;      (* set when this call is in response to a flush on the perfomance *)
-  DMUS_OBJ_MEMORY         = 1 shl 10;    // Object is pointed to by pbMemData.
+  DMUS_TRACKF_DIRTY  = 16;     (* set when the track should consider any cached values from a previous call to GetParam to be invalidated *)
-const
-  DMUSB_LOADED    = 1 shl 0;        // Set when band has been loaded
+  DMUS_MAXSUBCHORD = 8;
-  DMUSB_DEFAULT   = 1 shl 1;        // Set when band is default band for a style
 type
-  IDirectMusicTrack = interface;
+  IDirectMusicTrack =                interface;
-  IDirectMusicPerformance = interface;
+  IDirectMusicPerformance =          interface;
-  IDirectMusicTool = interface;
-  IDirectMusicSegment = interface;
+  IDirectMusicSegment =              interface;
-  IDirectMusicSegmentState = interface;
+  IDirectMusicSegmentState =         interface;
+  IDirectMusicTool =                 interface;
-  IDirectMusicGraph = interface;
+  IDirectMusicGraph =                interface;
-  //IDirectMusicPort = interface;
-  //IDirectMusicBuffer = interface;
-  //IDirectMusicInstrument = interface;
-  //IDirectMusicDownloadedInstrument = interface;
-  IDirectMusicBand = interface;
-  IDirectMusicChordMap = interface;
-  IDirectMusicLoader = interface;
-  IDirectMusicObject = interface;
-{#ifndef __cplusplus
-typedef interface IDirectMusic IDirectMusic;
-typedef interface IDirectMusicTrack IDirectMusicTrack;
-typedef interface IDirectMusicPerformance IDirectMusicPerformance;
-typedef interface IDirectMusicTool IDirectMusicTool;
-typedef interface IDirectMusicSegment IDirectMusicSegment;
-typedef interface IDirectMusicSegmentState IDirectMusicSegmentState;
-typedef interface IDirectMusicGraph IDirectMusicGraph;
-typedef interface IDirectMusicPort IDirectMusicPort;
-typedef interface IDirectMusicBuffer IDirectMusicBuffer;
-typedef interface IDirectMusicInstrument IDirectMusicInstrument;
-typedef interface IDirectMusicDownloadedInstrument IDirectMusicDownloadedInstrument;
-typedef interface IDirectMusicBand IDirectMusicBand;
-typedef interface IDirectMusicChordMap IDirectMusicChordMap;
-typedef interface IDirectMusicObject IDirectMusicObject;
-typedef interface IDirectMusicLoader IDirectMusicLoader;
-#endif}
-  LPDMUS_OBJECT = IDirectMusicObject;
-  LPDMUS_LOADER = IDirectMusicLoader;
-  LPDMUS_BAND   = IDirectMusicBand;
-  TDMUS_PMSG_PART = record
-    dwSize           : DWORD;
-    rtTime           : REFERENCE_TIME;      // real time (in 100 nanosecond increments)           \
-    mtTime           : MUSIC_TIME;          // music time                                         \
-    dwFlags          : DWORD;               // various bits (see DMUS_PMSG_FLAGS enumeration)     \
-    dwPChannel       : DWORD;               // Performance Channel. The Performance can           \
-                                            // use this to determine the port/channel.            \
-    dwVirtualTrackID : DWORD;               // virtual track ID                                   \
-    pTool            : IDirectMusicTool;    // tool interface pointer                             \
-    pGraph           : IDirectMusicGraph;   // tool graph interface pointer                       \
-    dwType           : DWORD;               // PMSG type (see DMUS_PMSGT_TYPES defines)               \
-    dwVoiceID        : DWORD;               // unique voice id which allows synthesizers to       \
-                                            // identify a specific event. For DirectX 6.0,        \
-                                            // this field should always be 0.                     \
-    dwGroupID        : DWORD;               // Track group id                                  \
-    punkUser         : IUnknown;            // user com pointer, auto released upon PMSG free
-  end;
-// every DMUS_PMSG is based off of this structure. The Performance needs
-// to access these members consistently in every PMSG that goes through it.
-{typedef struct _DMUS_PMSG
-{
-    /* begin DMUS_PMSG_PART
-    DMUS_PMSG_PART
-    /* end DMUS_PMSG_PART
- DMUS_PMSG;}
-  TDMUS_PMSG = TDMUS_PMSG_PART;
-  DMUS_PMSG  = TDMUS_PMSG;
-  // DMUS_NOTE_PMSG
-  TDMUS_NOTE_PMSG = record
-    // begin DMUS_PMSG_PART
-    DMUS_PMSG_PART : TDMUS_PMSG_PART;
-    // end DMUS_PMSG_PART
-    mtDuration     : MUSIC_TIME;     // duration
-    wMusicValue    : Word;           // Description of note in chord and key.
-    wMeasure       : Word;           // Measure in which this note occurs
-    nOffset        : Smallint;       // Offset from grid at which this note occurs
-    bBeat          : Byte;           // Beat (in measure) at which this note occurs
-    bGrid          : Byte;           // Grid offset from beat at which this note occurs
-    bVelocity      : Byte;           // Note velocity
-    bFlags         : Byte;           // see DMUS_NOTE_FLAGS
-    bTimeRange     : Byte;           // Range to randomize time.
-    bDurRange      : Byte;           // Range to randomize duration.
-    bVelRange      : Byte;           // Range to randomize velocity.
-    bPlayModeFlags : Byte;           // Play mode
-    bSubChordLevel : Byte;           // Which subchord level this note uses.
-    bMidiValue     : Byte;           // The MIDI note value, converted from wMusicValue
-    cTranspose     : Shortint;       // Transposition to add to midi note value after converted from wMusicValue.
-  end;
-  DMUS_NOTE_PMSG = TDMUS_NOTE_PMSG;
-  // DMUS_MIDI_PMSG
-  TDMUS_MIDI_PMSG = record
-    // begin DMUS_PMSG_PART
-    DMUS_PMSG_PART : TDMUS_PMSG_PART;
-    // end DMUS_PMSG_PART
-    bStatus : Byte;
-    bByte1  : Byte;
-    bByte2  : Byte;
-    bPad    : array[0..0] of Byte;
-  end;
-  DMUS_MIDI_PMSG = TDMUS_MIDI_PMSG;
-  // DMUS_PATCH_PMSG
-  TDMUS_PATCH_PMSG = record
-    // begin DMUS_PMSG_PART
-    DMUS_PMSG_PART : TDMUS_PMSG_PART;
-    // end DMUS_PMSG_PART
-    byInstrument : Byte;
-    byMSB        : Byte;
-    byLSB        : Byte;
-    byPad        : array[0..0] of Byte;
-  end;
-  DMUS_PATCH_PMSG = TDMUS_PATCH_PMSG;
-  // DMUS_TRANSPOSE_PMSG
-  TDMUS_TRANSPOSE_PMSG = record
-    // begin DMUS_PMSG_PART
-    DMUS_PMSG_PART : TDMUS_PMSG_PART;
-    // end DMUS_PMSG_PART
-    nTranspose : Smallint;
-  end;
-  DMUS_TRANSPOSE_PMSG = TDMUS_TRANSPOSE_PMSG;
-  // DMUS_CHANNEL_PRIORITY_PMSG
-  TDMUS_CHANNEL_PRIORITY_PMSG = record
-    // begin DMUS_PMSG_PART
-    DMUS_PMSG_PART : TDMUS_PMSG_PART;
-    // end DMUS_PMSG_PART
-    dwChannelPriority : DWORD;
-  end;
-  DMUS_CHANNEL_PRIORITY_PMSG = TDMUS_CHANNEL_PRIORITY_PMSG;
-  // DMUS_TEMPO_PMSG
-  TDMUS_TEMPO_PMSG = record
-    // begin DMUS_PMSG_PART
-    DMUS_PMSG_PART : TDMUS_PMSG_PART;
-    // end DMUS_PMSG_PART
-    dblTempo : Double;                       // the tempo
+  PIDirectMusicSegmentState = ^IDirectMusicSegmentState;
-  end;
-  DMUS_TEMPO_PMSG = TDMUS_TEMPO_PMSG;
-  // DMUS_SYSEX_PMSG
-  TDMUS_SYSEX_PMSG = record
+  TDMus_PMsg_Part = record
-    // begin DMUS_PMSG_PART
-    DMUS_PMSG_PART : TDMUS_PMSG_PART;
-    // end DMUS_PMSG_PART
+    dwSize:          DWORD;
-    dwLen  : DWORD;                    // length of the data
-    abData : array[0..0] of Byte;      // array of data, length equal to dwLen
+    rtTime:          TReference_Time;      (* real time (in 100 nanosecond increments) *)
-  end;
-  DMUS_SYSEX_PMSG = TDMUS_SYSEX_PMSG;
-  // DMUS_CURVE_PMSG
-  TDMUS_CURVE_PMSG = record
-    // begin DMUS_PMSG_PART
-    DMUS_PMSG_PART : TDMUS_PMSG_PART;
-    // end DMUS_PMSG_PART
-    mtDuration      : MUSIC_TIME;   // how long this curve lasts
+    mtTime:          TMusic_Time;          (* music time *)
-    mtOriginalStart : MUSIC_TIME;   // must be set to either zero when this PMSG is created or to the original mtTime of the curve
+    dwFlags:         DWORD;                (* various bits (see DMUS_PMsg_FLAGS enumeration) *)
-    mtResetDuration : MUSIC_TIME;   // how long after the curve is finished to reset to the
+    dwPChannel:      DWORD;                (* Performance Channel. The Performance can *)
-                                    //  reset value, nResetValue
+                                           (* use this to determine the port/channel. *)
-    nStartValue     : Smallint;     // curve's start value
+    dwVirtualTrackID:DWORD;                (* virtual track ID *)
-    nEndValue       : Smallint;     // curve's end value
-    nResetValue     : Smallint;     // curve's reset value, sent after mtResetDuration or
-                                    //  upon a flush or invalidation
+    pTool:           IDirectMusicTool;     (* tool interface pointer *)
-    wMeasure        : Word;         // Measure in which this curve occurs
+    pGraph:          IDirectMusicGraph;    (* tool graph interface pointer *)
-    nOffset         : Smallint;     // Offset from grid at which this curve occurs
+    dwType:          DWORD;                (* PMSG type (see DMUS_PMsgT_TYPES defines) *)
-    bBeat           : Byte;         // Beat (in measure) at which this curve occurs
+    dwVoiceID:       DWORD;                (* unique voice id which allows synthesizers to *)
-    bGrid           : Byte;         // Grid offset from beat at which this curve occurs
+                                           (* identify a specific event. For DirectX 6.0, *)
-    bType           : Byte;         // type of curve
-    bCurveShape     : Byte;         // shape of curve
-    bCCData         : Byte;         // CC# if this is a control change type
+                                           (* this field should always be 0. *)
-    bFlags          : Byte;         // set to 1 if the nResetValue must be sent when the
+    dwGroupID:       DWORD;                (* Track group id *)
-                                    //  time is reached or an invalidate occurs because
+    punkUser:        IUnknown;             (* user com pointer, auto released upon PMSG free *)
+  end;
-                                    //  of a transition. If 0, the curve stays
+(* every TDMus_PMsg is based off of this structure. The Performance needs
-                                    //  permanently stuck at the new value. All bits besides
+   to access these members consistently in every PMSG that goes through it. *)
-                                    //  1 are reserved.
-  end;
+    (* begin DMUS_PMsg_PART *)
+  PDMus_PMsg = ^TDMus_PMsg;
-  DMUS_CURVE_PMSG = TDMUS_CURVE_PMSG;
+  TDMus_PMsg = TDMus_PMsg_Part;
+    (* end DMUS_PMsg_PART *)
-  // DMUS_TIMESIG_PMSG
+(* DMUS_NOTIFICATION_PMsg *)
+  PDMus_Notification_PMsg = ^TDMus_Notification_PMsg;
-  TDMUS_TIMESIG_PMSG = record
+  TDMus_Notification_PMsg = record
-    // begin DMUS_PMSG_PART
+    (* begin DMUS_PMsg_PART *)
-    DMUS_PMSG_PART : TDMUS_PMSG_PART;
-    // end DMUS_PMSG_PART
+    dwSize:          DWORD;
-    // Time signatures define how many beats per measure, which note receives
+    rtTime:          TReference_Time;      (* real time (in 100 nanosecond increments) *)
-    // the beat, and the grid resolution.
+    mtTime:          TMusic_Time;          (* music time *)
-    bBeatsPerMeasure : Byte;       // beats per measure (top of time sig)
+    dwFlags:         DWORD;                (* various bits (see DMUS_PMsg_FLAGS enumeration) *)
-    bBeat            : Byte;       // what note receives the beat (bottom of time sig.)
+    dwPChannel:      DWORD;                (* Performance Channel. The Performance can *)
-                                   // we can assume that 0 means 256th note
+                                           (* use this to determine the port/channel. *)
-    wGridsPerBeat    : Word;       // grids per beat
+    dwVirtualTrackID:DWORD;                (* virtual track ID *)
-  end;
-  DMUS_TIMESIG_PMSG = TDMUS_TIMESIG_PMSG;
+    pTool:           IDirectMusicTool;     (* tool interface pointer *)
-  // DMUS_NOTIFICATION_PMSG
+    pGraph:          IDirectMusicGraph;    (* tool graph interface pointer *)
-  PDMUS_NOTIFICATION_PMSG = ^TDMUS_NOTIFICATION_PMSG;
+    dwType:          DWORD;                (* PMSG type (see DMUS_PMsgT_TYPES defines) *)
-  TDMUS_NOTIFICATION_PMSG = record
+    dwVoiceID:       DWORD;                (* unique voice id which allows synthesizers to *)
+                                           (* identify a specific event. For DirectX 6.0, *)
-    // begin DMUS_PMSG_PART
+                                           (* this field should always be 0. *)
-    DMUS_PMSG_PART : TDMUS_PMSG_PART;
+    dwGroupID:       DWORD;                (* Track group id *)
+    punkUser:        IUnknown;             (* user com pointer, auto released upon PMSG free *)
-    // end DMUS_PMSG_PART
+    (* end DMUS_PMsg_PART *)
-    guidNotificationType : TGUID;
+    guidNotificationType: TGUID;
-    dwNotificationOption : DWORD;
+    dwNotificationOption: DWORD;
-    dwField1             : DWORD;
+    dwField1:             DWORD;
-    dwField2             : DWORD;
+    dwField2:             DWORD;
   end;
-  DMUS_NOTIFICATION_PMSG = TDMUS_NOTIFICATION_PMSG;
-  TDMUS_VERSION = record
-    dwVersionMS : DWORD;
-    dwVersionLS : DWORD;
-  end;
-  DMUS_VERSION = TDMUS_VERSION;
-  LPDMUS_VERSION = ^TDMUS_VERSION;
-//      The DMUSOBJECTDESC structure is used to communicate everything you could
-//      possibly use to describe a DirectMusic object.
-  TDMUS_OBJECTDESC = record
-    dwSize      : DWORD;                                       // Size of this structure.
-    dwValidData : DWORD;                                       // Flags indicating which fields below are valid.
-    guidObject  : TGUID;                                       // Unique ID for this object.
-    guidClass   : TGUID;                                       // GUID for the class of object.
-    ftDate      : TFILETIME;                                   // Last edited date of object.
-    vVersion    : TDMUS_VERSION;                               // Version.
-    wszName     : array[0..DMUS_MAX_NAME - 1] of WCHAR;        // Name of object.
-    wszCategory : array[0..DMUS_MAX_CATEGORY - 1] of WCHAR;    // Category for object (optional).
-    wszFileName : array[0..DMUS_MAX_FILENAME - 1] of WCHAR;    // File path.
-    llMemLength : LONGLONG;                                       // Size of Memory data.
-    pbMemData   : Pointer;                                       // Memory pointer for data.
-  end;
-  DMUS_OBJECTDESC   = TDMUS_OBJECTDESC;
-  LPDMUS_OBJECTDESC = ^TDMUS_OBJECTDESC;
-  IDirectMusicBand = interface(IUnknown)
-  ['{D2AC28C0-B39B-11D1-8704-00600893B1BD}']
-    // IDirectMusicBand
-    function CreateSegment(out ppSegment: IDirectMusicSegment) : HResult; stdcall;
-    function Download(pPerformance: IDirectMusicPerformance) : HResult; stdcall;
-    function Unload(pPerformance: IDirectMusicPerformance) : HResult; stdcall;
-  end;
-  IDirectMusicObject = interface(IUnknown)
-  ['{D2AC28B5-B39B-11D1-8704-00600893B1BD}']
-    // IDirectMusicObject
-    function GetDescriptor(var pDesc: TDMUS_OBJECTDESC) : HResult; stdcall;
-    function SetDescriptor(const pDesc: TDMUS_OBJECTDESC) : HResult; stdcall;
-    function ParseDescriptor(pStream: IStream;
-                             var pDesc: TDMUS_OBJECTDESC) : HResult; stdcall;
-  end;
-  IDirectMusicLoader = interface(IUnknown)
+  TDMus_SubChord = packed record
-  ['{2FFAACA2-5DCA-11D2-AFA6-00AA0024D8B6}']
+    dwChordPattern:    DWORD;    (* Notes in the subchord *)
-    // IDirectMusicLoader
+    dwScalePattern:    DWORD;    (* Notes in the scale *)
-    function GetObject(const pDesc: TDMUS_OBJECTDESC;
+    dwInversionPoints: DWORD;    (* Where inversions can occur *)
+    dwLevels:          DWORD;    (* Which levels are supported by this subchord *)
-                       const riid: TGUID;
+    bChordRoot:        BYTE;     (* Root of the subchord *)
-                       out ppv) : HResult; stdcall;
+    bScaleRoot:        BYTE;     (* Root of the scale *)
+  end;
+  TDMus_Chord_Key = packed record
-    function SetObject(const pDesc: TDMUS_OBJECTDESC) : HResult; stdcall;
+    wszName: array [0..15] of WideChar;  (* Name of the chord *)
-    function SetSearchDirectory(const rguidClass: TGUID;
+    wMeasure:       WORD;                (* Measure this falls on *)
-                                pwzPath: PWCHAR;
+    bBeat:          BYTE;                (* Beat this falls on *)
-                                fClear: BOOL) : HResult; stdcall;
+    bSubChordCount: BYTE;                (* Number of chords in the list of subchords *)
-    function ScanDirectory(const rguidClass: TGUID;
+    SubChordList: array [0..DMUS_MAXSUBCHORD-1] of TDMus_SubChord; (* List of sub chords *)
-                           pwzFileExtension: PWCHAR;
+    dwScale:        DWORD;               (* Scale underlying the entire chord *)
-                           var pwzScanFileName: PWCHAR) : HResult; stdcall;
+    bKey:           BYTE;                (* Key underlying the entire chord *)
+  end;
-    function CacheObject(pObject: IDirectMusicObject) : HResult; stdcall;
+(* Time Signature structure, used by IDirectMusicStyle *)
-    function ReleaseObject(pObject: IDirectMusicObject) : HResult; stdcall;
+(* Also used as a parameter for GetParam() and SetParam *)
-    function ClearCache(const rguidClass: TGUID) : HResult; stdcall;
+  TDMus_TimeSignature = packed record
-    function EnableCache(const rguidClass: TGUID;
+    mtTime:           TMusic_Time;
-                         fEnable: BOOL) : HResult; stdcall;
+    bBeatsPerMeasure: BYTE;          (* beats per measure (top of time sig) *)
-    function EnumObject(const rguidClass: TGUID;
+    bBeat:            BYTE;          (* what note receives the beat (bottom of time sig.) *)
-                        dwIndex: DWORD;
+                                     (* we can assume that 0 means 256th note *)
-                        var pDesc: TDMUS_OBJECTDESC) : HResult; stdcall;
+    wGridsPerBeat:    WORD;          (* grids per beat *)
   end;
+(*/////////////////////////////////////////////////////////////////////
-//  Stream object supports IDirectMusicGetLoader interface to access loader while file parsing.
+// IDirectMusicSegmentState *)
-  IDirectMusicGetLoader = interface(IUnknown)
+  IDirectMusicSegmentState = interface (IUnknown)
-  ['{68A04844-D13D-11D1-AFA6-00AA0024D8B6}']
+    ['{a3afdcc7-d3ee-11d1-bc8d-00a0c922e6eb}']
-    // IDirectMusicGetLoader
+    function GetRepeats (out pdwRepeats: DWORD) : HResult; stdcall;
-    function GetLoader(out ppLoader: IDirectMusicLoader) : HResult; stdcall;
+    function GetSegment (out ppSegment: IDirectMusicSegment) : HResult; stdcall;
+    function GetStartTime (out pmtStart: TMusic_Time) : HResult; stdcall;
+    function GetSeek (out pmtSeek: TMusic_Time) : HResult; stdcall;
+    function GetStartPoint (out pmtStart: TMusic_Time) : HResult; stdcall;
   end;
+(*////////////////////////////////////////////////////////////////////
-{ IDirectMusicSegment }
+// IDirectMusicSegment *)
-  IDirectMusicSegment = interface(IUnknown)
+  IDirectMusicSegment = interface (IUnknown)
-  ['{F96029A2-4282-11D2-8717-00600893B1BD}']
+    ['{f96029a2-4282-11d2-8717-00600893b1bd}']
-    //  IDirectMusicSegment
-    function GetLength(var pmtLength: MUSIC_TIME) : HResult; stdcall;
+    function GetLength (out pmtLength: TMusic_Time) : HResult; stdcall;
-    function SetLength(mtLength: MUSIC_TIME) : HResult; stdcall;
+    function SetLength (mtLength: TMusic_Time) : HResult; stdcall;
-    function GetRepeats(var pdwRepeats: DWORD) : HResult; stdcall;
+    function GetRepeats (out pdwRepeats: DWORD) : HResult; stdcall;
-    function SetRepeats(dwRepeats: DWORD) : HResult; stdcall;
+    function SetRepeats (dwRepeats: DWORD) : HResult; stdcall;
-    function GetDefaultResolution(var pdwResolution: DWORD) : HResult; stdcall;
+    function GetDefaultResolution (out pdwResolution: DWORD) : HResult; stdcall;
-    function SetDefaultResolution(dwResolution: DWORD) : HResult; stdcall;
+    function SetDefaultResolution (dwResolution: DWORD) : HResult; stdcall;
-    function GetTrack(const rguidType: TGUID;
+    function GetTrack (const rguidType: TGUID;
-                      dwGroupBits: DWORD;
+                       dwGroupBits, dwIndex: DWORD;
-                      dwIndex: DWORD;
-                      out ppTrack: IDirectMusicTrack) : HResult; stdcall;
+                       out ppTrack: IDirectMusicTrack) : HResult; stdcall;
-    function GetTrackGroup(pTrack: IDirectMusicTrack;
+    function GetTrackGroup (pTrack: IDirectMusicTrack;
-                           var pdwGroupBits: DWORD) : HResult; stdcall;
+                            out pdwGroupBits: DWORD) : HResult; stdcall;
-    function InsertTrack(pTrack: IDirectMusicTrack;
+    function InsertTrack (pTrack: IDirectMusicTrack;
-                         dwGroupBits: DWORD) : HResult; stdcall;
+                          dwGroupBits: DWORD) : HResult; stdcall;
-    function RemoveTrack(pTrack: IDirectMusicTrack) : HResult; stdcall;
+    function RemoveTrack (pTrack: IDirectMusicTrack) : HResult; stdcall;
-    function InitPlay(out ppSegState: IDirectMusicSegmentState;
+    function InitPlay (out ppSegState: IDirectMusicSegmentState;
-                      pPerformance: IDirectMusicPerformance;
+                       pPerformance: IDirectMusicPerformance;
-                      dwFlags: DWORD) : HResult; stdcall;
+                       dwFlags: DWORD) : HResult; stdcall;
-    function GetGraph(out ppGraph: IDirectMusicGraph) : HResult; stdcall;
+    function GetGraph (out ppGraph: IDirectMusicGraph) : HResult; stdcall;
-    function SetGraph(pGraph: IDirectMusicGraph) : HResult; stdcall;
+    function SetGraph (pGraph: IDirectMusicGraph) : HResult; stdcall;
-    function AddNotificationType(const rguidNotificationType: TGUID) : HResult; stdcall;
+    function AddNotificationType (const rguidNotificationType: TGUID) : HResult; stdcall;
-    function RemoveNotificationType(const rguidNotificationType: TGUID) : HResult; stdcall;
+    function RemoveNotificationType (const rguidNotificationType: TGUID) : HResult; stdcall;
-    function GetParam(const rguidType: TGUID;
+    function GetParam (const rguidType: TGUID;
-                      dwGroupBits: DWORD;
+                       dwGroupBits, dwIndex: DWORD;
-                      dwIndex: DWORD;
-                      mtTime: MUSIC_TIME;
+                       mtTime:       TMusic_Time;
-                      var pmtNext: MUSIC_TIME;
+                       out pmtNext:  TMusic_Time;
-                      pParam: Pointer) : HResult; stdcall;
+                       pParam: Pointer) : HResult; stdcall;
-    function SetParam(const rguidType: TGUID;
+    function SetParam (const rguidType: TGUID;
-                      dwGroupBits: DWORD;
+                       dwGroupBits, dwIndex: DWORD;
-                      dwIndex: DWORD;
-                      mtTime: MUSIC_TIME;
+                       mtTime: TMusic_Time;
-                      pParam: Pointer) : HResult; stdcall;
+                       pParam: Pointer) : HResult; stdcall;
-    function Clone(mtStart: MUSIC_TIME;
+    function Clone (mtStart: TMusic_Time;
-                   mtEnd: MUSIC_TIME;
+                    mtEnd:   TMusic_Time;
-                   out ppSegment: IDirectMusicSegment) : HResult; stdcall;
+                    out ppSegment: IDirectMusicSegment) : HResult; stdcall;
-    function SetStartPoint(mtStart: MUSIC_TIME) : HResult; stdcall;
+    function SetStartPoint (mtStart: TMusic_Time) : HResult; stdcall;
-    function GetStartPoint(var pmtStart: MUSIC_TIME) : HResult; stdcall;
+    function GetStartPoint (out pmtStart: TMusic_Time) : HResult; stdcall;
-    function SetLoopPoints(mtStart: MUSIC_TIME;
+    function SetLoopPoints (mtStart: TMusic_Time;
-                           mtEnd: MUSIC_TIME) : HResult; stdcall;
+                            mtEnd:   TMusic_Time) : HResult; stdcall;
-    function GetLoopPoints(var pmtStart: MUSIC_TIME;
-                           var pmtEnd: MUSIC_TIME) : HResult; stdcall;
+    function GetLoopPoints (out pmtStart, pmtEnd: TMusic_Time) : HResult; stdcall;
-    function SetPChannelsUsed(dwNumPChannels: DWORD;
+    function SetPChannelsUsed (dwNumPChannels: DWORD;
-                              const paPChannels) : HResult; stdcall;
+                               var paPChannels: DWORD) : HResult; stdcall;
   end;
-{ IDirectMusicSegmentState }
-  IDirectMusicSegmentState = interface(IUnknown)
-  ['{A3AFDCC7-D3EE-11D1-BC8D-00A0C922E6EB}']
-    //  IDirectMusicSegmentState
-    function GetRepeats(var pdwRepeats: DWORD) : HResult; stdcall;
-    function GetSegment(out ppSegment: IDirectMusicSegment) : HResult; stdcall;
-    function GetStartTime(var pmtStart: MUSIC_TIME) : HResult; stdcall;
-    function GetSeek(var pmtSeek: MUSIC_TIME) : HResult; stdcall;
-    function GetStartPoint(var pmtStart: MUSIC_TIME) : HResult; stdcall;
-  end;
-{ IDirectMusicTrack }
+(*////////////////////////////////////////////////////////////////////
+// IDirectMusicTrack *)
-  IDirectMusicTrack = interface(IUnknown)
+  IDirectMusicTrack = interface (IUnknown)
-  ['{F96029A1-4282-11D2-8717-00600893B1BD}']
+    ['{f96029a1-4282-11d2-8717-00600893b1bd}']
-    //  IDirectMusicTrack
-    function Init(pSegment: IDirectMusicSegment) : HResult; stdcall;
+    function Init (pSegment: IDirectMusicSegment) : HResult; stdcall;
-    function InitPlay(pSegmentState: IDirectMusicSegmentState;
+    function InitPlay (pSegmentState: IDirectMusicSegmentState;
-                      pPerformance: IDirectMusicPerformance;
+                       pPerformance:  IDirectMusicPerformance;
-                      var ppStateData: Pointer;
+                       out ppStateData: Pointer;
-                      dwVirtualTrackID: DWORD;
-                      dwFlags: DWORD) : HResult; stdcall;
+                       dwVirtualTrackID, dwFlags: DWORD) : HResult; stdcall;
-    function EndPlay(const pStateData) : HResult; stdcall;
+    function EndPlay (pStateData: Pointer) : HResult; stdcall;
-    function Play(const pStateData;
+    function Play    (pStateData: Pointer;
-                  mtStart: MUSIC_TIME;
+                      mtStart:    TMusic_Time;
-                  mtEnd: MUSIC_TIME;
+                      mtEnd:      TMusic_Time;
-                  mtOffset: MUSIC_TIME;
+                      mtOffset:   TMusic_Time;
-                  dwFlags: DWORD;
+                      dwFlags:    DWORD;
-                  pPerf: IDirectMusicPerformance;
+                      pPerf:      IDirectMusicPerformance;
-                  pSegSt: IDirectMusicSegmentState;
+                      pSegSt:     IDirectMusicSegmentState;
-                  dwVirtualID: DWORD) : HResult; stdcall;
+                      dwVirtualID:DWORD) : HResult; stdcall;
-    function GetParam(const rguidType: TGUID;
+    function GetParam (const rguidType: TGUID;
-                      mtTime: MUSIC_TIME;
+                       mtTime:      TMusic_Time;
-                      var pmtNext: MUSIC_TIME;
+                       out pmtNext: TMusic_Time;
-                      var pParam) : HResult; stdcall;
+                       pParam: Pointer) : HResult; stdcall;
-    function SetParam(const rguidType: TGUID;
+    function SetParam (const rguidType: TGUID;
-                      mtTime: MUSIC_TIME;
+                       mtTime: TMusic_Time;
-                      const pParam) : HResult; stdcall;
+                       pParam: Pointer) : HResult; stdcall;
-    function IsParamSupported(const rguidType: TGUID) : HResult; stdcall;
+    function IsParamSupported  (const rguidType: TGUID) : HResult; stdcall;
-    function AddNotificationType(const rguidNotificationType: TGUID) : HResult; stdcall;
+    function AddNotificationType (const rguidNotificationType: TGUID) : HResult; stdcall;
-    function RemoveNotificationType(const rguidNotificationType: TGUID) : HResult; stdcall;
+    function RemoveNotificationType (const rguidNotificationType: TGUID) : HResult; stdcall;
-    function Clone(mtStart: MUSIC_TIME;
+    function Clone (mtStart: TMusic_Time;
-                   mtEnd: MUSIC_TIME;
+                    mtEnd:   TMusic_Time;
-                   out ppTrack: IDirectMusicTrack) : HResult; stdcall;
+                    out ppTrack: IDirectMusicTrack) : HResult; stdcall;
   end;
-{ IDirectMusicPerformance }
+PIDirectMusic = ^IDirectMusic;
+(*////////////////////////////////////////////////////////////////////
+// IDirectMusicPerformance *)
-  IDirectMusicPerformance = interface(IUnknown)
+  IDirectMusicPerformance = interface (IUnknown)
-  ['{07D43D03-6523-11D2-871D-00600893B1BD}']
+    ['{07d43d03-6523-11d2-871d-00600893b1bd}']
-    //  IDirectMusicPerformance
-    function Init(out ppDirectMusic: IDirectMusic;
+    function Init (ppDirectMusic: PIDirectMusic;
-                  pDirectSound: IDirectSound;
+                   pDirectSound: IDirectSound;
-                  hWnd: HWND) : HResult; stdcall;
+                   hWnd: HWND ) : HResult; stdcall;
-    function PlaySegment(pSegment: IDirectMusicSegment;
+    function PlaySegment (pSegment: IDirectMusicSegment;
-                         dwFlags: DWORD;
+                          dwFlags: DWORD;
-                         i64StartTime: LONGLONG;
+                          i64StartTime: LongLong;
-                         out ppSegmentState: IDirectMusicSegmentState) : HResult; stdcall;
+                          ppSegmentState: PIDirectMusicSegmentState) : HResult; stdcall;
-    function Stop(pSegment: IDirectMusicSegment;
+    function Stop (pSegment: IDirectMusicSegment;
-                  pSegmentState: IDirectMusicSegmentState;
+                   pSegmentState: IDirectMusicSegmentState;
-                  mtTime: MUSIC_TIME;
+                   mtTime: TMusic_Time;
-                  dwFlags: DWORD) : HResult; stdcall;
+                   dwFlags: DWORD) : HResult; stdcall;
-    function GetSegmentState(out ppSegmentState: IDirectMusicSegmentState;
+    function GetSegmentState (out ppSegmentState: IDirectMusicSegmentState;
-                             mtTime: MUSIC_TIME) : HResult; stdcall;
+                              mtTime: TMusic_Time) : HResult; stdcall;
-    function SetPrepareTime(dwMilliSeconds: DWORD) : HResult; stdcall;
+    function SetPrepareTime (dwMilliSeconds: DWORD) : HResult; stdcall;
-    function GetPrepareTime(var pdwMilliSeconds: DWORD) : HResult; stdcall;
+    function GetPrepareTime (out pdwMilliSeconds: DWORD) : HResult; stdcall;
-    function SetBumperLength(dwMilliSeconds: DWORD) : HResult; stdcall;
+    function SetBumperLength (dwMilliSeconds: DWORD) : HResult; stdcall;
-    function GetBumperLength(var pdwMilliSeconds: DWORD) : HResult; stdcall;
+    function GetBumperLength (out pdwMilliSeconds: DWORD) : HResult; stdcall;
-    function SendPMsg(const pPMSG: TDMUS_PMSG) : HResult; stdcall;
+    function SendPMsg (out pPMSG: TDMus_PMsg) : HResult; stdcall;
-    function MusicToReferenceTime(mtTime: MUSIC_TIME;
+    function MusicToReferenceTime (mtTime: TMusic_Time;
-                                  var prtTime: TREFERENCE_TIME) : HResult; stdcall;
+                                   out prtTime: TReference_Time) : HResult; stdcall;
-    function ReferenceToMusicTime(rtTime: TREFERENCE_TIME;
+    function ReferenceToMusicTime (rtTime: TReference_Time;
-                                  var pmtTime: MUSIC_TIME) : HResult; stdcall;
+                                   out pmtTime: TMusic_Time) : HResult; stdcall;
-    function IsPlaying(pSegment: IDirectMusicSegment;
+    function IsPlaying (pSegment: IDirectMusicSegment;
-                       pSegState: IDirectMusicSegmentState) : HResult; stdcall;
+                        pSegState: IDirectMusicSegmentState) : HResult; stdcall;
-    function GetTime(var prtNow: TREFERENCE_TIME;
+    function GetTime (prtNow: PReference_Time;
-                     var pmtNow: MUSIC_TIME) : HResult; stdcall;
+                      pmtNow: PMusic_Time) : HResult; stdcall;
-    function AllocPMsg(cb: Cardinal;
+    function AllocPMsg (cb: ULONG;
-                       var ppPMSG: TDMUS_PMSG) : HResult; stdcall;
+                        out ppPMSG: PDMus_PMsg) : HResult; stdcall;
-    function FreePMsg(const pPMSG: TDMUS_PMSG) : HResult; stdcall;
+    function FreePMsg (pPMSG: PDMus_PMsg) : HResult; stdcall;
-    function GetGraph(out ppGraph: IDirectMusicGraph) : HResult; stdcall;
+    function GetGraph (out ppGraph: IDirectMusicGraph) : HResult; stdcall;
-    function SetGraph(pGraph: IDirectMusicGraph) : HResult; stdcall;
+    function SetGraph (pGraph: IDirectMusicGraph) : HResult; stdcall;
-    function SetNotificationHandle(hNotification: THandle;
+    function SetNotificationHandle (hNotification: THANDLE;
-                                   rtMinimum: TREFERENCE_TIME) : HResult; stdcall;
+                                    rtMinimum: TReference_Time) : HResult; stdcall;
-    function GetNotificationPMsg(var ppNotificationPMsg: PDMUS_NOTIFICATION_PMSG) : HResult; stdcall;
+    function GetNotificationPMsg (out ppNotificationPMsg: PDMus_Notification_PMsg) : HResult; stdcall;
-    function AddNotificationType(const rguidNotificationType: TGUID) : HResult; stdcall;
+    function AddNotificationType (const rguidNotificationType: TGUID) : HResult; stdcall;
-    function RemoveNotificationType(const rguidNotificationType: TGUID) : HResult; stdcall;
+    function RemoveNotificationType (const rguidNotificationType: TGUID) : HResult; stdcall;
-    function AddPort(pPort: IDirectMusicPort) : HResult; stdcall;
+    function AddPort (pPort: IDirectMusicPort) : HResult; stdcall;
-    function RemovePort(pPort: IDirectMusicPort) : HResult; stdcall;
+    function RemovePort (pPort: IDirectMusicPort) : HResult; stdcall;
-    function AssignPChannelBlock(dwBlockNum: DWORD;
+    function AssignPChannelBlock (dwBlockNum: DWORD;
-                                 pPort: IDirectMusicPort;
+                                  pPort: IDirectMusicPort;
-                                 dwGroup: DWORD) : HResult; stdcall;
+                                  dwGroup: DWORD) : HResult; stdcall;
-    function AssignPChannel(dwPChannel: DWORD;
+    function AssignPChannel (dwPChannel: DWORD;
-                            pPort: IDirectMusicPort;
+                             pPort: IDirectMusicPort;
-                            dwGroup: DWORD;
-                            dwMChannel: DWORD) : HResult; stdcall;
+                             dwGroup, dwMChannel: DWORD) : HResult; stdcall;
-    function PChannelInfo(dwPChannel: DWORD;
+    function PChannelInfo (dwPChannel: DWORD;
-                          out ppPort: IDirectMusicPort;
+                           out ppPort: IDirectMusicPort;
-                          var pdwGroup: DWORD;
-                          var pdwMChannel: DWORD) : HResult; stdcall;
+                           out pdwGroup, pdwMChannel: DWORD ) : HResult; stdcall;
-    function DownloadInstrument(pInst: IDirectMusicInstrument;
+    function DownloadInstrument (pInst: IDirectMusicInstrument;
-                                dwPChannel: DWORD;
+                                 dwPChannel: DWORD;
-                                out ppDownInst: IDirectMusicDownloadedInstrument;
+                                 out ppDownInst: IDirectMusicDownloadedInstrument;
-                                const pNoteRanges;
+                                 var pNoteRanges: TDMus_NoteRange;
-                                dwNumNoteRanges: DWORD;
+                                 dwNumNoteRanges: DWORD;
-                                out ppPort: IDirectMusicPort;
+                                 out ppPort: IDirectMusicPort;
-                                var pdwGroup: DWORD;
-                                var pdwMChannel: DWORD) : HResult; stdcall;
+                                 out pdwGroup, pdwMChannel: DWORD) : HResult; stdcall;
-    function Invalidate(mtTime: MUSIC_TIME;
+    function Invalidate (mtTime: TMusic_Time;
-                        dwFlags: DWORD) : HResult; stdcall;
+                         dwFlags: DWORD) : HResult; stdcall;
-    function GetParam(const rguidType: TGUID;
+    function GetParam (const rguidType: TGUID;
-                      dwGroupBits: DWORD;
+                       dwGroupBits, dwIndex: DWORD;
-                      dwIndex: DWORD;
-                      mtTime: MUSIC_TIME;
+                       mtTime:      TMusic_Time;
-                      var pmtNext: MUSIC_TIME;
+                       out pmtNext: TMusic_Time;
-                      var pParam) : HResult; stdcall;
+                       pParam: Pointer) : HResult; stdcall;
-    function SetParam(const rguidType: TGUID;
+    function SetParam (const rguidType: TGUID;
-                      dwGroupBits: DWORD;
+                       dwGroupBits, dwIndex: DWORD;
-                      dwIndex: DWORD;
-                      mtTime: MUSIC_TIME;
+                       mtTime: TMusic_Time;
-                      pParam: Pointer) : HResult; stdcall;
+                       pParam: Pointer) : HResult; stdcall;
-    function GetGlobalParam(const rguidType: TGUID;
+    function GetGlobalParam (const rguidType: TGUID;
-                            var pParam;
+                             pParam: Pointer;
-                            dwSize: DWORD) : HResult; stdcall;
+                             dwSize: DWORD) : HResult; stdcall;
-    function SetGlobalParam(const rguidType: TGUID;
+    function SetGlobalParam (const rguidType: TGUID;
-                            const pParam;
+                             pParam: Pointer;
-                            dwSize: DWORD) : HResult; stdcall;
+                             dwSize: DWORD) : HResult; stdcall;
-    function GetLatencyTime(var prtTime: TREFERENCE_TIME) : HResult; stdcall;
+    function GetLatencyTime (out prtTime: TReference_Time) : HResult; stdcall;
-    function GetQueueTime(var prtTime: TREFERENCE_TIME) : HResult; stdcall;
+    function GetQueueTime (out prtTime: TReference_Time) : HResult; stdcall;
-    function AdjustTime(rtAmount: TREFERENCE_TIME) : HResult; stdcall;
+    function AdjustTime (rtAmount: TReference_Time) : HResult; stdcall;
     function CloseDown : HResult; stdcall;
-    function GetResolvedTime(rtTime: TREFERENCE_TIME;
+    function GetResolvedTime (rtTime: TReference_Time;
-                             var prtResolved: TREFERENCE_TIME;
+                              out prtResolved: TReference_Time;
-                             dwTimeResolveFlags: DWORD) : HResult; stdcall;
+                              dwTimeResolveFlags: DWORD) : HResult; stdcall;
-    function MIDIToMusic(bMIDIValue: Byte;
+    function MIDIToMusic (bMIDIValue: BYTE;
-                         const pChord: TDMUS_CHORD_KEY;
+                          const pChord: TDMus_Chord_Key;
-                         bPlayMode: Byte;
-                         bChordLevel: Byte;
+                          bPlayMode, bChordLevel: Byte;
-                         var pwMusicValue: Word) : HResult; stdcall;
+                          out pwMusicValue: WORD) : HResult; stdcall;
-    function MusicToMIDI(wMusicValue: Word;
+    function MusicToMIDI (wMusicValue: WORD;
-                         const pChord: TDMUS_CHORD_KEY;
+                          const pChord: TDMus_Chord_Key;
-                         bPlayMode: Byte;
-                         bChordLevel: Byte;
+                          bPlayMode, bChordLevel: BYTE;
-                         var pbMIDIValue: Byte) : HResult; stdcall;
+                          out pbMIDIValue: BYTE) : HResult; stdcall;
-    function TimeToRhythm(mtTime: MUSIC_TIME;
+    function TimeToRhythm (mtTime: TMusic_Time;
-                          const pTimeSig: TDMUS_TIMESIGNATURE;
+                           const pTimeSig: TDMus_TimeSignature;
-                          var pwMeasure: Word;
+                           out pwMeasure: WORD;
-                          var pbBeat: Byte;
-                          var pbGrid: Byte;
+                           out pbBeat, pbGrid: BYTE;
-                          var pnOffset: Smallint) : HResult; stdcall;
+                           out pnOffset: SmallInt) : HResult; stdcall;
-    function RhythmToTime(wMeasure: Word;
+    function RhythmToTime (wMeasure: WORD;
-                          bBeat: Byte;
-                          bGrid: Byte;
+                           bBeat, bGrid: BYTE;
-                          nOffset: Smallint;
+                           nOffset: SmallInt;
-                          const pTimeSig: TDMUS_TIMESIGNATURE;
+                           const pTimeSig: TDMus_TimeSignature;
-                          var pmtTime: MUSIC_TIME) : HResult; stdcall;
+                           out pmtTime: TMusic_Time) : HResult; stdcall;
-  end;
+end;
+(*////////////////////////////////////////////////////////////////////
-{ IDirectMusicTool }
+// IDirectMusicTool *)
-  IDirectMusicTool = interface(IUnknown)
+  IDirectMusicTool = interface (IUnknown)
-  ['{D2AC28BA-B39B-11D1-8704-00600893B1BD}']
+    ['{d2ac28ba-b39b-11d1-8704-00600893b1bd}']
-    //  IDirectMusicTool
-    function Init(pGraph: IDirectMusicGraph) : HResult; stdcall;
+    function Init (pGraph: IDirectMusicGraph) : HResult; stdcall;
-    function GetMsgDeliveryType(var pdwDeliveryType: DWORD) : HResult; stdcall;
+    function GetMsgDeliveryType (out pdwDeliveryType: DWORD) : HResult; stdcall;
-    function GetMediaTypeArraySize(var pdwNumElements: DWORD) : HResult; stdcall;
+    function GetMediaTypeArraySize (out pdwNumElements: DWORD) : HResult; stdcall;
-    function GetMediaTypes(var padwMediaTypes;
+    function GetMediaTypes (out padwMediaTypes: PDWORD;
-                           dwNumElements: DWORD) : HResult; stdcall;
+                            dwNumElements: DWORD) : HResult; stdcall;
-    function ProcessPMsg(pPerf: IDirectMusicPerformance;
+    function ProcessPMsg (pPerf: IDirectMusicPerformance;
-                         const pPMSG: TDMUS_PMSG) : HResult; stdcall;
+                          var pPMSG: TDMus_PMsg) : HResult; stdcall;
-    function Flush(pPerf: IDirectMusicPerformance;
+    function Flush (pPerf: IDirectMusicPerformance;
-                   const pPMSG: TDMUS_PMSG;
+                    const pPMSG: TDMus_PMsg;
-                   rtTime: TREFERENCE_TIME) : HResult; stdcall;
+                    rtTime: TReference_Time) : HResult; stdcall;
-  end;
+end;
+(*////////////////////////////////////////////////////////////////////
-{ IDirectMusicGraph }
+// IDirectMusicGraph *)
-  IDirectMusicGraph = interface(IUnknown)
+  IDirectMusicGraph = interface (IUnknown)
-  ['{2BEFC277-5497-11D2-BCCB-00A0C922E6EB}']
+    ['{2befc277-5497-11d2-bccb-00a0c922e6eb}']
-    //  IDirectMusicGraph
-    function StampPMsg(const pPMSG: TDMUS_PMSG) : HResult; stdcall;
+    function StampPMsg (var pPMSG: TDMus_PMsg ) : HResult; stdcall;
-    function InsertTool(pTool: IDirectMusicTool;
+    function InsertTool (pTool: IDirectMusicTool;
-                        const pdwPChannels;
+                         var pdwPChannels: DWORD;
-                        cPChannels: DWORD;
+                         cPChannels: DWORD;
-                        lIndex: Longint) : HResult; stdcall;
+                         lIndex: LongInt) : HResult; stdcall;
-    function GetTool(dwIndex: DWORD;
+    function GetTool (dwIndex: DWORD;
-                     out ppTool: IDirectMusicTool) : HResult; stdcall;
+                      out ppTool: IDirectMusicTool) : HResult; stdcall;
-    function RemoveTool(pTool: IDirectMusicTool) : HResult; stdcall;
+    function RemoveTool (pTool: IDirectMusicTool) : HResult; stdcall;
   end;
-{ IDirectMusicStyle }
+(* DMUS_NOTE_PMsg *)
+  TDMus_Note_PMsg = packed record
+    (* begin DMUS_PMsg_PART *)
+    dwSize:          DWORD;
+    rtTime:          TReference_Time;      (* real time (in 100 nanosecond increments) *)
+    mtTime:          TMusic_Time;          (* music time *)
+    dwFlags:         DWORD;                (* various bits (see DMUS_PMsg_FLAGS enumeration) *)
+    dwPChannel:      DWORD;                (* Performance Channel. The Performance can *)
+                                           (* use this to determine the port/channel. *)
+    dwVirtualTrackID:DWORD;                (* virtual track ID *)
+    pTool:           IDirectMusicTool;     (* tool interface pointer *)
+    pGraph:          IDirectMusicGraph;    (* tool graph interface pointer *)
+    dwType:          DWORD;                (* PMSG type (see DMUS_PMsgT_TYPES defines) *)
+    dwVoiceID:       DWORD;                (* unique voice id which allows synthesizers to *)
+                                           (* identify a specific event. For DirectX 6.0, *)
+                                           (* this field should always be 0. *)
+    dwGroupID:       DWORD;                (* Track group id *)
+    punkUser:        IUnknown;             (* user com pointer, auto released upon PMSG free *)
+    (* end DMUS_PMsg_PART *)
+    mtDuration: TMusic_Time;    (* duration *)
+    wMusicValue:    WORD;       (* Description of note in chord and key. *)
+    wMeasure:       WORD;       (* Measure in which this note occurs *)
+    nOffset:        SmallInt;   (* Offset from grid at which this note occurs *)
+    bBeat:          BYTE;       (* Beat (in measure) at which this note occurs *)
+    bGrid:          BYTE;       (* Grid offset from beat at which this note occurs *)
+    bVelocity:      BYTE;       (* Note velocity *)
+    bFlags:         BYTE;       (* see DMUS_NOTE_FLAGS *)
+    bTimeRange:     BYTE;       (* Range to randomize time. *)
+    bDurRange:      BYTE;       (* Range to randomize duration. *)
+    bVelRange:      BYTE;       (* Range to randomize velocity. *)
+    bPlayModeFlags: BYTE;       (* Play mode *)
+    bSubChordLevel: BYTE;       (* Which subchord level this note uses.  *)
+    bMidiValue:     BYTE;       (* The MIDI note value, converted from wMusicValue *)
+    cTranspose:     char;       (* Transposition to add to midi note value after converted from wMusicValue. *)
+  end;
+  TDMus_NoteF_Flags = DWORD;
+const
+  DMUS_NOTEF_NOTEON = 1;     (* Set if this is a MIDI Note On. Otherwise, it is MIDI Note Off *)
+(* The DMUS_PLAYMODE_FLAGS are used to determine how to convert wMusicValue
+   into the appropriate bMidiValue.
+*)
+type
+  TDMus_PlayMode_Flags = DWORD;
+const
+   DMUS_PLAYMODE_KEY_ROOT          = 1;  (* Transpose on top of the key root. *)
+   DMUS_PLAYMODE_CHORD_ROOT        = 2;  (* Transpose on top of the chord root. *)
+   DMUS_PLAYMODE_SCALE_INTERVALS   = 4;  (* Use scale intervals from scale pattern. *)
+   DMUS_PLAYMODE_CHORD_INTERVALS   = 8;  (* Use chord intervals from chord pattern. *)
+   DMUS_PLAYMODE_NONE              = 16; (* No mode. Indicates the parent part's mode should be used. *)
+(* The following are playback modes that can be created by combining the DMUS_PLAYMODE_FLAGS
+   in various ways:
+*)
+(* Fixed. wMusicValue holds final MIDI note value. This is used for drums, sound effects, and sequenced
+   notes that should not be transposed by the chord or scale.
+*)
+  DMUS_PLAYMODE_FIXED            = 0;
+(* In fixed to key, the musicvalue is again a fixed MIDI value, but it
+   is transposed on top of the key root.
+*)
+  DMUS_PLAYMODE_FIXEDTOKEY       = DMUS_PLAYMODE_KEY_ROOT;
+(* In fixed to chord, the musicvalue is also a fixed MIDI value, but it
+   is transposed on top of the chord root.
+*)
+  DMUS_PLAYMODE_FIXEDTOCHORD     = DMUS_PLAYMODE_CHORD_ROOT;
+(* In Pedalpoint, the key root is used and the notes only track the intervals in
+   the scale. The chord root and intervals are completely ignored. This is useful
+   for melodic lines that play relative to the key root.
+*)
+  DMUS_PLAYMODE_PEDALPOINT       = (DMUS_PLAYMODE_KEY_ROOT or DMUS_PLAYMODE_SCALE_INTERVALS);
+(* In the Melodic mode, the chord root is used but the notes only track the intervals in
+   the scale. The key root and chord intervals are completely ignored. This is useful
+   for melodic lines that play relative to the chord root.
+*)
+  DMUS_PLAYMODE_MELODIC          = (DMUS_PLAYMODE_CHORD_ROOT or DMUS_PLAYMODE_SCALE_INTERVALS);
+(* Normal chord mode is the prevalent playback mode.
+   The notes track the intervals in the chord, which is based on the chord root.
+   If there is a scale component to the MusicValue, the additional intervals
+   are pulled from the scale and added.
+   If the chord does not have an interval to match the chord component of
+   the MusicValue, the note is silent.
+*)
+  DMUS_PLAYMODE_NORMALCHORD      = (DMUS_PLAYMODE_CHORD_ROOT or DMUS_PLAYMODE_CHORD_INTERVALS);
+(* If it is desirable to play a note that is above the top of the chord, the
+   always play mode (known as "purpleized" in a former life) finds a position
+   for the note by using intervals from the scale. Essentially, this mode is
+   a combination of the Normal and Melodic playback modes, where a failure
+   in Normal causes a second try in Melodic mode.
+*)
+  DMUS_PLAYMODE_ALWAYSPLAY       = (DMUS_PLAYMODE_MELODIC or DMUS_PLAYMODE_NORMALCHORD);
+(*  Legacy names for modes... *)
+  DMUS_PLAYMODE_PURPLEIZED       = DMUS_PLAYMODE_ALWAYSPLAY;
+  DMUS_PLAYMODE_SCALE_ROOT       = DMUS_PLAYMODE_KEY_ROOT;
+  DMUS_PLAYMODE_FIXEDTOSCALE     = DMUS_PLAYMODE_FIXEDTOKEY;
+type
+(* DMUS_MIDI_PMsg *)
+  TDMus_Midi_PMsg = record
+    (* begin DMUS_PMsg_PART *)
+    dwSize:          DWORD;
+    rtTime:          TReference_Time;      (* real time (in 100 nanosecond increments) *)
+    mtTime:          TMusic_Time;          (* music time *)
+    dwFlags:         DWORD;                (* various bits (see DMUS_PMsg_FLAGS enumeration) *)
+    dwPChannel:      DWORD;                (* Performance Channel. The Performance can *)
+                                           (* use this to determine the port/channel. *)
+    dwVirtualTrackID:DWORD;                (* virtual track ID *)
+    pTool:           IDirectMusicTool;     (* tool interface pointer *)
+    pGraph:          IDirectMusicGraph;    (* tool graph interface pointer *)
+    dwType:          DWORD;                (* PMSG type (see DMUS_PMsgT_TYPES defines) *)
+    dwVoiceID:       DWORD;                (* unique voice id which allows synthesizers to *)
+                                           (* identify a specific event. For DirectX 6.0, *)
+                                           (* this field should always be 0. *)
+    dwGroupID:       DWORD;                (* Track group id *)
+    punkUser:        IUnknown;             (* user com pointer, auto released upon PMSG free *)
+    (* end DMUS_PMsg_PART *)
+    bStatus: BYTE;
+    bByte1:  BYTE;
+    bByte2:  BYTE;
+    bPad: array [0..0] of BYTE;
+  end;
+(* DMUS_PATCH_PMsg *)
+  TDMus_Patch_PMsg = packed record
+    (* begin DMUS_PMsg_PART *)
+    dwSize:          DWORD;
+    rtTime:          TReference_Time;      (* real time (in 100 nanosecond increments) *)
+    mtTime:          TMusic_Time;          (* music time *)
+    dwFlags:         DWORD;                (* various bits (see DMUS_PMsg_FLAGS enumeration) *)
+    dwPChannel:      DWORD;                (* Performance Channel. The Performance can *)
+                                           (* use this to determine the port/channel. *)
+    dwVirtualTrackID:DWORD;                (* virtual track ID *)
+    pTool:           IDirectMusicTool;     (* tool interface pointer *)
+    pGraph:          IDirectMusicGraph;    (* tool graph interface pointer *)
+    dwType:          DWORD;                (* PMSG type (see DMUS_PMsgT_TYPES defines) *)
+    dwVoiceID:       DWORD;                (* unique voice id which allows synthesizers to *)
+                                           (* identify a specific event. For DirectX 6.0, *)
+                                           (* this field should always be 0. *)
+    dwGroupID:       DWORD;                (* Track group id *)
+    punkUser:        IUnknown;             (* user com pointer, auto released upon PMSG free *)
+    (* end DMUS_PMsg_PART *)
+    byInstrument: BYTE;
+    byMSB:        BYTE;
+    byLSB:        BYTE;
+    byPad: array [0..0] of BYTE;
+  end;
+(* DMUS_TRANSPOSE_PMsg *)
+  TDMus_Transpose_PMsg = packed record
+    (* begin DMUS_PMsg_PART *)
+    dwSize:          DWORD;
+    rtTime:          TReference_Time;      (* real time (in 100 nanosecond increments) *)
+    mtTime:          TMusic_Time;          (* music time *)
+    dwFlags:         DWORD;                (* various bits (see DMUS_PMsg_FLAGS enumeration) *)
+    dwPChannel:      DWORD;                (* Performance Channel. The Performance can *)
+                                           (* use this to determine the port/channel. *)
+    dwVirtualTrackID:DWORD;                (* virtual track ID *)
+    pTool:           IDirectMusicTool;     (* tool interface pointer *)
+    pGraph:          IDirectMusicGraph;    (* tool graph interface pointer *)
+    dwType:          DWORD;                (* PMSG type (see DMUS_PMsgT_TYPES defines) *)
+    dwVoiceID:       DWORD;                (* unique voice id which allows synthesizers to *)
+                                           (* identify a specific event. For DirectX 6.0, *)
+                                           (* this field should always be 0. *)
+    dwGroupID:       DWORD;                (* Track group id *)
+    punkUser:        IUnknown;             (* user com pointer, auto released upon PMSG free *)
+    (* end DMUS_PMsg_PART *)
+    nTranspose: SmallInt;
+  end;
+(* DMUS_CHANNEL_PRIORITY_PMsg *)
+  TDMus_Channel_Priority_PMsg = packed record
+    (* begin DMUS_PMsg_PART *)
+    dwSize:          DWORD;
+    rtTime:          TReference_Time;      (* real time (in 100 nanosecond increments) *)
+    mtTime:          TMusic_Time;          (* music time *)
+    dwFlags:         DWORD;                (* various bits (see DMUS_PMsg_FLAGS enumeration) *)
+    dwPChannel:      DWORD;                (* Performance Channel. The Performance can *)
+                                           (* use this to determine the port/channel. *)
+    dwVirtualTrackID:DWORD;                (* virtual track ID *)
+    pTool:           IDirectMusicTool;     (* tool interface pointer *)
+    pGraph:          IDirectMusicGraph;    (* tool graph interface pointer *)
+    dwType:          DWORD;                (* PMSG type (see DMUS_PMsgT_TYPES defines) *)
+    dwVoiceID:       DWORD;                (* unique voice id which allows synthesizers to *)
+                                           (* identify a specific event. For DirectX 6.0, *)
+                                           (* this field should always be 0. *)
+    dwGroupID:       DWORD;                (* Track group id *)
+    punkUser:        IUnknown;             (* user com pointer, auto released upon PMSG free *)
+    (* end DMUS_PMsg_PART *)
+    dwChannelPriority: DWORD;
+  end;
+(* DMUS_TEMPO_PMsg *)
+  TDMus_Tempo_PMsg = packed record
+    (* begin DMUS_PMsg_PART *)
+    dwSize:          DWORD;
+    rtTime:          TReference_Time;      (* real time (in 100 nanosecond increments) *)
+    mtTime:          TMusic_Time;          (* music time *)
+    dwFlags:         DWORD;                (* various bits (see DMUS_PMsg_FLAGS enumeration) *)
+    dwPChannel:      DWORD;                (* Performance Channel. The Performance can *)
+                                           (* use this to determine the port/channel. *)
+    dwVirtualTrackID:DWORD;                (* virtual track ID *)
+    pTool:           IDirectMusicTool;     (* tool interface pointer *)
+    pGraph:          IDirectMusicGraph;    (* tool graph interface pointer *)
+    dwType:          DWORD;                (* PMSG type (see DMUS_PMsgT_TYPES defines) *)
+    dwVoiceID:       DWORD;                (* unique voice id which allows synthesizers to *)
+                                           (* identify a specific event. For DirectX 6.0, *)
+                                           (* this field should always be 0. *)
+    dwGroupID:       DWORD;                (* Track group id *)
+    punkUser:        IUnknown;             (* user com pointer, auto released upon PMSG free *)
+    (* end DMUS_PMsg_PART *)
+    dblTempo: double;                      (* the tempo *)
+  end;
+const
+  DMUS_TEMPO_MAX         = 1000;
+  DMUS_TEMPO_MIN         = 1;
+  DMUS_MASTERTEMPO_MAX   = 100.0;
+  DMUS_MASTERTEMPO_MIN   = 0.01;
+type
+(* DMUS_SYSEX_PMsg *)
+  TDMus_SysEx_PMsg = packed record
+    (* begin DMUS_PMsg_PART *)
+    dwSize:          DWORD;
+    rtTime:          TReference_Time;      (* real time (in 100 nanosecond increments) *)
+    mtTime:          TMusic_Time;          (* music time *)
+    dwFlags:         DWORD;                (* various bits (see DMUS_PMsg_FLAGS enumeration) *)
+    dwPChannel:      DWORD;                (* Performance Channel. The Performance can *)
+                                           (* use this to determine the port/channel. *)
+    dwVirtualTrackID:DWORD;                (* virtual track ID *)
+    pTool:           IDirectMusicTool;     (* tool interface pointer *)
+    pGraph:          IDirectMusicGraph;    (* tool graph interface pointer *)
+    dwType:          DWORD;                (* PMSG type (see DMUS_PMsgT_TYPES defines) *)
+    dwVoiceID:       DWORD;                (* unique voice id which allows synthesizers to *)
+                                           (* identify a specific event. For DirectX 6.0, *)
+                                           (* this field should always be 0. *)
+    dwGroupID:       DWORD;                (* Track group id *)
+    punkUser:        IUnknown;             (* user com pointer, auto released upon PMSG free *)
+    (* end DMUS_PMsg_PART *)
+    dwLen:     DWORD;                      (* length of the data *)
+    abData: array [0..0] of BYTE;          (* array of data, length equal to dwLen *)
+  end;
+(* DMUS_CURVE_PMsg *)
+  TDMus_Curve_PMsg = packed record
+    (* begin DMUS_PMsg_PART *)
+    dwSize:          DWORD;
+    rtTime:          TReference_Time;      (* real time (in 100 nanosecond increments) *)
+    mtTime:          TMusic_Time;          (* music time *)
+    dwFlags:         DWORD;                (* various bits (see DMUS_PMsg_FLAGS enumeration) *)
+    dwPChannel:      DWORD;                (* Performance Channel. The Performance can *)
+                                           (* use this to determine the port/channel. *)
+    dwVirtualTrackID:DWORD;                (* virtual track ID *)
+    pTool:           IDirectMusicTool;     (* tool interface pointer *)
+    pGraph:          IDirectMusicGraph;    (* tool graph interface pointer *)
+    dwType:          DWORD;                (* PMSG type (see DMUS_PMsgT_TYPES defines) *)
+    dwVoiceID:       DWORD;                (* unique voice id which allows synthesizers to *)
+                                           (* identify a specific event. For DirectX 6.0, *)
+                                           (* this field should always be 0. *)
+    dwGroupID:       DWORD;                (* Track group id *)
+    punkUser:        IUnknown;             (* user com pointer, auto released upon PMSG free *)
+    (* end DMUS_PMsg_PART *)
+    mtDuration:      TMusic_Time;     (* how long this curve lasts *)
+    mtOriginalStart: TMusic_Time;     (* must be set to either zero when this PMSG is created or to the original mtTime of the curve *)
+    mtResetDuration: TMusic_Time;     (* how long after the curve is finished to reset to the
+                                        reset value, nResetValue *)
+    nStartValue:     SmallInt;        (* curve's start value *)
+    nEndValue:       SmallInt;        (* curve's end value *)
+    nResetValue:     SmallInt;        (* curve's reset value, sent after mtResetDuration or
+                                        upon a flush or invalidation *)
+    wMeasure:        WORD;            (* Measure in which this curve occurs *)
+    nOffset:         SmallInt;        (* Offset from grid at which this curve occurs *)
+    bBeat:           BYTE;            (* Beat (in measure) at which this curve occurs *)
+    bGrid:           BYTE;            (* Grid offset from beat at which this curve occurs *)
+    bType:           BYTE;            (* type of curve *)
+    bCurveShape:     BYTE;            (* shape of curve *)
+    bCCData:         BYTE;            (* CC# if this is a control change type *)
+    bFlags:          BYTE;            (* set to 1 if the nResetValue must be sent when the
+                                        time is reached or an invalidate occurs because
+                                        of a transition. If 0, the curve stays
+                                        permanently stuck at the new value. All bits besides
+are reserved. *)
+  end;
+  TDMus_Curve_Flags = DWORD;
+const
+  DMUS_CURVE_RESET = 1;           (* Set if the curve needs to be reset. *)
+(* Curve shapes *)
+type
+  TDMus_Curve_Shapes = (
+    DMUS_CURVES_LINEAR ,
+    DMUS_CURVES_INSTANT,
+    DMUS_CURVES_EXP    ,
+    DMUS_CURVES_LOG    ,
+    DMUS_CURVES_SINE
+  );
+const
+(* curve types *)
+  DMUS_CURVET_PBCURVE      = $03;
+  DMUS_CURVET_CCCURVE      = $04;
+  DMUS_CURVET_MATCURVE     = $05;
+  DMUS_CURVET_PATCURVE     = $06;
+type
+(* DMUS_TIMESIG_PMsg *)
+  TDMus_TimeSig_PMsg = packed record
+    (* begin DMUS_PMsg_PART *)
+    dwSize:          DWORD;
+    rtTime:          TReference_Time;      (* real time (in 100 nanosecond increments) *)
+    mtTime:          TMusic_Time;          (* music time *)
+    dwFlags:         DWORD;                (* various bits (see DMUS_PMsg_FLAGS enumeration) *)
+    dwPChannel:      DWORD;                (* Performance Channel. The Performance can *)
+                                           (* use this to determine the port/channel. *)
+    dwVirtualTrackID:DWORD;                (* virtual track ID *)
+    pTool:           IDirectMusicTool;     (* tool interface pointer *)
+    pGraph:          IDirectMusicGraph;    (* tool graph interface pointer *)
+    dwType:          DWORD;                (* PMSG type (see DMUS_PMsgT_TYPES defines) *)
+    dwVoiceID:       DWORD;                (* unique voice id which allows synthesizers to *)
+                                           (* identify a specific event. For DirectX 6.0, *)
+                                           (* this field should always be 0. *)
+    dwGroupID:       DWORD;                (* Track group id *)
+    punkUser:        IUnknown;             (* user com pointer, auto released upon PMSG free *)
+    (* end DMUS_PMsg_PART *)
+    (* Time signatures define how many beats per measure, which note receives *)
+    (* the beat, and the grid resolution. *)
+    bBeatsPerMeasure: BYTE;          (* beats per measure (top of time sig) *)
+    bBeat:            BYTE;          (* what note receives the beat (bottom of time sig.) *)
+                                     (* we can assume that 0 means 256th note *)
+    wGridsPerBeat:    WORD;          (* grids per beat *)
+  end;
+const
+(* notification type values *)
+(* The following correspond to GUID_NOTIFICATION_SEGMENT *)
+  DMUS_NOTIFICATION_SEGSTART     = 0;
+  DMUS_NOTIFICATION_SEGEND       = 1;
+  DMUS_NOTIFICATION_SEGALMOSTEND = 2;
+  DMUS_NOTIFICATION_SEGLOOP      = 3;
+  DMUS_NOTIFICATION_SEGABORT     = 4;
+(* The following correspond to GUID_NOTIFICATION_PERFORMANCE *)
+  DMUS_NOTIFICATION_MUSICSTARTED = 0;
+  DMUS_NOTIFICATION_MUSICSTOPPED = 1;
+(* The following corresponds to GUID_NOTIFICATION_MEASUREANDBEAT *)
+  DMUS_NOTIFICATION_MEASUREBEAT  = 0;
+(* The following corresponds to GUID_NOTIFICATION_CHORD *)
+  DMUS_NOTIFICATION_CHORD        = 0;
+(* The following correspond to GUID_NOTIFICATION_COMMAND *)
+  DMUS_NOTIFICATION_GROOVE        = 0;
+  DMUS_NOTIFICATION_EMBELLISHMENT = 1;
+const
+  DMUS_MAX_NAME          = 64;         (* Maximum object name length. *)
+  DMUS_MAX_CATEGORY      = 64;         (* Maximum object category name length. *)
+  DMUS_MAX_FILENAME      = MAX_PATH;
+type
+  PDMus_Version = ^TDMus_Version;
+  TDMus_Version = packed record
+    dwVersionMS: DWORD;
+    dwVersionLS: DWORD;
+  end;
+(*      The DMUSOBJECTDESC structure is used to communicate everything you could *)
+(*      possibly use to describe a DirectMusic object.  *)
+  PDMus_ObjectDesc = ^TDMus_ObjectDesc;
+  TDMus_ObjectDesc = packed record
+    dwSize:      DWORD;                     (* Size of this structure. *)
+    dwValidData: DWORD;                     (* Flags indicating which fields below are valid. *)
+    guidObject:  TGUID;                     (* Unique ID for this object. *)
+    guidClass:   TGUID;                     (* GUID for the class of object. *)
+    ftDate:      TFileTime;                 (* Last edited date of object. *)
+    vVersion:    TDMus_Version;              (* Version. *)
+    wszName:     array [0..DMUS_MAX_NAME-1] of WCHAR; (* Name of object. *)
+    wszCategory: array [0..DMUS_MAX_CATEGORY-1] of WCHAR; (* Category for object (optional). *)
+    wszFileName: array [0..DMUS_MAX_FILENAME-1] of WCHAR; (* File path. *)
+    llMemLength: LongLong;                     (* Size of Memory data. *)
+    pbMemData:   Pointer;                   (* Memory pointer for data. *)
+    dwDummy:     DWORD; ///?
+  end;
+(*      Flags for dwValidData. When set, a flag indicates that the  *)
+(*      corresponding field in DMUSOBJECTDESC holds valid data. *)
+const
+  DMUS_OBJ_OBJECT         = (1 shl 0);     (* Object GUID is valid. *)
+  DMUS_OBJ_CLASS          = (1 shl 1);     (* Class GUID is valid. *)
+  DMUS_OBJ_NAME           = (1 shl 2);     (* Name is valid. *)
+  DMUS_OBJ_CATEGORY       = (1 shl 3);     (* Category is valid. *)
+  DMUS_OBJ_FILENAME       = (1 shl 4);     (* File path is valid. *)
+  DMUS_OBJ_FULLPATH       = (1 shl 5);     (* Path is full path. *)
+  DMUS_OBJ_URL            = (1 shl 6);     (* Path is URL. *)
+  DMUS_OBJ_VERSION        = (1 shl 7);     (* Version is valid. *)
+  DMUS_OBJ_DATE           = (1 shl 8);     (* Date is valid. *)
+  DMUS_OBJ_LOADED         = (1 shl 9);     (* Object is currently loaded in memory. *)
+  DMUS_OBJ_MEMORY         = (1 shl 10);    (* Object is pointed to by pbMemData. *)
+  DMUSB_LOADED    = (1 shl 0);        (* Set when band has been loaded *)
+  DMUSB_DEFAULT   = (1 shl 1);        (* Set when band is default band for a style *)
+type
+  IDirectMusicBand =                 interface;
+  IDirectMusicChordMap =             interface;
+  IDirectMusicLoader =               interface;
+  IDirectMusicObject =               interface;
+  IDirectMusicBand = interface (IUnknown)
+    ['{d2ac28c0-b39b-11d1-8704-00600893b1bd}']
+    function CreateSegment (out ppSegment: IDirectMusicSegment) : HResult; stdcall;
+    function Download      (pPerformance: IDirectMusicPerformance) : HResult; stdcall;
+    function Unload        (pPerformance: IDirectMusicPerformance) : HResult; stdcall;
+  end;
+  IDirectMusicObject = interface (IUnknown)
+    ['{d2ac28b5-b39b-11d1-8704-00600893b1bd}']
+    function GetDescriptor (out pDesc: TDMus_ObjectDesc) : HResult; stdcall;
+    function SetDescriptor (const pDesc: TDMus_ObjectDesc) : HResult; stdcall;
+    function ParseDescriptor (var pStream;
+                              out pDesc: TDMus_ObjectDesc) : HResult; stdcall;
+  end;
+  IDirectMusicLoader = interface (IUnknown)
+    ['{2ffaaca2-5dca-11d2-afa6-00aa0024d8b6}']
+    function GetObject (const pDesc: TDMus_ObjectDesc;
+                        const riid : TGUID;
+                        out ppv) : HResult; stdcall;
+    function SetObject (const pDesc: TDMus_ObjectDesc) : HResult; stdcall;
+    function SetSearchDirectory (const rguidClass: TGUID;
+                                 pwzPath: PWideChar;
+                                 fClear:  BOOL) : HResult; stdcall;
+    function ScanDirectory (const rguidClass: TGUID;
+                            pwzFileExtension,
+                            pwzScanFileName: PWideChar) : HResult; stdcall;
+    function CacheObject (pObject: IDirectMusicObject) : HResult; stdcall;
+    function ReleaseObject (pObject: IDirectMusicObject) : HResult; stdcall;
+    function ClearCache (const rguidClass: TGUID) : HResult; stdcall;
+    function EnableCache (const rguidClass: TGUID;
+                          fEnable: BOOL) : HResult; stdcall;
+    function EnumObject (const rguidClass: TGUID;
+                         dwIndex: DWORD;
+                         const pDesc: TDMus_ObjectDesc) : HResult; stdcall;
+  end;
+(*  Stream object supports IDirectMusicGetLoader interface to access loader while file parsing. *)
+  IDirectMusicGetLoader = interface (IUnknown)
+    ['{68a04844-d13d-11d1-afa6-00aa0024d8b6}']
+    function GetLoader (out ppLoader: IDirectMusicLoader) : HResult; stdcall;
+  end;
+(*/////////////////////////////////////////////////////////////////////
+// IDirectMusicStyle *)
-  IDirectMusicStyle = interface(IUnknown)
+  IDirectMusicStyle = interface (IUnknown)
-  ['{D2AC28BD-B39B-11D1-8704-00600893B1BD}']
+    ['{d2ac28bd-b39b-11d1-8704-00600893b1bd}']
-    //  IDirectMusicStyle
-    function GetBand(pwszName: PWCHAR;
+    function GetBand (pwszName: PWideChar;
-                     out ppBand: IDirectMusicBand) : HResult; stdcall;
+                      out ppBand: IDirectMusicBand) : HResult; stdcall;
-    function EnumBand(dwIndex: DWORD;
+    function EnumBand (dwIndex: DWORD;
-                      pwszName: PWCHAR) : HResult; stdcall;
+                       pwszName: PWideChar) : HResult; stdcall;
-    function GetDefaultBand(out ppBand: IDirectMusicBand) : HResult; stdcall;
+    function GetDefaultBand (out ppBand: IDirectMusicBand) : HResult; stdcall;
-    function EnumMotif(dwIndex: DWORD;
+    function EnumMotif (dwIndex: DWORD;
-                       pwszName: PWCHAR) : HResult; stdcall;
+                        pwszName: PWideChar) : HResult; stdcall;
-    function GetMotif(pwszName: PWCHAR;
+    function GetMotif (pwszName: PWideChar;
-                      out ppSegment: IDirectMusicSegment) : HResult; stdcall;
+                       out ppSegment: IDirectMusicSegment) : HResult; stdcall;
-    function GetDefaultChordMap(out ppChordMap: IDirectMusicChordMap) : HResult; stdcall;
+    function GetDefaultChordMap (out ppChordMap: IDirectMusicChordMap) : HResult; stdcall;
-    function EnumChordMap(dwIndex: DWORD;
+    function EnumChordMap (dwIndex: DWORD;
-                          pwszName: PWCHAR) : HResult; stdcall;
+                           pwszName: PWideChar) : HResult; stdcall;
-    function GetChordMap(pwszName: PWCHAR;
+    function GetChordMap (pwszName: PWideChar;
-                         out ppChordMap: IDirectMusicChordMap) : HResult; stdcall;
+                          out ppChordMap: IDirectMusicChordMap) : HResult; stdcall;
-    function GetTimeSignature(var pTimeSig: TDMUS_TIMESIGNATURE) : HResult; stdcall;
+    function GetTimeSignature (out pTimeSig: TDMus_TimeSignature) : HResult; stdcall;
-    function GetEmbellishmentLength(dwType: DWORD;
+    function GetEmbellishmentLength (dwType, dwLevel: DWORD;
-                                    dwLevel: DWORD;
-                                    var pdwMin: DWORD;
-                                    var pdwMax: DWORD) : HResult; stdcall;
+                                     out pdwMin, pdwMax: DWORD) : HResult; stdcall;
-    function GetTempo(var pTempo: Double) : HResult; stdcall;
+    function GetTempo (out pTempo: double) : HResult; stdcall;
   end;
+(*/////////////////////////////////////////////////////////////////////
-{ IDirectMusicChordMap }
+// IDirectMusicChordMap *)
-  IDirectMusicChordMap = interface(IUnknown)
+  IDirectMusicChordMap = interface (IUnknown)
-  ['{D2AC28BE-B39B-11D1-8704-00600893B1BD}']
+    ['{d2ac28be-b39b-11d1-8704-00600893b1bd}']
-    //  IDirectMusicChordMap
-    function GetScale(var pdwScale: DWORD) : HResult; stdcall;
+    function GetScale (out pdwScale: DWORD) : HResult; stdcall;
   end;
+(*/////////////////////////////////////////////////////////////////////
-{ IDirectMusicComposer }
+// IDirectMusicComposer *)
-  IDirectMusicComposer = interface(IUnknown)
+  IDirectMusicComposer = interface (IUnknown)
-  ['{D2AC28BF-B39B-11D1-8704-00600893B1BD}']
+    ['{d2ac28bf-b39b-11d1-8704-00600893b1bd}']
-    //  IDirectMusicComposer
-    function ComposeSegmentFromTemplate(pStyle: IDirectMusicStyle;
+    function ComposeSegmentFromTemplate (pStyle: IDirectMusicStyle;
-                                        pTempSeg: IDirectMusicSegment;
+                                         pTempSeg: IDirectMusicSegment;
-                                        wActivity: Word;
+                                         wActivity: WORD;
-                                        pChordMap: IDirectMusicChordMap;
+                                         pChordMap: IDirectMusicChordMap;
-                                        out ppSectionSeg: IDirectMusicSegment) : HResult; stdcall;
+                                         out ppSectionSeg: IDirectMusicSegment) : HResult; stdcall;
-    function ComposeSegmentFromShape(pStyle: IDirectMusicStyle;
+    function ComposeSegmentFromShape (pStyle: IDirectMusicStyle;
-                                     wNumMeasures: Word;
+                                      wNumMeasures,
-                                     wShape: Word;
+                                      wShape,
-                                     wActivity: Word;
+                                      wActivity: WORD;
-                                     fIntro: BOOL;
+                                      fIntro:    BOOL;
-                                     fEnd: BOOL;
+                                      fEnd:      BOOL;
-                                     pChordMap: IDirectMusicChordMap;
+                                      pChordMap: IDirectMusicChordMap;
-                                     out ppSectionSeg: IDirectMusicSegment) : HResult; stdcall;
+                                      out ppSectionSeg: IDirectMusicSegment) : HResult; stdcall;
-    function ComposeTransition(pFromSeg: IDirectMusicSegment;
+    function ComposeTransition (pFromSeg: IDirectMusicSegment;
-                               pToSeg: IDirectMusicSegment;
+                                pToSeg:   IDirectMusicSegment;
-                               mtTime: MUSIC_TIME;
+                                mtTime:   TMusic_Time;
-                               wCommand: Word;
+                                wCommand: WORD;
-                               dwFlags: DWORD;
+                                dwFlags:  DWORD;
-                               pChordMap: IDirectMusicChordMap;
+                                pChordMap:IDirectMusicChordMap;
-                               out ppSectionSeg: IDirectMusicSegment) : HResult; stdcall;
+                                out ppSectionSeg: IDirectMusicSegment) : HResult; stdcall;
-    function AutoTransition(pPerformance: IDirectMusicPerformance;
+    function AutoTransition (pPerformance: IDirectMusicPerformance;
-                            pToSeg: IDirectMusicSegment;
+                             pToSeg:       IDirectMusicSegment;
-                            wCommand: Word;
+                             wCommand:     WORD;
-                            dwFlags: DWORD;
+                             dwFlags:      DWORD;
-                            pChordMap: IDirectMusicChordMap;
+                             pChordMap:    IDirectMusicChordMap;
-                            out ppTransSeg: IDirectMusicSegment;
+                             out ppTransSeg:      IDirectMusicSegment;
-                            out ppToSegState: IDirectMusicSegmentState;
+                             out ppToSegState:    IDirectMusicSegmentState;
-                            out ppTransSegState: IDirectMusicSegmentState) : HResult; stdcall;
+                             out ppTransSegState: IDirectMusicSegmentState) : HResult; stdcall;
-    function ComposeTemplateFromShape(wNumMeasures: Word;
+    function ComposeTemplateFromShape (wNumMeasures: WORD;
-                                      wShape: Word;
+                                       wShape:       WORD;
-                                      fIntro: BOOL;
+                                       fIntro:       BOOL;
-                                      fEnd: BOOL;
+                                       fEnd:         BOOL;
-                                      wEndLength: Word;
+                                       wEndLength:   WORD;
-                                      out ppTempSeg: IDirectMusicSegment) : HResult; stdcall;
+                                       out ppTempSeg:IDirectMusicSegment) : HResult; stdcall;
-    function ChangeChordMap(pSectionSeg: IDirectMusicSegment;
+    function ChangeChordMap (pSectionSeg: IDirectMusicSegment;
-                            fTrackScale: BOOL;
+                             fTrackScale: BOOL;
-                            pChordMap: IDirectMusicChordMap) : HResult; stdcall;
+                             pChordMap:   IDirectMusicChordMap) : HResult; stdcall;
   end;
 const
-  // CLSID's
+(* CLSID's *)
-  CLSID_DirectMusicPerformance  : TGUID = '{D2AC2881-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicPerformance : TGUID = '{d2ac2881-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicSegment      : TGUID = '{D2AC2882-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicSegment : TGUID = '{d2ac2882-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicSegmentState : TGUID = '{D2AC2883-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicSegmentState : TGUID = '{d2ac2883-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicGraph        : TGUID = '{D2AC2884-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicGraph : TGUID = '{d2ac2884-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicTempoTrack   : TGUID = '{D2AC2885-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicTempoTrack : TGUID = '{d2ac2885-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicSeqTrack     : TGUID = '{D2AC2886-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicSeqTrack : TGUID = '{d2ac2886-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicSysExTrack   : TGUID = '{D2AC2887-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicSysExTrack : TGUID = '{d2ac2887-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicTimeSigTrack : TGUID = '{D2AC2888-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicTimeSigTrack : TGUID = '{d2ac2888-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicStyle        : TGUID = '{D2AC288A-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicStyle : TGUID = '{d2ac288a-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicChordTrack   : TGUID = '{D2AC288B-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicChordTrack : TGUID = '{d2ac288b-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicCommandTrack : TGUID = '{D2AC288C-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicCommandTrack : TGUID = '{d2ac288c-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicStyleTrack   : TGUID = '{D2AC288D-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicStyleTrack : TGUID = '{d2ac288d-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicMotifTrack   : TGUID = '{D2AC288E-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicMotifTrack : TGUID = '{d2ac288e-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicChordMap     : TGUID = '{D2AC288F-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicChordMap : TGUID = '{d2ac288f-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicComposer     : TGUID = '{D2AC2890-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicComposer : TGUID = '{d2ac2890-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicSignPostTrack: TGUID = '{F17E8672-C3B4-11D1-870B-00600893B1BD}';
+  CLSID_DirectMusicSignPostTrack : TGUID = '{f17e8672-c3b4-11d1-870b-00600893b1bd}';
-  CLSID_DirectMusicLoader       : TGUID = '{D2AC2892-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicLoader : TGUID = '{d2ac2892-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicBandTrack    : TGUID = '{D2AC2894-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicBandTrack : TGUID = '{d2ac2894-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicBand         : TGUID = '{79BA9E00-B6EE-11D1-86BE-00C04FBF8FEF}';
+  CLSID_DirectMusicBand : TGUID = '{79ba9e00-b6ee-11d1-86be-00c04fbf8fef}';
-  CLSID_DirectMusicChordMapTrack: TGUID = '{D2AC2896-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicChordMapTrack : TGUID = '{d2ac2896-b39b-11d1-8704-00600893b1bd}';
-  CLSID_DirectMusicMuteTrack    : TGUID = '{D2AC2898-B39B-11D1-8704-00600893B1BD}';
+  CLSID_DirectMusicMuteTrack : TGUID = '{d2ac2898-b39b-11d1-8704-00600893b1bd}';
-// Special GUID for all object types. This is used by the loader.
+(* Special GUID for all object types. This is used by the loader. *)
-  GUID_DirectMusicAllTypes      : TGUID = '{D2AC2893-B39B-11D1-8704-00600893B1BD}';
+  GUID_DirectMusicAllTypes : TGUID = '{d2ac2893-b39b-11d1-8704-00600893b1bd}';
-// Notification guids
+(* Notification guids *)
-  GUID_NOTIFICATION_SEGMENT       : TGUID = '{D2AC2899-B39B-11D1-8704-00600893B1BD}';
+  GUID_NOTIFICATION_SEGMENT : TGUID = '{d2ac2899-b39b-11d1-8704-00600893b1bd}';
-  GUID_NOTIFICATION_PERFORMANCE   : TGUID = '{81F75BC5-4E5D-11D2-BCC7-00A0C922E6EB}';
+  GUID_NOTIFICATION_PERFORMANCE : TGUID = '{81f75bc5-4e5d-11d2-bcc7-00a0c922e6eb}';
-  GUID_NOTIFICATION_MEASUREANDBEAT: TGUID = '{D2AC289A-B39B-11D1-8704-00600893B1BD}';
+  GUID_NOTIFICATION_MEASUREANDBEAT : TGUID = '{d2ac289a-b39b-11d1-8704-00600893b1bd}';
-  GUID_NOTIFICATION_CHORD         : TGUID = '{D2AC289B-B39B-11D1-8704-00600893B1BD}';
+  GUID_NOTIFICATION_CHORD : TGUID = '{d2ac289b-b39b-11d1-8704-00600893b1bd}';
-  GUID_NOTIFICATION_COMMAND       : TGUID = '{D2AC289C-B39B-11D1-8704-00600893B1BD}';
+  GUID_NOTIFICATION_COMMAND : TGUID = '{d2ac289c-b39b-11d1-8704-00600893b1bd}';
-// Track param type guids
+(* Track param type guids *)
-// Use to get/set a DMUS_COMMAND_PARAM param in the Command track
+(* Use to get/set a DMUS_COMMAND_PARAM param in the Command track *)
-  GUID_CommandParam               : TGUID = '{D2AC289D-B39B-11D1-8704-00600893B1BD}';
+  GUID_CommandParam : TGUID = '{d2ac289d-b39b-11d1-8704-00600893b1bd}';
-// Use to get/set a DMUS_CHORD_PARAM param in the Chord track
+(* Use to get a DMUS_COMMAND_PARAM_2 param in the Command track *)
-  GUID_ChordParam                 : TGUID = '{D2AC289E-B39B-11D1-8704-00600893B1BD}';
+  GUID_CommandParam2 : TGUID = '{28f97ef7-9538-11d2-97a9-00c04fa36e58}';
-// Use to get a DMUS_RHYTHM_PARAM param in the Chord track
+(* Use to get/set a DMUS_CHORD_PARAM param in the Chord track *)
-  GUID_RhythmParam                : TGUID = '{D2AC289F-B39B-11D1-8704-00600893B1BD}';
+  GUID_ChordParam : TGUID = '{d2ac289e-b39b-11d1-8704-00600893b1bd}';
-// Use to get/set an IDirectMusicStyle param in the Style track
-  GUID_IDirectMusicStyle          : TGUID = '{D2AC28A1-B39B-11D1-8704-00600893B1BD}';
-// Use to get a DMUS_TIMESIGNATURE param in the Style and TimeSig tracks
-  GUID_TimeSignature              : TGUID = '{D2AC28A4-B39B-11D1-8704-00600893B1BD}';
-// Use to get/set a DMUS_TEMPO_PARAM param in the Tempo track
+(* Use to get a DMUS_RHYTHM_PARAM param in the Chord track *)
-  GUID_TempoParam                 : TGUID = '{D2AC28A5-B39B-11D1-8704-00600893B1BD}';
+  GUID_RhythmParam : TGUID = '{d2ac289f-b39b-11d1-8704-00600893b1bd}';
-// Use to set an IDirectMusicBand param in the Band track
+(* Use to get/set an IDirectMusicStyle param in the Style track *)
-  GUID_IDirectMusicBand           : TGUID = '{D2AC28AC-B39B-11D1-8704-00600893B1BD}';
+  GUID_IDirectMusicStyle : TGUID = '{d2ac28a1-b39b-11d1-8704-00600893b1bd}';
-// Use to get/set an IDirectMusicChordMap param in the ChordMap track
+(* Use to get a DMUS_TIMESIGNATURE param in the Style and TimeSig tracks *)
-  GUID_IDirectMusicChordMap       : TGUID = '{D2AC28AD-B39B-11D1-8704-00600893B1BD}';
+  GUID_TimeSignature : TGUID = '{d2ac28a4-b39b-11d1-8704-00600893b1bd}';
-// Use to get/set a DMUS_MUTE_PARAM param in the Mute track
+(* Use to get/set a DMUS_TEMPO_PARAM param in the Tempo track *)
-  GUID_MuteParam                  : TGUID = '{D2AC28AF-B39B-11D1-8704-00600893B1BD}';
+  GUID_TempoParam : TGUID = '{d2ac28a5-b39b-11d1-8704-00600893b1bd}';
-// These guids are used in IDirectMusicSegment::SetParam to tell the band track to perform various actions.
+(* Use to set an IDirectMusicBand param in the Band track *)
-///
-/// Download bands for the IDirectMusicSegment
-  GUID_Download                   : TGUID = '{D2AC28A7-B39B-11D1-8704-00600893B1BD}';
-// Unload bands for the IDirectMusicSegment
-  GUID_Unload                     : TGUID = '{D2AC28A8-B39B-11D1-8704-00600893B1BD}';
-// Connect segment's bands to an IDirectMusicCollection
-  GUID_ConnectToDLSCollection     : TGUID = '{1DB1AE6B-E92E-11D1-A8C5-00C04FA3726E}';
-// Enable/disable autodownloading of bands
-  GUID_Enable_Auto_Download       : TGUID = '{D2AC28A9-B39B-11D1-8704-00600893B1BD}';
-  GUID_Disable_Auto_Download      : TGUID = '{D2AC28AA-B39B-11D1-8704-00600893B1BD}';
-// Clear all bands
-  GUID_Clear_All_Bands            : TGUID = '{D2AC28AB-B39B-11D1-8704-00600893B1BD}';
-// Set segment to manage all program changes, bank selects, etc. for simple playback of a standard MIDI file
-  GUID_StandardMIDIFile           : TGUID = '{06621075-E92E-11D1-A8C5-00C04FA3726E}';
-// For compatibility with beta releases...
-  GUID_IgnoreBankSelectForGM      : TGUID = '{06621075-E92E-11D1-A8C5-00C04FA3726E}'; //same as GUID_StandardMIDIFile;
-// Disable/enable param guids. Use these in SetParam calls to disable or enable sending
-// specific PMsg types.
-///
-  GUID_DisableTimeSig             : TGUID = '{45FC707B-1DB4-11D2-BCAC-00A0C922E6EB}';
-  GUID_EnableTimeSig              : TGUID = '{45FC707C-1DB4-11D2-BCAC-00A0C922E6EB}';
-  GUID_DisableTempo               : TGUID = '{45FC707D-1DB4-11D2-BCAC-00A0C922E6EB}';
-  GUID_EnableTempo                : TGUID = '{45FC707E-1DB4-11D2-BCAC-00A0C922E6EB}';
-// Global data guids
-  GUID_PerfMasterTempo            : TGUID = '{D2AC28B0-B39B-11D1-8704-00600893B1BD}';
-  GUID_PerfMasterVolume           : TGUID = '{D2AC28B1-B39B-11D1-8704-00600893B1BD}';
-  GUID_PerfMasterGrooveLevel      : TGUID = '{D2AC28B2-B39B-11D1-8704-00600893B1BD}';
-  GUID_PerfAutoDownload           : TGUID = '{FB09565B-3631-11D2-BCB8-00A0C922E6EB}';
-// GUID for default GM/GS dls collection.
-  GUID_DefaultGMCollection        : TGUID = '{F17E8673-C3B4-11D1-870B-00600893B1BD}';
-// IID's
-  IID_IDirectMusicLoader          : TGUID = '{2FFAACA2-5DCA-11D2-AFA6-00AA0024D8B6}';
-  IID_IDirectMusicGetLoader       : TGUID = '{68A04844-D13D-11D1-AFA6-00AA0024D8B6}';
-  IID_IDirectMusicObject          : TGUID = '{D2AC28B5-B39B-11D1-8704-00600893B1BD}';
-  IID_IDirectMusicSegment         : TGUID = '{F96029A2-4282-11D2-8717-00600893B1BD}';
-  IID_IDirectMusicSegmentState    : TGUID = '{A3AFDCC7-D3EE-11D1-BC8D-00A0C922E6EB}';
-  IID_IDirectMusicTrack           : TGUID = '{F96029A1-4282-11D2-8717-00600893B1BD}';
-  IID_IDirectMusicPerformance     : TGUID = '{07D43D03-6523-11D2-871D-00600893B1BD}';
-  IID_IDirectMusicTool            : TGUID = '{D2AC28BA-B39B-11D1-8704-00600893B1BD}';
-  IID_IDirectMusicGraph           : TGUID = '{2BEFC277-5497-11D2-BCCB-00A0C922E6EB}';
-  IID_IDirectMusicStyle           : TGUID = '{D2AC28BD-B39B-11D1-8704-00600893B1BD}';
-  IID_IDirectMusicChordMap        : TGUID = '{D2AC28BE-B39B-11D1-8704-00600893B1BD}';
-  IID_IDirectMusicComposer        : TGUID = '{D2AC28BF-B39B-11D1-8704-00600893B1BD}';
-  IID_IDirectMusicBand            : TGUID = '{D2AC28C0-B39B-11D1-8704-00600893B1BD}';
+  GUID_IDirectMusicBand : TGUID = '{d2ac28ac-b39b-11d1-8704-00600893b1bd}';
-// Alternate interface IDs, available in DX7 release and after.
-  IID_IDirectMusicPerformance2    : TGUID = '{6FC2CAE0-BC78-11D2-AFA6-00AA0024D8B6}';
-  IID_IDirectMusicSegment2        : TGUID = '{D38894D1-C052-11D2-872F-00600893B1BD}';
-//***********************************************************************
-//                                                                      *
-//   dmusicf.h -- This module defines the DirectMusic file formats      *
-//                                                                      *
-//   Copyright (c) 1998, Microsoft Corp. All rights reserved.           *
-//                                                                      *
-//**********************************************************************
-// Common chunks
-const
-  DMUS_FOURCC_GUID_CHUNK     = Ord('g') + Ord('u') shl 8 + Ord('i') shl 16 + Ord('d') shl 24;
-  DMUS_FOURCC_INFO_LIST      = Ord('I') + Ord('N') shl 8 + Ord('F') shl 16 + Ord('O') shl 24;
-  DMUS_FOURCC_UNFO_LIST      = Ord('U') + Ord('N') shl 8 + Ord('F') shl 16 + Ord('O') shl 24;
-  DMUS_FOURCC_UNAM_CHUNK     = Ord('U') + Ord('N') shl 8 + Ord('A') shl 16 + Ord('M') shl 24;
-  DMUS_FOURCC_UART_CHUNK     = Ord('U') + Ord('A') shl 8 + Ord('R') shl 16 + Ord('T') shl 24;
-  DMUS_FOURCC_UCOP_CHUNK     = Ord('U') + Ord('C') shl 8 + Ord('O') shl 16 + Ord('P') shl 24;
-  DMUS_FOURCC_USBJ_CHUNK     = Ord('U') + Ord('S') shl 8 + Ord('B') shl 16 + Ord('J') shl 24;
-  DMUS_FOURCC_UCMT_CHUNK     = Ord('U') + Ord('C') shl 8 + Ord('M') shl 16 + Ord('T') shl 24;
-  DMUS_FOURCC_CATEGORY_CHUNK = Ord('c') + Ord('a') shl 8 + Ord('t') shl 16 + Ord('g') shl 24;
-  DMUS_FOURCC_VERSION_CHUNK  = Ord('v') + Ord('e') shl 8 + Ord('r') shl 16 + Ord('s') shl 24;
-// The following structures are used by the Tracks, and are the packed structures
-// that are passed to the Tracks inside the IStream.
-type
-  TDMUS_IO_SEQ_ITEM = record
-    mtTime     : MUSIC_TIME;
-    mtDuration : MUSIC_TIME;
-    dwPChannel : DWORD;
-    nOffset    : Smallint;
-    bStatus    : Byte;
-    bByte1     : Byte;
-    bByte2     : Byte;
-  end;
-  DMUS_IO_SEQ_ITEM = TDMUS_IO_SEQ_ITEM;
+(* Use to get/set an IDirectMusicChordMap param in the ChordMap track *)
+  GUID_IDirectMusicChordMap : TGUID = '{d2ac28ad-b39b-11d1-8704-00600893b1bd}';
-  TDMUS_IO_CURVE_ITEM = record
+(* Use to get/set a DMUS_MUTE_PARAM param in the Mute track *)
-    mtStart         : MUSIC_TIME;
+  GUID_MuteParam : TGUID = '{d2ac28af-b39b-11d1-8704-00600893b1bd}';
-    mtDuration      : MUSIC_TIME;
+(* These guids are used in IDirectMusicSegment::SetParam to tell the band track to perform various actions.
-    mtResetDuration : MUSIC_TIME;
-    dwPChannel      : DWORD;
+ *)
-    nOffset         : Smallint;
-    nStartValue     : Smallint;
+(* Download bands for the IDirectMusicSegment *)
-    nEndValue       : Smallint;
+  GUID_Download : TGUID = '{d2ac28a7-b39b-11d1-8704-00600893b1bd}';
-    nResetValue     : Smallint;
+(* Unload bands for the IDirectMusicSegment *)
-    bType           : Byte;
-    bCurveShape     : Byte;
-    bCCData         : Byte;
-    bFlags          : Byte;
-  end;
-  DMUS_IO_CURVE_ITEM = TDMUS_IO_CURVE_ITEM;
+  GUID_Unload : TGUID = '{d2ac28a8-b39b-11d1-8704-00600893b1bd}';
+(* Connect segment's bands to an IDirectMusicCollection *)
+  GUID_ConnectToDLSCollection : TGUID = '{1db1ae6b-e92e-11d1-a8c5-00c04fa3726e}';
+(* Enable/disable autodownloading of bands *)
+  GUID_Enable_Auto_Download : TGUID = '{d2ac28a9-b39b-11d1-8704-00600893b1bd}';
+  GUID_Disable_Auto_Download : TGUID = '{d2ac28aa-b39b-11d1-8704-00600893b1bd}';
+(* Clear all bands *)
+  GUID_Clear_All_Bands : TGUID = '{d2ac28ab-b39b-11d1-8704-00600893b1bd}';
+(* Set segment to manage all program changes, bank selects, etc. for simple playback of a standard MIDI file *)
+  _GUID_StandardMIDIFile = '{06621075-e92e-11d1-a8c5-00c04fa3726e}';
+  GUID_StandardMIDIFile : TGUID = _GUID_StandardMIDIFile;
+(* For compatibility with beta releases... *)
+  GUID_IgnoreBankSelectForGM : TGUID = _GUID_StandardMIDIFile;
+(* Disable/enable param guids. Use these in SetParam calls to disable or enable sending
+ * specific PMsg types.
+ *)
+  GUID_DisableTimeSig : TGUID = '{45fc707b-1db4-11d2-bcac-00a0c922e6eb}';
+  GUID_EnableTimeSig : TGUID = '{45fc707c-1db4-11d2-bcac-00a0c922e6eb}';
+  GUID_DisableTempo : TGUID = '{45fc707d-1db4-11d2-bcac-00a0c922e6eb}';
+  GUID_EnableTempo : TGUID = '{45fc707e-1db4-11d2-bcac-00a0c922e6eb}';
+(* Used in SetParam calls for pattern-based tracks.  A nonzero value seeds the random number
+generator for variation selection; a value of zero reverts to the default behavior of
+getting the seed from the system clock.
+*)
+  GUID_SeedVariations : TGUID = '{65b76fa5-ff37-11d2-814e-00c04fa36e58}';
+(* Global data guids *)
+  GUID_PerfMasterTempo : TGUID = '{d2ac28b0-b39b-11d1-8704-00600893b1bd}';
+  GUID_PerfMasterVolume : TGUID = '{d2ac28b1-b39b-11d1-8704-00600893b1bd}';
+  GUID_PerfMasterGrooveLevel : TGUID = '{d2ac28b2-b39b-11d1-8704-00600893b1bd}';
+  GUID_PerfAutoDownload : TGUID = '{fb09565b-3631-11d2-bcb8-00a0c922e6eb}';
+(* GUID for default GM/GS dls collection. *)
+  GUID_DefaultGMCollection : TGUID = '{f17e8673-c3b4-11d1-870b-00600893b1bd}';
+type
+(* IID's *)
+  IID_IDirectMusicLoader = IDirectMusicLoader;
+  IID_IDirectMusicGetLoader = IDirectMusicGetLoader;
+  IID_IDirectMusicObject = IDirectMusicObject;
+  IID_IDirectMusicSegment = IDirectMusicSegment;
+  IID_IDirectMusicSegmentState = IDirectMusicSegmentState;
+  IID_IDirectMusicTrack = IDirectMusicTrack;
+  IID_IDirectMusicPerformance = IDirectMusicPerformance;
+  IID_IDirectMusicTool = IDirectMusicTool;
+  IID_IDirectMusicGraph = IDirectMusicGraph;
+  IID_IDirectMusicStyle = IDirectMusicStyle;
+  IID_IDirectMusicChordMap = IDirectMusicChordMap;
+  IID_IDirectMusicComposer = IDirectMusicComposer;
+  IID_IDirectMusicBand = IDirectMusicBand;
+const
+(* Alternate interface IDs, available in DX7 release and after. *)
+  IID_IDirectMusicPerformance2 : TGUID = '{6fc2cae0-bc78-11d2-afa6-00aa0024d8b6}';
+  IID_IDirectMusicSegment2 : TGUID = '{d38894d1-c052-11d2-872f-00600893b1bd}';
+(************************************************************************
+*                                                                       *
+*   dmusicf.h -- This module defines the DirectMusic file formats       *
+*                                                                       *
+*   Copyright (c) 1998, Microsoft Corp. All rights reserved.            *
+*                                                                       *
+************************************************************************)
+//type IDirectMusicCollection = interface;
+const
+(* Common chunks *)
+  DMUS_FOURCC_GUID_CHUNK        : mmioFOURCC = ('g','u','i','d');
+  DMUS_FOURCC_INFO_LIST         : mmioFOURCC = ('I','N','F','O');
+  DMUS_FOURCC_UNFO_LIST         : mmioFOURCC = ('U','N','F','O');
+  DMUS_FOURCC_UNAM_CHUNK        : mmioFOURCC = ('U','N','A','M');
+  DMUS_FOURCC_UART_CHUNK        : mmioFOURCC = ('U','A','R','T');
+  DMUS_FOURCC_UCOP_CHUNK        : mmioFOURCC = ('U','C','O','P');
+  DMUS_FOURCC_USBJ_CHUNK        : mmioFOURCC = ('U','S','B','J');
+  DMUS_FOURCC_UCMT_CHUNK        : mmioFOURCC = ('U','C','M','T');
+  DMUS_FOURCC_CATEGORY_CHUNK    : mmioFOURCC = ('c','a','t','g');
+  DMUS_FOURCC_VERSION_CHUNK     : mmioFOURCC = ('v','e','r','s');
+(* The following structures are used by the Tracks, and are the packed structures *)
+(* that are passed to the Tracks inside the IStream. *)
+type
-  TDMUS_IO_TEMPO_ITEM = record
+  TDMus_IO_Seq_Item = packed record
-    lTime    : MUSIC_TIME;
+    mtTime:     TMusic_Time;
+    mtDuration: TMusic_Time;
-    dblTempo : Double;
+    dwPChannel: DWORD;
+    nOffset:    SmallInt;
+    bStatus:    BYTE;
+    bByte1:     BYTE;
+    bByte2:     BYTE;
   end;
-  DMUS_IO_TEMPO_ITEM = TDMUS_IO_TEMPO_ITEM;
+  TDMus_IO_Curve_Item = packed record
+    mtStart:          TMusic_Time;
+    mtDuration:       TMusic_Time;
+    mtResetDuration:  TMusic_Time;
+    dwPChannel:       DWORD;
+       nOffset:       SmallInt;
+       nStartValue:   SmallInt;
+       nEndValue:     SmallInt;
+       nResetValue:   SmallInt;
+    bType:            BYTE;
+    bCurveShape:      BYTE;
+    bCCData:          BYTE;
+    bFlags:           BYTE;
+  end;
+  TDMus_IO_Tempo_Item = packed record
+    lTime:    TMusic_Time;
+    dblTempo: double;
+  end;
-  TDMUS_IO_SYSEX_ITEM = record
+  TDMus_IO_SysEx_Item = packed record
-    mtTime        : MUSIC_TIME;
+    mtTime:        TMusic_Time;
-    dwPChannel    : DWORD;
+    dwPChannel:    DWORD;
-    dwSysExLength : DWORD;
+    dwSysExLength: DWORD;
   end;
-  DMUS_IO_SYSEX_ITEM = TDMUS_IO_SYSEX_ITEM;
+  TDMus_IO_TimeSignature_Item = packed record
+    lTime:            TMusic_Time;
+    bBeatsPerMeasure: BYTE;            (* beats per measure (top of time sig) *)
+    bBeat:            BYTE;            (* what note receives the beat (bottom of time sig.) *)
+                                       (* we can assume that 0 means 256th note *)
+    wGridsPerBeat:    WORD;            (* grids per beat *)
+  end;
+(* PARAM structures, used by GetParam() and SetParam() *)
-  TDMUS_IO_TIMESIGNATURE_ITEM = record
+  TDMus_Command_Param = packed record
-    lTime            : MUSIC_TIME;
+    bCommand:     BYTE;
-    bBeatsPerMeasure : Byte;          // beats per measure (top of time sig)
+    bGrooveLevel: BYTE;
-    bBeat            : Byte;          // what note receives the beat (bottom of time sig.)
-                                      // we can assume that 0 means 256th note
-    wGridsPerBeat    : Word;          // grids per beat
+    bGrooveRange: BYTE;
   end;
-  DMUS_IO_TIMESIGNATURE_ITEM = TDMUS_IO_TIMESIGNATURE_ITEM;
-// PARAM structures, used by GetParam() and SetParam()
+  TDMus_Command_Param_2 = packed record
-  TDMUS_COMMAND_PARAM = record
+    mtTime : TMusic_Time;
-    bCommand     : Byte;
+    bCommand:     BYTE;
-    bGrooveLevel : Byte;
+    bGrooveLevel: BYTE;
-    bGrooveRange : Byte;
+    bGrooveRange: BYTE;
   end;
-  DMUS_COMMAND_PARAM = TDMUS_COMMAND_PARAM;
-  //DMUS_CHORD_KEY = DMUS_CHORD_PARAM; // DMUS_CHORD_KEY defined in dmusici.h
+  TDMus_Chord_Param = TDMus_Chord_Key; (* DMUS_CHORD_KEY defined in dmusici.h *)
-  TDMUS_RHYTHM_PARAM = record
+  TDMus_Rhythm_Param = packed record
-    TimeSig         : TDMUS_TIMESIGNATURE;
+    TimeSig:         TDMus_TimeSignature;
-    dwRhythmPattern : DWORD;
+    dwRhythmPattern: DWORD;
   end;
-  DMUS_RHYTHM_PARAM = TDMUS_RHYTHM_PARAM;
-  TDMUS_TEMPO_PARAM = record
+  TDMus_Tempo_Param = packed record
-    mtTime   : MUSIC_TIME;
+    mtTime:   TMusic_Time;
-    dblTempo : Double;
+    dblTempo: double;
   end;
-  DMUS_TEMPO_PARAM = TDMUS_TEMPO_PARAM;
-  TDMUS_MUTE_PARAM = record
+  TDMus_Mute_Param = packed record
-    dwPChannel    : DWORD;
+    dwPChannel:    DWORD;
-    dwPChannelMap : DWORD;
+    dwPChannelMap: DWORD;
-    fMute         : BOOL;
+    fMute:         BOOL;
   end;
-  DMUS_MUTE_PARAM = TDMUS_MUTE_PARAM;
 const
-// Style chunks
+(* Style chunks *)
-  DMUS_FOURCC_STYLE_FORM           = Ord('D') + Ord('M') shl 8 + Ord('S') shl 16 + Ord('T') shl 24;
+  DMUS_FOURCC_STYLE_FORM        : mmioFOURCC = ('D','M','S','T');
-  DMUS_FOURCC_STYLE_CHUNK          = Ord('s') + Ord('t') shl 8 + Ord('y') shl 16 + Ord('h') shl 24;
+  DMUS_FOURCC_STYLE_CHUNK       : mmioFOURCC = ('s','t','y','h');
-  DMUS_FOURCC_PART_LIST            = Ord('p') + Ord('a') shl 8 + Ord('r') shl 16 + Ord('t') shl 24;
+  DMUS_FOURCC_PART_LIST         : mmioFOURCC = ('p','a','r','t');
-  DMUS_FOURCC_PART_CHUNK           = Ord('p') + Ord('r') shl 8 + Ord('t') shl 16 + Ord('h') shl 24;
+  DMUS_FOURCC_PART_CHUNK        : mmioFOURCC = ('p','r','t','h');
-  DMUS_FOURCC_NOTE_CHUNK           = Ord('n') + Ord('o') shl 8 + Ord('t') shl 16 + Ord('e') shl 24;
+  DMUS_FOURCC_NOTE_CHUNK        : mmioFOURCC = ('n','o','t','e');
-  DMUS_FOURCC_CURVE_CHUNK          = Ord('c') + Ord('r') shl 8 + Ord('v') shl 16 + Ord('e') shl 24;
+  DMUS_FOURCC_CURVE_CHUNK       : mmioFOURCC = ('c','r','v','e');
-  DMUS_FOURCC_PATTERN_LIST         = Ord('p') + Ord('t') shl 8 + Ord('t') shl 16 + Ord('n') shl 24;
+  DMUS_FOURCC_PATTERN_LIST      : mmioFOURCC = ('p','t','t','n');
-  DMUS_FOURCC_PATTERN_CHUNK        = Ord('p') + Ord('t') shl 8 + Ord('n') shl 16 + Ord('h') shl 24;
+  DMUS_FOURCC_PATTERN_CHUNK     : mmioFOURCC = ('p','t','n','h');
-  DMUS_FOURCC_RHYTHM_CHUNK         = Ord('r') + Ord('h') shl 8 + Ord('t') shl 16 + Ord('m') shl 24;
+  DMUS_FOURCC_RHYTHM_CHUNK      : mmioFOURCC = ('r','h','t','m');
-  DMUS_FOURCC_PARTREF_LIST         = Ord('p') + Ord('r') shl 8 + Ord('e') shl 16 + Ord('f') shl 24;
+  DMUS_FOURCC_PARTREF_LIST      : mmioFOURCC = ('p','r','e','f');
-  DMUS_FOURCC_PARTREF_CHUNK        = Ord('p') + Ord('r') shl 8 + Ord('f') shl 16 + Ord('c') shl 24;
+  DMUS_FOURCC_PARTREF_CHUNK     : mmioFOURCC = ('p','r','f','c');
-  DMUS_FOURCC_STYLE_PERS_REF_LIST  = Ord('p') + Ord('r') shl 8 + Ord('r') shl 16 + Ord('f') shl 24;
+  DMUS_FOURCC_STYLE_PERS_REF_LIST   : mmioFOURCC = ('p', 'r', 'r', 'f');
-  DMUS_FOURCC_MOTIFSETTINGS_CHUNK  = Ord('m') + Ord('t') shl 8 + Ord('f') shl 16 + Ord('s') shl 24;
+  DMUS_FOURCC_MOTIFSETTINGS_CHUNK   : mmioFOURCC = ('m', 't', 'f', 's');
-// Flags used by variations: these make up the DWORDs in dwVariationChoices.
+(* Flags used by variations: these make up the DWORDs in dwVariationChoices.               *)
-// These flags determine the types of chords supported by a given variation in DirectMusic
+(* These flags determine the types of chords supported by a given variation in DirectMusic *)
-// mode.  The first seven flags (bits 1-7) are set if the variation supports major chords
+(* mode.  The first seven flags (bits 1-7) are set if the variation supports major chords  *)
-// rooted in scale positions, so, e.g., if bits 1, 2, and 4 are set, the variation
+(* rooted in scale positions, so, e.g., if bits 1, 2, and 4 are set, the variation         *)
-// supports major chords rooted in the tonic, second, and fourth scale positions.  The
+(* supports major chords rooted in the tonic, second, and fourth scale positions.  The     *)
-// next seven flags serve the same purpose, but for minor chords, and the following seven
+(* next seven flags serve the same purpose, but for minor chords, and the following seven  *)
-// flags serve the same purpose for chords that are not major or minor (e.g., SUS 4
+(* flags serve the same purpose for chords that are not major or minor (e.g., SUS 4        *)
-// chords).  Bits 22, 23, and 24 are set if the variation supports chords rooted in the
+(* chords).  Bits 22, 23, and 24 are set if the variation supports chords rooted in the    *)
-// scale, chords rooted sharp of scale tones, and chords rooted flat of scale tones,
+(* scale, chords rooted sharp of scale tones, and chords rooted flat of scale tones,       *)
-// respectively.  For example, to support a C# minor chord in the scale of C Major,
+(* respectively.  For example, to support a C# minor chord in the scale of C Major,        *)
-// bits 8 (for tonic minor) and 24 (for sharp) need to be set.  Bits 25, 26, an 27 handle
+(* bits 8 (for tonic minor) and 24 (for sharp) need to be set.  Bits 25, 26, an 27 handle  *)
-// chords that are triads, 6th or 7th chords, and chords with extensions, respectively.
+(* chords that are triads, 6th or 7th chords, and chords with extensions, respectively.    *)
-// bits 28 and 29 handle chords that are followed by tonic and dominant chords,
+(* bits 28 and 29 handle chords that are followed by tonic and dominant chords,            *)
-// respectively.
+(* respectively.                                                                           *)
-  DMUS_VARIATIONF_MAJOR       = $0000007F; // Seven positions in the scale - major chords.
+  DMUS_VARIATIONF_MAJOR        = $0000007F; (* Seven positions in the scale - major chords. *)
-  DMUS_VARIATIONF_MINOR       = $00003F80; // Seven positions in the scale - minor chords.
+  DMUS_VARIATIONF_MINOR        = $00003F80; (* Seven positions in the scale - minor chords. *)
-  DMUS_VARIATIONF_OTHER       = $001FC000; // Seven positions in the scale - other chords.
+  DMUS_VARIATIONF_OTHER        = $001FC000; (* Seven positions in the scale - other chords. *)
-  DMUS_VARIATIONF_ROOT_SCALE  = $00200000; // Handles chord roots in the scale.
+  DMUS_VARIATIONF_ROOT_SCALE   = $00200000; (* Handles chord roots in the scale. *)
-  DMUS_VARIATIONF_ROOT_FLAT   = $00400000; // Handles flat chord roots (based on scale notes).
+  DMUS_VARIATIONF_ROOT_FLAT    = $00400000; (* Handles flat chord roots (based on scale notes). *)
-  DMUS_VARIATIONF_ROOT_SHARP  = $00800000; // Handles sharp chord roots (based on scale notes).
+  DMUS_VARIATIONF_ROOT_SHARP   = $00800000; (* Handles sharp chord roots (based on scale notes). *)
-  DMUS_VARIATIONF_TYPE_TRIAD  = $01000000; // Handles simple chords - triads.
+  DMUS_VARIATIONF_TYPE_TRIAD   = $01000000; (* Handles simple chords - triads. *)
-  DMUS_VARIATIONF_TYPE_6AND7  = $02000000; // Handles simple chords - 6 and 7.
+  DMUS_VARIATIONF_TYPE_6AND7   = $02000000; (* Handles simple chords - 6 and 7. *)
-  DMUS_VARIATIONF_TYPE_COMPLEX= $04000000; // Handles complex chords.
+  DMUS_VARIATIONF_TYPE_COMPLEX = $04000000; (* Handles complex chords. *)
-  DMUS_VARIATIONF_DEST_TO1    = $08000000; // Handles transitions to 1 chord.
+  DMUS_VARIATIONF_DEST_TO1     = $08000000; (* Handles transitions to 1 chord. *)
-  DMUS_VARIATIONF_DEST_TO5    = $10000000; // Handles transitions to 5 chord.
+  DMUS_VARIATIONF_DEST_TO5     = $10000000; (* Handles transitions to 5 chord. *)
-// The top three bits of the variation flags are the Mode bits.  If all are 0, it's IMA.
+(* The top three bits of the variation flags are the Mode bits.  If all are 0, it's IMA. *)
-// If the smallest is 1, it's Direct Music.
+(* If the smallest is 1, it's Direct Music. *)
-  DMUS_VARIATIONF_MODES       = $E0000000;
+  DMUS_VARIATIONF_MODES        = $E0000000;
-  DMUS_VARIATIONF_IMA25_MODE  = $00000000;
+  DMUS_VARIATIONF_IMA25_MODE   = $00000000;
-  DMUS_VARIATIONF_DMUS_MODE   = $20000000;
+  DMUS_VARIATIONF_DMUS_MODE    = $20000000;
-type
-  TDMUS_IO_TIMESIG = record
+//#pragma pack(2)
-    // Time signatures define how many beats per measure, which note receives
-    // the beat, and the grid resolution.
-    bBeatsPerMeasure : Byte;    // beats per measure (top of time sig)
-    bBeat            : Byte;    // what note receives the beat (bottom of time sig.)
-                                // we can assume that 0 means 256th note
-    wGridsPerBeat    : Word;    // grids per beat
-  end;
-  DMUS_IO_TIMESIG = TDMUS_IO_TIMESIG;
-  TDMUS_IO_STYLE = record
-    timeSig : TDMUS_IO_TIMESIG;        // Styles have a default Time Signature
-    dblTempo: Double;
+type BYTE2 = Word;
-  end;
-  DMUS_IO_STYLE = TDMUS_IO_STYLE;
+type
+  TDMus_IO_TimeSig = packed record
+    (* Time signatures define how many beats per measure, which note receives *)
+    (* the beat, and the grid resolution. *)
+    bBeatsPerMeasure: BYTE2;      (* beats per measure (top of time sig) *)
+    bBeat:            BYTE2;      (* what note receives the beat (bottom of time sig.) *)
+                                 (* we can assume that 0 means 256th note *)
+    wGridsPerBeat:    WORD;      (* grids per beat *)
+  end;
+  TDMus_IO_Style = packed record
+    timeSig:  TDMus_IO_TimeSig;           (* Styles have a default Time Signature *)
+    dblTempo: double;
+  end;
-  TDMUS_IO_VERSION = record
+  TDMus_IO_Version = packed record
-    dwVersionMS : DWORD;        // Version # high-order 32 bits
+    dwVersionMS: DWORD;                      (* Version # high-order 32 bits *)
-    dwVersionLS : DWORD;        // Version # low-order 32 bits
+    dwVersionLS: DWORD;                      (* Version # low-order 32 bits  *)
+  end;
+  TDMus_IO_Pattern = packed record
+    timeSig:        TDMus_IO_TimeSig;    (* Patterns can override the Style's Time sig. *)
+    bGrooveBottom:  BYTE2;                (* bottom of groove range *)
+    bGrooveTop:     BYTE2;                (* top of groove range *)
+    wEmbellishment: WORD;                (* Fill, Break, Intro, End, Normal, Motif *)
+    wNbrMeasures:   WORD;                (* length in measures *)
+  end;
+  TDMus_IO_StylePart = packed record
+    timeSig:        TDMus_IO_TimeSig;   (* can override pattern's *)
+    dwVariationChoices: array [0..31] of DWORD; (* MOAW choice bitfield *)
+    guidPartID:     TGUID;              (* identifies the part *)
+    wNbrMeasures:   WORD;               (* length of the Part *)
+    bPlayModeFlags: BYTE2;               (* see PLAYMODE flags *)
+    bInvertUpper:   BYTE2;               (* inversion upper limit *)
+    bInvertLower:   BYTE2;               (* inversion lower limit *)
+  end;
+  TDMus_IO_PartRef = packed record
+    guidPartID:       TGUID;     (* unique ID for matching up with parts *)
+    wLogicalPartID:   WORD;      (* corresponds to port/device/midi channel *)
+    bVariationLockID: BYTE2;      (* parts with the same ID lock variations. *)
+                                 (* high bit is used to identify master Part *)
+    bSubChordLevel:   BYTE2;      (* tells which sub chord level this part wants *)
+    bPriority:        BYTE2;      (* 256 priority levels. Parts with lower priority *)
+                                 (* aren't played first when a device runs out of *)
+                                 (* notes *)
+    bRandomVariation: BYTE2;      (* when set, matching variations play in random order *)
+                                 (* when clear, matching variations play sequentially *)
+  end;
+  TDMus_IO_StyleNote = packed record
+    mtGridStart:    TMusic_Time ;(* when this note occurs *)
+    dwVariation:    DWORD;       (* variation bits *)
+    mtDuration:     TMusic_Time; (* how long this note lasts *)
+    nTimeOffset:    SmallInt;    (* offset from mtGridStart *)
+    wMusicValue:    WORD;        (* Position in scale. *)
+    bVelocity:      BYTE2;        (* Note velocity. *)
+    bTimeRange:     BYTE2;        (* Range to randomize start time. *)
+    bDurRange:      BYTE2;        (* Range to randomize duration. *)
+    bVelRange:      BYTE2;        (* Range to randomize velocity. *)
+    bInversionID:   BYTE2;        (* Identifies inversion group to which this note belongs *)
+    bPlayModeFlags: BYTE2;        (* Can override part *)
+  end;
+  TDMus_IO_StyleCurve = packed record
+    mtGridStart:     TMusic_Time; (* when this curve occurs *)
+    dwVariation:     DWORD;       (* variation bits *)
+    mtDuration:      TMusic_Time; (* how long this curve lasts *)
+    mtResetDuration: TMusic_Time; (* how long after the end of the curve to reset the curve *)
+    nTimeOffset:     SmallInt;    (* offset from mtGridStart *)
+    nStartValue:     SmallInt;    (* curve's start value *)
+    nEndValue:       SmallInt;    (* curve's end value *)
+    nResetValue:     SmallInt;    (* the value to which to reset the curve *)
+    bEventType:      BYTE2;        (* type of curve *)
+    bCurveShape:     BYTE2;        (* shape of curve *)
+    bCCData:         BYTE2;        (* CC# *)
+    bFlags:          BYTE2;        (* Bit 1=TRUE means to send nResetValue. Otherwise, don't.
+                                    Other bits are reserved. *)
+  end;
+  TDMus_IO_MotifSettings = packed record
+    dwRepeats:    DWORD;          (* Number of repeats. By default, 0. *)
+    mtPlayStart:  TMusic_Time;    (* Start of playback. By default, 0. *)
+    mtLoopStart:  TMusic_Time;    (* Start of looping portion. By default, 0. *)
+    mtLoopEnd:    TMusic_Time;    (* End of loop. Must be greater than mtLoopStart. By default equal to length of motif. *)
+    dwResolution: DWORD;          (* Default resolution. *)
   end;
-  DMUS_IO_VERSION = TDMUS_IO_VERSION;
-  TDMUS_IO_PATTERN = record
+//#pragma pack()
-    timeSig        : TDMUS_IO_TIMESIG;        // Patterns can override the Style's Time sig.
-    bGrooveBottom  : Byte;                    // bottom of groove range
-    bGrooveTop     : Byte;                    // top of groove range
-    wEmbellishment : Word;                    // Fill, Break, Intro, End, Normal, Motif
-    wNbrMeasures   : Word;                    // length in measures
-  end;
-  DMUS_IO_PATTERN = TDMUS_IO_PATTERN;
+(*
+RIFF
+(
-  TDMUS_IO_STYLEPART = record
+    'DMST'          // Style
+    <styh-ck>       // Style header chunk
+    <guid-ck>       // Every Style has a GUID
+    [<UNFO-list>]   // Name, author, copyright info., comments
+    [<vers-ck>]     // version chunk
-    timeSig            : TDMUS_IO_TIMESIG;        // can override pattern's
+    <part-list>...  // List of parts in the Style, used by patterns
-    dwVariationChoices : array[0..31] of DWORD;   // MOAW choice bitfield
+    <pttn-list>...  // List of patterns in the Style
+    <DMBD-form>...  // List of bands in the Style
-    guidPartID         : TGUID;                   // identifies the part
+    [<motf-list>]   // List of motifs in the Style
-    wNbrMeasures       : Word;                    // length of the Part
+    [<prrf-list>]   // List of chord map references in the Style
+)
+    // <styh-ck>
+    styh
+    (
+        <DMUS_IO_STYLE>
+    )
+    // <guid-ck>
+    guid
+    (
+        <GUID>
+    )
+    // <vers-ck>
+    vers
+    (
+        <DMUS_IO_VERSION>
+    )
+    // <part-list>
+    LIST
+    (
+        'part'
-    bPlayModeFlags     : Byte;                    // see PLAYMODE flags
+        <prth-ck>       // Part header chunk
+        [<UNFO-list>]
-    bInvertUpper       : Byte;                    // inversion upper limit
+        [<note-ck>]     // List of notes in Part
-    bInvertLower       : Byte;                    // inversion lower limit
+        [<crve-ck>]     // List of curves in Part
-  end;
+    )
+        // <orth-ck>
+        prth
+        (
-  DMUS_IO_STYLEPART = TDMUS_IO_STYLEPART;
+            <DMUS_IO_STYLEPART>
+        )
+        // <note-ck>
+        'note'
+        (
+            // sizeof DMUS_IO_STYLENOTE:DWORD
+            <DMUS_IO_STYLENOTE>...
+        )
+        // <crve-ck>
+        'crve'
+        (
+            // sizeof DMUS_IO_STYLECURVE:DWORD
+            <DMUS_IO_STYLECURVE>...
+        )
+    // <pttn-list>
+    LIST
+    (
+        'pttn'
+        <ptnh-ck>       // Pattern header chunk
+        <rhtm-ck>       // List of rhythms for chord matching
+        [<UNFO-list>]
+        [<mtfs-ck>]     // Motif settings chunk
+        <pref-list>...  // List of part reference id's
+    )
+        // <ptnh-ck>
+        ptnh
+        (
+            <DMUS_IO_PATTERN>
+        )
+        // <rhtm-ck>
+        'rhtm'
+        (
+            // DWORD's representing rhythms for chord matching based on number
+            // of measures in the pattern
+        )
+        // pref-list
+        LIST
+        (
+            'pref'
+            <prfc-ck>   // part ref chunk
+        )
+        // <prfc-ck>
+        prfc
+        (
+            <DMUS_IO_PARTREF>
+        )
+        // <mtfs-ck>
+        mtfs
+        (
+            <DMUS_IO_MOTIFSETTINGS>
+        )
+    // <prrf-list>
+    LIST
+    (
+        'prrf'
+        // some number of <DMRF>
+    )
+*)
+(* Chord and command file formats *)
+const
+  DMUS_FOURCC_CHORDTRACK_LIST         : mmioFOURCC = ('c','o','r','d');
+  DMUS_FOURCC_CHORDTRACKHEADER_CHUNK  : mmioFOURCC = ('c','r','d','h');
+  DMUS_FOURCC_CHORDTRACKBODY_CHUNK    : mmioFOURCC = ('c','r','d','b');
+  DMUS_FOURCC_COMMANDTRACK_CHUNK      : mmioFOURCC = ('c','m','n','d');
+type
-  TDMUS_IO_PARTREF = record
+  TDMus_IO_Chord = packed record
+    wszName: array [0..15] of WCHAR; (* Name of the chord *)
+    mtTime:      TMusic_Time;    (* Time of this chord *)
+    wMeasure:    WORD;           (* Measure this falls on *)
-    guidPartID       : TGUID;   // unique ID for matching up with parts
+    bBeat:       BYTE;           (* Beat this falls on *)
+  end;
+  TDMus_IO_SubChord = packed record
-    wLogicalPartID   : Word;    // corresponds to port/device/midi channel
+    dwChordPattern:    DWORD;    (* Notes in the subchord *)
+    dwScalePattern:    DWORD;    (* Notes in the scale *)
-    bVariationLockID : Byte;    // parts with the same ID lock variations.
+    dwInversionPoints: DWORD;    (* Where inversions can occur *)
-                                // high bit is used to identify master Part
+    dwLevels:          DWORD;    (* Which levels are supported by this subchord *)
-    bSubChordLevel   : Byte;    // tells which sub chord level this part wants
+    bChordRoot:        BYTE;     (* Root of the subchord *)
-    bPriority        : Byte;    // 256 priority levels. Parts with lower priority
+    bScaleRoot:        BYTE;     (* Root of the scale *)
+  end;
+  TDMus_IO_Command = packed record
+    mtTime:       TMusic_Time;   (* Time of this command *)
-                                // aren't played first when a device runs out of
+    wMeasure:     WORD;          (* Measure this falls on *)
-                                // notes
+    bBeat:        BYTE;          (* Beat this falls on *)
-    bRandomVariation : Byte;    // when set, matching variations play in random order
+    bCommand:     BYTE;          (* Command type (see #defines below) *)
-                                // when clear, matching variations play sequentially
+    bGrooveLevel: BYTE;          (* Groove level (0 if command is not a groove) *)
+    bGrooveRange: BYTE;          (* Groove range  *)
   end;
-  DMUS_IO_PARTREF = TDMUS_IO_PARTREF;
-  TDMUS_IO_STYLENOTE = record
-    mtGridStart : MUSIC_TIME;    // when this note occurs
-    dwVariation : DWORD;         // variation bits
-    mtDuration : MUSIC_TIME;     // how long this note lasts
-    nTimeOffset : Smallint;      // offset from mtGridStart
-    wMusicValue : Word;          // Position in scale.
-    bVelocity : Byte;            // Note velocity.
-    bTimeRange : Byte;           // Range to randomize start time.
-    bDurRange : Byte;            // Range to randomize duration.
-    bVelRange : Byte;            // Range to randomize velocity.
-    bInversionID : Byte;         // Identifies inversion group to which this note belongs
-    bPlayModeFlags : Byte;       // Can override part
-  end;
+(*
-  DMUS_IO_STYLENOTE = TDMUS_IO_STYLENOTE;
+    // <cord-list>
+    LIST
+    (
-  TDMUS_IO_STYLECURVE = record
+        'cord'
-    mtGridStart     : MUSIC_TIME;// when this curve occurs
+        <crdh-ck>
-    dwVariation     : DWORD;     // variation bits
+        <crdb-ck>       // Chord body chunk
+    )
-    mtDuration      : MUSIC_TIME;// how long this curve lasts
+        // <crdh-ck>
+        crdh
+        (
-    mtResetDuration : MUSIC_TIME;// how long after the end of the curve to reset the curve
+            // Scale: dword (upper 8 bits for root, lower 24 for scale)
-    nTimeOffset     : Smallint;  // offset from mtGridStart
+        )
-    nStartValue     : Smallint;  // curve's start value
+        // <crdb-ck>
-    nEndValue       : Smallint;  // curve's end value
+        crdb
+        (
-    nResetValue     : Smallint;  // the value to which to reset the curve
+            // sizeof DMUS_IO_CHORD:dword
-    bEventType      : Byte;      // type of curve
+            <DMUS_IO_CHORD>
-    bCurveShape     : Byte;      // shape of curve
+            // # of DMUS_IO_SUBCHORDS:dword
-    bCCData         : Byte;      // CC#
+            // sizeof DMUS_IO_SUBCHORDS:dword
-    bFlags          : Byte;      // Bit 1=TRUE means to send nResetValue. Otherwise, don't.
+            // a number of <DMUS_IO_SUBCHORD>
+        )
-                                 //  Other bits are reserved.
+    // <cmnd-list>
+    'cmnd'
-  end;
+    (
-  DMUS_IO_STYLECURVE = TDMUS_IO_STYLECURVE;
+        //sizeof DMUS_IO_COMMAND: DWORD
+        <DMUS_IO_COMMAND>...
+    )
-  TDMUS_IO_MOTIFSETTINGS = record
-    dwRepeats    : DWORD;         // Number of repeats. By default, 0.
-    mtPlayStart  : MUSIC_TIME;    // Start of playback. By default, 0.
-    mtLoopStart  : MUSIC_TIME;    // Start of looping portion. By default, 0.
-    mtLoopEnd    : MUSIC_TIME;    // End of loop. Must be greater than mtLoopStart. By default equal to length of motif.
-    dwResolution : DWORD;         // Default resolution.
-  end;
+*)
-  DMUS_IO_MOTIFSETTINGS = TDMUS_IO_MOTIFSETTINGS;
+(*  File io for DirectMusic Tool and ToolGraph objects
+*)
+(* RIFF ids: *)
 const
-// Chord and command file formats
-  DMUS_FOURCC_CHORDTRACK_LIST        = Ord('c') + Ord('o') shl 8 + Ord('r') shl 16 + Ord('d') shl 24;
+  DMUS_FOURCC_TOOLGRAPH_FORM  : mmioFOURCC = ('D','M','T','G');
-  DMUS_FOURCC_CHORDTRACKHEADER_CHUNK = Ord('c') + Ord('r') shl 8 + Ord('d') shl 16 + Ord('h') shl 24;
+  DMUS_FOURCC_TOOL_LIST       : mmioFOURCC = ('t','o','l','l');
-  DMUS_FOURCC_CHORDTRACKBODY_CHUNK   = Ord('c') + Ord('r') shl 8 + Ord('d') shl 16 + Ord('b') shl 24;
+  DMUS_FOURCC_TOOL_FORM       : mmioFOURCC = ('D','M','T','L');
-  DMUS_FOURCC_COMMANDTRACK_CHUNK     = Ord('c') + Ord('m') shl 8 + Ord('n') shl 16 + Ord('d') shl 24;
+  DMUS_FOURCC_TOOL_CHUNK      : mmioFOURCC = ('t','o','l','h');
+(* io structures: *)
 type
-  TDMUS_IO_CHORD = record
+  TDMus_IO_Tool_Header = packed record
-    wszName : array[0..15] of WCHAR;    // Name of the chord
+    guidClassID:    TGUID;       (* Class id of tool. *)
-    mtTime : MUSIC_TIME;                // Time of this chord
+    lIndex:         LongInt;     (* Position in graph. *)
-    wMeasure : Word;                    // Measure this falls on
+    cPChannels:     DWORD;       (* Number of items in channels array. *)
+    ckid:           TFourCC;     (* chunk ID of tool's data chunk if 0 fccType valid. *)
-    bBeat : Byte;                       // Beat this falls on
+    fccType:        TFourCC;     (* list type if NULL ckid valid. *)
+    dwPChannels: array [0..0] of DWORD; (* Array of PChannels, size determined by cPChannels. *)
   end;
-  DMUS_IO_CHORD = TDMUS_IO_CHORD;
+(*
-  TDMUS_IO_SUBCHORD = record
+RIFF
+(
-    dwChordPattern    : DWORD;     // Notes in the subchord
+    'DMTG'          // DirectMusic ToolGraph chunk
-    dwScalePattern    : DWORD;     // Notes in the scale
+    [<guid-ck>]     // GUID for ToolGraph
-    dwInversionPoints : DWORD;     // Where inversions can occur
+    [<vers-ck>]     // Optional version info
-    dwLevels          : DWORD;     // Which levels are supported by this subchord
+    [<UNFO-list>]   // Name, author, copyright info., comments
-    bChordRoot        : Byte;      // Root of the subchord
+    <toll-list>     // List of Tools
+)
+    // <guid-ck>
+    'guid'
+    (
+        <GUID>
+    )
-    bScaleRoot        : Byte;      // Root of the scale
+    // <vers-ck>
+    vers
-  end;
+    (
-  DMUS_IO_SUBCHORD = TDMUS_IO_SUBCHORD;
+        <DMUS_IO_VERSION>
+    )
-  TDMUS_IO_COMMAND = record
+    // <toll-list>
+    LIST
+    (
-    mtTime       : MUSIC_TIME;     // Time of this command
+        'toll'          // List of tools
-    wMeasure     : Word;           // Measure this falls on
+        <DMTL-form>...  // Each tool is encapsulated in a RIFF chunk
+    )
+// <DMTL-form>      // Tools can be embedded in a graph or stored as separate files.
+RIFF
+(
+    'DMTL'
+    <tolh-ck>
+    [<guid-ck>]     // Optional GUID for tool object instance (not to be confused with Class id in track header)
-    bBeat        : Byte;           // Beat this falls on
+    [<vers-ck>]     // Optional version info
-    bCommand     : Byte;           // Command type (see #defines below)
+    [<UNFO-list>]   // Optional name, author, copyright info., comments
-    bGrooveLevel : Byte;           // Groove level (0 if command is not a groove)
+    [<data>]        // Tool data. Must be a RIFF readable chunk.
+)
-    bGrooveRange : Byte;           // Groove range
+    // <tolh-ck>            // Tool header chunk
-  end;
+    (
+        'tolh'
-  DMUS_IO_COMMAND = TDMUS_IO_COMMAND;
+        <DMUS_IO_TOOL_HEADER>   // Tool header
+    )
+*)
+(*  File io for DirectMusic Band Track object *)
-//  File io for DirectMusic Tool and ToolGraph objects
-///
+(* RIFF ids: *)
 const
-// RIFF ids:
+  DMUS_FOURCC_BANDTRACK_FORM  : mmioFOURCC = ('D','M','B','T');
-  DMUS_FOURCC_TOOLGRAPH_FORM = Ord('D') + Ord('M') shl 8 + Ord('T') shl 16 + Ord('G') shl 24;
+  DMUS_FOURCC_BANDTRACK_CHUNK : mmioFOURCC = ('b','d','t','h');
-  DMUS_FOURCC_TOOL_LIST      = Ord('t') + Ord('o') shl 8 + Ord('l') shl 16 + Ord('l') shl 24;
+  DMUS_FOURCC_BANDS_LIST      : mmioFOURCC = ('l','b','d','l');
-  DMUS_FOURCC_TOOL_FORM      = Ord('D') + Ord('M') shl 8 + Ord('T') shl 16 + Ord('L') shl 24;
+  DMUS_FOURCC_BAND_LIST       : mmioFOURCC = ('l','b','n','d');
-  DMUS_FOURCC_TOOL_CHUNK     = Ord('t') + Ord('o') shl 8 + Ord('l') shl 16 + Ord('h') shl 24;
+  DMUS_FOURCC_BANDITEM_CHUNK  : mmioFOURCC = ('b','d','i','h');
 type
-// io structures:
+(*  io structures *)
-  TDMUS_IO_TOOL_HEADER = record
+  TDMus_IO_Band_Track_Header = packed record
-    guidClassID : TGUID;                // Class id of tool.
-    lIndex      : Longint;              // Position in graph.
-    cPChannels  : DWORD;                // Number of items in channels array.
+    bAutoDownload: BOOL;    (* Determines if Auto-Download is enabled. *)
-    ckid        : FOURCC;               // chunk ID of tool's data chunk if 0 fccType valid.
-    fccType     : FOURCC;               // list type if NULL ckid valid.
-    dwPChannels : array[0..0] of DWORD; // Array of PChannels, size determined by cPChannels.
   end;
-  DMUS_IO_TOOL_HEADER = TDMUS_IO_TOOL_HEADER;
-//  File io for DirectMusic Band Track object
-const
-// RIFF ids:
-  DMUS_FOURCC_BANDTRACK_FORM  = Ord('D') + Ord('M') shl 8 + Ord('B') shl 16 + Ord('T') shl 24;
-  DMUS_FOURCC_BANDTRACK_CHUNK = Ord('b') + Ord('d') shl 8 + Ord('t') shl 16 + Ord('h') shl 24;
-  DMUS_FOURCC_BANDS_LIST      = Ord('l') + Ord('b') shl 8 + Ord('d') shl 16 + Ord('l') shl 24;
-  DMUS_FOURCC_BAND_LIST       = Ord('l') + Ord('b') shl 8 + Ord('n') shl 16 + Ord('d') shl 24;
-  DMUS_FOURCC_BANDITEM_CHUNK  = Ord('b') + Ord('d') shl 8 + Ord('i') shl 16 + Ord('h') shl 24;
-type
-//  io structures
-  TDMUS_IO_BAND_TRACK_HEADER = record
+  TDMus_IO_Band_Item_Header = packed record
-    bAutoDownload : BOOL;     // Determines if Auto-Download is enabled.
+    lBandTime: TMusic_Time;   (* Position in track list. *)
   end;
-  DMUS_IO_BAND_TRACK_HEADER = TDMUS_IO_BAND_TRACK_HEADER;
+(*
+RIFF
+(
+    'DMBT'          // DirectMusic Band Track form-type
+    [<bdth-ck>]     // Band track header
+    [<guid-ck>]     // GUID for band track
+    [<vers-ck>]     // Optional version info
+    [<UNFO-list>]   // Name, author, copyright info., comments
+    <lbdl-list>     // List of Band Lists
+)
+    // <bnth-ck>
+    'bdth'
+    (
-  TDMUS_IO_BAND_ITEM_HEADER = record
+        <DMUS_IO_BAND_TRACK_HEADER>
+    )
+    // <guid-ck>
+    'guid'
+    (
+        <GUID>
+    )
+    // <vers-ck>
+    vers
+    (
+        <DMUS_IO_VERSION>
+    )
+    // <lbdl-list>
+    LIST
+    (
+        'lbdl'          // List of bands
-    lBandTime : MUSIC_TIME;   // Position in track list.
+        <lbnd-list>     // Each band is encapsulated in a list
-  end;
+    )
+        // <lbnd-list>
+        LIST
+        (
+            'lbnd'
+            <bdih-ck>
+            <DMBD-form> // Band
+        )
+            // <bdih-ck>            // band item header
+            (
-  DMUS_IO_BAND_ITEM_HEADER = TDMUS_IO_BAND_ITEM_HEADER;
+                <DMUS_IO_BAND_ITEM_HEADER>  // Band item header
+            )
+*)
-//  File io for DirectMusic Band object
+(*  File io for DirectMusic Band object
-///
+*)
+(* RIFF ids: *)
 const
-// RIFF ids:
-  DMUS_FOURCC_BAND_FORM          = Ord('D') + Ord('M') shl 8 + Ord('B') shl 16 + Ord('D') shl 24;
+  DMUS_FOURCC_BAND_FORM           : mmioFOURCC = ('D','M','B','D');
-  DMUS_FOURCC_INSTRUMENTS_LIST   = Ord('l') + Ord('b') shl 8 + Ord('i') shl 16 + Ord('l') shl 24;
+  DMUS_FOURCC_INSTRUMENTS_LIST    : mmioFOURCC = ('l','b','i','l');
-  DMUS_FOURCC_INSTRUMENT_LIST    = Ord('l') + Ord('b') shl 8 + Ord('i') shl 16 + Ord('n') shl 24;
+  DMUS_FOURCC_INSTRUMENT_LIST     : mmioFOURCC = ('l','b','i','n');
-  DMUS_FOURCC_INSTRUMENT_CHUNK   = Ord('b') + Ord('i') shl 8 + Ord('n') shl 16 + Ord('s') shl 24;
+  DMUS_FOURCC_INSTRUMENT_CHUNK    : mmioFOURCC = ('b','i','n','s');
-// Flags for DMUS_IO_INSTRUMENT
+(* Flags for DMUS_IO_INSTRUMENT
-///
+ *)
-  DMUS_IO_INST_PATCH              = (1 shl 0);      // dwPatch is valid.
+  DMUS_IO_INST_PATCH          = (1 shl 0);        (* dwPatch is valid. *)
-  DMUS_IO_INST_BANKSELECT         = (1 shl 1);      // dwPatch contains a valid Bank Select MSB and LSB part
+  DMUS_IO_INST_BANKSELECT     = (1 shl 1);        (* dwPatch contains a valid Bank Select MSB and LSB part *)
-  DMUS_IO_INST_ASSIGN_PATCH       = (1 shl 3);      // dwAssignPatch is valid
+  DMUS_IO_INST_ASSIGN_PATCH   = (1 shl 3);        (* dwAssignPatch is valid *)
-  DMUS_IO_INST_NOTERANGES         = (1 shl 4);      // dwNoteRanges is valid
+  DMUS_IO_INST_NOTERANGES     = (1 shl 4);        (* dwNoteRanges is valid *)
-  DMUS_IO_INST_PAN                = (1 shl 5);      // bPan is valid
+  DMUS_IO_INST_PAN            = (1 shl 5);        (* bPan is valid *)
-  DMUS_IO_INST_VOLUME             = (1 shl 6);      // bVolume is valid
+  DMUS_IO_INST_VOLUME         = (1 shl 6);        (* bVolume is valid *)
-  DMUS_IO_INST_TRANSPOSE          = (1 shl 7);      // nTranspose is valid
+  DMUS_IO_INST_TRANSPOSE      = (1 shl 7);        (* nTranspose is valid *)
-  DMUS_IO_INST_GM                 = (1 shl 8);      // Instrument is from GM collection
+  DMUS_IO_INST_GM             = (1 shl 8);        (* Instrument is from GM collection *)
-  DMUS_IO_INST_GS                 = (1 shl 9);      // Instrument is from GS collection
+  DMUS_IO_INST_GS             = (1 shl 9);        (* Instrument is from GS collection *)
-  DMUS_IO_INST_XG                 = (1 shl 10);     // Instrument is from XG collection
+  DMUS_IO_INST_XG             = (1 shl 10);       (* Instrument is from XG collection *)
-  DMUS_IO_INST_CHANNEL_PRIORITY   = (1 shl 11);     // dwChannelPriority is valid
+  DMUS_IO_INST_CHANNEL_PRIORITY = (1 shl 11);     (* dwChannelPriority is valid *)
-  DMUS_IO_INST_USE_DEFAULT_GM_SET = (1 shl 12);     // Always use the default GM set for this patch,
+  DMUS_IO_INST_USE_DEFAULT_GM_SET = (1 shl 12);   (* Always use the default GM set for this patch,  *)
-                                                    // don't rely on the synth caps stating GM or GS in hardware.
+                                                  (* don't rely on the synth caps stating GM or GS in hardware. *)
 type
-//  io structures
+(*  io structures *)
-  TDMUS_IO_INSTRUMENT = record
+  TDMus_IO_Instruments = packed record
-    dwPatch           : DWORD;                   // MSB, LSB and Program change to define instrument
+    dwPatch:           DWORD;    (* MSB, LSB and Program change to define instrument *)
-    dwAssignPatch     : DWORD;                   // MSB, LSB and Program change to assign to instrument when downloading
+    dwAssignPatch:     DWORD;    (* MSB, LSB and Program change to assign to instrument when downloading *)
-    dwNoteRanges      : array[0..3] of DWORD;    // 128 bits; one for each MIDI note instrument needs to able to play
+    dwNoteRanges: array [0..3] of DWORD;(* 128 bits: one for each MIDI note instrument needs to able to play *)
-    dwPChannel        : DWORD;                   // PChannel instrument plays on
+    dwPChannel:        DWORD;    (* PChannel instrument plays on *)
-    dwFlags           : DWORD;                   // DMUS_IO_INST_ flags
+    dwFlags:           DWORD;    (* DMUS_IO_INST_ flags *)
-    bPan              : Byte;                    // Pan for instrument
+    bPan:              BYTE;     (* Pan for instrument *)
-    bVolume           : Byte;                    // Volume for instrument
+    bVolume:           BYTE;     (* Volume for instrument *)
-    nTranspose        : Smallint;                // Number of semitones to transpose notes
+    nTranspose:        SmallInt; (* Number of semitones to transpose notes *)
-    dwChannelPriority : DWORD;                   // Channel priority
+    dwChannelPriority: DWORD;    (* Channel priority *)
   end;
-  DMUS_IO_INSTRUMENT = TDMUS_IO_INSTRUMENT;
+(*
+// <DMBD-form> bands can be embedded in other forms
+RIFF
+(
+    'DMBD'          // DirectMusic Band chunk
+    [<guid-ck>]     // GUID for band
+    [<vers-ck>]     // Optional version info
+    [<UNFO-list>]   // Name, author, copyright info., comments
+    <lbil-list>     // List of Instruments
+)
+    // <guid-ck>
+    'guid'
+    (
+        <GUID>
+    )
+    // <vers-ck>
+    vers
+    (
+        <DMUS_IO_VERSION>
+    )
+    // <lbil-list>
+    LIST
+    (
+        'lbil'          // List of instruments
+        <lbin-list>     // Each instrument is encapsulated in a list
+    )
+        // <lbin-list>
+        LIST
+        (
+            'lbin'
+            <bins-ck>
+            [<DMRF-list>]       // Optional reference to DLS Collection file.
+        )
+            // <bins-ck>            // Instrument chunk
+            (
+                'bins'
+                <DMUS_IO_INSTRUMENT>    // Instrument header
+            )
+*)
-//  File io for DirectMusic Segment object
+(*  File io for DirectMusic Segment object *)
+(* RIFF ids: *)
 const
-// RIFF ids:
-  DMUS_FOURCC_SEGMENT_FORM   = Ord('D') + Ord('M') shl 8 + Ord('S') shl 16 + Ord('G') shl 24;
+  DMUS_FOURCC_SEGMENT_FORM    : mmioFOURCC = ('D','M','S','G');
-  DMUS_FOURCC_SEGMENT_CHUNK  = Ord('s') + Ord('e') shl 8 + Ord('g') shl 16 + Ord('h') shl 24;
+  DMUS_FOURCC_SEGMENT_CHUNK   : mmioFOURCC = ('s','e','g','h');
-  DMUS_FOURCC_TRACK_LIST     = Ord('t') + Ord('r') shl 8 + Ord('k') shl 16 + Ord('l') shl 24;
+  DMUS_FOURCC_TRACK_LIST      : mmioFOURCC = ('t','r','k','l');
-  DMUS_FOURCC_TRACK_FORM     = Ord('D') + Ord('M') shl 8 + Ord('T') shl 16 + Ord('K') shl 24;
+  DMUS_FOURCC_TRACK_FORM      : mmioFOURCC = ('D','M','T','K');
-  DMUS_FOURCC_TRACK_CHUNK    = Ord('t') + Ord('r') shl 8 + Ord('k') shl 16 + Ord('h') shl 24;
+  DMUS_FOURCC_TRACK_CHUNK     : mmioFOURCC = ('t','r','k','h');
-type
-//  io structures:
+(*  io structures:*)
+type
-  TDMUS_IO_SEGMENT_HEADER = record
+  TDMus_IO_Segment_Header = packed record
-    dwRepeats    : DWORD;         // Number of repeats. By default, 0.
+    dwRepeats:    DWORD;         (* Number of repeats. By default, 0. *)
-    mtLength     : MUSIC_TIME;    // Length, in music time.
+    mtLength:     TMusic_Time;   (* Length, in music time. *)
-    mtPlayStart  : MUSIC_TIME;    // Start of playback. By default, 0.
+    mtPlayStart:  TMusic_Time;   (* Start of playback. By default, 0. *)
-    mtLoopStart  : MUSIC_TIME;    // Start of looping portion. By default, 0.
+    mtLoopStart:  TMusic_Time;   (* Start of looping portion. By default, 0. *)
-    mtLoopEnd    : MUSIC_TIME;    // End of loop. Must be greater than dwPlayStart. By default equal to length.
+    mtLoopEnd:    TMusic_Time;   (* End of loop. Must be greater than dwPlayStart. By default equal to length. *)
-    dwResolution : DWORD;         // Default resolution.
+    dwResolution: DWORD;         (* Default resolution. *)
+  end;
+  TDMus_IO_Track_Header = packed record
+    guidClassID: TGUID;          (* Class id of track. *)
+    dwPosition:  DWORD;          (* Position in track list. *)
+    dwGroup:     DWORD;          (* Group bits for track. *)
+    ckid:        TFourCC;        (* chunk ID of track's data chunk if 0 fccType valid. *)
+    fccType:     TFourCC;        (* list type if NULL ckid valid *)
   end;
-  DMUS_IO_SEGMENT_HEADER = TDMUS_IO_SEGMENT_HEADER;
+(*
+RIFF
+(
+    'DMSG'          // DirectMusic Segment chunk
+    <segh-ck>       // Segment header chunk
+    [<guid-ck>]     // GUID for segment
+    [<vers-ck>]     // Optional version info
+    [<UNFO-list>]   // Name, author, copyright info., comments
+    <trkl-list>     // List of Tracks
+    [<DMTG-form>]   // Optional ToolGraph
+)
+    // <segh-ck>
+    'segh'
+    (
-  TDMUS_IO_TRACK_HEADER = record
+        <DMUS_IO_SEGMENT_HEADER>
+    )
+    // <guid-ck>
+    'guid'
+    (
+        <GUID>
+    )
+    // <vers-ck>
+    vers
+    (
+        <DMUS_IO_VERSION>
+    )
+    // <trkl-list>
+    LIST
+    (
-    guidClassID : TGUID;         // Class id of track.
+        'trkl'          // List of tracks
+        <DMTK-form>...  // Each track is encapsulated in a RIFF chunk
+    )
+// <DMTK-form>      // Tracks can be embedded in a segment or stored as separate files.
+RIFF
+(
+    'DMTK'
+    <trkh-ck>
+    [<guid-ck>]     // Optional GUID for track object instance (not to be confused with Class id in track header)
-    dwPosition  : DWORD;         // Position in track list.
+    [<vers-ck>]     // Optional version info
-    dwGroup     : DWORD;         // Group bits for track.
+    [<UNFO-list>]   // Optional name, author, copyright info., comments
-    ckid        : FOURCC;        // chunk ID of track's data chunk if 0 fccType valid.
+    [<data>]        // Track data. Must be a RIFF readable chunk.
+)
-    fccType     : FOURCC;        // list type if NULL ckid valid
+    // <trkh-ck>            // Track header chunk
-  end;
+    (
+        'trkh'
-  DMUS_IO_TRACK_HEADER = TDMUS_IO_TRACK_HEADER;
+        <DMUS_IO_TRACK_HEADER>  // Track header
+    )
+*)
-//  File io for DirectMusic reference chunk.
+(*  File io for DirectMusic reference chunk.
-//  This is used to embed a reference to an object.
+    This is used to embed a reference to an object.
+*)
+(*  RIFF ids: *)
 const
-//  RIFF ids:
-  DMUS_FOURCC_REF_LIST       = Ord('D') + Ord('M') shl 8 + Ord('R') shl 16 + Ord('F') shl 24;
+  DMUS_FOURCC_REF_LIST        : mmioFOURCC = ('D','M','R','F');
-  DMUS_FOURCC_REF_CHUNK      = Ord('r') + Ord('e') shl 8 + Ord('f') shl 16 + Ord('h') shl 24;
+  DMUS_FOURCC_REF_CHUNK       : mmioFOURCC = ('r','e','f','h');
-  DMUS_FOURCC_DATE_CHUNK     = Ord('d') + Ord('a') shl 8 + Ord('t') shl 16 + Ord('e') shl 24;
+  DMUS_FOURCC_DATE_CHUNK      : mmioFOURCC = ('d','a','t','e');
-  DMUS_FOURCC_NAME_CHUNK     = Ord('n') + Ord('a') shl 8 + Ord('m') shl 16 + Ord('e') shl 24;
+  DMUS_FOURCC_NAME_CHUNK      : mmioFOURCC = ('n','a','m','e');
-  DMUS_FOURCC_FILE_CHUNK     = Ord('f') + Ord('i') shl 8 + Ord('l') shl 16 + Ord('e') shl 24;
+  DMUS_FOURCC_FILE_CHUNK      : mmioFOURCC = ('f','i','l','e');
 type
-  TDMUS_IO_REFERENCE = record
+  TDMus_IO_Reference = packed record
-    guidClassID : TGUID;    // Class id is always required.
+    guidClassID: TGUID;      (* Class id is always required. *)
-    dwValidData : DWORD;    // Flags.
+    dwValidData: DWORD;      (* Flags. *)
   end;
-  DMUS_IO_REFERENCE = TDMUS_IO_REFERENCE;
+(*
+LIST
+(
+    'DMRF'          // DirectMusic Reference chunk
+    <refh-ck>       // Reference header chunk
+    [<guid-ck>]     // Optional object GUID.
+    [<date-ck>]     // Optional file date.
+    [<name-ck>]     // Optional name.
+    [<file-ck>]     // Optional file name.
+    [<catg-ck>]     // Optional category name.
+    [<vers-ck>]     // Optional version info.
+)
+    // <refh-ck>
+    'refh'
+    (
+        <DMUS_IO_REFERENCE>
+    )
+    // <guid-ck>
+    'guid'
+    (
-// Chord Maps
+        <GUID>
+    )
+    // <date-ck>
+    date
+    (
+        <FILETIME>
+    )
+    // <name-ck>
+    name
+    (
+        // Name, stored as NULL terminated string of WCHARs
+    )
+    // <file-ck>
+    file
+    (
+        // File name, stored as NULL terminated string of WCHARs
+    )
+    // <catg-ck>
+    catg
+    (
+        // Category name, stored as NULL terminated string of WCHARs
+    )
+    // <vers-ck>
+    vers
+    (
+        <DMUS_IO_VERSION>
+    )
+*)
+(* Chord Maps *)
 const
-// runtime chunks
+(* runtime chunks *)
-  DMUS_FOURCC_CHORDMAP_FORM      = Ord('D') + Ord('M') shl 8 + Ord('P') shl 16 + Ord('R') shl 24;
+  DMUS_FOURCC_CHORDMAP_FORM       : mmioFOURCC = ('D','M','P','R');
-  DMUS_FOURCC_IOCHORDMAP_CHUNK   = Ord('p') + Ord('e') shl 8 + Ord('r') shl 16 + Ord('h') shl 24;
+  DMUS_FOURCC_IOCHORDMAP_CHUNK    : mmioFOURCC = ('p','e','r','h');
-  DMUS_FOURCC_SUBCHORD_CHUNK     = Ord('c') + Ord('h') shl 8 + Ord('d') shl 16 + Ord('t') shl 24;
+  DMUS_FOURCC_SUBCHORD_CHUNK      : mmioFOURCC = ('c','h','d','t');
-  DMUS_FOURCC_CHORDENTRY_CHUNK   = Ord('c') + Ord('h') shl 8 + Ord('e') shl 16 + Ord('h') shl 24;
+  DMUS_FOURCC_CHORDENTRY_CHUNK    : mmioFOURCC = ('c','h','e','h');
-  DMUS_FOURCC_SUBCHORDID_CHUNK   = Ord('s') + Ord('b') shl 8 + Ord('c') shl 16 + Ord('n') shl 24;
+  DMUS_FOURCC_SUBCHORDID_CHUNK    : mmioFOURCC = ('s','b','c','n');
-  DMUS_FOURCC_IONEXTCHORD_CHUNK  = Ord('n') + Ord('c') shl 8 + Ord('r') shl 16 + Ord('d') shl 24;
+  DMUS_FOURCC_IONEXTCHORD_CHUNK   : mmioFOURCC = ('n','c','r','d');
-  DMUS_FOURCC_NEXTCHORDSEQ_CHUNK = Ord('n') + Ord('c') shl 8 + Ord('s') shl 16 + Ord('q') shl 24;
+  DMUS_FOURCC_NEXTCHORDSEQ_CHUNK  : mmioFOURCC = ('n','c','s','q');
-  DMUS_FOURCC_IOSIGNPOST_CHUNK   = Ord('s') + Ord('p') shl 8 + Ord('s') shl 16 + Ord('h') shl 24;
+  DMUS_FOURCC_IOSIGNPOST_CHUNK    : mmioFOURCC = ('s','p','s','h');
-  DMUS_FOURCC_CHORDNAME_CHUNK    = Ord('I') + Ord('N') shl 8 + Ord('A') shl 16 + Ord('M') shl 24;
+  DMUS_FOURCC_CHORDNAME_CHUNK     : mmioFOURCC = ('I','N','A','M');
+(* runtime list chunks *)
+  DMUS_FOURCC_CHORDENTRY_LIST     : mmioFOURCC = ('c','h','o','e');
+  DMUS_FOURCC_CHORDMAP_LIST       : mmioFOURCC = ('c','m','a','p');
+  DMUS_FOURCC_CHORD_LIST          : mmioFOURCC = ('c','h','r','d');
+  DMUS_FOURCC_CHORDPALETTE_LIST   : mmioFOURCC = ('c','h','p','l');
+  DMUS_FOURCC_CADENCE_LIST        : mmioFOURCC = ('c','a','d','e');
+  DMUS_FOURCC_SIGNPOSTITEM_LIST   : mmioFOURCC = ('s','p','s','t');
-// runtime list chunks
-  DMUS_FOURCC_CHORDENTRY_LIST    = Ord('c') + Ord('h') shl 8 + Ord('o') shl 16 + Ord('e') shl 24;
-  DMUS_FOURCC_CHORDMAP_LIST      = Ord('c') + Ord('m') shl 8 + Ord('a') shl 16 + Ord('p') shl 24;
-  DMUS_FOURCC_CHORD_LIST         = Ord('c') + Ord('h') shl 8 + Ord('r') shl 16 + Ord('d') shl 24;
-  DMUS_FOURCC_CHORDPALETTE_LIST  = Ord('c') + Ord('h') shl 8 + Ord('p') shl 16 + Ord('l') shl 24;
-  DMUS_FOURCC_CADENCE_LIST       = Ord('c') + Ord('a') shl 8 + Ord('d') shl 16 + Ord('e') shl 24;
-  DMUS_FOURCC_SIGNPOSTITEM_LIST  = Ord('s') + Ord('p') shl 8 + Ord('s') shl 16 + Ord('t') shl 24;
+  DMUS_FOURCC_SIGNPOST_LIST       : mmioFOURCC = ('s','p','s','q');
-  DMUS_FOURCC_SIGNPOST_LIST      = Ord('s') + Ord('p') shl 8 + Ord('s') shl 16 + Ord('q') shl 24;
-// values for dwChord field of DMUS_IO_PERS_SIGNPOST
+(* values for dwChord field of DMUS_IO_PERS_SIGNPOST *)
-// DMUS_SIGNPOSTF_ flags are also used in templates (DMUS_IO_SIGNPOST)
+(* DMUS_SIGNPOSTF_ flags are also used in templates (DMUS_IO_SIGNPOST) *)
   DMUS_SIGNPOSTF_A       = 1;
   DMUS_SIGNPOSTF_B       = 2;
   DMUS_SIGNPOSTF_C       = 4;
   DMUS_SIGNPOSTF_D       = 8;
   DMUS_SIGNPOSTF_E       = $10;
   DMUS_SIGNPOSTF_F       = $20;
   DMUS_SIGNPOSTF_LETTER  = (DMUS_SIGNPOSTF_A or DMUS_SIGNPOSTF_B or DMUS_SIGNPOSTF_C or DMUS_SIGNPOSTF_D or DMUS_SIGNPOSTF_E or DMUS_SIGNPOSTF_F);
   DMUS_SIGNPOSTF_1       = $100;
   DMUS_SIGNPOSTF_2       = $200;
   DMUS_SIGNPOSTF_3       = $400;
   DMUS_SIGNPOSTF_4       = $800;
   DMUS_SIGNPOSTF_5       = $1000;
   DMUS_SIGNPOSTF_6       = $2000;
   DMUS_SIGNPOSTF_7       = $4000;
   DMUS_SIGNPOSTF_ROOT    = (DMUS_SIGNPOSTF_1 or DMUS_SIGNPOSTF_2 or DMUS_SIGNPOSTF_3 or DMUS_SIGNPOSTF_4 or DMUS_SIGNPOSTF_5 or DMUS_SIGNPOSTF_6 or DMUS_SIGNPOSTF_7);
   DMUS_SIGNPOSTF_CADENCE = $8000;
-// values for dwChord field of DMUS_IO_PERS_SIGNPOST
+(* values for dwChord field of DMUS_IO_PERS_SIGNPOST *)
-  DMUS_SPOSTCADENCEF_1 = 2;   // Use the first cadence chord.
+  DMUS_SPOSTCADENCEF_1 = 2;   (* Use the first cadence chord. *)
-  DMUS_SPOSTCADENCEF_2 = 4;   // Use the second cadence chord.
+  DMUS_SPOSTCADENCEF_2 = 4;   (* Use the second cadence chord. *)
 type
-// run time data structs
+(* run time data structs *)
-  TDMUS_IO_CHORDMAP = record
+  TDMus_IO_ChordMap = packed record
-    wszLoadName    : array[0..19] of WCHAR;
+    wszLoadName: array [0..19] of WCHAR;
-    dwScalePattern : DWORD;
+    dwScalePattern: DWORD;
-    dwFlags        : DWORD;
+    dwFlags:        DWORD;
   end;
-  DMUS_IO_CHORDMAP = TDMUS_IO_CHORDMAP;
-  TDMUS_IO_CHORDMAP_SUBCHORD = record
+  TDMus_IO_ChordMap_SubChord = packed record
-    dwChordPattern : DWORD;
+    dwChordPattern:  DWORD;
-    dwScalePattern : DWORD;
+    dwScalePattern:  DWORD;
     dwInvertPattern: DWORD;
-    bChordRoot     : Byte;
+    bChordRoot:      BYTE;
-    bScaleRoot     : Byte;
+    bScaleRoot:      BYTE;
-    wCFlags        : Word;
+    wCFlags:         WORD;
-    dwLevels       : DWORD;   // parts or which subchord levels this chord supports
+    dwLevels:        DWORD;    (* parts or which subchord levels this chord supports *)
   end;
-  DMUS_IO_CHORDMAP_SUBCHORD = TDMUS_IO_CHORDMAP_SUBCHORD;
-// Legacy name...
+(* Legacy name... *)
-  DMUS_IO_PERS_SUBCHORD = TDMUS_IO_CHORDMAP_SUBCHORD;
+  TDMus_IO_Pers_SubChord = TDMus_IO_ChordMap_SubChord;
-  TDMUS_IO_CHORDENTRY = record
+  TDMus_IO_ChordEntry = packed record
-    dwFlags       : DWORD;
+    dwFlags:       DWORD;
-    wConnectionID : Word;  // replaces runtime "pointer to this"
+    wConnectionID: WORD;     (* replaces runtime "pointer to this" *)
   end;
-  DMUS_IO_CHORDENTRY = TDMUS_IO_CHORDENTRY;
-  TDMUS_IO_NEXTCHORD = record
+  TDMus_IO_NextChord = packed record
-    dwFlags       : DWORD;
+    dwFlags:       DWORD;
-    nWeight       : Word;
+    nWeight:       WORD;
-    wMinBeats     : Word;
+    wMinBeats:     WORD;
-    wMaxBeats     : Word;
+    wMaxBeats:     WORD;
-    wConnectionID : Word;  // points to an ioChordEntry
+    wConnectionID: WORD;     (* points to an ioChordEntry *)
   end;
-  DMUS_IO_NEXTCHORD = TDMUS_IO_NEXTCHORD;
-  TDMUS_IO_CHORDMAP_SIGNPOST = record
+  TDMus_IO_ChordMap_SignPost = packed record
-    dwChords : DWORD;   // 1bit per group
+    dwChords: DWORD;     (* 1bit per group *)
-    dwFlags  : DWORD;
+    dwFlags:  DWORD;
   end;
-  DMUS_IO_CHORDMAP_SIGNPOST = TDMUS_IO_CHORDMAP_SIGNPOST;
-// Legacy name...
+(* Legacy name... *)
-  DMUS_IO_PERS_SIGNPOST = TDMUS_IO_CHORDMAP_SIGNPOST;
+  TDMus_IO_Pers_SignPost = TDMus_IO_ChordMap_SignPost;
+(*
+RIFF
+(
+    'DMPR'
+    <perh-ck>           // Chord map header chunk
+    [<guid-ck>]         // guid chunk
+    [<vers-ck>]         // version chunk (two DWORDS)
+    [<UNFO-list>]       // Unfo chunk
+    <chdt-ck>           // subchord database
+    <chpl-list>         // chord palette
+    <cmap-list>         // chord map
+    <spsq-list>         // signpost list
+ )
+<cmap-list> ::= LIST('cmap' <choe-list> )
+<choe-list> ::= LIST('choe'
+                                <cheh-ck>   // chord entry data
+                                <chrd-list> // chord definition
+                                <ncsq-ck>   // connecting(next) chords
+                     )
+<chrd-list> ::= LIST('chrd'
+                                <INAM-ck>   // name of chord in wide char format
+                                <sbcn-ck>   // list of subchords composing chord
+                    )
+<chpl-list> ::= LIST('chpl'
+                                <chrd-list> ... // chord definition
+                    )
+<spsq-list> ::== LIST('spsq' <spst-list> ... )
+<spst-list> ::= LIST('spst'
+                             <spsh-ck>
+                             <chrd-list>
+                             [<cade-list>]
+                    )
+<cade-list> ::= LIST('cade' <chrd-list> ...)
+<perh-ck> ::= perh(<DMUS_IO_CHORDMAP>)
+<chdt-ck> ::= chdt(<cbChordSize::WORD>
+                   <DMUS_IO_PERS_SUBCHORD> ... )
+<cheh-ck> ::= cheh(<DMUS_IO_CHORDENTRY>)
+<sbcn-ck> ::= sbcn(<cSubChordID:WORD> ...)
+<ncsq-ck> ::= ncsq(<wNextChordSize:WORD>
+                   <DMUS_IO_NEXTCHORD>...)
+<spsh-ck> ::= spsh(<DMUS_IO_PERS_SIGNPOST>)
+*)
+(* Signpost tracks *)
 const
-// Signpost tracks
-  DMUS_FOURCC_SIGNPOST_TRACK_CHUNK = Ord('s') + Ord('g') shl 8 + Ord('n') shl 16 + Ord('p') shl 24;
+  DMUS_FOURCC_SIGNPOST_TRACK_CHUNK    : mmioFOURCC = ( 's', 'g', 'n', 'p' );
 type
-  TDMUS_IO_SIGNPOST = record
+  TDMus_IO_SignPost = packed record
-    mtTime   : MUSIC_TIME;
+    mtTime:   TMusic_Time;
-    dwChords : DWORD;
+    dwChords: DWORD;
-    wMeasure : Word;
+    wMeasure: WORD;
   end;
+(*
+    // <sgnp-list>
+    'sgnp'
+    (
+        //sizeof DMUS_IO_SIGNPOST: DWORD
-  DMUS_IO_SIGNPOST = TDMUS_IO_SIGNPOST;
+        <DMUS_IO_SIGNPOST>...
+    )
+*)
 const
-  DMUS_FOURCC_MUTE_CHUNK = Ord('m') + Ord('u') shl 8 + Ord('t') shl 16 + Ord('e') shl 24;
+  DMUS_FOURCC_MUTE_CHUNK  : mmioFOURCC = ('m','u','t','e');
 type
-  TDMUS_IO_MUTE = record
+  TDMus_IO_Mute = packed record
-    mtTime        : MUSIC_TIME;
+    mtTime: TMusic_Time;
-    dwPChannel    : DWORD;
+    dwPChannel:    DWORD;
-    dwPChannelMap : DWORD;
+    dwPChannelMap: DWORD;
   end;
-  DMUS_IO_MUTE = TDMUS_IO_MUTE;
+(*
+    // <mute-list>
+    'mute'
+    (
-// Used for both style and chord map tracks
+        //sizeof DMUS_IO_MUTE:DWORD
+        <DMUS_IO_MUTE>...
+    )
+*)
 const
-  DMUS_FOURCC_TIME_STAMP_CHUNK = Ord('s') + Ord('t') shl 8 + Ord('m') shl 16 + Ord('p') shl 24;
+(* Used for both style and chord map tracks *)
-// Style tracks
-  DMUS_FOURCC_STYLE_TRACK_LIST = Ord('s') + Ord('t') shl 8 + Ord('t') shl 16 + Ord('r') shl 24;
-  DMUS_FOURCC_STYLE_REF_LIST   = Ord('s') + Ord('t') shl 8 + Ord('r') shl 16 + Ord('f') shl 24;
-// Chord map tracks
-  DMUS_FOURCC_PERS_TRACK_LIST = Ord('p') + Ord('f') shl 8 + Ord('t') shl 16 + Ord('r') shl 24;
-  DMUS_FOURCC_PERS_REF_LIST   = Ord('p') + Ord('f') shl 8 + Ord('r') shl 16 + Ord('f') shl 24;
-  DMUS_FOURCC_TEMPO_TRACK     = Ord('t') + Ord('e') shl 8 + Ord('t') shl 16 + Ord('r') shl 24;
-  DMUS_FOURCC_SEQ_TRACK       = Ord('s') + Ord('e') shl 8 + Ord('q') shl 16 + Ord('t') shl 24;
-  DMUS_FOURCC_SEQ_LIST        = Ord('e') + Ord('v') shl 8 + Ord('t') shl 16 + Ord('l') shl 24;
-  DMUS_FOURCC_CURVE_LIST      = Ord('c') + Ord('u') shl 8 + Ord('r') shl 16 + Ord('l') shl 24;
-  DMUS_FOURCC_SYSEX_TRACK     = Ord('s') + Ord('y') shl 8 + Ord('e') shl 16 + Ord('x') shl 24;
-  DMUS_FOURCC_TIMESIGNATURE_TRACK = Ord('t') + Ord('i') shl 8 + Ord('m') shl 16 + Ord('s') shl 24;
+  DMUS_FOURCC_TIME_STAMP_CHUNK   : mmioFOURCC = ('s', 't', 'm', 'p');
-implementation
-const
-  DDrawLib = 'DDraw.dll';
-  D3DRMLib = 'D3DRM.dll';
-  D3DXofLib = 'd3dxof.dll';
-  DInputLib = 'DInput.dll';
-  DPlayXLib = 'DPlayX.dll';
-  DSetupLib = 'DSetup.dll';
-  DSoundLib = 'DSound.dll';
+(* Style tracks *)
+  DMUS_FOURCC_STYLE_TRACK_LIST   : mmioFOURCC = ('s', 't', 't', 'r');
+  DMUS_FOURCC_STYLE_REF_LIST     : mmioFOURCC = ('s', 't', 'r', 'f');
+(*
+    // <sttr-list>
+    LIST('sttr'
+    (
+        // some number of <strf-list>
+    )
+    // <strf-list>
+    LIST('strf'
+    (
+        <stmp-ck>
+        <DMRF>
+    )
+    // <stmp-ck> defined in ..\dmcompos\dmcompp.h
+*)
+(* Chord map tracks *)
+  DMUS_FOURCC_PERS_TRACK_LIST : mmioFOURCC = ('p', 'f', 't', 'r');
+  DMUS_FOURCC_PERS_REF_LIST   : mmioFOURCC = ('p', 'f', 'r', 'f');
+(*
+    // <pftr-list>
+    LIST('pftr'
+    (
+        // some number of <pfrf-list>
+    )
+    // <pfrf-list>
+    LIST('pfrf'
+    (
+        <stmp-ck>
+        <DMRF>
+    )
-{ DirectDraw }
+  // <stmp-ck>
+  'stmp'
+  (
+    // time:DWORD
+  )
+*)
+  DMUS_FOURCC_TEMPO_TRACK    : mmioFOURCC = ('t','e','t','r');
+(*
+    // tempo list
+    'tetr'
+    (
+        // sizeof DMUS_IO_TEMPO_ITEM: DWORD
+        <DMUS_IO_TEMPO_ITEM>...
+    )
+  *)
+  DMUS_FOURCC_SEQ_TRACK      : mmioFOURCC = ('s','e','q','t');
+  DMUS_FOURCC_SEQ_LIST       : mmioFOURCC = ('e','v','t','l');
+  DMUS_FOURCC_CURVE_LIST     : mmioFOURCC = ('c','u','r','l');
+(*
+    // sequence track
+    'seqt'
+    (
+        // sequence list
+        'evtl'
+        (
+            // sizeof DMUS_IO_SEQ_ITEM: DWORD
+            <DMUS_IO_SEQ_ITEM>...
+        )
+        // curve list
+        'curl'
+        (
+            // sizeof DMUS_IO_CURVE_ITEM: DWORD
+            <DMUS_IO_CURVE_ITEM>...
+        )
+    )
+*)
+  DMUS_FOURCC_SYSEX_TRACK    : mmioFOURCC = ('s','y','e','x');
+(*
+    // sysex track
+    'syex'
+    (
+        // list of:
+        // {
+        //      <DMUS_IO_SYSEX_ITEM>
+        //      sys-ex: data
+        // }...
+    )
+*)
+  DMUS_FOURCC_TIMESIGNATURE_TRACK : mmioFOURCC = ('t','i','m','s');
+(*
+    // time signature track
+    'tims'
+    (
+        // size of DMUS_IO_TIMESIGNATURE_ITEM : DWORD
+        <DMUS_IO_TIMESIGNATURE_ITEM>...
+    )
+*)
+(***************************************************************************
+*                                                                          *
+*   DMusBuff.h -- This module defines the buffer format for DirectMusic    *
+*                 Shared file between user mode and kernel mode components *
+*                                                                          *
+*   Copyright (c) 1998, Microsoft Corp. All rights reserved.               *
+*                                                                          *
+***************************************************************************)
+(* The number of bytes to allocate for an event with 'cb' data bytes.
+ *)
+function QWORD_ALIGN(x: DWORD) : DWORD;
+function DMUS_EVENT_SIZE(cb: DWORD) : DWORD;
+Implementation
+//DirectDraw file
+{
+#define GET_WHQL_YEAR( dwWHQLLevel ) \
+    ( (dwWHQLLevel) / 0x10000 )
+#define GET_WHQL_MONTH( dwWHQLLevel ) \
+    ( ( (dwWHQLLevel) / 0x100 ) & 0x00ff )
+#define GET_WHQL_DAY( dwWHQLLevel ) \
+    ( (dwWHQLLevel) & 0xff )
+}
-function GET_WHQL_YEAR(dwWHQLLevel: DWORD): DWORD;
+function GET_WHQL_YEAR(dwWHQLLevel: DWORD) : DWORD;
 begin
-  Result := dwWHQLLevel div $10000;
+  Result := (dwWHQLLevel) div $10000;
 end;
-function GET_WHQL_MONTH(dwWHQLLevel: DWORD): DWORD;
+function GET_WHQL_MONTH(dwWHQLLevel: DWORD) : DWORD;
 begin
-  Result := (dwWHQLLevel div $100) and $FF;
+  Result := ( (dwWHQLLevel) div $100 ) and $00ff;
 end;
-function GET_WHQL_DAY(dwWHQLLevel: DWORD): DWORD;
+function GET_WHQL_DAY(dwWHQLLevel: DWORD) : DWORD;
 begin
-  Result := dwWHQLLevel and $FF;
+  Result := (dwWHQLLevel) and $ff;
+end;
+function MAKEFOURCC(ch0, ch1, ch2, ch3: Char) : DWORD;
+begin
+  Result := DWORD(byte(ch0) shl 0) or
+            DWORD(byte(ch1) shl 8) or
+            DWORD(byte(ch2) shl 16) or
+            DWORD(byte(ch3) shl 24);
 end;
-function DirectDrawEnumerateA; external DDrawLib;
+function DDErrorString(Value: HResult) : string;
+begin
+  case Value of
+    DD_OK: Result := 'The request completed successfully.';
+    DDERR_ALREADYINITIALIZED: Result := 'This object is already initialized.';
+    DDERR_BLTFASTCANTCLIP: Result := ' if a clipper object is attached to the source surface passed into a BltFast call.';
+    DDERR_CANNOTATTACHSURFACE: Result := 'This surface can not be attached to the requested surface.';
+    DDERR_CANNOTDETACHSURFACE: Result := 'This surface can not be detached from the requested surface.';
+    DDERR_CANTCREATEDC: Result := 'Windows can not create any more DCs.';
+    DDERR_CANTDUPLICATE: Result := 'Cannot duplicate primary & 3D surfaces, or surfaces that are implicitly created.';
+    DDERR_CLIPPERISUSINGHWND: Result := 'An attempt was made to set a cliplist for a clipper object that is already monitoring an hwnd.';
+    DDERR_COLORKEYNOTSET: Result := 'No src color key specified for this operation.';
+    DDERR_CURRENTLYNOTAVAIL: Result := 'Support is currently not available.';
+    DDERR_DIRECTDRAWALREADYCREATED: Result := 'A DirectDraw object representing this driver has already been created for this process.';
+    DDERR_EXCEPTION: Result := 'An exception was encountered while performing the requested operation.';
+    DDERR_EXCLUSIVEMODEALREADYSET: Result := 'An attempt was made to set the cooperative level when it was already set to exclusive.';
+    DDERR_GENERIC: Result := 'Generic failure.';
+    DDERR_HEIGHTALIGN: Result := 'Height of rectangle provided is not a multiple of reqd alignment.';
+    DDERR_HWNDALREADYSET: Result := 'The CooperativeLevel HWND has already been set. It can not be reset while the process has surfaces or palettes created.';
+    DDERR_HWNDSUBCLASSED: Result := 'HWND used by DirectDraw CooperativeLevel has been subclassed, this prevents DirectDraw from restoring state.';
+    DDERR_IMPLICITLYCREATED: Result := 'This surface can not be restored because it is an implicitly created surface.';
+    DDERR_INCOMPATIBLEPRIMARY: Result := 'Unable to match primary surface creation request with existing primary surface.';
+    DDERR_INVALIDCAPS: Result := 'One or more of the caps bits passed to the callback are incorrect.';
+    DDERR_INVALIDCLIPLIST: Result := 'DirectDraw does not support the provided cliplist.';
+    DDERR_INVALIDDIRECTDRAWGUID: Result := 'The GUID passed to DirectDrawCreate is not a valid DirectDraw driver identifier.';
+    DDERR_INVALIDMODE: Result := 'DirectDraw does not support the requested mode.';
+    DDERR_INVALIDOBJECT: Result := 'DirectDraw received a pointer that was an invalid DIRECTDRAW object.';
+    DDERR_INVALIDPARAMS: Result := 'One or more of the parameters passed to the function are incorrect.';
+    DDERR_INVALIDPIXELFORMAT: Result := 'The pixel format was invalid as specified.';
+    DDERR_INVALIDPOSITION: Result := 'Returned when the position of the overlay on the destination is no longer legal for that destination.';
+    DDERR_INVALIDRECT: Result := 'Rectangle provided was invalid.';
+    DDERR_LOCKEDSURFACES: Result := 'Operation could not be carried out because one or more surfaces are locked.';
+    DDERR_NO3D: Result := 'There is no 3D present.';
+    DDERR_NOALPHAHW: Result := 'Operation could not be carried out because there is no alpha accleration hardware present or available.';
+    DDERR_NOBLTHW: Result := 'No blitter hardware present.';
-function DirectDrawEnumerateW; external DDrawLib;
+    DDERR_NOCLIPLIST: Result := 'No cliplist available.';
+    DDERR_NOCLIPPERATTACHED: Result := 'No clipper object attached to surface object.';
+    DDERR_NOCOLORCONVHW: Result := 'Operation could not be carried out because there is no color conversion hardware present or available.';
+    DDERR_NOCOLORKEY: Result := 'Surface does not currently have a color key';
+    DDERR_NOCOLORKEYHW: Result := 'Operation could not be carried out because there is no hardware support of the destination color key.';
+    DDERR_NOCOOPERATIVELEVELSET: Result := 'Create function called without DirectDraw object method SetCooperativeLevel being called.';
+    DDERR_NODC: Result := 'No DC was ever created for this surface.';
+    DDERR_NODDROPSHW: Result := 'No DirectDraw ROP hardware.';
+    DDERR_NODIRECTDRAWHW: Result := 'A hardware-only DirectDraw object creation was attempted but the driver did not support any hardware.';
+    DDERR_NOEMULATION: Result := 'Software emulation not available.';
+    DDERR_NOEXCLUSIVEMODE: Result := 'Operation requires the application to have exclusive mode but the application does not have exclusive mode.';
+    DDERR_NOFLIPHW: Result := 'Flipping visible surfaces is not supported.';
+    DDERR_NOGDI: Result := 'There is no GDI present.';
+    DDERR_NOHWND: Result := 'Clipper notification requires an HWND or no HWND has previously been set as the CooperativeLevel HWND.';
+    DDERR_NOMIRRORHW: Result := 'Operation could not be carried out because there is no hardware present or available.';
+    DDERR_NOOVERLAYDEST: Result := 'Returned when GetOverlayPosition is called on an overlay that UpdateOverlay has never been called on to establish a destination.';
+    DDERR_NOOVERLAYHW: Result := 'Operation could not be carried out because there is no overlay hardware present or available.';
+    DDERR_NOPALETTEATTACHED: Result := 'No palette object attached to this surface.';
+    DDERR_NOPALETTEHW: Result := 'No hardware support for 16 or 256 color palettes.';
+    DDERR_NORASTEROPHW: Result := 'Operation could not be carried out because there is no appropriate raster op hardware present or available.';
+    DDERR_NOROTATIONHW: Result := 'Operation could not be carried out because there is no rotation hardware present or available.';
+    DDERR_NOSTRETCHHW: Result := 'Operation could not be carried out because there is no hardware support for stretching.';
+    DDERR_NOT4BITCOLOR: Result := 'DirectDrawSurface is not in 4 bit color palette and the requested operation requires 4 bit color palette.';
+    DDERR_NOT4BITCOLORINDEX: Result := 'DirectDrawSurface is not in 4 bit color index palette and the requested operation requires 4 bit color index palette.';
+    DDERR_NOT8BITCOLOR: Result := 'DirectDrawSurface is not in 8 bit color mode and the requested operation requires 8 bit color.';
+    DDERR_NOTAOVERLAYSURFACE: Result := 'Returned when an overlay member is called for a non-overlay surface.';
+    DDERR_NOTEXTUREHW: Result := 'Operation could not be carried out because there is no texture mapping hardware present or available.';
+    DDERR_NOTFLIPPABLE: Result := 'An attempt has been made to flip a surface that is not flippable.';
+    DDERR_NOTFOUND: Result := 'Requested item was not found.';
+    DDERR_NOTLOCKED: Result := 'Surface was not locked.  An attempt to unlock a surface that was not locked at all, or by this process, has been attempted.';
+    DDERR_NOTPALETTIZED: Result := 'The surface being used is not a palette-based surface.';
+    DDERR_NOVSYNCHW: Result := 'Operation could not be carried out because there is no hardware support for vertical blank synchronized operations.';
+    DDERR_NOZBUFFERHW: Result := 'Operation could not be carried out because there is no hardware support for zbuffer blitting.';
+    DDERR_NOZOVERLAYHW: Result := 'Overlay surfaces could not be z layered based on their BltOrder because the hardware does not support z layering of overlays.';
+    DDERR_OUTOFCAPS: Result := 'The hardware needed for the requested operation has already been allocated.';
+    DDERR_OUTOFMEMORY: Result := 'DirectDraw does not have enough memory to perform the operation.';
+    DDERR_OUTOFVIDEOMEMORY: Result := 'DirectDraw does not have enough memory to perform the operation.';
+    DDERR_OVERLAYCANTCLIP: Result := 'The hardware does not support clipped overlays.';
+    DDERR_OVERLAYCOLORKEYONLYONEACTIVE: Result := 'Can only have ony color key active at one time for overlays.';
+    DDERR_OVERLAYNOTVISIBLE: Result := 'Returned when GetOverlayPosition is called on a hidden overlay.';
+    DDERR_PALETTEBUSY: Result := 'Access to this palette is being refused because the palette is already locked by another thread.';
+    DDERR_PRIMARYSURFACEALREADYEXISTS: Result := 'This process already has created a primary surface.';
+    DDERR_REGIONTOOSMALL: Result := 'Region passed to Clipper::GetClipList is too small.';
+    DDERR_SURFACEALREADYATTACHED: Result := 'This surface is already attached to the surface it is being attached to.';
+    DDERR_SURFACEALREADYDEPENDENT: Result := 'This surface is already a dependency of the surface it is being made a dependency of.';
+    DDERR_SURFACEBUSY: Result := 'Access to this surface is being refused because the surface is already locked by another thread.';
+    DDERR_SURFACEISOBSCURED: Result := 'Access to surface refused because the surface is obscured.';
+    DDERR_SURFACELOST: Result := 'Access to this surface is being refused because the surface memory is gone. The DirectDrawSurface object representing this surface should have Restore called on it.';
+    DDERR_SURFACENOTATTACHED: Result := 'The requested surface is not attached.';
-function DirectDrawEnumerate; external DDrawLib name 'DirectDrawEnumerateA';
+    DDERR_TOOBIGHEIGHT: Result := 'Height requested by DirectDraw is too large.';
+    DDERR_TOOBIGSIZE: Result := 'Size requested by DirectDraw is too large, but the individual height and width are OK.';
+    DDERR_TOOBIGWIDTH: Result := 'Width requested by DirectDraw is too large.';
+    DDERR_UNSUPPORTED: Result := 'Action not supported.';
+    DDERR_UNSUPPORTEDFORMAT: Result := 'FOURCC format requested is unsupported by DirectDraw.';
+    DDERR_UNSUPPORTEDMASK: Result := 'Bitmask in the pixel format requested is unsupported by DirectDraw.';
+    DDERR_VERTICALBLANKINPROGRESS: Result := 'Vertical blank is in progress.';
+    DDERR_WASSTILLDRAWING: Result := 'Informs DirectDraw that the previous Blt which is transfering information to or from this Surface is incomplete.';
+    DDERR_WRONGMODE: Result := 'This surface can not be restored because it was created in a different mode.';
+    DDERR_XALIGN: Result := 'Rectangle provided was not horizontally aligned on required boundary.';
+    // new:
+    DDERR_OVERLAPPINGRECTS: Result := 'Operation could not be carried out because the source and destination rectangles are on the same surface and overlap each other.';
+    DDERR_INVALIDSTREAM: Result := 'The specified stream contains invalid data';
+    DDERR_UNSUPPORTEDMODE: Result := 'The display is currently in an unsupported mode';
+    DDERR_NOMIPMAPHW: Result := 'Operation could not be carried out because there is no mip-map texture mapping hardware present or available.';
+    DDERR_INVALIDSURFACETYPE: Result := 'The requested action could not be performed because the surface was of the wrong type.';
+    DDERR_NOOPTIMIZEHW: Result := 'Device does not support optimized surfaces, therefore no video memory optimized surfaces';
+    DDERR_NOTLOADED: Result := 'Surface is an optimized surface, but has not yet been allocated any memory';
+    DDERR_NOFOCUSWINDOW: Result := 'Attempt was made to create or set a device window without first setting the focus window';
+    DDERR_DCALREADYCREATED: Result := 'A DC has already been returned for this surface. Only one DC can be retrieved per surface.';
+    DDERR_NONONLOCALVIDMEM: Result := 'An attempt was made to allocate non-local video memory from a device that does not support non-local video memory.';
+    DDERR_CANTPAGELOCK: Result := 'The attempt to page lock a surface failed.';
+    DDERR_CANTPAGEUNLOCK: Result := 'The attempt to page unlock a surface failed.';
+    DDERR_NOTPAGELOCKED: Result := 'An attempt was made to page unlock a surface with no outstanding page locks.';
+    DDERR_MOREDATA: Result := 'There is more data available than the specified buffer size could hold';
+    DDERR_EXPIRED: Result := 'The data has expired and is therefore no longer valid.';
+    DDERR_VIDEONOTACTIVE: Result := 'The video port is not active';
+    DDERR_DEVICEDOESNTOWNSURFACE: Result := 'Surfaces created by one direct draw device cannot be used directly by another direct draw device.';
+    DDERR_NOTINITIALIZED: Result := 'An attempt was made to invoke an interface member of a DirectDraw object created by CoCreateInstance() before it was initialized.';
+    else Result := 'Unrecognized Error';
+  end;
+end;
-function DirectDrawEnumerateExA; external DDrawLib;
-function DirectDrawEnumerateExW; external DDrawLib;
+//Direct3D file
-function DirectDrawEnumerateEx; external DDrawLib name 'DirectDrawEnumerateExA';
-function DirectDrawCreate; external DDrawLib;
+function DXFileErrorString(Value: HResult) : string;
+begin
+  case Value of
+    DXFILE_OK: Result := 'Command completed successfully. Equivalent to DD_OK.';
-function DirectDrawCreateEx; external DDrawLib;
+    DXFILEERR_BADVALUE: Result := 'Parameter is invalid.';
+    DXFILEERR_BADTYPE: Result := 'Object type is invalid.';
+    DXFILEERR_BADALLOC: Result := 'Memory allocation failed.';
+    DXFILEERR_NOTFOUND: Result := 'Object could not be found.';
+    DXFILEERR_FILENOTFOUND: Result := 'File could not be found.';
+    DXFILEERR_RESOURCENOTFOUND: Result := 'Resource could not be found.';
+    DXFILEERR_URLNOTFOUND: Result := 'URL could not be found.';
-function DirectDrawCreateClipper; external DDrawLib;
+    DXFILEERR_BADRESOURCE: Result := 'Resource is invalid.';
+    DXFILEERR_BADFILETYPE: Result := 'File is not a DirectX file.';
+    DXFILEERR_BADFILEVERSION: Result := 'File version is not valid.';
+    DXFILEERR_BADFILEFLOATSIZE: Result := 'Floating-point size is invalid.';
+    DXFILEERR_BADFILE: Result := 'File is invalid.';
+    DXFILEERR_PARSEERROR: Result := 'File could not be parsed.';
+    DXFILEERR_BADARRAYSIZE: Result := 'Array size is invalid.';
+    DXFILEERR_BADDATAREFERENCE: Result := 'Data reference is invalid.';
+    DXFILEERR_NOMOREOBJECTS: Result := 'All objects have been enumerated.';
+    DXFILEERR_NOMOREDATA: Result := 'No further data is available.';
+    else Result := 'Unrecognized Error';
+  end;
+end;
+function D3DFVF_TEXCOORDSIZE3(CoordIndex: DWORD) : DWORD;
-{ Direct3D }
+begin
+  Result := (D3DFVF_TEXTUREFORMAT3 shl (CoordIndex*2 + 16));
+end;
-function D3DVALP(val: TD3DValue; prec: Integer): TD3DValue;
+function D3DFVF_TEXCOORDSIZE2(CoordIndex: DWORD) : DWORD;
 begin
-  Result := val;
+  Result := (D3DFVF_TEXTUREFORMAT2);
 end;
+function D3DFVF_TEXCOORDSIZE4(CoordIndex: DWORD) : DWORD;
+begin
+  Result := (D3DFVF_TEXTUREFORMAT4 shl (CoordIndex*2 + 16));
+end;
+function D3DFVF_TEXCOORDSIZE1(CoordIndex: DWORD) : DWORD;
+begin
+  Result := (D3DFVF_TEXTUREFORMAT1 shl (CoordIndex*2 + 16));
+end;
-function D3DVAL(val: TD3DValue): TD3DValue;
+function D3DVal(val: variant) : float;
 begin
   Result := val;
 end;
-function D3DDivide(a, b: TD3DValue): TD3DValue;
+function D3DDivide(a,b: double) : float;
 begin
   Result := a / b;
 end;
-function D3DMultiply(a, b: TD3DValue): TD3DValue;
+function D3DMultiply(a,b: double) : float;
 begin
   Result := a * b;
 end;
+// #define CI_GETALPHA(ci)    ((ci) >> 24)
-function CI_GETALPHA(ci: Integer): Byte;
+function CI_GETALPHA(ci: DWORD) : DWORD;
 begin
   Result := ci shr 24;
 end;
+// #define CI_GETINDEX(ci)    (((ci) >> 8) & 0xffff)
-function CI_GETINDEX(ci: Integer): Word;
+function CI_GETINDEX(ci: DWORD) : DWORD;
 begin
-  Result := ci shr 8;
+  Result := (ci shr 8) and $ffff;
 end;
+// #define CI_GETFRACTION(ci) ((ci) & 0xff)
-function CI_GETFRACTION(ci: Integer): Byte;
+function CI_GETFRACTION(ci: DWORD) : DWORD;
 begin
-  Result := ci;
+  Result := ci and $ff;
 end;
+// #define CI_ROUNDINDEX(ci)  CI_GETINDEX((ci) + 0x80)
-function CI_ROUNDINDEX(ci: Integer): Integer;
+function CI_ROUNDINDEX(ci: DWORD) : DWORD;
 begin
-  Result := CI_GETINDEX(ci)+$80;
+  Result := CI_GETINDEX(ci + $80);
 end;
+// #define CI_MASKALPHA(ci)   ((ci) & 0xffffff)
-function CI_MASKALPHA(ci: Integer): Integer;
+function CI_MASKALPHA(ci: DWORD) : DWORD;
 begin
-  Result := ci and $FFFFFF;
+  Result := ci and $ffffff;
 end;
+// #define CI_MAKE(a, i, f)    (((a) << 24) | ((i) << 8) | (f))
-function CI_MAKE(a: Byte; i: Word; f: Byte): Integer;
+function CI_MAKE(a,i,f: DWORD) : DWORD;
 begin
   Result := (a shl 24) or (i shl 8) or f;
 end;
+// #define RGBA_GETALPHA(rgb)      ((rgb) >> 24)
-function RGBA_GETALPHA(rgb: TD3DColor): Byte;
+function RGBA_GETALPHA(rgb: TD3DColor) : DWORD;
 begin
   Result := rgb shr 24;
 end;
+// #define RGBA_GETRED(rgb)        (((rgb) >> 16) & 0xff)
-function RGBA_GETRED(rgb: TD3DColor): Byte;
+function RGBA_GETRED(rgb: TD3DColor) : DWORD;
 begin
-  Result := rgb shr 16;
+  Result := (rgb shr 16) and $ff;
 end;
+// #define RGBA_GETGREEN(rgb)      (((rgb) >> 8) & 0xff)
-function RGBA_GETGREEN(rgb: TD3DColor): Byte;
+function RGBA_GETGREEN(rgb: TD3DColor) : DWORD;
 begin
-  Result := rgb shr 8;
+  Result := (rgb shr 8) and $ff;
 end;
+// #define RGBA_GETBLUE(rgb)       ((rgb) & 0xff)
-function RGBA_GETBLUE(rgb: TD3DColor): Byte;
+function RGBA_GETBLUE(rgb: TD3DColor) : DWORD;
 begin
-  Result := rgb;
+  Result := rgb and $ff;
 end;
+// #define RGBA_MAKE(r, g, b, a)   ((TD3DColor) (((a) << 24) | ((r) << 16) | ((g) << 8) | (b)))
-function RGBA_MAKE(r, g, b, a: Byte): TD3DColor;
+function RGBA_MAKE(r, g, b, a: DWORD) : TD3DColor;
 begin
   Result := (a shl 24) or (r shl 16) or (g shl 8) or b;
 end;
+// #define D3DRGB(r, g, b) \
+//     (0xff000000L | (((long)((r) * 255)) << 16) | (((long)((g) * 255)) << 8) | (long)((b) * 255))
-function D3DRGB(r, g, b: TD3DValue): TD3DColor;
+function D3DRGB(r, g, b: float) : TD3DColor;
 begin
-  Result := $FF000000 or (Trunc(r*255) shl 16) or (Trunc(g*255) shl 8) or
+  Result := $ff000000 or (round(r * 255) shl 16)
+                      or (round(g * 255) shl 8)
-       (Trunc(b*255));
+                      or round(b * 255);
 end;
+// #define D3DRGBA(r, g, b, a) \
+//     (  (((long)((a) * 255)) << 24) | (((long)((r) * 255)) << 16) \
+//     |   (((long)((g) * 255)) << 8) | (long)((b) * 255) \
+//    )
-function D3DRGBA(r, g, b, a: TD3DValue): TD3DColor;
+function D3DRGBA(r, g, b, a: float) : TD3DColor;
 begin
-  Result := (Trunc(a*255) shl 24) or (Trunc(r*255) shl 16) or (Trunc(g*255) shl 8) or
+  Result := (round(a * 255) shl 24) or (round(r * 255) shl 16)
+                                    or (round(g * 255) shl 8)
-    (Trunc(b*255));
+                                    or round(b * 255);
 end;
+// #define RGB_GETRED(rgb)         (((rgb) >> 16) & 0xff)
-function RGB_GETRED(rgb: TD3DColor): Byte;
+function RGB_GETRED(rgb: TD3DColor) : DWORD;
 begin
-  Result := rgb shr 16;
+  Result := (rgb shr 16) and $ff;
 end;
+// #define RGB_GETGREEN(rgb)       (((rgb) >> 8) & 0xff)
-function RGB_GETGREEN(rgb: TD3DColor): Byte;
+function RGB_GETGREEN(rgb: TD3DColor) : DWORD;
 begin
-  Result := rgb shr 8;
+  Result := (rgb shr 8) and $ff;
 end;
+// #define RGB_GETBLUE(rgb)        ((rgb) & 0xff)
-function RGB_GETBLUE(rgb: TD3DColor): Byte;
+function RGB_GETBLUE(rgb: TD3DColor) : DWORD;
 begin
-  Result := rgb;
+  Result := rgb and $ff;
 end;
+// #define RGBA_SETALPHA(rgba, x) (((x) << 24) | ((rgba) & 0x00ffffff))
-function RGBA_SETALPHA(rgba: TD3DColor; x: Byte): TD3DColor;
+function RGBA_SETALPHA(rgba: TD3DColor; x: DWORD) : TD3DColor;
 begin
-  Result := (x shl 24) or (rgba and $00FFFFFF);
+  Result := (x shl 24) or (rgba and $00ffffff);
 end;
+// #define RGB_MAKE(r, g, b)       ((TD3DColor) (((r) << 16) | ((g) << 8) | (b)))
-function RGB_MAKE(r, g, b: Byte): TD3DColor;
+function RGB_MAKE(r, g, b: DWORD) : TD3DColor;
 begin
   Result := (r shl 16) or (g shl 8) or b;
 end;
+// #define RGBA_TORGB(rgba)       ((TD3DColor) ((rgba) & 0xffffff))
-function RGBA_TORGB(rgba: TD3DColor): TD3DColor;
+function RGBA_TORGB(rgba: TD3DColor) : TD3DColor;
 begin
-  Result := rgba and $00FFFFFF;
+  Result := rgba and $00ffffff;
 end;
+// #define RGB_TORGBA(rgb)        ((TD3DColor) ((rgb) | 0xff000000))
-function RGB_TORGBA(rgb: TD3DColor): TD3DColor;
+function RGB_TORGBA(rgb: TD3DColor) : TD3DColor;
 begin
-  Result := rgb or $FF000000;
+  Result := rgb or $ff000000;
+end;
+function D3DSTATE_OVERRIDE(StateType: DWORD) : DWORD;
+begin
+  Result := StateType + D3DSTATE_OVERRIDE_BIAS;
+end;
+function D3DTRIFLAG_STARTFLAT(len: DWORD) : DWORD;
+begin
+  if not (len in [1..29]) then len := 0;
+  result := len;
 end;
+// #define D3DRENDERSTATE_STIPPLEPATTERN(y) (D3DRENDERSTATE_STIPPLEPATTERN00 + (y))
+function D3DRENDERSTATE_STIPPLEPATTERN(y: integer) : TD3DRenderStateType;
+begin
+  Result := TD3DRenderStateType(Ord(D3DRENDERSTATE_STIPPLEPATTERN00) + y);
+end;
+    // Addition and subtraction
-function VectorAdd(v1, v2: TD3DVector) : TD3DVector;
+function VectorAdd(const v1, v2: TD3DVector) : TD3DVector;
 begin
   result.x := v1.x+v2.x;
   result.y := v1.y+v2.y;
   result.z := v1.z+v2.z;
 end;
-function VectorSub(v1, v2: TD3DVector) : TD3DVector;
+function VectorSub(const v1, v2: TD3DVector) : TD3DVector;
 begin
   result.x := v1.x-v2.x;
   result.y := v1.y-v2.y;
   result.z := v1.z-v2.z;
 end;
+    // Scalar multiplication and division
-function VectorMulS(v: TD3DVector; s: TD3DValue) : TD3DVector;
+function VectorMulS(const v: TD3DVector; s: TD3DValue) : TD3DVector;
 begin
   result.x := v.x*s;
   result.y := v.y*s;
   result.z := v.z*s;
 end;
-function VectorDivS(v: TD3DVector; s: TD3DValue) : TD3DVector;
+function VectorDivS(const v: TD3DVector; s: TD3DValue) : TD3DVector;
 begin
   result.x := v.x/s;
   result.y := v.y/s;
   result.z := v.z/s;
 end;
+    // Memberwise multiplication and division
-function VectorMul(v1, v2: TD3DVector) : TD3DVector;
+function VectorMul(const v1, v2: TD3DVector) : TD3DVector;
 begin
   result.x := v1.x*v2.x;
   result.y := v1.y*v2.y;
   result.z := v1.z*v2.z;
 end;
-function VectorDiv(v1, v2: TD3DVector) : TD3DVector;
+function VectorDiv(const v1, v2: TD3DVector) : TD3DVector;
 begin
   result.x := v1.x/v2.x;
   result.y := v1.y/v2.y;
   result.z := v1.z/v2.z;
 end;
+    // Vector dominance
 function VectorSmaller(v1, v2: TD3DVector) : boolean;
 begin
   result := (v1.x < v2.x) and (v1.y < v2.y) and (v1.z < v2.z);
 end;
 function VectorSmallerEquel(v1, v2: TD3DVector) : boolean;
 begin
   result := (v1.x <= v2.x) and (v1.y <= v2.y) and (v1.z <= v2.z);
 end;
+    // Bitwise equality
 function VectorEquel(v1, v2: TD3DVector) : boolean;
 begin
   result := (v1.x = v2.x) and (v1.y = v2.y) and (v1.z = v2.z);
 end;
+    // Length-related functions
 function VectorSquareMagnitude(v: TD3DVector) : TD3DValue;
 begin
   result := (v.x*v.x) + (v.y*v.y) + (v.z*v.z);
 end;
 function VectorMagnitude(v: TD3DVector) : TD3DValue;
 begin
-  result := sqrt( (v.x*v.x) + (v.y*v.y) + (v.z*v.z) );
+  result := sqrt((v.x*v.x) + (v.y*v.y) + (v.z*v.z));
 end;
+    // Returns vector with same direction and unit length
-function VectorNormalize(v: TD3DVector) : TD3DVector;
+function VectorNormalize(const v: TD3DVector) : TD3DVector;
 begin
   result := VectorDivS(v,VectorMagnitude(v));
 end;
+    // Return min/max component of the input vector
 function VectorMin(v: TD3DVector) : TD3DValue;
 var
   ret : TD3DValue;
 begin
   ret := v.x;
   if (v.y < ret) then ret := v.y;
   if (v.z < ret) then ret := v.z;
   result := ret;
 end;
 function VectorMax(v: TD3DVector) : TD3DValue;
 var
   ret : TD3DValue;
 begin
   ret := v.x;
   if (ret < v.y) then ret := v.y;
   if (ret < v.z) then ret := v.z;
   result := ret;
 end;
+    // Return memberwise min/max of input vectors
-function VectorMinimize(v1, v2: TD3DVector) : TD3DVector;
+function VectorMinimize(const v1, v2: TD3DVector) : TD3DVector;
 begin
   if v1.x < v2.x then result.x := v1.x else result.x := v2.x;
   if v1.y < v2.y then result.y := v1.y else result.y := v2.y;
   if v1.z < v2.z then result.z := v1.z else result.z := v2.z;
 end;
-function VectorMaximize(v1, v2: TD3DVector) : TD3DVector;
+function VectorMaximize(const v1, v2: TD3DVector) : TD3DVector;
 begin
   if v1.x > v2.x then result.x := v1.x else result.x := v2.x;
   if v1.y > v2.y then result.y := v1.y else result.y := v2.y;
   if v1.z > v2.z then result.z := v1.z else result.z := v2.z;
 end;
+    // Dot and cross product
 function VectorDotProduct(v1, v2: TD3DVector) : TD3DValue;
 begin
   result := (v1.x*v2.x) + (v1.y * v2.y) + (v1.z*v2.z);
 end;
-function VectorCrossProduct(v1, v2: TD3DVector) : TD3DVector;
+function VectorCrossProduct(const v1, v2: TD3DVector) : TD3DVector;
 begin
   result.x := (v1.y*v2.z) - (v1.z*v2.y);
   result.y := (v1.z*v2.x) - (v1.x*v2.z);
   result.z := (v1.x*v2.y) - (v1.y*v2.x);
 end;
+procedure DisableFPUExceptions;
+var
+  FPUControlWord: WORD;
+asm
+  FSTCW   FPUControlWord;
+  OR      FPUControlWord, $4 + $1; { Divide by zero + invalid operation }
+  FLDCW   FPUControlWord;
+end;
+procedure EnableFPUExceptions;
+var
+  FPUControlWord: WORD;
+asm
+  FSTCW   FPUControlWord;
+  AND     FPUControlWord, $FFFF - $4 - $1; { Divide by zero + invalid operation }
+  FLDCW   FPUControlWord;
+end;
+function D3DErrorString(Value: HResult) : string; //Full description not available yet
+begin
+  case Value of
+    D3D_OK: Result := 'No error';
+    D3DERR_BADMAJORVERSION: Result := 'D3DERR_BADMAJORVERSION';
+    D3DERR_BADMINORVERSION: Result := 'D3DERR_BADMINORVERSION';
+    D3DERR_INVALID_DEVICE: Result := 'D3DERR_INITFAILED';
+    D3DERR_INITFAILED: Result := 'D3DERR_INITFAILED';
+    D3DERR_DEVICEAGGREGATED: Result := 'D3DERR_DEVICEAGGREGATED';
+    D3DERR_EXECUTE_CREATE_FAILED: Result := 'D3DERR_EXECUTE_CREATE_FAILED';
+    D3DERR_EXECUTE_DESTROY_FAILED: Result := 'D3DERR_EXECUTE_DESTROY_FAILED';
+    D3DERR_EXECUTE_LOCK_FAILED: Result := 'D3DERR_EXECUTE_LOCK_FAILED';
+    D3DERR_EXECUTE_UNLOCK_FAILED: Result := 'D3DERR_EXECUTE_UNLOCK_FAILED';
+    D3DERR_EXECUTE_LOCKED: Result := 'D3DERR_EXECUTE_LOCKED';
+    D3DERR_EXECUTE_NOT_LOCKED: Result := 'D3DERR_EXECUTE_NOT_LOCKED';
+    D3DERR_EXECUTE_FAILED: Result := 'D3DERR_EXECUTE_FAILED';
+    D3DERR_EXECUTE_CLIPPED_FAILED: Result := 'D3DERR_EXECUTE_CLIPPED_FAILED';
+    D3DERR_TEXTURE_NO_SUPPORT: Result := 'D3DERR_TEXTURE_NO_SUPPORT';
+    D3DERR_TEXTURE_CREATE_FAILED: Result := 'D3DERR_TEXTURE_CREATE_FAILED';
+    D3DERR_TEXTURE_DESTROY_FAILED: Result := 'D3DERR_TEXTURE_DESTROY_FAILED';
+    D3DERR_TEXTURE_LOCK_FAILED: Result := 'D3DERR_TEXTURE_LOCK_FAILED';
+    D3DERR_TEXTURE_UNLOCK_FAILED: Result := 'D3DERR_TEXTURE_UNLOCK_FAILED';
+    D3DERR_TEXTURE_LOAD_FAILED: Result := 'D3DERR_TEXTURE_LOAD_FAILED';
+    D3DERR_TEXTURE_SWAP_FAILED: Result := 'D3DERR_TEXTURE_SWAP_FAILED';
+    D3DERR_TEXTURE_LOCKED: Result := 'D3DERR_TEXTURELOCKED';
+    D3DERR_TEXTURE_NOT_LOCKED: Result := 'D3DERR_TEXTURE_NOT_LOCKED';
+    D3DERR_TEXTURE_GETSURF_FAILED: Result := 'D3DERR_TEXTURE_GETSURF_FAILED';
+    D3DERR_MATRIX_CREATE_FAILED: Result := 'D3DERR_MATRIX_CREATE_FAILED';
+    D3DERR_MATRIX_DESTROY_FAILED: Result := 'D3DERR_MATRIX_DESTROY_FAILED';
+    D3DERR_MATRIX_SETDATA_FAILED: Result := 'D3DERR_MATRIX_SETDATA_FAILED';
+    D3DERR_MATRIX_GETDATA_FAILED: Result := 'D3DERR_MATRIX_GETDATA_FAILED';
+    D3DERR_SETVIEWPORTDATA_FAILED: Result := 'D3DERR_SETVIEWPORTDATA_FAILED';
+    D3DERR_INVALIDCURRENTVIEWPORT: Result := 'D3DERR_INVALIDCURRENTVIEWPORT';
+    D3DERR_INVALIDPRIMITIVETYPE: Result := 'D3DERR_INVALIDPRIMITIVETYPE';
+    D3DERR_INVALIDVERTEXTYPE: Result := 'D3DERR_INVALIDVERTEXTYPE';
+    D3DERR_TEXTURE_BADSIZE: Result := 'D3DERR_TEXTURE_BADSIZE';
+    D3DERR_INVALIDRAMPTEXTURE: Result := 'D3DERR_INVALIDRAMPTEXTURE';
+    D3DERR_MATERIAL_CREATE_FAILED: Result := 'D3DERR_MATERIAL_CREATE_FAILED';
+    D3DERR_MATERIAL_DESTROY_FAILED: Result := 'D3DERR_MATERIAL_DESTROY_FAILED';
+    D3DERR_MATERIAL_SETDATA_FAILED: Result := 'D3DERR_MATERIAL_SETDATA_FAILED';
+    D3DERR_MATERIAL_GETDATA_FAILED: Result := 'D3DERR_MATERIAL_GETDATA_FAILED';
+    D3DERR_INVALIDPALETTE: Result := 'D3DERR_INVALIDPALETTE';
+    D3DERR_ZBUFF_NEEDS_SYSTEMMEMORY: Result := 'D3DERR_ZBUFF_NEEDS_SYSTEMMEMORY';
+    D3DERR_ZBUFF_NEEDS_VIDEOMEMORY: Result := 'D3DERR_ZBUFF_NEEDS_VIDEOMEMORY';
+    D3DERR_SURFACENOTINVIDMEM: Result := 'D3DERR_SURFACENOTINVIDMEM';
+    D3DERR_LIGHT_SET_FAILED: Result := 'D3DERR_LIGHT_SET_FAILED';
+    D3DERR_LIGHTHASVIEWPORT: Result := 'D3DERR_LIGHTHASVIEWPORT';
+    D3DERR_LIGHTNOTINTHISVIEWPORT: Result := 'D3DERR_LIGHTNOTINTHISVIEWPORT';
+    D3DERR_SCENE_IN_SCENE: Result := 'D3DERR_SCENE_IN_SCENE';
+    D3DERR_SCENE_NOT_IN_SCENE: Result := 'D3DERR_SCENE_NOT_IN_SCENE';
+    D3DERR_SCENE_BEGIN_FAILED: Result := 'D3DERR_SCENE_BEGIN_FAILED';
+    D3DERR_SCENE_END_FAILED: Result := 'D3DERR_SCENE_END_FAILED';
+    D3DERR_INBEGIN: Result := 'D3DERR_INBEGIN';
+    D3DERR_NOTINBEGIN: Result := 'D3DERR_NOTINBEGIN';
-function D3DSTATE_OVERRIDE(typ: DWORD): DWORD;
+    D3DERR_NOVIEWPORTS: Result := 'D3DERR_NOVIEWPORTS';
+    D3DERR_VIEWPORTDATANOTSET: Result := 'D3DERR_VIEWPORTDATANOTSET';
+    D3DERR_VIEWPORTHASNODEVICE: Result := 'D3DERR_VIEWPORTHASNODEVICE';
+    D3DERR_NOCURRENTVIEWPORT: Result := 'D3DERR_NOCURRENTVIEWPORT';
+    D3DERR_INVALIDVERTEXFORMAT: Result := 'D3DERR_INVALIDVERTEXFORMAT';
+    D3DERR_COLORKEYATTACHED: Result := 'D3DERR_COLORKEYATTACHED';
+    D3DERR_VERTEXBUFFEROPTIMIZED: Result := 'D3DERR_VERTEXBUFFEROPTIMIZED';
+    D3DERR_VBUF_CREATE_FAILED: Result := 'D3DERR_VBUF_CREATE_FAILED';
+    D3DERR_VERTEXBUFFERLOCKED: Result := 'D3DERR_VERTEXBUFFERLOCKED';
+    D3DERR_ZBUFFER_NOTPRESENT: Result := 'D3DERR_ZBUFFER_NOTPRESENT';
+    D3DERR_STENCILBUFFER_NOTPRESENT: Result := 'D3DERR_STENCILBUFFER_NOTPRESENT';
+    D3DERR_WRONGTEXTUREFORMAT: Result := 'D3DERR_WRONGTEXTUREFORMAT';
+    D3DERR_UNSUPPORTEDCOLOROPERATION: Result := 'D3DERR_UNSUPPORTEDCOLOROPERATION';
+    D3DERR_UNSUPPORTEDCOLORARG: Result := 'D3DERR_UNSUPPORTEDCOLORARG';
+    D3DERR_UNSUPPORTEDALPHAOPERATION: Result := 'D3DERR_UNSUPPORTEDALPHAOPERATION';
+    D3DERR_UNSUPPORTEDALPHAARG: Result := 'D3DERR_UNSUPPORTEDALPHAARG';
+    D3DERR_TOOMANYOPERATIONS: Result := 'D3DERR_TOOMANYOPERATIONS';
+    D3DERR_CONFLICTINGTEXTUREFILTER: Result := 'D3DERR_CONFLICTINGTEXTUREFILTER';
+    D3DERR_UNSUPPORTEDFACTORVALUE: Result := 'D3DERR_UNSUPPORTEDFACTORVALUE';
+    D3DERR_CONFLICTINGRENDERSTATE: Result := 'D3DERR_CONFLICTINGRENDERSTATE';
+    D3DERR_UNSUPPORTEDTEXTUREFILTER: Result := 'D3DERR_UNSUPPORTEDTEXTUREFILTER';
+    D3DERR_TOOMANYPRIMITIVES: Result := 'D3DERR_TOOMANYPRIMITIVES';
+    D3DERR_INVALIDMATRIX: Result := 'D3DERR_INVALIDMATRIX';
+    D3DERR_TOOMANYVERTICES: Result := 'D3DERR_TOOMANYVERTICES';
+    D3DERR_CONFLICTINGTEXTUREPALETTE: Result := 'D3DERR_CONFLICTINGTEXTUREPALETTE';
+    else Result := 'Unrecognized Error';
+  end;
+end;
+{$IFDEF D3DRM}
+//Direct3DRM file
+(*==========================================================================;
+ *
+ *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *
+ *  File:       d3drmdef.h
+ *  Content:    Direct3DRM include file
+ *
+ ***************************************************************************)
+procedure D3DRMAnimationGetRotateKey
+    (var rmKey: TD3DRMAnimationKey; var rmQuat: TD3DRMQuaternion);
 begin
-  Result := typ + D3DSTATE_OVERRIDE_BIAS;
+  rmQuat := rmKey.dqRotateKey;
 end;
+procedure D3DRMAnimationGetScaleKey
-function D3DRENDERSTATE_STIPPLEPATTERN(y: DWORD): TD3DRenderStateType;
+    (var rmKey: TD3DRMAnimationKey; var dvVec: TD3DVector);
 begin
-  Result := TD3DRenderStateType(Ord(D3DRENDERSTATE_STIPPLEPATTERN00)+y);
+  dvVec := rmKey.dvScaleKey;
 end;
+procedure D3DRMAnimationGetPositionKey
-function D3DTRIFLAG_STARTFLAT(len: DWORD) : DWORD;
+    (var rmKey: TD3DRMAnimationKey; var dvVec: TD3DVector);
 begin
-  if not (len in [1..29]) then len := 0;
+  dvVec := rmKey.dvPositionKey;
-  result := len;
 end;
+procedure D3DRMAnimatioSetRotateKey
-function D3DFVF_TEXCOORDSIZE3(CoordIndex: DWORD): DWORD;
+    (var rmKey: TD3DRMAnimationKey; var rmQuat: TD3DRMQuaternion);
 begin
-  Result := D3DFVF_TEXTUREFORMAT3 shl (CoordIndex*2 + 16);
+  rmKey.dqRotateKey := rmQuat;
 end;
+procedure D3DRMAnimationSetScaleKey
-function D3DFVF_TEXCOORDSIZE2(CoordIndex: DWORD): DWORD;
+    (var rmKey: TD3DRMAnimationKey; var dvVec: TD3DVector);
 begin
-  Result := D3DFVF_TEXTUREFORMAT2;
+  rmKey.dvScaleKey := dvVec;
 end;
+procedure D3DRMAnimationSetPositionKey
-function D3DFVF_TEXCOORDSIZE4(CoordIndex: DWORD): DWORD;
+    (var rmKey: TD3DRMAnimationKey; var dvVec: TD3DVector);
 begin
-  Result := D3DFVF_TEXTUREFORMAT4 shl (CoordIndex*2 + 16);
+  rmKey.dvPositionKey := dvVec;
 end;
+(*==========================================================================;
+ *
+ *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *
+ *  File:       d3drm.h
+ *  Content:    Direct3DRM include file
+ *
+ ***************************************************************************)
-function D3DFVF_TEXCOORDSIZE1(CoordIndex: DWORD): DWORD;
+function D3DRMErrorString(Value: HResult) : string;
 begin
+  case Value of
+    D3DRM_OK: Result := 'No error. Equivalent to DD_OK.';
+    D3DRMERR_BADALLOC: Result := 'Out of memory.';
+    D3DRMERR_BADDEVICE: Result := 'Device is not compatible with renderer.';
+    D3DRMERR_BADFILE: Result := 'Data file is corrupt.';
+    D3DRMERR_BADMAJORVERSION: Result := 'Bad DLL major version.';
+    D3DRMERR_BADMINORVERSION: Result := 'Bad DLL minor version.';
+    D3DRMERR_BADOBJECT: Result := 'Object expected in argument.';
+    D3DRMERR_BADPMDATA: Result := 'The data in the .x file is corrupted. The conversion to a progressive mesh succeeded but produced an invalid progressive mesh in the .x file.';
+    D3DRMERR_BADTYPE: Result := 'Bad argument type passed.';
+    D3DRMERR_BADVALUE: Result := 'Bad argument value passed.';
+    D3DRMERR_BOXNOTSET: Result := 'An attempt was made to access a bounding box (for example, with IDirect3DRMFrame3::GetBox) when no bounding box was set on the frame.';
+    D3DRMERR_CLIENTNOTREGISTERED: Result := 'Client has not been registered. Call IDirect3DRM3::RegisterClient.';
+    D3DRMERR_CONNECTIONLOST: Result := 'Data connection was lost during a load, clone, or duplicate.';
+    D3DRMERR_ELEMENTINUSE: Result := 'Element can´t be modified or deleted while in use. To empty a submesh, call Empty() against its parent.';
+//    D3DRMERR_ENTRYINUSE: Result := 'Vertex or normal entries are currently in use by a face and cannot be deleted.';
+    D3DRMERR_FACEUSED: Result := 'Face already used in a mesh.';
+    D3DRMERR_FILENOTFOUND: Result := 'File cannot be opened.';
+//    D3DRMERR_INCOMPATIBLEKEY: Result := 'Specified animation key is incompatible. The key cannot be modified.';
+    D3DRMERR_INVALIDLIBRARY: Result := 'Specified libary is invalid.';
+//    D3DRMERR_INVALIDOBJECT: Result := 'Method received a pointer to an object that is invalid.';
+//    D3DRMERR_INVALIDPARAMS: Result := 'One of the parameters passed to the method is invalid.';
+    D3DRMERR_LIBRARYNOTFOUND: Result := 'Specified libary not found.';
-  Result := D3DFVF_TEXTUREFORMAT1 shl (CoordIndex*2 + 16);
+    D3DRMERR_LOADABORTED: Result := 'Load aborted by user.';
+    D3DRMERR_NOSUCHKEY: Result := 'Specified animation key does not exist.';
+    D3DRMERR_NOTCREATEDFROMDDS: Result := 'Specified texture was not created from a DirectDraw Surface.';
+    D3DRMERR_NOTDONEYET: Result := 'Unimplemented.';
+    D3DRMERR_NOTENOUGHDATA: Result := 'Not enough data has been loaded to perform the requested operation.';
+    D3DRMERR_NOTFOUND: Result := 'Object not found in specified place.';
+//    D3DRMERR_OUTOFRANGE: Result := 'Specified value is out of range.';
+    D3DRMERR_PENDING: Result := 'Data required to supply the requested information has not finished loading.';
+    D3DRMERR_REQUESTTOOLARGE: Result := 'Attempt was made to set a level of detail in a progressive mesh greater than the maximum available.';
+    D3DRMERR_REQUESTTOOSMALL: Result := 'Attempt was made to set the minimum rendering detail of a progressive mesh smaller than the detail in the base mesh (the minimum for rendering).';
+    D3DRMERR_TEXTUREFORMATNOTFOUND: Result := 'Texture format could not be found that meets the specified criteria and that the underlying Immediate Mode device supports.';
+    D3DRMERR_UNABLETOEXECUTE: Result := 'Unable to carry out procedure.';
+    DDERR_INVALIDOBJECT: Result := 'Received pointer that was an invalid object.';
+    DDERR_INVALIDPARAMS: Result := 'One or more of the parameters passed to the method are incorrect.';
+    DDERR_NOTFOUND: Result := 'The requested item was not found.';
+    DDERR_NOTINITIALIZED: Result := 'An attempt was made to call an interface method of an object created by CoCreateInstance before the object was initialized.';
+    DDERR_OUTOFMEMORY: Result := 'DirectDraw does not have enough memory to perform the operation.';
+    else Result := 'Unrecognized Error';
-end;
+  end;
+end;
+{$ENDIF}
+//DirectInput file
-{ Direct3DRM }
-procedure D3DRMAnimationGetRotateKey(const rmKey: TD3DRMAnimationKey; var rmQuat: TD3DRMQuaternion);
+function DIMAKEUSAGEDWORD(UsagePage, Usage: WORD) : DWORD;
 begin
-  rmQuat.s := rmKey.dvK[0];
-  rmQuat.v.x := rmKey.dvK[1];
+  Result := Usage or (UsagePage shl 16);
-  rmQuat.v.y := rmKey.dvK[2];
-  rmQuat.v.z := rmKey.dvK[3];
 end;
-procedure D3DRMAnimationGetScaleKey(const rmKey: TD3DRMAnimationKey; var dvVec: TD3DVector);
+function DIEFT_GETTYPE(n: variant) : byte;
 begin
-  dvVec.x := rmKey.dvK[0];
-  dvVec.y := rmKey.dvK[1];
-  dvVec.z := rmKey.dvK[2];
+  Result := byte(n);
 end;
-procedure D3DRMAnimationGetPositionKey(const rmKey: TD3DRMAnimationKey; var dvVec: TD3DVector);
+function GET_DIDEVICE_TYPE(dwDevType: variant) : byte;
 begin
-  dvVec.x := rmKey.dvK[0];
-  dvVec.y := rmKey.dvK[1];
-  dvVec.z := rmKey.dvK[2];
+  Result := byte(dwDevType);
 end;
-procedure D3DRMAnimationSetRotateKey(var rmKey: TD3DRMAnimationKey; const rmQuat: TD3DRMQuaternion);
+function GET_DIDEVICE_SUBTYPE(dwDevType: variant) : byte;
 begin
-  rmKey.dvK[0] := rmQuat.s;
-  rmKey.dvK[1] := rmQuat.v.x;
-  rmKey.dvK[2] := rmQuat.v.y;
+  Result := hi(word(dwDevType));
-  rmKey.dvK[3] := rmQuat.v.z;
 end;
-procedure D3DRMAnimationSetScaleKey(var rmKey: TD3DRMAnimationKey; const dvVec: TD3DVector);
+function DIDFT_MAKEINSTANCE(n: variant) : DWORD;
 begin
-  rmKey.dvK[0] := dvVec.x;
-  rmKey.dvK[1] := dvVec.y;
-  rmKey.dvK[2] := dvVec.z;
+  Result := word(n) shl 8;
 end;
-procedure D3DRMAnimationSetPositionKey(var rmKey: TD3DRMAnimationKey; const dvVec: TD3DVector);
+function DIDFT_GETTYPE(n: variant) : byte;
 begin
-  rmKey.dvK[0] := dvVec.x;
-  rmKey.dvK[1] := dvVec.y;
-  rmKey.dvK[2] := dvVec.z;
+  Result := byte(n);
 end;
-function Direct3DRMCreate; external D3DRMLib;
+function DIDFT_GETINSTANCE(n: variant) : DWORD;
+begin
+  Result := word(n) shr 8;
+end;
-function D3DRMCreateColorRGB; external D3DRMLib;
-function D3DRMCreateColorRGBA; external D3DRMLib;
-function D3DRMColorGetRed; external D3DRMLib;
-function D3DRMColorGetGreen; external D3DRMLib;
+function DIDFT_ENUMCOLLECTION(n: variant) : DWORD;
-function D3DRMColorGetBlue; external D3DRMLib;
-function D3DRMColorGetAlpha; external D3DRMLib;
-function D3DRMVectorAdd; external D3DRMLib;
+begin
-function D3DRMVectorSubtract; external D3DRMLib;
-function D3DRMVectorReflect; external D3DRMLib;
-function D3DRMVectorCrossProduct; external D3DRMLib;
-function D3DRMVectorDotProduct; external D3DRMLib;
-function D3DRMVectorNormalize; external D3DRMLib;
-function D3DRMVectorModulus; external D3DRMLib;
-function D3DRMVectorRotate; external D3DRMLib;
+  Result := word(n) shl 8;
-function D3DRMVectorScale; external D3DRMLib;
-function D3DRMVectorRandom; external D3DRMLib;
+end;
-function D3DRMQuaternionFromRotation; external D3DRMLib;
-function D3DRMQuaternionMultiply; external D3DRMLib;
-function D3DRMQuaternionSlerp; external D3DRMLib;
-procedure D3DRMMatrixFromQuaternion; external D3DRMLib;
-function D3DRMQuaternionFromMatrix; external D3DRMLib;
-function DirectXFileCreate; external D3DXofLib;
+function DIJOFS_SLIDER(n: variant) : variant;
+begin
+  Result := n * 4 + 24;
+end;
+function DIJOFS_POV(n: variant) : variant;
+begin
-{ DirectInput }
+  Result := n * 4 + 32;
+end;
-function GET_DIDEVICE_TYPE(dwDevType: DWORD): DWORD;
+function DIJOFS_BUTTON(n: variant) : variant;
 begin
-  Result := LOBYTE(dwDevType);
+  Result := 48 + n;
 end;
-function GET_DIDEVICE_SUBTYPE(dwDevType: DWORD): DWORD;
+function DIErrorString(Value: HResult) : string;
+var
+  sValue: array[0..255] of char;
 begin
+  case Value of
+    DI_OK: Result := 'The operation completed successfully.';
+    S_FALSE: Result := '"The operation had no effect." or "The device buffer overflowed and some input was lost." or "The device exists but is not currently attached." or "The change in device properties had no effect."';
+//    DI_BUFFEROVERFLOW: Result := 'The device buffer overflowed and some input was lost. This value is equal to the S_FALSE standard COM return value.';
+    DI_DOWNLOADSKIPPED: Result := 'The parameters of the effect were successfully updated, but the effect could not be downloaded because the associated device was not acquired in exclusive mode.';
+    DI_EFFECTRESTARTED: Result := 'The effect was stopped, the parameters were updated, and the effect was restarted.';
+//    DI_NOEFFECT: Result := 'The operation had no effect. This value is equal to the S_FALSE standard COM return value.';
+//    DI_NOTATTACHED: Result := 'The device exists but is not currently attached. This value is equal to the S_FALSE standard COM return value.';
+    DI_POLLEDDEVICE: Result := 'The device is a polled device. As a result, device buffering will not collect any data and event notifications will not be signaled until the IDirectInputDevice2::Poll method is called.';
+//    DI_PROPNOEFFECT: Result := 'The change in device properties had no effect. This value is equal to the S_FALSE standard COM return value.';
+    DI_TRUNCATED: Result := 'The parameters of the effect were successfully updated, but some of them were beyond the capabilities of the device and were truncated to the nearest supported value.';
+    DI_TRUNCATEDANDRESTARTED: Result := 'Equal to DI_EFFECTRESTARTED | DI_TRUNCATED.';
+    DIERR_ACQUIRED: Result := 'The operation cannot be performed while the device is acquired.';
+    DIERR_ALREADYINITIALIZED: Result := 'This object is already initialized';
+    DIERR_BADDRIVERVER: Result := 'The object could not be created due to an incompatible driver version or mismatched or incomplete driver components.';
+    DIERR_BETADIRECTINPUTVERSION: Result := 'The application was written for an unsupported prerelease version of DirectInput.';
+    DIERR_DEVICEFULL: Result := 'The device is full.';
+    DIERR_DEVICENOTREG: Result := 'The device or device instance is not registered with DirectInput. This value is equal to the REGDB_E_CLASSNOTREG standard COM return value.';
+    DIERR_EFFECTPLAYING: Result := 'The parameters were updated in memory but were not downloaded to the device because the device does not support updating an effect while it is still playing.';
+    DIERR_HASEFFECTS: Result := 'The device cannot be reinitialized because there are still effects attached to it.';
+    DIERR_GENERIC: Result := 'An undetermined error occurred inside the DirectInput subsystem. This value is equal to the E_FAIL standard COM return value.';
+//    DIERR_HANDLEEXISTS: Result := 'The device already has an event notification associated with it. This value is equal to the E_ACCESSDENIED standard COM return value.';
+    DIERR_INCOMPLETEEFFECT: Result := 'The effect could not be downloaded because essential information is missing. For example, no axes have been associated with the effect, or no type-specific information has been supplied.';
+    DIERR_INPUTLOST: Result := 'Access to the input device has been lost. It must be reacquired.';
+    DIERR_INVALIDPARAM: Result := 'An invalid parameter was passed to the returning function, or the object was not in a state that permitted the function to be called. This value is equal to the E_INVALIDARG standard COM return value.';
+    DIERR_MOREDATA: Result := 'Not all the requested information fitted into the buffer.';
+    DIERR_NOAGGREGATION: Result := 'This object does not support aggregation.';
+    DIERR_NOINTERFACE: Result := 'The specified interface is not supported by the object. This value is equal to the E_NOINTERFACE standard COM return value.';
+    DIERR_NOTACQUIRED: Result := 'The operation cannot be performed unless the device is acquired.';
+    DIERR_NOTBUFFERED: Result := 'The device is not buffered. Set the DIPROP_BUFFERSIZE property to enable buffering.';
+    DIERR_NOTDOWNLOADED: Result := 'The effect is not downloaded.';
+    DIERR_NOTEXCLUSIVEACQUIRED: Result := 'The operation cannot be performed unless the device is acquired in DISCL_EXCLUSIVE mode.';
+    DIERR_NOTFOUND: Result := 'The requested object does not exist.';
+    DIERR_NOTINITIALIZED: Result := 'This object has not been initialized.';
+//    DIERR_OBJECTNOTFOUND: Result := 'The requested object does not exist.';
+    DIERR_OLDDIRECTINPUTVERSION: Result := 'The application requires a newer version of DirectInput.';
+    DIERR_OTHERAPPHASPRIO: Result := '"The device already has an event notification associated with it." or "The specified property cannot be changed." or "Another application has a higher priority level, preventing this call from succeeding. "';
+    DIERR_OUTOFMEMORY: Result := 'The DirectInput subsystem could not allocate sufficient memory to complete the call. This value is equal to the E_OUTOFMEMORY standard COM return value.';
+//    DIERR_READONLY: Result := 'The specified property cannot be changed. This value is equal to the E_ACCESSDENIED standard COM return value.';
+    DIERR_UNSUPPORTED: Result := 'The function called is not supported at this time. This value is equal to the E_NOTIMPL standard COM return value.';
-  Result := HIBYTE(dwDevType);
+    E_PENDING: Result := 'Data is not yet available.';
+    HResult($800405CC): Result := 'No more memory for effects of this kind (not documented)';
+      else Result := 'Unrecognized Error: $' + sValue;
+  end;
 end;
-function DIEFT_GETTYPE(n: DWORD): DWORD;
+function joyConfigChanged(dwFlags: DWORD) : MMRESULT; external 'WinMM.dll';
+procedure Init_c_dfDIKeyboard_Objects;  // XRef: Initialization
+var x: Cardinal;
+begin
+  for x := 0 to 255 do
+  with _c_dfDIKeyboard_Objects[x] do
-begin
+  begin
+    pGuid := @GUID_Key; dwOfs := x; dwFlags := 0;
+    dwType := $80000000 or DIDFT_BUTTON or x shl 8;
-  Result := LOBYTE(n);
+  end;
 end;
+procedure Init_c_dfDIJoystick2_Objects;  // XRef: Initialization
+var x,y, OfVal: Cardinal;
+begin
+  Move(_c_dfDIJoystick_Objects,_c_dfDIJoystick2_Objects,SizeOf(_c_dfDIJoystick_Objects));
+  // all those empty "buttons"
+  for x := $2C to $8B do
+    Move(_c_dfDIJoystick_Objects[$2B],_c_dfDIJoystick2_Objects[x],SizeOf(TDIObjectDataFormat));
+  for x := 0 to 2 do
-function DIDFT_MAKEINSTANCE(n: WORD): DWORD;
+  begin  // 3 more blocks of X axis..Sliders
+    Move(_c_dfDIJoystick_Objects,_c_dfDIJoystick2_Objects[$8C+8*x],8*SizeOf(TDIObjectDataFormat));
+    for y := 0 to 7 do _c_dfDIJoystick2_Objects[$8C+8*x+y].dwFlags := (x+1) shl 8;
+  end;
+  OfVal := _c_dfDIJoystick2_Objects[$2B].dwOfs+1;
+  for x := $2C to $A3 do
-begin
+  begin
+    _c_dfDIJoystick2_Objects[x].dwOfs := OfVal;
-  Result := n shl 8;
+    if x < $8C then Inc(OfVal) else Inc(OfVal,4);
-end;
+  end;
+end;
+//DirectPlay file
+(*==========================================================================;
+ *
+ *  Copyright (C) 1994-1997 Microsoft Corporation.  All Rights Reserved.
+ *
+ *  File:       dplay.h
+ *  Content:    DirectPlay include file
+ *
+ ***************************************************************************)
-function DIDFT_GETTYPE(n: DWORD): DWORD;
+function DPErrorString(Value: HResult) : string;
 begin
+  case Value of
+    CLASS_E_NOAGGREGATION: Result := 'A non-NULL value was passed for the pUnkOuter parameter in DirectPlayCreate, DirectPlayLobbyCreate, or IDirectPlayLobby2::Connect.';
+    DPERR_ACCESSDENIED: Result := 'The session is full or an incorrect password was supplied.';
+    DPERR_ACTIVEPLAYERS: Result := 'The requested operation cannot be performed because there are existing active players.';
+    DPERR_ALREADYINITIALIZED: Result := 'This object is already initialized.';
+    DPERR_APPNOTSTARTED: Result := 'The application has not been started yet.';
+    DPERR_AUTHENTICATIONFAILED: Result := 'The password or credentials supplied could not be authenticated.';
+    DPERR_BUFFERTOOLARGE: Result := 'The data buffer is too large to store.';
+    DPERR_BUSY: Result := 'A message cannot be sent because the transmission medium is busy.';
+    DPERR_BUFFERTOOSMALL: Result := 'The supplied buffer is not large enough to contain the requested data.';
+    DPERR_CANTADDPLAYER: Result := 'The player cannot be added to the session.';
+    DPERR_CANTCREATEGROUP: Result := 'A new group cannot be created.';
+    DPERR_CANTCREATEPLAYER: Result := 'A new player cannot be created.';
+    DPERR_CANTCREATEPROCESS: Result := 'Cannot start the application.';
+    DPERR_CANTCREATESESSION: Result := 'A new session cannot be created.';
+    DPERR_CANTLOADCAPI: Result := 'No credentials were supplied and the CryptoAPI package (CAPI) to use for cryptography services cannot be loaded.';
+    DPERR_CANTLOADSECURITYPACKAGE: Result := 'The software security package cannot be loaded.';
+    DPERR_CANTLOADSSPI: Result := 'No credentials were supplied and the software security package (SSPI) that will prompt for credentials cannot be loaded.';
+    DPERR_CAPSNOTAVAILABLEYET: Result := 'The capabilities of the DirectPlay object have not been determined yet. This error will occur if the DirectPlay object is implemented on a connectivity solution that requires polling to determine available bandwidth and latency.';
+    DPERR_CONNECTING: Result := 'The method is in the process of connecting to the network. The application should keep calling the method until it returns DP_OK, indicating successful completion, or it returns a different error.';
+    DPERR_ENCRYPTIONFAILED: Result := 'The requested information could not be digitally encrypted. Encryption is used for message privacy. This error is only relevant in a secure session.';
+    DPERR_EXCEPTION: Result := 'An exception occurred when processing the request.';
+    DPERR_GENERIC: Result := 'An undefined error condition occurred.';
+//    DPERR_INVALIDCREDENTIALS: Result := 'The credentials supplied (as to IDirectPlay3::SecureOpen) were not valid.';
+    DPERR_INVALIDFLAGS: Result := 'The flags passed to this method are invalid.';
+    DPERR_INVALIDGROUP: Result := 'The group ID is not recognized as a valid group ID for this game session.';
+    DPERR_INVALIDINTERFACE: Result := 'The interface parameter is invalid.';
+    DPERR_INVALIDOBJECT: Result := 'The DirectPlay object pointer is invalid.';
+    DPERR_INVALIDPARAMS: Result := 'One or more of the parameters passed to the method are invalid.';
+    DPERR_INVALIDPASSWORD: Result := 'An invalid password was supplied when attempting to join a session that requires a password.';
+    DPERR_INVALIDPLAYER: Result := 'The player ID is not recognized as a valid player ID for this game session.';
+    DPERR_LOGONDENIED: Result := 'The session could not be opened because credentials are required and either no credentials were supplied or the credentials were invalid.';
+    DPERR_NOCAPS: Result := 'The communication link that DirectPlay is attempting to use is not capable of this function.';
+    DPERR_NOCONNECTION: Result := 'No communication link was established.';
+    DPERR_NOINTERFACE: Result := 'The interface is not supported.';
+    DPERR_NOMESSAGES: Result := 'There are no messages in the receive queue.';
+    DPERR_NONAMESERVERFOUND: Result := 'No name server (host) could be found or created. A host must exist to create a player.';
+    DPERR_NONEWPLAYERS: Result := 'The session is not accepting any new players.';
+    DPERR_NOPLAYERS: Result := 'There are no active players in the session.';
+    DPERR_NOSESSIONS: Result := 'There are no existing sessions for this game.';
-  Result := LOBYTE(n);
+    DPERR_NOTLOBBIED: Result := 'Returned by the IDirectPlayLobby2::Connect method if the application was not started by using the IDirectPlayLobby2::RunApplication method or if there is no DPLCONNECTION structure currently initialized for this DirectPlayLobby object.';
+    DPERR_NOTLOGGEDIN: Result := 'An action cannot be performed because a player or client application is not logged in. Returned by the IDirectPlay3::Send method when the client application tries to send a secure message without being logged in.';
+    DPERR_OUTOFMEMORY: Result := 'There is insufficient memory to perform the requested operation.';
+    DPERR_PLAYERLOST: Result := 'A player has lost the connection to the session.';
+    DPERR_SENDTOOBIG: Result := 'The message being sent by the IDirectPlay3::Send method is too large.';
+    DPERR_SESSIONLOST: Result := 'The connection to the session has been lost.';
+    DPERR_SIGNFAILED: Result := 'The requested information could not be digitally signed. Digital signatures are used to establish the authenticity of messages.';
+    DPERR_TIMEOUT: Result := 'The operation could not be completed in the specified time.';
+    DPERR_UNAVAILABLE: Result := 'The requested function is not available at this time.';
+    DPERR_UNINITIALIZED: Result := 'The requested object has not been initialized.';
+    DPERR_UNKNOWNAPPLICATION: Result := 'An unknown application was specified.';
+    DPERR_UNSUPPORTED: Result := 'The function is not available in this implementation. Returned from IDirectPlay3::GetGroupConnectionSettings and IDirectPlay3::SetGroupConnectionSettings if they are called from a session that is not a lobby session.';
+    DPERR_USERCANCEL: Result := 'Can be returned in two ways. 1) The user canceled the connection process during a call to the IDirectPlay3::Open method. 2) The user clicked Cancel in one of the DirectPlay service provider dialog boxes during a call to IDirectPlay3::EnumSessions.';
+    else Result := 'Unrecognized Error';
+  end;
 end;
+//DirectSetup file
+(*==========================================================================
+ *
+ *  Copyright (C) 1995-1997 Microsoft Corporation.  All Rights Reserved.
+ *
+ *  File:       dsetup.h
-function DIDFT_GETINSTANCE(n: DWORD): WORD;
+ *  Content:    DirectXSetup, error codes and flags
+ ***************************************************************************)
+procedure LoadDSetup;
+  function RegGetStringValue(Hive: HKEY; const KeyName, ValueName: string): string;
+  var EnvKey  : HKEY;
+      Buf     : array[0..255] of char;
+      BufSize : DWord;
+      RegType : DWord;
+      rc      : DWord;
+  begin
+    Result := '';
+    BufSize := Sizeof(Buf);
+    ZeroMemory(@Buf, BufSize);
+    RegType := REG_SZ;
+    try
+      if (RegOpenKeyEx(Hive, PChar(KeyName), 0, KEY_READ, EnvKey) = ERROR_SUCCESS) then
-begin
+      begin
-  Result := n shr 8;
+        try
+          if (ValueName = '') then rc := RegQueryValueEx(EnvKey, nil, nil, @RegType, @Buf, @BufSize)
+            else rc := RegQueryValueEx(EnvKey, PChar(ValueName), nil, @RegType, @Buf, @BufSize);
+          if rc = ERROR_SUCCESS then Result := string(Buf);
+        finally
+          RegCloseKey(EnvKey);
-end;
+        end;
+      end;
+    finally
+      RegCloseKey(Hive);
+    end;
+  end;
-function DIDFT_ENUMCOLLECTION(n: WORD): DWORD;
+  function ExistFile(const FileName: string): Boolean;
+  var hFile: THandle;
-begin
+  begin
+    hFile := CreateFile(PChar(FileName), 0, 0, nil, OPEN_EXISTING, 0, 0);
-  Result := n shl 8;
+    Result := hFile <> INVALID_HANDLE_VALUE;
+    if hFile = INVALID_HANDLE_VALUE then CloseHandle(hFile);
-end;
+  end;
-function DIMAKEUSAGEDWORD(UsagePage, Usage: Word): DWORD;
+  function GetDSetupDLLPath : string;
-begin
+  begin
-  Result := MAKELONG(Usage, UsagePage);
+     Result := RegGetStringValue(HKEY_LOCAL_MACHINE,
+                                 'Software\Microsoft\Windows\CurrentVersion\Uninstall\DirectXDrivers',
+                                 'UninstallString');
+     if Result <> '' then
+       Result := Copy(Result,1,Length(Result)-Length('dxsetup.exe')) + 'DSetup.dll';
-end;
+  end;
+begin
-function DirectInputCreate; external DInputLib name 'DirectInputCreateA';
+  DSetupDLL := LoadLibrary(PChar(GetDSetupDLLPath));
-function DirectInputCreateEx; external DInputLib name 'DirectInputCreateEx';
+  DirectXSetupA := GetProcAddress(DSetupDLL,'DirectXSetupA');
+  DirectXSetupW := GetProcAddress(DSetupDLL,'DirectXSetupW');
-{ DirectPlay }
+{$IFDEF UNICODE}
+  DirectXSetup := DirectXSetupW;
+{$ELSE}
+  DirectXSetup := DirectXSetupA;
+{$ENDIF}
-function DirectPlayEnumerateA; external DPlayXLib;
-function DirectPlayEnumerateW; external DPlayXLib;
+  DirectXDeviceDriverSetupA :=
-function DirectPlayEnumerate; external DPlayXLib name 'DirectPlayEnumerateA';
+      GetProcAddress(DSetupDLL,'DirectXDeviceDriverSetupA');
-function DirectPlayCreate; external DPlayXLib;
+  DirectXDeviceDriverSetupW :=
-function DirectPlayLobbyCreateW; external DPlayXLib;
+      GetProcAddress(DSetupDLL,'DirectXDeviceDriverSetupW');
+{$IFDEF UNICODE}
-function DirectPlayLobbyCreateA; external DPlayXLib;
+  DirectXDeviceDriverSetup := DirectXDeviceDriverSetupW;
+{$ELSE}
-function DirectPlayLobbyCreate; external DPlayXLib name 'DirectPlayLobbyCreateA';
+  DirectXDeviceDriverSetup := DirectXDeviceDriverSetupA;
+{$ENDIF}
+  DirectXRegisterApplicationA :=
+       GetProcAddress(DSetupDLL,'DirectXRegisterApplicationA');
+  DirectXRegisterApplicationW :=
+       GetProcAddress(DSetupDLL,'DirectXRegisterApplicationW');
-{ DirectSetup }
+{$IFDEF UNICODE}
+  DirectXRegisterApplication := DirectXRegisterApplicationW;
+{$ELSE}
+  DirectXRegisterApplication := DirectXRegisterApplicationA;
+{$ENDIF}
-function DirectXSetupA; external DSetupLib;
-function DirectXSetupW; external DSetupLib;
+  DirectXUnRegisterApplication :=
-function DirectXSetup; external DSetupLib name 'DirectXSetupA';
+      GetProcAddress(DSetupDLL,'DirectXUnRegisterApplication');
-function DirectXDeviceDriverSetupA; external DSetupLib;
+  DirectXSetupSetCallback :=
-function DirectXDeviceDriverSetupW; external DSetupLib;
+      GetProcAddress(DSetupDLL,'DirectXSetupSetCallback');
-function DirectXDeviceDriverSetup; external DSetupLib name 'DirectXDeviceDriverSetupA';
-function DirectXRegisterApplicationA; external DSetupLib;
-function DirectXRegisterApplicationW; external DSetupLib;
-function DirectXRegisterApplication; external DSetupLib name 'DirectXRegisterApplicationA';
+  DirectXSetupGetVersion := GetProcAddress(DSetupDLL,'DirectXSetupGetVersion');
-function DirectXUnRegisterApplication; external DSetupLib;
+end;
-function DirectXSetupSetCallback; external DSetupLib;
+//DirectSound file
-function DirectXSetupGetVersion; external DSetupLib;
+function MAKE_DSHRESULT(code: DWORD) : HResult;
+begin
+  Result := HResult(1 shl 31) or HResult(_FACDS shl 16)
+      or HResult(code);
+end;
+function DSSPEAKER_COMBINED(c, g: variant) : DWORD;
+begin
+  Result := byte(c) or (byte(g) shl 16)
-{ DirectSound }
+end;
-function DSSPEAKER_COMBINED(c, g: Byte): DWORD;
+function DSSPEAKER_CONFIG(a: variant) : byte;
 begin
-  Result := c or (g shl 16);
+  Result := byte(a);
 end;
-function DSSPEAKER_CONFIG(a: DWORD): Byte;
+function DSSPEAKER_GEOMETRY(a: variant) : byte;
 begin
-  Result := a;
+  Result := byte(a shr 16 and $FF);
 end;
-function DSSPEAKER_GEOMETRY(a: DWORD): Byte;
+function DSErrorString(Value: HResult) : string;
 begin
-  Result := a shr 16;
+  case Value of
+    DS_OK: Result := 'The request completed successfully.';
+    DSERR_ALLOCATED: Result := 'The request failed because resources, such as a priority level, were already in use by another caller.';
+    DSERR_ALREADYINITIALIZED: Result := 'The object is already initialized.';
+    DSERR_BADFORMAT: Result := 'The specified wave format is not supported.';
+    DSERR_BUFFERLOST: Result := 'The buffer memory has been lost and must be restored.';
+    DSERR_CONTROLUNAVAIL: Result := 'The control (volume, pan, and so forth) requested by the caller is not available.';
+    DSERR_GENERIC: Result := 'An undetermined error occurred inside the DirectSound subsystem.';
+    DSERR_INVALIDCALL: Result := 'This function is not valid for the current state of this object.';
+    DSERR_INVALIDPARAM: Result := 'An invalid parameter was passed to the returning function.';
+    DSERR_NOAGGREGATION: Result := 'The object does not support aggregation.';
+    DSERR_NODRIVER: Result := 'No sound driver is available for use.';
+    DSERR_NOINTERFACE: Result := 'The requested COM interface is not available.';
+    DSERR_OTHERAPPHASPRIO: Result := 'Another application has a higher priority level, preventing this call from succeeding.';
+    DSERR_OUTOFMEMORY: Result := 'The DirectSound subsystem could not allocate sufficient memory to complete the caller´s request.';
+    DSERR_PRIOLEVELNEEDED: Result := 'The caller does not have the priority level required for the function to succeed.';
+    DSERR_UNINITIALIZED: Result := 'The IDirectSound::Initialize method has not been called or has not been called successfully before other methods were called.';
+    DSERR_UNSUPPORTED: Result := 'The function called is not supported at this time.';
+    else Result := 'Unrecognized Error';
+  end;
 end;
-function DirectSoundCreate; external DSoundLib;
+//DirectMusic file
-function DirectSoundEnumerateA; external DSoundLib;
-function DirectSoundEnumerateW; external DSoundLib;
-function DirectSoundEnumerate; external DSoundLib name 'DirectSoundEnumerateA';
-function DirectSoundCaptureCreate; external DSoundLib;
+function MAKE_HRESULT(sev,fac,code: DWORD) : HResult;
-function DirectSoundCaptureEnumerateA; external DSoundLib;
+begin
-function DirectSoundCaptureEnumerateW; external DSoundLib;
+  Result := (sev shl 31) or (fac shl 16) or code;
-function DirectSoundCaptureEnumerate; external DSoundLib name 'DirectSoundCaptureEnumerateA';
+end;
-function MAKEFOURCC(ch0, ch1, ch2, ch3: Char) : DWORD;
+//function MAKEFOURCC (ch0, ch1, ch2, ch3: Char) : TFourCC;
+//type
+//  tfcc = array [0..3] of Char;
+//begin
+//  tfcc(Result)[0] := ch0;
+//  tfcc(Result)[1] := ch1;
+//  tfcc(Result)[2] := ch2;
+//  tfcc(Result)[3] := ch3;
+//end;
+function QWORD_ALIGN(x: DWORD) : DWORD;
 begin
-  Result := Ord(ch0) + (Ord(ch1) shl 8) + (Ord(ch2) shl 16) + (Ord(ch3) shl 24);
+  Result := (x + 7) and (not 7); //  (((x) + 7) & ~7)
 end;
-function MAKE_DMHRESULTSUCCESS(code: Cardinal) : HResult;
+function DMUS_EVENT_SIZE(cb: DWORD) : DWORD;
 begin
-  Result := MakeResult(0, FACILITY_DIRECTMUSIC, (DMUS_ERRBASE + (code)));
+  Result := QWORD_ALIGN(SizeOf(TDMus_EventHeader) + cb); // QWORD_ALIGN(sizeof(DMUS_EVENTHEADER) + cb)
 end;
-function MAKE_DMHRESULTERROR(code: Cardinal) : HResult;
+function IsNTandDelphiRunning : boolean;
+var
+  OSVersion  : TOSVersionInfo;
+  AppName    : array[0..255] of char;
 begin
+  OSVersion.dwOsVersionInfoSize := sizeof(OSVersion);
+  GetVersionEx(OSVersion);
+  // Not running in NT or program is not Delphi itself ?
+  AppName[0] := #0;
+  lstrcat(AppName, PChar(ParamStr(0)));  // ParamStr(0) = Application.ExeName
+  {$IFDEF VER12UP}
+  CharUpperBuff(AppName, High(AppName) + 1);
+  {$ELSE}
+  CharUpperBuff(AppName, SizeOf(AppName));
+  {$ENDIF}
-  Result := MakeResult(1, FACILITY_DIRECTMUSIC, (DMUS_ERRBASE + (code)));
+  result := ( (OSVersion.dwPlatformID = VER_PLATFORM_WIN32_NT) and
+              (Pos('DELPHI32.EXE', AppName) = Length(AppName) - Length('DELPHI32.EXE') + 1) );
 end;
+initialization
+begin
+  {DirectDraw}
+  if not IsNTandDelphiRunning then
+  begin
+    DDrawDLL := LoadLibrary('DDraw.dll');
-// The number of bytes to allocate for an event with 'cb' data bytes.
+    DirectDrawEnumerateA := GetProcAddress(DDrawDLL,'DirectDrawEnumerateA');
+    DirectDrawEnumerateW := GetProcAddress(DDrawDLL,'DirectDrawEnumerateW');
+{$IFDEF UNICODE}
+    DirectDrawEnumerate := DirectDrawEnumerateW;
+{$ELSE}
+    DirectDrawEnumerate := DirectDrawEnumerateA;
+{$ENDIF}
-//
+    DirectDrawEnumerateExA := GetProcAddress(DDrawDLL,'DirectDrawEnumerateExA');
+    DirectDrawEnumerateExW := GetProcAddress(DDrawDLL,'DirectDrawEnumerateExW');
+{$IFDEF UNICODE}
+    DirectDrawEnumerateEx := DirectDrawEnumerateExW;
+{$ELSE}
-function QWORD_ALIGN(x: LONGLONG): LONGLONG;
+    DirectDrawEnumerateEx := DirectDrawEnumerateExA;
+{$ENDIF}
+    DirectDrawCreate := GetProcAddress(DDrawDLL,'DirectDrawCreate');
+    DirectDrawCreateEx := GetProcAddress(DDrawDLL,'DirectDrawCreateEx');
+    DirectDrawCreateClipper := GetProcAddress(DDrawDLL,'DirectDrawCreateClipper');
+{$IFDEF WINNT}
+    NtDirectDrawCreate := GetProcAddress(DDrawDLL,'NtDirectDrawCreate');
+{$ENDIF}
+  end;
+  {DirectDraw}
+  {Direct3D}
+  DisableFPUExceptions;
+  {$IFDEF D3DRM}
+  if not IsNTandDelphiRunning then
-begin
+  begin
-  Result := x + 7;
+    DXFileDLL := LoadLibrary('D3DXOF.DLL');
-  PDWORD(@Result)^ := PDWORD(@Result)^ and (not 7);
+    DirectXFileCreate := GetProcAddress(DXFileDLL,'DirectXFileCreate');
-end;
+  end;
+  {Direct3D}
+  {Direct3DRM}
+  if not IsNTandDelphiRunning then
+  begin
+    D3DRMDLL := LoadLibrary('D3DRM.dll');
+    //d3drmdef:
+    D3DRMCreateColorRGB := GetProcAddress(D3DRMDLL,'D3DRMCreateColorRGB');
+    D3DRMCreateColorRGBA := GetProcAddress(D3DRMDLL,'D3DRMCreateColorRGBA');
+    D3DRMColorGetRed := GetProcAddress(D3DRMDLL,'D3DRMColorGetRed');
+    D3DRMColorGetGreen := GetProcAddress(D3DRMDLL,'D3DRMColorGetGreen');
+    D3DRMColorGetBlue := GetProcAddress(D3DRMDLL,'D3DRMColorGetBlue');
+    D3DRMColorGetAlpha := GetProcAddress(D3DRMDLL,'D3DRMColorGetAlpha');
+    D3DRMVectorAdd := GetProcAddress(D3DRMDLL,'D3DRMVectorAdd');
+    D3DRMVectorSubtract := GetProcAddress(D3DRMDLL,'D3DRMVectorSubtract');
+    D3DRMVectorReflect := GetProcAddress(D3DRMDLL,'D3DRMVectorReflect');
+    D3DRMVectorCrossProduct := GetProcAddress(D3DRMDLL,'D3DRMVectorCrossProduct');
+    D3DRMVectorDotProduct := GetProcAddress(D3DRMDLL,'D3DRMVectorDotProduct');
+    D3DRMVectorNormalize := GetProcAddress(D3DRMDLL,'D3DRMVectorNormalize');
+    D3DRMVectorModulus := GetProcAddress(D3DRMDLL,'D3DRMVectorModulus');
+    D3DRMVectorRotate := GetProcAddress(D3DRMDLL,'D3DRMVectorRotate');
+    D3DRMVectorScale := GetProcAddress(D3DRMDLL,'D3DRMVectorScale');
+    D3DRMVectorRandom := GetProcAddress(D3DRMDLL,'D3DRMVectorRandom');
+    D3DRMQuaternionFromRotation := GetProcAddress(D3DRMDLL,'D3DRMQuaternionFromRotation');
+    D3DRMQuaternionMultiply := GetProcAddress(D3DRMDLL,'D3DRMQuaternionMultiply');
+    D3DRMQuaternionSlerp := GetProcAddress(D3DRMDLL,'D3DRMQuaternionSlerp');
+    D3DRMMatrixFromQuaternion := GetProcAddress(D3DRMDLL,'D3DRMMatrixFromQuaternion');
+    D3DRMQuaternionFromMatrix := GetProcAddress(D3DRMDLL,'D3DRMQuaternionFromMatrix');
+    //d3drm:
+    Direct3DRMCreate := GetProcAddress(D3DRMDLL,'Direct3DRMCreate');
+  end;
+  {$ENDIF}
+  {Direct3DRM}
+  {DirectInput}
+  Init_c_dfDIKeyboard_Objects;  // set kbd GUIDs & flags
+  Init_c_dfDIJoystick2_Objects;  // construct Joystick2 from Joystick fmt
+  if not IsNTandDelphiRunning then
+  begin
+    DInputDLL := LoadLibrary('DInput.dll');
+    DirectInputCreateA := GetProcAddress(DInputDLL,'DirectInputCreateA');
+    DirectInputCreateW := GetProcAddress(DInputDLL,'DirectInputCreateW');
+    // no A/W version
+    DirectInputCreateEx := GetProcAddress(DInputDLL,'DirectInputCreateEx');
+{$IFDEF UNICODE}
+    DirectInputCreate := DirectInputCreateW;
+{$ELSE}
+    DirectInputCreate := DirectInputCreateA;
+{$ENDIF}
+  end;
+  {DirectInput}
+  {DirectPlay}
+  if not IsNTandDelphiRunning then
+  begin
+    DPlayDLL := LoadLibrary('DPlayX.dll');
+    DirectPlayEnumerateA := GetProcAddress(DPlayDLL,'DirectPlayEnumerateA');
+    DirectPlayEnumerateW := GetProcAddress(DPlayDLL,'DirectPlayEnumerateW');
+  {$IFDEF UNICODE}
+    DirectPlayEnumerate := DirectPlayEnumerateW;
+  {$ELSE}
+    DirectPlayEnumerate := DirectPlayEnumerateA;
+  {$ENDIF}
+    DirectPlayCreate := GetProcAddress(DPlayDLL,'DirectPlayCreate');
+//  File:       dplay.h
+    DirectPlayLobbyCreateW := GetProcAddress(DPlayDLL,'DirectPlayLobbyCreateW');
+    DirectPlayLobbyCreateA := GetProcAddress(DPlayDLL,'DirectPlayLobbyCreateA');
+  {$IFDEF UNICODE}
+    DirectPlayLobbyCreate := DirectPlayLobbyCreateW;
+  {$ELSE}
+    DirectPlayLobbyCreate := DirectPlayLobbyCreateA;
+  {$ENDIF}
+  end;
+  {DirectPlay}
+  {DirectSetup}
+  if not IsNTandDelphiRunning then
+  begin
+    LoadDSetup;
+  end;
+  {DirectSetup}
+  {DirectSound}
+  if not IsNTandDelphiRunning then
+  begin
+    DSoundDLL := LoadLibrary('DSound.dll');
+    DirectSoundCreate := GetProcAddress(DSoundDLL,'DirectSoundCreate');
+    DirectSoundEnumerateW := GetProcAddress(DSoundDLL,'DirectSoundEnumerateW');
+    DirectSoundEnumerateA := GetProcAddress(DSoundDLL,'DirectSoundEnumerateA');
+  {$IFDEF UNICODE}
+    DirectSoundEnumerate := DirectSoundEnumerateW;
+  {$ELSE}
+    DirectSoundEnumerate := DirectSoundEnumerateA;
+  {$ENDIF}
+    DirectSoundCaptureCreate :=
+        GetProcAddress(DSoundDLL,'DirectSoundCaptureCreate');
+    DirectSoundCaptureEnumerateW :=
+        GetProcAddress(DSoundDLL,'DirectSoundCaptureEnumerateW');
+    DirectSoundCaptureEnumerateA :=
+        GetProcAddress(DSoundDLL,'DirectSoundCaptureEnumerateA');
+  {$IFDEF UNICODE}
+    DirectSoundCaptureEnumerate := DirectSoundCaptureEnumerateW;
+  {$ELSE}
-function DMUS_EVENT_SIZE(cb: LONGLONG): LONGLONG;
+    DirectSoundCaptureEnumerate := DirectSoundCaptureEnumerateA;
+  {$ENDIF}
+  end;
+  {DirectSound}
+end;
+finalization
 begin
+  {DirectDraw}
+  if DDrawDLL <> 0 then FreeLibrary(DDrawDLL);
+  {DirectDraw}
+  {Direct3D}
+  FreeLibrary(DXFileDLL);
+  {Direct3D}
+  {Direct3DRM}
+  {$IFDEF D3DRM}
-  Result := QWORD_ALIGN(SizeOf(DMUS_EVENTHEADER) + cb);
+  if D3DRMDLL <> 0 then FreeLibrary(D3DRMDLL);
+  {$ENDIF}
+  {Direct3DRM}
+  {DirectInput}
+  FreeLibrary(DInputDLL);
+  {DirectInput}
+  {DirectPlay}
+  if DPlayDLL <> 0 then FreeLibrary(DPlayDLL);
+  {DirectPlay}
+  {DirectSetup}
+  FreeLibrary(DSetupDLL);
+  {DirectSetup}
+  {DirectSound}
+  FreeLibrary(DSoundDLL);
+  {DirectSound}
 end;
-end.
+End.

Subversion Repositories spacemission

spacemission/VCL_DELPHIX_D6/DirectX.pas – Rev 1 → 4