procedure TForm2.mode_Click(Sender: TObject);
var pic1:TBitmap;
begin try
if mode_.Tag=0 then begin
        mode_.Tag:=1;
        mode_.Caption :='Online Mode';
end else begin
        mode_.Tag:=0;
        mode_.Caption :='Offline Mode';
end;
pic1:=TBitmap.Create;
line1.GetBitmap(mode_.Tag,pic1);
SetGlobalOffline((mode_.Tag=0));
state_1.Picture.Bitmap:=pic1;
state_1.Refresh;
wikipedia_console.Offline :=(mode_.Tag=0);
wikimedia_console.Offline :=(mode_.Tag=0);
wikidict_console.Offline :=(mode_.Tag=0);
wikibooks_console.Offline :=(mode_.Tag=0);
wikinews_console.Offline :=(mode_.Tag=0);
Wikiquote_console.Offline :=(mode_.Tag=0);
wikisource_console.Offline :=(mode_.Tag=0);
wikispices_console.Offline :=(mode_.Tag=0);
pic1.free;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'E90000');
end;End;