{A page must be loaded into TWebBrowser} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  WebBrowser1.OleObject.Document.Body.Style.OverflowX := 'hidden'; 
  WebBrowser1.OleObject.Document.Body.Style.OverflowY := 'hidden'; 
end;