program wrapper01;

const US_STACKBUF_SIZE = 7;

type
 uint16_t  = Word;
 int32_t   = Longint;
 UChar     = widechar;
 UChar_ptr = ^UChar;

 UnicodeString = class
   fLength   ,
   fCapacity : int32_t;
   fArray    : UChar_ptr;
   fFlags    : uint16_t;

   fStackBuffer : array[0..US_STACKBUF_SIZE - 1 ] of UChar;

  end;

procedure UMemory_New; external 'icuuc36.dll'
name '??2UMemory@icu_3_6@@SAPAXI@Z';

procedure UnicodeString_UnicodeString; external 'icuuc36.dll'
name '??0UnicodeString@icu_3_6@@QAE@XZ';

var
 str : UnicodeString;

BEGIN
 asm
  push $20
  call UMemory_New
  add  esp ,4 
  mov  dword ptr [str] ,eax

  mov  ecx ,dword ptr [str]
  call UnicodeString_UnicodeString

 end;

END.