[v1s2222]

Чтобы добавить путь просто добавляй к имени файла переменную Path:

Код:

procedure TfrmMain.PlayList(Path: string);
var
  SearchRec: TSearchRec;// структура SearchRec содержит информацию
                        // о файле, удовлетворяющем условию поиска
begin
  ListBox1.Clear;
  // сформировать список mp3 файлов
  if FindFirst(Path + '*.mp3', faAnyFile, SearchRec) =0 then
     begin
          // в каталоге есть файл с расширением mp3
          // добавим имя этого файла в список
          Bibliotheque.Items.Add(Path+SearchRec.Name);
          // есть еще mp3-файлы ?
          while (FindNext(SearchRec) = 0) do
              Bibliotheque.Items.Add(Path+SearchRec.Name);
     end;
end;

А добавить поиск .wav файлов делать так же:

Код:

...
 // сформировать список mp3 файлов
  if FindFirst(Path + '*.wav', faAnyFile, SearchRec) =0 then
...