如何用delphi的webbrowser在<textarea></textarea>中提交内容？？？？？

Question

！<textarea...>...提交内容</textarea>
<textarea name="offer.description" rows="12" cols="100" id="d" style="width: 100%;"   >内容输入的地方</textarea>如何用delphi的webbrowser在这个地方输入内容啊？？
写个演示的代码最好！先谢谢了！！！

Answer 1

s.htm: 
<textarea...>...提交内容  </textarea>  
<textarea name="offer.description" rows="12" cols="100" id="d" style="width: 100%;"   >内容输入的地方  </textarea>  
Delphi: 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'s.htm'); 
end; procedure TForm1.Button1Click(Sender: TObject); 
begin 
WebBrowser1.OleObject.document.all.item('offer.description',0).value:='用Delphi控制Web是我的强项！'; 
end;