Звук и MediaPlayer

[uberchel]

Грузи хоть wav,mp3 mp4,mov и т.д. проиграет.
Грузишь все файлы в память и воспроизводишь.

]uses MMSystem;
...
procedure TForm1.btn1Click(Sender: TObject);
begin
mciSendString(PChar('Play "C:\Windows\Media\notify.wav"'),nil,0,0);
mciSendString(PChar('Play "C:\Windows\Media\tada.wav"'),nil,0,0);
mciSendString(PChar('close waveaudio'),nil,0,0);
end;