begin
if Дискретная переменная.AsInt = 1 then
Имя Вашего поля с аналоговой переменной.Color := RGB(255,0,0)
else
Имя Вашего поля с аналоговой переменной.Color := RGB(255,255,255)
end.
Добавляем любой объект на схему и присваиваем ему дискретную переменную
К вновь добавленному объекту присваиваем скрипт OnDataChange
Добавляем любой объект на схему и присваиваем ему дискретную переменнуюЭтот объект добавляется помимо уже существующего поля с "аналоговым" тегом.