procedure TForm1.OpenWikiResearchProject1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
open1.InitialDir := my_wiki_dir;
open1.FileName :='untitled.wrp';
if open1.Execute then begin
   screen.Cursor := crHourGlass;
   pkzip2.FileName := open1.FileName;
   pkzip2.BaseDirectory :=ExcludeTrailingBackslash(vc1.Path);
   if not filectrl.DirectoryExists(vc1.Path) then filectrl.ForceDirectories(vc1.Path);
   form3:=TForm3.Create(nil);
   pkzip2.ArchiveProgressMeter := form3.AbMeter1;
   pkzip2.ItemProgressMeter := form3.AbMeter2;
   stop_save := false;
   form3.Tag := 2;
   form3.ShowModal;
   freeandnil(form3);
   pkzip2.ArchiveProgressMeter:=nil;
   pkzip2.ItemProgressMeter:=nil;
   stop_save := false;
   pkzip2.CloseArchive;
   vr1.RefreshTree;
   screen.Cursor := crDefault;
end;
except end;End;