Scrollen im TWebBrowser

[toms]

Delphi-Quellcode:

function WB_ScrollTo(WB: TWebBrowser; Position: TWBPosition): Boolean; 
var 
  ParentW: OLEVariant; 
begin 
  Result := WB.Document <> nil; 
  if Result then 
  begin 
    ParentW := WB.OleObject.Document.ParentWindow; 
    case Position of 
      wbPosBottom: ParentW.ScrollTo(0, ParentW.Screen.Height); 
      wbPosTop: ParentW.ScrollTo(0, 0); 
      wbPosRight: ParentW.ScrollTo(ParentW.Screen.Width, 0); 
    end; 
  end; 
end; 

// Example: Scroll to the bottom of the document: 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  WB_ScrollTo(WebBrowser1, wbPosBottom); 
end;

Feststellung: ParentW.Screen.Height wird maximal 864 Gross, egal wie Gross (Hoch) das geladene Dokument ist.
Wie kann man zuverlaessig ganz nach unten scrollen?