typedef TW_HANDLE (PASCAL *DSM_MEMALLOCATE)(TW_UINT32 _size);
  typedef void (PASCAL *DSM_MEMFREE)(TW_HANDLE _handle);
  typedef TW_MEMREF (PASCAL *DSM_MEMLOCK)(TW_HANDLE _handle);
  typedef void (PASCAL *DSM_MEMUNLOCK)(TW_HANDLE _handle);


typedef struct {
   TW_UINT32         Size;
   DSMENTRYPROC      DSM_Entry;
   DSM_MEMALLOCATE   DSM_MemAllocate;
   DSM_MEMFREE       DSM_MemFree;
   DSM_MEMLOCK       DSM_MemLock;
   DSM_MEMUNLOCK     DSM_MemUnlock;
} TW_ENTRYPOINT, FAR * pTW_ENTRYPOINT;

DSMENTRYPROC = function(pOrigin: pTW_IDENTITY; pDest: pTW_IDENTITY;
    DG: TW_UINT32; DAT: TW_UINT16; MSG: TW_UINT16;
    pData: TW_MEMREF): TW_UINT16; stdcall;

  TDSMEntryProc = DSMENTRYPROC;

  DSMMEMALLOCATE = function(_size: TW_UINT32): TW_HANDLE;
  TDSMMemAllocate = DSMMEMALLOCATE;

  DSMMEMFREE = procedure(_handle: TW_HANDLE);
  TDSMMemFree = DSMMEMFREE;

  DSMMEMLOCK = function(_handle: TW_HANDLE): TW_MEMREF;
  TDSMMemLock = DSMMEMLOCK;

  DSMMEMUNLOCK = procedure(_handle: TW_HANDLE);
  TDSMMemUnlock = DSMMEMUNLOCK;

{DAT_ENTRYPOINT}
  TW_ENTRYPOINT = packed record
    Size:  TW_UINT32;
    DSM_Entry: TDSMEntryProc;//DSMENTRYPROC;
    DSM_MemAllocate: TDSMMemAllocate;
    DSM_MemFree: TDSMMemFree;
    DSM_MemLock: TDSMMemLock;
    DSM_MemUnlock: TDSMMemUnlock;
  end;
  pTW_ENTRYPOINT = ^TW_ENTRYPOINT;