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