如何自动选择网页中的下拉框(100分)

如题

说具体点

注册邮箱时要选一些如行业等，能否让程序自动选

下面是一个例子，以 注册网易通行证中的一步(http://reg4.163.com/Register.jsp) 为例
uses
MSHTML, SHDocVw;

procedure TForm1.Button1Click(Sender: TObject);
var
Shell: TShellWindows;
i: Integer;
Doc: OleVariant;
begin
Shell:=TShellWindows.Create(Nil);
try
for i:=0 to Shell.Count-1 do //遍历每一个Windows的IE窗口
begin
try
Doc:=(Shell.Item(i) as IWebBrowser2).Document; //如果不是IE窗口，下面的操作会发生异常
if SameText(Doc.url,'http://reg4.163.com/Register.jsp') then //这里判断URL以选择具体的IE窗口
begin
Doc.form.industry.value:='信息产业'; //将指定的表单(form)中的下拦框(industry)选择想要的值
Exit;
end;
except
end;
end;
finally
Shell.Free;
end;
end;

接受答案了.