tsdima, заменил hiVBJScript.pas, пример работает.
Спасибо за поддержку.

Появился вопрос. Чем отличается sys.CreateObject от CreateObject , я так понял этот метод позволяет таки получить события от обьекта.