procedure TForm2.Automatic1Click(Sender: TObject);
begin try
case notebook1.PageIndex of
0: begin
      if WB_SetCharSet(wikipedia_console, TMenuItem(Sender).Hint) then
      TMenuItem(Sender).Checked := True;
   end;
2: begin
      if WB_SetCharSet(wikimedia_console, TMenuItem(Sender).Hint) then
      TMenuItem(Sender).Checked := True;
   end;
3: begin
      if WB_SetCharSet(wikidict_console, TMenuItem(Sender).Hint) then
      TMenuItem(Sender).Checked := True;
   end;
5: begin
      if WB_SetCharSet(wikibooks_console, TMenuItem(Sender).Hint) then
      TMenuItem(Sender).Checked := True;
   end;
6: begin
      if WB_SetCharSet(wikinews_console, TMenuItem(Sender).Hint) then
      TMenuItem(Sender).Checked := True;
   end;
7: begin
      if WB_SetCharSet(Wikiquote_console, TMenuItem(Sender).Hint) then
      TMenuItem(Sender).Checked := True;
   end;
8: begin
      if WB_SetCharSet(wikisource_console, TMenuItem(Sender).Hint) then
      TMenuItem(Sender).Checked := True;
   end;
9: begin
      if WB_SetCharSet(wikispices_console, TMenuItem(Sender).Hint) then
      TMenuItem(Sender).Checked := True;
   end;
end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'E70000');
end;End;