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