200分 一个关于使用webbrowser控件的问题(100分)

我在写一个程序中使用了webbrowser控件，我需要不断的往webbrowser里写东西
可是里面内容太多的时候，它不会自动的往下滚，也就是说看不见webbrowser里
最底端的内容，请问有什么办法可以做到。

uses Mshtml;

procedure TForm1.Button1Click(Sender: TObject);
var
Doc2 : IHTMLDocument2;
WBHeight : Integer;
begin
Doc2 := WebBrowser1.Document as IHTMLDocument2;
WBHeight := Doc2.body.getAttribute('ScrollHeight', 0);
Doc2.Get_ParentWindow.ScrollBy(0, WBHeight)
end;

直接選擇即可。

IHtmlInputElement.select;

接受答案了.