Netspirit, да, под Delphi тоже.
Больше 1000 файлов не удаётся обработать.

Спасибо большое, что поправили, буду тестировать.