Tad, Спасибо.
Идея понятна.

[flood]Знавал мужчину по кличке «Зоопарк». В миру звался Лев Михайлович Волков.[/flood]

Nic, [flood]я Гумилёва и Толстого знаю, и князя Мышкина, а твой приятель всё -таки "Михалыыч".
На Руси Лёв Николаевичей, как в Бразилии Донов Педро.
[/flood]

В зависимости от FileInformationClass, размер возвращаемой структуры известен, неизвестными остаются длины файлов, можно предполагать, что длина не превышает 1024 символа. Выделять буфер из расчета на сотню-другую структур.
Функция запишет столько структур, сколько влезет в буфер. Поэтому место будет заполнено максимально эффективно.
Ничего сложного.

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

[flood]

Эх дон andrestudio, как тебя сегодня не хватало!...
https://yadi.sk/i/W6xrQn-DsKswz
[/flood]