var
  DirectSoundDll: THANDLE;
  DirectSoundDllName: ansistring;
  DirectSoundDevice: IDirectSound8;

 procedure InitDirectSound;
 procedure CloseDirectSound;
 function DSErrorString(h: HRESULT): widestring;
