procedure TForm2.PicturesinthisArticle1Click(Sender: TObject);
var wb1:TEmbeddedWB; c1:Integer;nm:String; label out1;
begin try
play_snd(1);
wb1:=TEmbeddedWB.Create(self);
wb1.HideBorders :=true;
case NoteBook1.PageIndex of
 0: wb1:=wikipedia_console;
 2: wb1:=wikimedia_console;
 3: wb1:=wikidict_console;
 5: wb1:=wikibooks_console;
 6: wb1:=wikinews_console;
 7: wb1:=Wikiquote_console;
 8: wb1:=wikisource_console;
 9: wb1:=wikispices_console;
end;
if wb1.OleObject.document.images.length=0 then exit;

form6 :=Tform6.Create(self);
_log_entry('Extract page - image information : starts');
for c1:=0 to wb1.OleObject.document.images.length-1 do begin
   nm:=wb1.OleObject.document.images.item(c1).src;
   form6.address_buffer.Add(nm);
   StrReplace(nm,'/','\',[rfIgnoreCase, rfReplaceAll]);
   nm:=ChangeFileExt(ExtractFileName(nm),'');
   StrReplace(nm,'_',' ',[rfIgnoreCase, rfReplaceAll]);
   nm:=StrSmartCase(nm,[' ']);
   form6.FlatListBox1.Items.Add(nm);
end;
_log_entry('Extract page - image information : over');
form6.FlatListBox1.ItemIndex :=-1;
form6.FlatButton3.Enabled :=false;
form6.FlatButton2.Enabled :=false;
form6.exp1.Navigate(root+'Support\pointer.jpg');
in_main_UI:=false;
form6.ShowModal;
in_main_UI:=true;
form6.free;
form6:=nil;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'F80000');
end;End;