procedure TForm1.DistributeMyResearchFiles1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
save_exe1.FileName := 'My Project.exe';
save_exe1.InitialDir := my_wiki_dir;
if save_exe1.Execute then begin
   screen.Cursor := crHourGlass;
   screen.Cursor := crHourGlass;
   stub1.SelfExe := save_exe1.FileName;
   pkzip1.FileName := dir1.TempPath +_realtime_filename('.zip');
   stub1.ZipFile := pkzip1.FileName;
   pkzip1.BaseDirectory :=ExcludeTrailingBackslash(vc1.Path);
   if not filectrl.DirectoryExists(vc1.Path) then filectrl.ForceDirectories(vc1.Path);
   form3:=TForm3.Create(nil);
   pkzip1.ArchiveProgressMeter := form3.AbMeter1;
   pkzip1.ItemProgressMeter := form3.AbMeter2;
   stop_save := false;
   form3.Tag := 5;
   form3.ShowModal;
   freeandnil(form3);
   pkzip1.ArchiveProgressMeter:=nil;
   pkzip1.ItemProgressMeter:=nil;
   stop_save := false;
   vr1.RefreshTree;
   try deletefile(pkzip1.FileName);except end;
   screen.Cursor := crDefault;
end;
except end;End;