Проиграть два wav-файла одновременно

[apromix]

Делаю так:

unit Sound;

interface

uses mmsystem, SysUtils;

procedure Play(FileName: String);

implementation

procedure Play(FileName: String);
var
  D: String;
begin
  GetDir(0, D);
  PlaySound(PChar(D + '\data\sounds\' + FileName),0,SND_FILENAME+SND_ASYNC);
end;

end.

Но при попытке вывести 2 звука одновременно, первый звук прерывается. Как проиграть два wav-файла одновременно??

[uberchel]

Пользуйтесь поискам по форуму!

http://www.programmersforum.ru/showthread.php?t=60049