delphi中，如何实现webbrowser的onmousedown。
最近做一个自动填表程序，遇到点问题。

网页文件源码如下：
<div class="photos"><textarea name="content" onmousedown="clearInitContent();this.style.color='#000000';" id="content" wrap="physical" class="write_text" style="color:#999;" ></textarea></div>

其中的onmousedown="clearInitContent();是清除文本框中的提示内容，我想模拟这个鼠标点击事件。请问用delphi怎么实现？

注：我程序中使用的是MSHTML单元。

[解决办法]
做这个工作当然是举一反三了，我那个是直接调函数。实现方法有3种以上。