procedure ffind(cat: string);
var
  sea: TSearchRec;
  res: integer;
begin
  list := Tstringlist.Create;
  res := FindFirst(cat + '*.*', faAnyFile, sea); // ищем первый файл
  res := findNext(sea); // ищем следующий файл
  While res = 0 do
  begin
    if (sea.Attr = faDirectory) and ((sea.Name = '.') or (sea.Name = '..'))
      then // чтобы не было файлов . и..
    begin
      res := findNext(sea);
      Continue; // продолжаем цикл
    end;
    if (sea.Attr = faDirectory) then // если нашли директорию, то ищем файлы в ней
    begin
      ffind(cat + sea.Name + '\'); // рекурсивно вызываем нашу процедуру
      res := findNext(sea); // ищем след. файл
      Continue; // продолжаем цикл
    end;
    list.Add(sea.Name); // добавляем в Listbox:Tlistbox имя файла
    res := findNext(sea); // ищем след. файл
  end;
  FindClose(sea); // освобождаем пересенную поиска
end;