Ereignis von OnDownloadComplete bei Browser-Instanz?

[toms]

Delphi-Quellcode:

procedure WaitForBrowser(WB: TWebbrowser);
begin
  while (WB.ReadyState <> READYSTATE_COMPLETE)
    and not (Application.Terminated) do
  begin
    Application.ProcessMessages;
    Sleep(50);
  end;
end;


procedure TBrowser.Button6Click(Sender: TObject); 
begin 
  Animate1.Active := True; 
  (PageControl1.ActivePage.Controls[0] as TWebBrowser).Navigate(ComboBox1.text); 
  ComboBox1.Items.Add(ComboBox1.Text); 
  WaitForBrowser(PageControl1.ActivePage.Controls[0] as TWebBrowser);
  //<--- und hier soll nach Laden der Seite die Animation wieder 
  //gestoppt werden. 
  Animate1.Active := False; 
end;