procedure TForm2.font_setup1Timer(Sender: TObject);
begin try
font_setup1.Enabled :=false;
case NoteBook1.PageIndex of
   0:begin
         if WB_GetZoom(wikipedia_console)<>2 then
            WB_setZoom(wikipedia_console,2);
         exit;
     end;
   2:begin
         if WB_GetZoom(wikimedia_console)<>2 then
            WB_setZoom(wikimedia_console,2);
         exit;
     end;
   3:begin
         if WB_GetZoom(wikidict_console)<>2 then
            WB_setZoom(wikidict_console,2);
         exit;
     end;
   5:begin
         if WB_GetZoom(wikibooks_console)<>2 then
            WB_setZoom(wikibooks_console,2);
         exit;
     end;
   6:begin
         if WB_GetZoom(wikinews_console)<>2 then
            WB_setZoom(wikinews_console,2);
         exit;
   end;
   7:begin
         if WB_GetZoom(Wikiquote_console)<>2 then
            WB_setZoom(Wikiquote_console,2);
         exit;
   end;
   8:begin
         if WB_GetZoom(wikisource_console)<>2 then
            WB_setZoom(wikisource_console,2);
         exit;
   end;
   9:begin
         if WB_GetZoom(wikispices_console)<>2 then
            WB_setZoom(wikispices_console,2);
         exit;
   end;
end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'B20000');
end;End;