procedure TForm2.SelectAll1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
case Notebook1.PageIndex of
   0: WB_SelectAll(wikipedia_console);
   2: WB_SelectAll(wikimedia_console);
   3: WB_SelectAll(wikidict_console);
   5: WB_SelectAll(wikibooks_console);
   6: WB_SelectAll(wikinews_console);
   7: WB_SelectAll(Wikiquote_console);
   8: WB_SelectAll(wikisource_console);
   9: WB_SelectAll(wikispices_console);
end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'D50000');
end;End;