Frage zu Dokument-höhe im TWebBrowser

[Svenkan]

Hallo Leute!
Ich wollte eine HTML-Datei scrollen lassen und sobald das Ende erreicht ist, soll diese wieder von oben anfangen zu scrollen.

Folgende Testprozedur habe ich:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  WebBrowser1.OleObject.Document.ParentWindow.ScrollTo(0,browser_y);

  if NOT (browser_y+1>WebBrowser1.OleObject.Document.Body.ScrollHeight) then
    browser_y:=browser_y+1
  else if (browser_y=WebBrowser1.OleObject.Document.Body.ScrollHeight) then
    browser_y:=0
  else
    browser_y:=WebBrowser1.OleObject.Document.Body.ScrollHeight;

  Label3.Caption:=IntToStr(WebBrowser1.OleObject.Document.Body.ScrollHeight);
  Label4.Caption:=IntToStr(browser_y);

   Timer1.Interval:=50;
end;

Das Problem ist, dass die Scrollhöhe leider nicht das gewünschte Ergebnis liefert, da diese leider nicht das genaue Ende des Scrollens angibt. Ich möchte aber, sobald die Scrollbar das untere Ende erreicht hat, dass diese wieder direkt nach oben springen soll!
Hat dort jemand eine Idee?