Скрипты Simple-Scada

begin
  if Image1.AsInt = 1 then       // если значение переменной изображения = 1, то
    Image1.FlashColor := clRed   // включить мигание изображения красным цветом
  else                           // иначе
    Image1.FlashColor := clNone; // отключить мигание изображения
end.

begin
  if Sender is TM_Object then   // проверяем, что Sender это объект
    with Sender as TM_Object do // приводим Sender к типу "TM_Object"
      if AsInt = 1 then         // если значение переменной объекта равно 1, то 
        FlashColor := clRed     // включить мигание объекта красным цветом
      else                      // иначе
        FlashColor := clNone;   // отключить мигание объекта
end.

begin
  // отключаем мигание в начале скрипта - таким образом не нужно будет 
  // отдельно отключать мигание для каждого условия ниже
  Image1.FlashColor := clNone;
  case Image1.AsInt of              // если значение переменной равно:
    1 : Image1.Color := clYellow;   // 1 - изменить цвет на желтый
   // 2 – изменить цвет на "без цвета" - для того, чтобы мигание было только 
   // зеленым цветом, а не с желтого на зеленый   
    2 : 
    begin
      Image1.Color := clNone; 
      Image1.FlashColor := clGreen; // включить мигание зеленым цветом
    end;
    3 : Image1.Color := clBlue;     // 3 – изменить цвет на синий
  end;
end.

begin
// Sender - это объект, который вызвал скрипт(например поле, изображение и т.д.) 
  if Sender is TM_Object then     // проверяем, что Sender это объект
    with Sender as TM_Object do   // приводим Sender к типу "TM_Object" 
    begin
    // отключаем мигание в начале скрипта - таким образом не нужно будет
    // отдельно отключать мигание для каждого условия ниже 
      FlashColor := clNone;
      case AsInt of              // если значение переменной равно:
        1 : Color := clYellow;   // 1 - изменить цвет на желтый
       // 2 – изменить цвет на "без цвета" - для того, чтобы мигание было только 
       // зеленым цветом, а не с желтого на зеленый 
        2 : 
        begin
          Color := clNone; 
          FlashColor := clGreen; // включить мигание зеленым цветом
        end;
        3 : Color := clBlue;     // 3 – изменить цвет на синий
    end;  
  end;
end.