怎么去掉webbrowser1中右边的滚动条？ ( 积分: 100 )

怎么去掉webbrowser1中右边的滚动条？

procedure TForm1.FormCreate(Sender: TObject);
begin
//虚拟打开一个页面
WebBrowser1.Navigate('http://www.google.com');
end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
//取消滚动条
WebBrowser1.OleObject.document.body.style.overflow := 'hidden';
end;

谢谢！