Scrollen im TWebBrowser

[GoTo0815]

Hallo,

habe folgendes Problem beim Ausprobieren von folgendem zwei WebBrowsern.
Ich habe beide auf ein kleine Form gelegt und möchte Sie so scrollen lassen, dass immer der Aktuelle Dollarkurs angezeigt wird. Bei der Süddeutschen Zeitung funktioniert das, aber bei comdirect nicht.
Gruß

Hendrik

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate('http://finanzen.sueddeutsche.de/c_cmp.php?sec_id=1000075798');
 WebBrowser2.Navigate('http://www.comdirect.de');
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  OleVariant(WebBrowser1.Document as IHTMLDocument2).Body.ScrollTop := 400;
  OleVariant(WebBrowser1.Document as IHTMLDocument2).Body.ScrollLeft := 200;
end;

procedure TForm1.WebBrowser2DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  OleVariant(WebBrowser2.Document as IHTMLDocument2).Body.ScrollTop := 400;
  OleVariant(WebBrowser2.Document as IHTMLDocument2).Body.ScrollLeft := 600;
end;