Как проигрывать несколько дорожек в медиа плеере?

procedure TfmPlayer.PlayMass(Ind:integer);
begin
if cbMass.Items.Count>Ind then
with MediaPlayer1 do begin
Notify:=false;
FileName:= cbMass.Items[Ind];
Open;Play;Notify:=true
end;
end;
procedure TfmPlayer.btPlayClick(Sender: TObject);
begin
FlStop:=true;
if cbMass.ItemIndex>0 then i:=cbMass.ItemIndex
else i:=0;
PlayMass(i)
end;

procedure TfmPlayer.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.Mode=mpPlaying then begin Inc(i);PlayMass(i)end
end;
procedure TfmPlayer.FormClose(Sender: TObject; var Action: TCloseAction);
var y:integer;
begin
if MediaPlayer1.Mode=mpOpen then begin
MediaPlayer1.Stop;
MediaPlayer1.Close end;
Reg.Free
end;
Программа воспроизводит звуковые файлы названия которых размещены в строковом массиве.