[Alegun]

"...несколько команд из MMSystem...":

Код:

uses 
 MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
 mciSendString(PChar('play "Звук1.wav"'), nil, 0, 0);
 mciSendString(PChar('play "Звук2.wav"'), nil, 0, 0);
 mciSendString(PChar('close waveaudio'),  nil, 0, 0);
end;