procedure TForm2.CoverPage1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
case Notebook1.PageIndex of
   0:begin
         SetPriorityClass(GetCurrentProcess,high_p);
         wikipedia_console.Go(get_ini_params('wikis','wikipedia.main'));
     end;
   2:begin
         SetPriorityClass(GetCurrentProcess,high_p);
         wikimedia_console.Go(get_ini_params('wikis','wikimedia.main'));
     end;
   3:begin
         SetPriorityClass(GetCurrentProcess,high_p);
         wikidict_console.Go(get_ini_params('wikis','wiktionary.main'));
     end;
   5:begin
         SetPriorityClass(GetCurrentProcess,high_p);
         wikibooks_console.Go(get_ini_params('wikis','wikibooks.main'));
   end;
   6:begin
         SetPriorityClass(GetCurrentProcess,high_p);
         wikinews_console.Go(get_ini_params('wikis','wikinews.main'));
   end;
   7:begin
         SetPriorityClass(GetCurrentProcess,high_p);
         Wikiquote_console.Go(get_ini_params('wikis','Wikiquote.main'));
   end;
   8:begin
         SetPriorityClass(GetCurrentProcess,high_p);
         wikisource_console.Go(get_ini_params('wikis','wikisource.main'));
   end;
   9:begin
         SetPriorityClass(GetCurrentProcess,high_p);
         wikispices_console.Go(get_ini_params('wikis','species.wikimedia.main'));
   end;
end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'B30000');
end;End;