Как правильно моргать объектом?

[Timur007]

Есть переменная типа int, каждый бит переменной используется как статус объекта. Необходимо начать моргать объектом, определенным цветом когда бит = 1 и перестать моргать когда бит = 0. Сейчас написал скрипт

Код

begin
  if GetBit(Image6.AsInt, 4) then
    Image5.FlashColor := clGreen;      
end.

Объект начинает моргать если бит устанавливается в 1 и потом уже не перестает моргать, даже если бит = 0.
Как остановить моргание?

[Simple-Scada]

Это потому, что Вы включаете моргание цветом, но не выключаете его. Правильный скрипт должен быть таким:

Код

if GetBit(Image6.AsInt, 4) then
  Image5.FlashColor := clGreen
else
  Image5.FlashColor := clNone;

[Timur007]

Благодарю!