[ryderx34]

Код:

procedure SearchFiles(const Directory: string; List: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Directory + '\*.*', faAnyFile, SR) = 0 then
  repeat
    if (SR.Name = '.') or (SR.Name = '..') then
      Continue;
    if (SR.Attr and faDirectory) <> 0 then  // если обнаружена вложенная папка
      SearchFiles(Directory + '\' + SR.Name, List) // её содержимое тоже будет добавлено
    else
      //if ExtractFileExt(SR.Name) = '.mp3' then //если нужно отфильтровать по расширению
      List.Add(Directory + '\' + SR.Name);
  until FindNext(SR) <> 0;
  FindClose(SR);
end;

Пример использования:

Код:

SearchFiles('C:\MUSIC', ListBox1.Items);