求助！多线程填写web表单为啥报错，怎么处理？

Question

function tianweb(): boolean; stdcall;
begin
form1.wyweb.OleObject.document.getElementsByTagName('TEXTAREA').item.value:=form1.pinglun.Lines.Strings[pinglunindex];
Result :=true;
end;这个函数用主线程就可以填写到web的指定位置，用新建线程就会报错。求解，，，，线程新人。
这个是填写163新闻评论的函数。附163新闻地址一个：http://comment.news.163.com/news_guonei8_bbs/8PRCM1FB0001124J.html另外第二个问题，delphi如何准确判断webbrowser加载完成，包括JS已经下载完毕。多线程webwebbrowserdelphifunction

Answer 1

第二个问题：
http://www.baidu.com/s?wd=delphi%E5%A6%82%E4%BD%95%E5%87%86%E7%A1%AE%E5%88%A4%E6%96%ADwebbrowser%E5%8A%A0%E8%BD%BD%E5%AE%8C%E6%88%90%EF%BC%8C%E5%8C%85%E6%8B%ACJS%E5%B7%B2%E7%BB%8F%E4%B8%8B%E8%BD%BD%E5%AE%8C&rsv_bp=0&rsv_spt=3&inputT=625第一个问题，改天再看。

Answer 2

是TWebBrowser吗？TWebBrowser可以用他的OnDocumentComplete事件第一个问题要看下是报什么错了。

Answer 3

http://bbs.csdn.net/topics/390392208
第二个问题已经解决了  第一个问题 帮解决下吧 大神们 跟上面这个链接一个问题