[cyborgg4655]

До элемента я добираюсь, проверял Showmessage'ем.

Код:

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 IHTMLElement).id='fld_images' then
      begin {1}
       (doc.all.item(i, 0) as IHTMLInputFileElement).value='c:\1.JPG';
        // showmessage('1');
      end;{1}
  end;
except

end;
end;

А вот файл туда впихнуть непоулчается((