[KOOL]

StopPlaying - процедура, где надо остановить плеер(может называться как угодно)

Код:

procedure TForm1.StopPlaying;
begin
  MediaPlayer1.Stop;
  MediaPlayer1.Close;
  MediaPlayer.FileName := '';//может както еще..не помню
end;

Код:

procedure TForm1.PlayFile(FilePath : string);
begin
  if FileExists(FilePath) then
    begin
      MediaPlayer.FileName := '';
      MediaPlayer1.Open;
      MediaPlayer1.Play;
    end;
end;

Как правильно загрузить в List Box путь к файлу

Код:

procedure TForm1.AddFilesButClick(Sender: TObject);
var i : integer;
    It : TListItem;
    Strs : TStrings;
begin
  if OpenDialog1.Execute then
  begin
    Strs := OpenDialog1.Files;
    for i :=0 to OpenDialog1.Files.Count-1 do
      begin
        Application.ProcessMessages;
        it := ListView1.Items.Add;
        it.Caption:=IntToStr(ListView.Items.Count);//номер в списке
        it.SubItems.Add(GetTag(Strs[i]));//GetTag-процедура чтения тегов
        it.SubItems.Add(Strs[i]);//путь к файлу
        it.SubItems.Add(GetTime(Strs[i]));//GetTime-процедура чтения длительности
      end;
  end;
end;