Здравствуйте.

Да, все верно. Если объектов "Текст", для которых нужно изменять цвет несколько, то лучше написать один универсальный скрипт и использовать его для всех объектов.
Код:
begin
  if Sender is TM_Text then     // проверяем, что Sender это текст
    with Sender as TM_Text do   // приводим Sender к типу "TM_Valve"
      case AsInt of   // меняем цвет в зависимости от значения переменной объекта
        0 : Color := clGray;
        1 : Color := clGreen;
        2 : Color := clYellow;
        3 : Color := clRed;
      end;
end.
Другие примеры универсальных скриптов можно найти по ссылке.