怎样实现在网页中自动填入数据，然后上传？

{这是一个对百度网页进行输入的例子

 其中的
 kw',0); //获取文本框
 'sb',0);  //获取确定按钮
 是网页元素所对应的id号 ，查看网页源码可以得到
  <input type=text name=wd id=kw size=36 maxlength=100>  这是文本的
  <input type=submit value=百度一下 id=sb>     这是按钮的
  }

unit unit1;

interface

uses
  windows, messages, sysutils, variants, classes, graphics, controls, forms,
  dialogs, stdctrls, olectrls, shdocvw,  mshtml;

type
  tform1 = class（tform)
    webbrowser1: twebbrowser;
    edit1: tedit;
    label1: tlabel;
    procedure edit1change（sender: tobject);
    procedure formcreate（sender: tobject);
    procedure webbrowser1documentcomplete（sender: tobject;
      const pdisp: idispatch; var url: olevariant);
    procedure edit1keypress（sender: tobject; var key: char);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  form1: tform1;
htmlelent_txt,htmlelent_btn:olevariant;

implementation

{$r *.dfm}

procedure tform1.edit1change（sender: tobject);

begin
  htmlelent_txt.value := edit1.text;  //输入值
end;

procedure tform1.formcreate（sender: tobject);
begin
    webbrowser1.navigate（'www.baidu.com');
end;

procedure tform1.webbrowser1documentcomplete（sender: tobject;
  const pdisp: idispatch; var url: olevariant);
begin
 htmlelent_txt := mshtml.ihtmldocument2（webbrowser1.document).all.item（'kw',0); //获取文本框
 htmlelent_btn := mshtml.ihtmldocument2（webbrowser1.document).all.item（'sb',0);  //获取确定按钮
end;

procedure tform1.edit1keypress（sender: tobject; var key: char);
begin
 if key = chr（13) then    htmlelent_btn.click;   //确定

end;

end.