Hvordan kan jeg være sikke på at TWebBrowser har loaded alt ?

Jeg skal have fundet en metode til at checke om min TWebBrowser component har downloadet alt, inklusiv frames.
Jeg HAR forsøgt mig med det forslag der er i hjælpen til komponenten. Det virker bare ikke ... Hele siden er ikke helt downloadet når (pDisp = CurDispatch) .. den kaldes faktisk et par gange mere senere.
-----
var
  CurDispatch: IDispatch; {save the interface globally }
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var
URL: OleVariant);
begin
  if CurDispatch = nil then
    CurDispatch := pDisp; { save for comparison }
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  if (pDisp = CurDispatch) then
  begin
    Beep; {the document is loaded, not just a frame }
    CurDispatch := nil; {clear the global variable }
  end;
end;
-----

TWebBrowser1.OnDownloadComplete kan heller ikke bruges.
ReadyState property heller ikke .. har ellers forsøgt mig med ReadyState = EADYSTATE_COMPLETE.

mvh
Flemming