type
  TMyWebBrowser = class(SHDocVw.TWebBrowser)
  protected
    procedure InvokeEvent(DispID: TDispID; var Params: TDispParams); override;
  end;

implementation

{ TMyWebBrowser }

procedure TMyWebBrowser.InvokeEvent(DispID: TDispID; var Params: TDispParams);
begin
  if DispID = 259 then
  begin
    // DocumentComplete event (don't forget to call "inherited;",
    // if you want to fire the default OnDocumentComplete event)
    // Params[0] {const IDispatch}
    // Params[1] {const OleVariant}
  end
  else
    inherited;
end;