Mehrere Audiodateien hintereinander ohne Pause abspielen?

[jdm]

Ich habe verschiedene Audiodateien (.wav) gemacht, die jeweils etwa eine halbe Sekunde lang sind und verschiedene Töne enthalten. Nun will ich damit in einem Programm verschiedene Melodien abspielen können.
Mein bisheriger Ansatz war:

Code:

procedure ton(bez:string);
begin
     With Form1.MediaPlayer1 do begin
          filename:='sounds/'+bez+'.wav';
          Open;
          wait:=true;
          play;
          close;
     end;
end;

Code:

ton('h0'); ton('h1'); ton('h2'); ton('h3');
ton('h1'); ton('h2'); ton('h3'); ton('h4');

Das Problem ist, dass jeder Ton erstmal geladen werden muss, bevor er abgespielt wird. So entstehen lange Pausen zwischen den Tönen. Wie bekomme ich diese Pausen weg?