Код скрипта стандартный, как в примерах:
begin
if Sender is TM_Object then // проверяем, что Sender это объект
with Sender as TM_Object do // приводим Sender к типу "TM_Object"
if AsBool = true then // если значение переменной объекта равно 1, то
FlashColor := clRed // включить мигание объекта красным цветом
else // иначе
FlashColor := clNone; // отключить мигание объекта
end.
В проекте действия по доп.переменным убраны. Обошелся вставкой мигающих прямоугольников возле поля. Отображаются при наличии аварии (корректно).
В коде Вы работаете со значением основной переменной, а Вам нужно проверять значение доп. переменной(свойство VariableEx (https://simple-scada.com/help/script/variableex.html)). Правильный скрипт будет таким:
begin
if Sender is TM_Object then // проверяем, что Sender это объект
with Sender as TM_Object do // приводим Sender к типу "TM_Object"
if VariableEx.AsBool = true then // если значение доп. переменной объекта равно 1, то
FlashColor := clRed // включить мигание объекта красным цветом
else // иначе
FlashColor := clNone; // отключить мигание объекта
end.