[Mealgay]

Вариант 1: Окно проигрывателя.
Кидаем на форму компонент TMediaPlayer на вкладе System.
Настройки оставляем прежними, не меняем.
Кинем еще пару компонентов TListBox, TButton, TOpenDialog.
У Button1 в поле Caption впишем Open.. - смотрим Object Inspector.
Кликаем дважды по кнопке, переходим к кодингу.
Между двумя строками Begin End; впишем

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
 begin
  ListBox1.Items.Add(OpenDialog1.FileName);
  Mediaplayer1.FileName := OpenDialog1.FileName;
  Mediaplayer1.Open;
 end;
end;

Идем дальше, переходим к TListBox
Выделим его и перейдем на Object Inspector \ Events
Создадим событие на OnDblClick;

Впишем этот код:

Код:

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
 if ListBox1.Items.Count > 0 then
  begin
   Mediaplayer1.FileName := ListBox1.Items.Strings[ListBox1.itemindex];
   Mediaplayer1.Play;
  end;
end;