求助。关于自动填写网页表单，遇到了Combobox那种下拉菜单怎么办(100分)

遇到大头题 T_T

做个自动提交的东西，文本框和提交都没有啥问题，就是遇到了该死的combobox不知道咋整了……谁能伸出援手。

这是最简单的填写文本框和自动submit的代码：

procedure TForm1.Button1Click(Sender: TObject);
var
DOC:IHTMLDocument2;
input:OleVariant;
mail:ihtmlinputelement;
begin
doc:=webbrowser1.document as ihtmldocument2;
mail:= (doc.all.item('email',0) as ihtmlinputelement);
mail.value:= 'fidora@sina.com';
input:=doc.all.item('submit',0);
input.click;
end;


——————————————————————————

期待阁下的赐教 T_T

以解决~~请问怎么结贴？

怎么解决的