[ksandr]

Народ доброго времени суток. Помогите в одной проблеме, всю голову сломал. Проблема простая, но почему то не хочет решаться. Есть такой код

IF NOT CREATE(xlApp,TRUE) 
 THEN
  ERROR(Text000);

FileName := CommonDialogMgt.OpenFile(Text001,FileName,2,'',0);
IF NOT EXISTS(FileName) 
 THEN
  ERROR(Text002);

xlApp.Application.Workbooks.Open(FileName);
xlWorkBook := xlApp.Application.ActiveWorkbook;

xlWorkSheet := xlWorkBook.Worksheets.Item('----');
XlRange := xlWorkSheet.Cells().Item(2,1);
.....


  xlWorkBook.Close(TRUE);
  xlApp.Application.Quit;
   
   
   CLEAR(xlWorkSheet);
   CLEAR(xlWorkBook);
   CLEAR(xlApp);

Так вот если код по выгрузке Excel поставить до xlRange то сессия закрывается нормально, но если в коде стоит строчка с xlRange, то сессия Excel остаётся висеть в диспетчере задач. В чём засада понять не могу