procedure TForm2.GotoTopofthePage1Click(Sender: TObject);
begin try
case notebook1.PageIndex of
0:WB_ScrollToTop(wikipedia_console);
2:WB_ScrollToTop(wikimedia_console);
3:WB_ScrollToTop(wikidict_console);
5:WB_ScrollToTop(wikibooks_console);
6:WB_ScrollToTop(wikinews_console);
7:WB_ScrollToTop(Wikiquote_console);
8:WB_ScrollToTop(wikisource_console);
9:WB_ScrollToTop(wikispices_console);
end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'F40000');
end;End;