procedure TForm2.wikipedia_consoleDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var off_:Integer; pic1:TBitmap;

   procedure reload_seq(brw:TEmbeddedWB);
   begin
   if (brw.LocationURL='') then exit;
   if StrFind('shdoclc.dll',brw.OleObject.Document.Url)<>0 then begin
        if brw.Busy then brw.Stop;
        brw.Go(root+'Support\nopage.htm');
        end;
   end;

begin try //common point
SetPriorityClass(GetCurrentProcess,norm_p);
SetThreadPriority(GetCurrentThread,THREAD_PRIORITY_NORMAL);
font_setup1.Enabled :=true;
case NoteBook1.PageIndex of
0: reload_seq(wikipedia_console);
2: reload_seq(wikimedia_console);
3: reload_seq(wikidict_console);
5: reload_seq(wikibooks_console);
6: reload_seq(wikinews_console);
7: reload_seq(Wikiquote_console);
8: reload_seq(wikisource_console);
9: reload_seq(wikispices_console);
end;

//*this section moves to the end of the proc.
if IsGlobalOffline then off_:=0 else off_:=1;
if off_<>mode_.Tag then begin
   if IsGlobalOffline then begin
      mode_.Tag:=0;
      mode_.Caption :='Offline Mode';
   end else begin
      mode_.Tag:=1;
      mode_.Caption :='Online Mode';
   end;
   pic1:=TBitmap.Create;
   line1.GetBitmap(mode_.Tag,pic1);
   pic1.Transparent := false;
   state_1.Picture.Bitmap:=pic1;
   state_1.Refresh;
   freeandnil(pic1);
end;
_log_entry('Specified document loaded and processed successfully !');
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'H10000');
end;End;