procedure TForm1.nav_active_pageTimer(Sender: TObject);
begin try
nav_active_page.Enabled :=false;
if nav_active_page.Tag>-1 then form2.Notebook1.PageIndex :=nav_active_page.Tag;
with form2 do begin
        case Notebook1.PageIndex of
         0:begin
             if wikipedia_console.Busy then wikipedia_console.Stop;
             wikipedia_console.Go(form1.nav_url.Caption);
             exit;
           end;
         2:begin
             if wikimedia_console.Busy then wikimedia_console.Stop;
             wikimedia_console.Go(form1.nav_url.Caption);
             exit;
           end;
         3:begin
             if wikidict_console.Busy then wikidict_console.Stop;
             wikidict_console.Go(form1.nav_url.Caption);
             exit;
           end;
         5:begin
             if wikibooks_console.Busy then wikibooks_console.Stop;
             wikibooks_console.Go(form1.nav_url.Caption);
             exit;
           end;
         6:begin
             if wikinews_console.Busy then wikinews_console.Stop;
             wikinews_console.Go(form1.nav_url.Caption);
             exit;
           end;
         7:begin
             if Wikiquote_console.Busy then Wikiquote_console.Stop;
             Wikiquote_console.Go(form1.nav_url.Caption);
             exit;
           end;
         8:begin
             if wikisource_console.Busy then wikisource_console.Stop;
             wikisource_console.Go(form1.nav_url.Caption);
             exit;
           end;
         9:begin
             if wikispices_console.Busy then wikispices_console.Stop;
             wikispices_console.Go(form1.nav_url.Caption);
             exit;
           end;
         10:begin
             if EmbeddedWB1.Busy then EmbeddedWB1.Stop;
             EmbeddedWB1.Go(form1.nav_url.Caption);
             exit;
           end;
        end;
end;
except end;End;