procedure findfile(s:string); //каталог, откуда начать поиск
var SearchRec:TSearchRec;
res:integer; //результат поиска (0 или нет)
begin
res:=FindFirst(s+'*.*',faAnyFile,SearchRec);
res:=findNext(SearchRec);
While res=0 do
begin
if (SearchRec.Attr=faDirectory) and ((SearchRec.Name='.')or(SearchRec.Name='..')) then
 begin
 Res:=FindNext(SearchRec);
 Continue;
 end;
if (SearchRec.Attr=faDirectory) then//если нашли директорию, то ищем файлы в ней
 begin
 findfile(s+SearchRec.Name+'\');//поиск во вложенной папке
 Res:=FindNext(SearchRec);
 Continue;
 end;
form1.ListBox1.Items.Add(Sea.Name);//добавляем в Listbox:Tlistbox имя файла
Res:=FindNext(SearchRec);
end;
FindClose(SearchRec);
end;