Как увеличить TWebBrowser при использовании Ctrl+Колесо мыши, как это делает Internet Explorer?

Согласно

http://www.rendelmann.info/blog/CommentView,guid,356fbe68-3ed6-4781-90a4-57070a0141da.aspxиhttp://msdn.microsoft.com/en-us/library/aa770056(v=vs.85 ).aspx

для масштабирования размещенного веб-браузера с помощью клавиши управления и колесика мыши достаточно вызвать IWebBrowser2.ExecWB(OLECMDID_OPTICAL_ZOOM,...)со значением pvaIn100,
но после звонкаCtrl + колесико мыши по-прежнему не масштабирует содержимое

Код, который я использую с Delphi 2007:

const
  OLECMDID_OPTICAL_ZOOM = 63;
var
  pvaIn, pvaOut: OleVariant;
begin
  pvaIn := 100;
  pvaOut := NULL;
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_OPTICAL_ZOOM,
    OLECMDEXECOPT_DONTPROMPTUSER, pvaIn, pvaOut);
end;