procedure TForm1.pkzip1ArchiveItemProgress(Sender: TObject;
  Item: TAbArchiveItem; Progress: Byte; var Abort: Boolean);
begin try
Abort := stop_save;
if form3 <> nil then
   form3.FlatGauge2.Progress :=Progress;
except end;End;