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