Ivann, ну так подходящий вариант потом раскомментируется
------------ Дoбавленo в 21.19:
обновил пост с выложенными вариантами (вложил всё в IC и заменил в начале 2-у вариантах ReadInteger(dt, int) на ToIntegerEvent(int))