> -- Иван Денисов писал(а):
> А какое тут решение в итоге? Не совсем понятно из этих двух сообщений...

Разобрался.
Добавляется строкаt.v.tc := NIL;вот в эту процедуру.
## Код:
```
PROCEDURE (t: TrapCleaner) Cleanup;
  BEGIN
    t.v.tc := NIL;
    t.v.Reset
  END Cleanup;
```
