[Petros9n]

Я делаю программу в которой пользователь должен будет угадать играющую песню из 4 вариантов, написал кривой код, помогите пожалуйста его доработать, в Caption одной кнопки заносится имя песни которая сейчас играет, а оставшиеся 3 случайные песни из TStringList, надо сделать чтобы они не повторялись.
Кнопки объявил как массив:

Код:

var
  Form1: TForm1;
  searchResult : TSearchRec;
  mlist: TStringList;
  l: array [0..3] of TButton;

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
i,n:integer;

begin
if mlist.Count>0 then
begin
 l[0].Caption := '';
 l[1].Caption := '';
 l[2].Caption := '';
 l[3].Caption := '';
 i:=random(mlist.Count-1);
 MediaPlayer1.FileName:=mlist.Strings[i];
 n:=random(4);
 l[n].Caption:=mlist.Strings[i];
 mlist.Delete(i);
 MediaPlayer1.Open;
 MediaPlayer1.Play;
 for n:=0 to 3 do
  begin
  i:=random(mlist.Count-1);
   if l[n].Caption='' then l[n].Caption:=mlist.Strings[i];
  end;
  end
else
ShowMessage('Песен больше нет');
end;