如何禁用TWebBrowser上下文菜单？

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  WebBrowser2: IWebBrowser2;
  WebBrowser2Document: OleVariant;
begin
  if Supports(WebBrowser1.DefaultInterface, IWebBrowser2, WebBrowser2) then
  begin
    WebBrowser2Document := WebBrowser2.Document;
    if VarIsObject(WebBrowser2Document) then
    begin
      WebBrowser2Document.QueryInterface(IWebBrowser2, WebBrowser2);
      WebBrowser2.RegisterAsBrowser := True;
      WebBrowser2.Silent := True;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('about:blank');
end;