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