Прогресс извлечения файлов из архива

[KPOBOCiCb]

Извлекаются файлы из архива, все файлы имена которых записаны в ListBox. При извлечении показывается прогресс извлечения каждого файла по очереди, подскажите, как вывести общий прогресс извлечения всех файлов (ProgressBar). Работаю с архивом при помощи ZipForge.

procedure TForm1.ZipForge1OverallProgress(Sender: TObject;
  Progress: Double; Operation: TZFProcessOperation;
  ProgressPhase: TZFProgressPhase; var Cancel: Boolean);
begin
  ProgressBar1.Position:=Trunc(Progress);
  Label1.Caption:=IntToStr(Trunc(Progress)) + '%';
  Application.ProcessMessages;
end;
 
procedure TForm1.ZipForge1FileProgress(Sender: TObject;
  FileName: WideString; Progress: Double; Operation: TZFProcessOperation;
  ProgressPhase: TZFProgressPhase; var Cancel: Boolean);
begin
  Application.ProcessMessages;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i :Integer;
begin
  for i:=1 to ListBox1.Items.Count do
    begin
      with ZipForge1 do
        begin
            FileName := 'Archive.zip';
 
            // Создать новый файл архива
            OpenArchive(fmOpenRead);
            // Установить путь к папке назначения
            BaseDir := 'FILES\';
 
            // Извлечь все файлы
            ExtractFiles(ListBox1.Items[i-1] + '\' + ListBox1.Items[i-1] + '.tweak');
 
            // Закрыть архив
            CloseArchive;
 
        end;
    end;
  ShowMessage('Все файлы были извлечены');
end;

НИЖЕ ИСХОДНИК:

[phomm]

Ну, а в чём проблема то ? Учите дельфи, гуглите код, курите его и т.д. а по советам на форумах Вы не добьётесь ничего сами, если советы вообще будут по Вашей конкретно задаче, а то ведь никому кроме Вас она не нужна.

procedure TForm1.Button1Click(Sender: TObject);
var
  i :Integer;
begin
  ProgressBar1.Max := ListBox1.Items.Count - 1;
  ProgressBar1.Min := 0;
  ProgressBar1.Position := 0;
  for i:=1 to ListBox1.Items.Count do
    begin
      with ZipForge1 do
        begin
            FileName := 'Archive.zip';
 
            // Создать новый файл архива
            OpenArchive(fmOpenRead);
            // Установить путь к папке назначения
            BaseDir := 'FILES\';
 
            // Извлечь все файлы
            ExtractFiles(ListBox1.Items[i-1] + '\' + ListBox1.Items[i-1] + '.tweak');
            ProgressBar1.Position := ProgressBar1.Position + 1;
            // Закрыть архив
            CloseArchive;
 
        end;
    end;
  ShowMessage('Все файлы были извлечены');
end;