Скрипты Simple-Scada

begin
  { если значение переменной (в виде целого числа), 
    которая связана с изображением больше нуля, то }
  if Image1.AsInt > 0 then 
    Image1.AnimSpeed := 16 // запустить анимацию
  else                     // иначе
    Image1.AnimSpeed := 0; // остановить анимацию
end.

begin
  if Sender is TM_Image then   // проверяем, что Sender это изображение
    with Sender as TM_Image do // приводим Sender к типу "TM_Image"
 { если значение переменной (в виде целого числа), 
   которая связана с изображением больше нуля, то }
      if AsInt > 0 then 
        AnimSpeed := 16        // запустить анимацию
      else                     // иначе
        AnimSpeed := 0;        // остановить анимацию
end.

Как можно заметить, в универсальном скрипте есть дополнительные проверки. Так как Sender это заранее неизвестный объект и в него может быть подставлен любой объект проекта, то сначала необходима проверка, в которой нужно убедиться, что Sender это изображение. После этого можно работать с объектом Sender, как с изображением. Кстати, строчку "with Sender as TM_Image do" можно удалить, но тогда придется везде приводить Sender к типу "TM_Image" самостоятельно, вот так:

begin
  { проверяем, что скрипт вызван объектом "Изображение" }
  if Sender is TM_Image then
    if TM_Image(Sender).AsInt > 0 then
      TM_Image(Sender).AnimSpeed := 16
    else
      TM_Image(Sender).AnimSpeed := 0;
end.

Обращаем внимание, что нельзя написать просто: "Sender.AnimSpeed := 16;", так как свойство AnimSpeed не является свойством класса "TM_Control". Оно есть только у изображений (TM_Image). А для работы со свойствами класса "TM_Control" не требуется приводить Sender к какому-либо типу и можно работать напрямую, например: "Sender.Visible := False;" или "Sender.Color := clRed;".