Зануляет. Ср. HALT(0) после manager.AddSubscriber(mySubscriber)
Надо смотреть дальше...
Вложение:
Снимок-1.png [ 46.18 КБ | Просмотров: 9049 ]

P.S. скриншот из 1.6rc6

upd: запорчены сразу внутри PROCEDURE (VAR M: SubscriberManager) DeliverMessage* (m: Message; p: Parameter), NEW;
Подозрение вызывает параметр-значение p: Parameter, т.к. Parameter --- пустая запись.

upd2: Добавил поле:  Parameter* = RECORD(Object) x: INTEGER END;
Ошибка пропала.