delphi webbrowser模拟鼠标调用JS超链接

[younerest]

最近公司要用delphi的webbrowser插件模拟鼠标调用URL，有一段网页超链接的源代码如下：
<DIV class=dTreeNode><IMG alt="" src="images/join.gif"><IMG id=itree1 alt="" src="images/2j1.gif"><A id=stree1 class=node onclick="javascript: tree.s(1);" href="comm/sms.jsp" target=welcome>发送短信</A></DIV>

我现在想请教各位大侠一下，在delphi中，如何模拟鼠标在网页上点击"发送短信"这个超链接。

[bdmh]

http://blog.csdn.net/bdmh/article/details/6069485

[我看见佛]

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
//这里面可以根据URL进行截取判断
end;

[s11ss]

WebBrowser1.OleObject.document.getElementById('stree1').click();