Przewinięcie scrolla na wczytanej stronie w TWebBrowser

Potrzebuję przewinąć nieco scrolla na wczytanej stronie w TWebBrowser po czym go wyłączyć by nie był widoczny dla użytkownika i by nawet strzałkami nie dało się go przesunąć.
Wiem, że przesunięcie można wykonać mniej więcej tak:

WebBrowser.oleobject.Document.ParentWindow.ScrollBy(XXX,YYY);

Jednakże jak po tym zablokować i ukryć scrolla?

http://www.swissdelphicenter.ch/en/showcode.php?id=1185

Powiedzmy, że działa:

procedure TForm4.Button1Click(Sender: TObject);
begin
  WebBrowser.Navigate('http://192.168.1.162/');
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
  WebBrowser.oleobject.Document.ParentWindow.ScrollBy(10,30);
  WebBrowser.OleObject.Document.Body.Style.OverflowX := 'hidden';
  WebBrowser.OleObject.Document.Body.Style.OverflowY := 'hidden';
end;

Problem pojawia się gdy chciałbym ustawić to jako jedna funkcja:

procedure TForm4.Button2Click(Sender: TObject);
begin
  WebBrowser.Navigate('http://192.168.1.162/');
  WebBrowser.oleobject.Document.ParentWindow.ScrollBy(10,30);
  WebBrowser.OleObject.Document.Body.Style.OverflowX := 'hidden';
  WebBrowser.OleObject.Document.Body.Style.OverflowY := 'hidden';
end;

Całość też działa dla jednej sesji, a chciałbym by działało zawsze niezależnie od wczytywania strony przez co pomysł nieco dziurawy ;/

Wystarczyło przeczytać komentarz, jak właściwie użyć kod umieszczony na stronie, do której link podałem:

{A page must be loaded into TWebBrowser}

oraz przejrzeć dostępne eventy komponentu TWebBrowser i trochę pomyśleć. Wędkę już dostałeś, rybki nie będzie.