title: Event is not getting fired
body: <p>I am trying to use the <code>WebWorkerStarted</code> and <code>WebWorkerFinished</code> from <code>TWebbrowser</code> however the events just don't get fired at all.</p>
  
  <p>How can I get these events working? I want to see which worker threads are getting launched from <code>TWebbrowser</code>.</p>
  
  <pre><code>unit Unit2;
  
  interface
  
  uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw;
  
  type
    TForm2 = class(TForm)
      WebBrowser1: TWebBrowser;
      Button1: TButton;
      procedure Button1Click(Sender: TObject);
      procedure WebBrowser1WebWorkerFinsihed(ASender: TObject; dwUniqueID: Cardinal);
      procedure WebBrowser1WebWorkerStarted(ASender: TObject; dwUniqueID: Cardinal; const bstrWorkerLabel: WideString);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
  
  var
    Form2: TForm2;
  
  implementation
  
  {$R *.dfm}
  
  procedure TForm2.Button1Click(Sender: TObject);
  begin
    WebBrowser1.Navigate('www.stackoverflow.com');
  end;
  
  procedure TForm2.WebBrowser1WebWorkerFinsihed(ASender: TObject; dwUniqueID: Cardinal);
  begin
    // does not fire
  end;
  
  procedure TForm2.WebBrowser1WebWorkerStarted(ASender: TObject; dwUniqueID: Cardinal; const bstrWorkerLabel: WideString);
  begin
    // does not fire
  end;
  
  end.
  </code></pre>