Копирование нескольких файлов + ProgressBar

[AngelOfDeath]

Как скопировать несколько файлов
И отображать процесс копирования в ProgressBar

[vitalik007]

Ну я делал так.
Высчитывал сумму размеров файлов.Получилась скоко все файлы весят.
Присваивал в свойство max эту сумму. а потом при копировании прибавлял скоко байтов скопировал(размер буфера для копирования)

[vitalik007]

АА
а если копируешь через функцию copyfile то надо прибавлять к position
рамсер копиремого файла

[AngelOfDeath]

Можете кинуть пример?
Если несложно

Извините за лишний вопрос
Просто нехочу создавать тему
Как в прогресс бар поместить ещё сколько записалось через
TFileStream
Всмысле:

Const data: array [0.40000] of byte (
$50, $60
//тут куча байтов
$60)
..................................................................
var
F:TfileStream;
begin
..........
f.Write(data,sizeof(data);
.........

[vitalik007]

Можете кинуть пример?
Если несложно

Конечно кину.там как раз TfileStream