Работа с GraphWorX32 из внешнего приложения.

Добрый день.
подскажите как можно получать сообщения от GraphWorX32 во внешнее приложение.
Пробовал два варианта:
1. из VBA
Public WithEvents gwx As GwxDisplay
Sub test()
Set GWX = CreateObject("Gwx32.display") -
при таком объявление возникает ошибка

Dim gwx As Gwx32.GwxDisplay
Set gwx = New Gwx32.GwxDisplay
при таком объявление все запускается, но события не вызываются

gwx.FileNew
gwx.FileOpen ("test.gdf")
gwx.ShowWindow
gwx.StartRuntime
End Sub

Public Sub GWX_DisplayLoad()
MsgBox ("DisplayLoad")
End Sub

Private Sub gwx_PostRuntimeStart()
MsgBox ("PostRuntimeStart")
End Sub

Private Sub GWX_PreAnimateDisplay()
MsgBox ("DisplayLoad")
End Sub

Public Sub Workbook_Open()
test
End Sub

2. вариант из Delphi
TGwxDisplay = class(TOleServer) //определен в GWX32_TLB
....
procedure OnDisplayLoadEvent(Sender: TObject);
...

var
FGWXOleObject: TGWXDisplay;
...
FGWXOleObject := TGwxDisplay.Create(Self);
FGWXOleObject.OnDisplayLoad := OnDisplayLoadEvent;
дальше работа с загрузкой файлов и т.д.
все работает кроме событий

Вопрос: как собственно получить эти события?

Dismay
Цель задачи - управлять окнами GraphWorX32 из внешнего приложения. Сейчас все делаю через Hook. Но хотелось бы получить именно события. Просто в коде TLB от GraphWorX32 события есть, но получить их не получается.