procedure TForm2.save_imgs_to_research_dir(Sender:TObject);

procedure save_all_imags(web1:TEmbeddedWB; path_:String);
var k, p: Integer;Source, dest, ext: string;
begin
for k := 0 to web1.OleObject.Document.Images.Length - 1 do begin
   Source := web1.OleObject.Document.Images.Item(k).Src;
   p := LastDelimiter('.', Source);
   ext := UpperCase(System.Copy(Source, p + 1, Length(Source)));
   if (ext = 'GIF') or (ext = 'JPG') or (ext = 'BMP') or (ext = 'PNG') then begin
      p  := LastDelimiter('/', Source);
      dest := path_+ '/Images'+ System.Copy(Source, p + 1, Length(Source));
      DownloadFile(Source, dest);
   end;
end;
end;

begin try
play_snd(1);
form13:=TForm13.Create(self);
form13.Show;
form13.Refresh;
Screen.Cursor :=crHourGlass;
case notebook1.PageIndex of
  0 : save_all_imags(wikipedia_console,TMenuItem(Sender).Hint);
  2 : save_all_imags(wikimedia_console,TMenuItem(Sender).Hint);
  3 : save_all_imags(wikidict_console,TMenuItem(Sender).Hint);
  5 : save_all_imags(wikibooks_console,TMenuItem(Sender).Hint);
  6 : save_all_imags(wikinews_console,TMenuItem(Sender).Hint);
  7 : save_all_imags(Wikiquote_console,TMenuItem(Sender).Hint);
  8 : save_all_imags(wikisource_console,TMenuItem(Sender).Hint);
  9 : save_all_imags(wikispices_console,TMenuItem(Sender).Hint);
end;
Screen.Cursor :=crDefault;
freeandnil(form13);
except end;End;