[Raskolnikov]

Ну например так. Объявляешь поле формы hLib: THandle; в обработчике формы OnCreate пишешь код:

Код:

hLib:= LoadLibrary('sounds.dll'); // вместо sounds.dll имя библиотеки

в обработчике OnClose

Код:

FreeLibrary(hLib);

Для проигрывания звука:

Код:

var
  R: TResourceStream;
begin
  R:= TResourceStream.CreateFromID(hLib, Random(7)+1, 'sound');
  SndPlaySound(R.Memory, SND_ASYNC or SND_MEMORY);
  R.Free;
end;