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

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;