Как мне сделать рандомное воспроизведение песен в Delphi 7?

[DEADPOOL5]

Вообщем, хочу сделать так чтоб в дельфи одна песня из пяти начала воспроизводиться при нажатии кнопки плей и можно было бы остановить её и чтоб при повторном нажатии плей начала воспроизводиться другая. Можно ли такое реализовать?
Вот код я написал а вот как воспроизвести я не знаю как, подскажите пожалуйста.

TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
n: Integer;
fn: string;
begin
sl :=TStringList.Create;
sl.Add('1qwe.mp3');
sl.Add('2qwe.mp3');
sl.Add('3qwe.mp3');
sl.Add('4qwe.mp3');
sl.Add('5qwe.mp3');
Randomize;
n:=Random(sl.Count-1);
fn:= sl.Strings[n];
MediaPlayer1.FileName:=fn;

sl.free;
end;

[kutani]

//MediaPlayer1.FileName:=fn; 
MCISendString(PChar('play ' + fn),nil,0,0);