[Bars1992]

Точно не знаю может у плеера есть какието функции по открытию файлов с корневой папки но я бы делал бы так.

Код:

 var
  searchResult : TSearchRec;

begin
  // Пробуем найти правильные файлы в текущем каталоге, соответствующие шаблону *.mp3
  if FindFirst('*.mp3', faAnyFile, searchResult) = 0 then
  begin
    repeat
      //searchResult.Name это имя найденого файла. можешь добавлять все
      //имена в какой то список ComboBox или чтото на подобе это как
      // тебе удобней
      Combobox1.lines.add(searchResult.Name);
      ShowMessage('Размер файла = '+IntToStr(searchResult.Size));
    until FindNext(searchResult) <> 0;

    // Должен освободить ресурсы, используемые этими успешными, поисками
    FindClose(searchResult);
  end;
end;

А потом по изменению имени открывать файл с текущей папки

Код:

MediaPlayer1.file:=GetCurrentDir+'\'+FileName;
MediaPlayer1.open;
MediaPlayer1.play;