2 art2222
1) DirectoryExists - смысл? если можно сразу проверить при поиске папка это или файл
2) Твой алгоритм заточен для юзанья модуля sysutils а это лишние почти 20 кил к размеру проги )

2 -Hormold- p.s. забыл еще const faDirectory = $00000010;
это чтобы вообще не юзать sysutils; А вообще подобный код я выкладывал в своём micspy он тоже делал поиск файлов и передавал в сокет сразу данные, но там было настроено всё на поиск mp3 файлов