Automation и EVENT

[InTacto]

Может вы не тот экземпляр приложения закрываете.
У меня тоже появились эвенты перенес переменый из локальных в глобальные />/>/>

Name	DataType	Subtype	Length
xlApp2	Automation	'Microsoft Excel 12.0 Object Library'.Application	
xlWrkbook2	Automation	'Microsoft Excel 12.0 Object Library'.Workbook	
a	Automation	'Microsoft Excel 12.0 Object Library'.Range	


// код кнопки открытия файла
CLEAR(xlApp2);
CREATE(xlApp2,TRUE);
xlApp2.Visible := TRUE;

//xlWrkbook2 := xlApp2.Workbooks.Add;
xlWrkbook2 := xlApp2.Workbooks.Open('Путь до файла');
a := xlApp2.ActiveCell;


//код эвента
xlApp2::WorkbookBeforeClose(Wb : Automation "'Microsoft Excel 12.0 Object Library'.Workbook";VAR Cancel : Boolean)
MESSAGE('1');

Когда закрываю книгу или приложения, то выводится "1"
Пробовал создавать книгу и на эвенте создания выводил название книги - тоже робит.