htmldoc := self.webbrowser1.Document as IHTMLDocument2;
//获取滚动条高度
MaxScrollHeight := htmldoc.body.getAttribute('ScrollHeight', 0);
向上滚动
//WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, -100); //上
向下滚动
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, MaxScrollHeight); //下