procedure TForm2.SaveAllPictures1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
case Notebook1.PageIndex of
   0:form2.wikipedia_console.SaveImagesDialog;
   2:form2.wikimedia_console.SaveImagesDialog;
   3:form2.wikidict_console.SaveImagesDialog;
   5:form2.wikibooks_console.SaveImagesDialog;
   6:form2.wikinews_console.SaveImagesDialog;
   7:form2.Wikiquote_console.SaveImagesDialog;
   8:form2.wikisource_console.SaveImagesDialog;
   9:form2.wikispices_console.SaveImagesDialog;
end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'A70000');
end;End;