Delphi WebBrowser 使滚动条滚动到底部

网上的代码不好使，下面是经过改正的：

(webbrowser1.Document as IHTMLDocument2).parentWindow.scrollTo(0,((webbrowser1.Document as IHTMLDocument2).body as HTMLBody).scrollHeight);