如何自动给网页中的TextArea填写内容

[hyj_it]

用WEBBROWSER控件取得网页后
自动向网页中的文本框填写内容
<TEXTAREA id=chatInput>要填写内容的位置</TEXTAREA>
请高手指点，请给出可执行代码，谢谢，WAITTING ………………

[lengyang]

procedure TForm1.Button2Click(Sender: TObject);
var
Doc:IHTMLDocument2;
input:OleVariant;
TT:ihtmlinputelement;

begin
doc:=webbrowser1.document as ihtmldocument2;
tt:=(doc.all.item('chatInput',0) as ihtmlinputelement);
tt.value:=edit1.text;



end;