uses MSHTML;
var
    a: IHTMLDocument2;
    x,y:Integer;
begin
    y:=y+20;   //加减进行上下滚动
    a :=WebBrowser1.Document as IHTMLDocument2;
    a.Get_ParentWindow.Scroll(x,y);
end;