Netspirit, Всё справедливо и ничего сложного. (делал и всё заметно быстрее работало, но...)
По поводу размера - я делал Buffer:array [0..65535] of byte;
Но его на некоторых папках не хватало.
В каком то описании сказано, что по такой ошибке надо удваивать буфер, если опять не хватит - то ещё, как сделано в Total Commander.
Намекают на динамическое выделение памяти. Но это тоже не беда, мне нужно количество файлов, а не список, по этому можно рекурсивно обходя папки суммировать, а список очищать перед итерацией. В общем можно покумекать.
Но такое количество накладных расходов, в виде программного кода и занимаемой памяти...
А всего лишь надо установить максимальное значение прогрссбара, чтобы наблюдать процесс обработки файлов.
Получается - из пушки по воробьям.
P.S.
Кстати, при динамическом выделении памяти проблемы снимаются.
Посчитал, да очистил память.
Остаётся uses some_ntdef,... , но это не большие расходы.