Delphi如何实现网页表单数据的自动提交?（关于下拉框）(10分)

请问在Delphi中如何用程序实现选中下拉框中的内容？
这是html的内容如下：
<br>
帐号类型
<select name=&quot;userType&quot; class=form-box4>
<option value=&quot;&quot;>-请选择-</option>
<option value=&quot;2&quot;>宽带帐号</option>
<option value=&quot;card&quot;>会员卡用户</option>
<option value=&quot;0&quot;>注册用户</option>
<option value=&quot;alias&quot;>帐号别名</option>
</select>
<br>

在select的onselect事件加一个处理函数进行提交，代码如下：
<select name=&quot;userType&quot; class=form-box4 onselect=submit>
<option value=&quot;&quot;>-请选择-</option>
<option value=&quot;2&quot;>宽带帐号</option>
<option value=&quot;card&quot;>会员卡用户</option>
<option value=&quot;0&quot;>注册用户</option>
<option value=&quot;alias&quot;>帐号别名</option>
</select>
在frontpage中能看到select的候选事件

能不能说的具体一点？最好是能给出一段程序代码来。

[]没有人知道吗？

有高手解答一下吗？

var
I: Integer;
s: string;
myitem: Olevariant;
begin
myitem := WebBrowser1.Document;

for i := 0 to myitem.all.length - 1 do
begin
if myitem.all.item(i).tagName = 'SELECT' then
begin
if Uppercase(myitem.all.item(i).type) = 'SELECT-ONE' then
begin
if Uppercase(myitem.all.item(i).name) = 'USERTYPE' then
myitem.all.item(i).selectedIndex := 1;//在这儿指定你要选择的行
end;
end;
end; //for i
end;

用IDHTTP.post，找点资料看吧，手头没现成的代码

procedure TForm1.Button4Click(Sender: TObject);
var
ovDoc, ovForms, ovForm, ovInput: OleVariant;
doc:ihtmldocument2;
input:ihtmlinputelement;//可以根据网页中文本框的情况定义多个
select:ihtmlselectelement;//同上，这个是针对复选框
submit:OleVariant;
I, J : Integer;
begin
if FDownComplete=false then Application.MessageBox('网页正在下载中，请稍后……', '提示', MB_OK + MB_ICONINFORMATION)
else begin
try
ovDoc := WebBrowser1.Document;
ovForms := ovDoc.all.tags('FORM');
for I := 0 to ovForms.length -1 do begin
ovForm := ovForms.item(I);
doc:=webbrowser1.Document as ihtmldocument2;
input:=doc.all.item('username',0) as ihtmlinputelement;
input.value:='风暴';//txt填写
input:=doc.all.item('email',0) as ihtmlinputelement;
input.value:='fengbao@123.com';//txt填写
input:=doc.all.item('phone',0) as ihtmlinputelement;
input.value:='12312312312';//txt填写
input:=doc.all.item('company',0) as ihtmlinputelement;//company selecte的name
input.value:='12312312312';//txt填写
select:=doc.all.item('sex',0) as ihtmlselectelement;
select.selectedindex:=2;//selecte填写 选择第二项
select:=doc.all.item('age',0) as ihtmlselectelement;
select.selectedindex:=2;//selecte填写 选择第二项
select:=doc.all.item('province',0) as ihtmlselectelement;
select.selectedindex:=2;//selecte填写 选择第二项
select:=doc.all.item('industry',0) as ihtmlselectelement;
select.selectedindex:=2;//selecte填写 选择第二项
select:=doc.all.item('headship',0) as ihtmlselectelement;
select.selectedindex:=2;//selecte填写 选择第二项
//submit:=doc.all.item(网页中提交按钮的名字,0);
ovForm.submit;
end;
except
FDownComplete := False;
end;
end;

自己写WebBrowser