[cyborgg4655]

Делаю так:

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
  doc: IHTMLDocument2;
  i: Integer;
  s:string;
begin
s:='%'+'/items/phone/'+'%';
try
  doc:=WebBrowser1.Document as IHTMLDocument2;
  for i:=0 to doc.all.length-1 do
  begin
      if (doc.all.item(i, 0) as IHTMLIMGElement).src=s then
       //edit1.Text:=(doc.all.item(i, 0) as IHTMLIMGElement).fileSize;
         showmessage('1');
  end;
except

end;
end;

Но пишет ошибку: Interface not supported.