procedure TForm1.oxGraphicButton3Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
save1.InitialDir := my_wiki_dir;
save1.FileName :='untitled.wrp';
if save1.Execute then begin
   screen.Cursor := crHourGlass;
   if fileexists(save1.FileName) then deletefile(save1.FileName);
   pkzip1.FileName := save1.FileName;
   pkzip1.ZipfileComment := Label1.Caption;
   pkzip1.BaseDirectory :=get_prj_info(Label1.Caption).path_;
   form3:=TForm3.Create(nil);
   pkzip1.ArchiveProgressMeter := form3.AbMeter1;
   pkzip1.ItemProgressMeter := form3.AbMeter2;
   stop_save := false;
   form3.Tag := 1;
   form3.ShowModal;
   freeandnil(form3);
   pkzip1.ArchiveProgressMeter:=nil;
   pkzip1.ItemProgressMeter:=nil;
   stop_save := false;
   pkzip1.CloseArchive;
   screen.Cursor := crDefault;
end;
except end;End;