procedure TForm2.WikisProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
var v_current_act_window:Integer;
begin try
if (NoteBook1.PageIndex=1)or(NoteBook1.PageIndex=4) then begin
   FlatGauge1.Progress:=0;
   exit;
end;
v_current_act_window:=-1;

if Sender=wikipedia_console then v_current_act_window:=0;
if Sender=wikimedia_console then v_current_act_window:=2;
if Sender=wikidict_console then v_current_act_window:=3;
if Sender=wikibooks_console then v_current_act_window:=5;
if Sender=wikinews_console then v_current_act_window:=6;
if Sender=Wikiquote_console then v_current_act_window:=7;
if Sender=wikisource_console then v_current_act_window:=8;
if Sender=wikispices_console then v_current_act_window:=9;

if NoteBook1.PageIndex=v_current_act_window then begin
   if ProgressMax<>0 then
   FlatGauge1.MaxValue := ProgressMax;
   FlatGauge1.Progress :=Progress;
   if Progress>= ProgressMax then FlatGauge1.Progress:=0;
end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'F70000');
end;End;