Куда утекает память?
## Код:
```
MODULE TestExcel;

   IMPORT
      CtlT, Excel := CtlExcel9, StdLog, Services;

   TYPE

      Action = POINTER TO RECORD (Services.Action) END;

   VAR
      app: Excel.Application;
      ws: Excel.Worksheet;
      wb: Excel.Workbook;
      action: Action;
      range: Excel.Range;
      N: INTEGER;

   PROCEDURE (action: Action) Do;
   BEGIN
      N:= ws.Range(CtlT.Str("A1"), CtlT.Str("A1")).Value().Int();
      Services.DoLater(action, Services.Ticks() + 1000)
   END Do;

   PROCEDURE Start*;
   BEGIN
      app := Excel.NewApplication();
      app.PUTVisible(TRUE);
      app.PUTDisplayAlerts(FALSE);
      wb := app.Workbooks().Add(NIL);
      ws := Excel.This_Worksheet(wb.Worksheets().Item(CtlT.Int(1)));
      range := ws.Range(CtlT.Str("A1"), NIL);
      range.PUTValue(CtlT.Int(12345));
      NEW(action);
      Services.DoLater(action, Services.now)
   END Start;

   PROCEDURE Stop*;
   BEGIN
      Services.RemoveAction(action);
      action := NIL;
      app.Workbooks().Close();
      ws := NIL;
      wb := NIL;
      app.Quit;
      app := NIL;
   END Stop;
   

END TestExcel.
```


В диспетчере задач наюлюдаю как BB и Excel потихоньку отъедают память (BB съел 100 Мб и на этом не остановился). И такая картина наблюдается при чтении данных из различных объектов при использовании подсистемы Ctl.