delphi：webbrowser做浏览器时，获取当前网页缩放比率
如题，应该怎么做呢？
下面是我找到的一些代码：
[IE编程] WebBrowser控件中设置页面的缩放 收藏
如果你的程序中使用WebBrowser控件并且希望有和IE 一样的页面缩放功能（如下图），可以通过向IWebBrowser2 发送 OLECMDID_OPTICAL_GETZOOMRANGE，OLECMDID_OPTICAL_ZOOM 命令来实现。 示例代码如下：
获取当前缩放比例：
CComVariant varZoom;
spWebBrowser->ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, NULL, &varZoom);
ASSERT(V_VT(&varZoom) == VT_I4);
ULONG ulZoom = V_I4(&varZoom); // 当前缩放比例， 100 表示100%，即原始尺寸
我改了代码，执行了，会显示：试图吊销一个为注册....
怎么把它改为正确的delphi代码？
分不多，帮帮忙
[解决办法]
MyTemWB.OleObject.Document.Body.Style.Zoom
可读可写
