[cyborgg4655]

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  doc: IHTMLDocument2;
  i: Integer;
begin
try
  doc:=Wb.Document as IHTMLDocument2;
  for i:=0 to doc.all.length-1 do
  begin
      if (doc.all.item(i, 0) as IHTMLInputFileElement).name='image' then
      begin {1}
       //(doc.all.item(i, 0) as IHTMLInputFileElement).value:='c:\1.JPG';
         showmessage('1');
      end;{1}
  end;
except

end;
end;

Ругается, говорит Interface not Supported. в чем проблема?