[ALexandr555]

с этим выдает ошибку при тестировании "No MCI device open"
а код такой

Код:

procedure TfrmMyBrowser.ListBox1Click(Sender: TObject);
begin
  if SpeedButton2.Tag = 0 then
     // вывести в поле метки Label1 имя выбранного файла
     Label2.Caption:=ListBox1.Items[ListBox1.itemIndex]
 else
     frmMyBrowser.Play;
Label4.Caption := IntToStr(MediaPlayer1.TrackLength[1]);
end;