// Scroll up procedureTForm1.Button1Click(Sender: TObject); begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, -100); end
;
// Scroll left procedureTForm1.Button3Click(Sender: TObject); begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(-100, 0); end
;
// Scroll down procedureTForm1.Button2Click(Sender: TObject); begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, +100); end
;
// Scroll right procedureTForm1.Button4Click(Sender: TObject); begin
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(+100, 0); end
;