procedure TForm2.accResearchArticle_to_prjClick(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
form13:=TForm13.Create(self);
form13.Show;
form13.Refresh;
Screen.Cursor :=crHourGlass;
case notebook1.PageIndex of
  0 : SaveToMHT(wikipedia_console.LocationURL,TMenuItem(Sender).Hint+wikipedia_console.LocationName+'.mht');
  2 : SaveToMHT(wikimedia_console.LocationURL,TMenuItem(Sender).Hint+wikimedia_console.LocationName+'.mht');
  3 : SaveToMHT(wikidict_console.LocationURL,TMenuItem(Sender).Hint+wikidict_console.LocationName+'.mht');
  5 : SaveToMHT(wikibooks_console.LocationURL,TMenuItem(Sender).Hint+wikibooks_console.LocationName+'.mht');
  6 : SaveToMHT(wikinews_console.LocationURL,TMenuItem(Sender).Hint+wikinews_console.LocationName+'.mht');
  7 : SaveToMHT(Wikiquote_console.LocationURL,TMenuItem(Sender).Hint+Wikiquote_console.LocationName+'.mht');
  8 : SaveToMHT(wikisource_console.LocationURL,TMenuItem(Sender).Hint+wikisource_console.LocationName+'.mht');
  9 : SaveToMHT(wikispices_console.LocationURL,TMenuItem(Sender).Hint+wikispices_console.LocationName+'.mht');
end;
Screen.Cursor :=crDefault;
freeandnil(form13);
except
on E : Exception do begin
   _log_entry_error(E.ClassName,E.Message,'CA56100');
   Screen.Cursor :=crDefault;
   freeandnil(form13);
end;
end;End;