Универсальный скрипт можно создать через редактор скриптов, выбрав в списке событий тип "Универсальный скрипт":
Описание
Универсальный скрипт можно назначить на простые события любого объекта в проекте. Данный скрипт можно использовать для следующих событий объекта: OnClick, OnDblClick, OnMouseUp, OnDataChange, OnDataChangeEx, OnDoneInput, OnActivate, OnDeactivate. Подробнее о универсальных скриптах можно прочесть в разделе "Типы скриптов".
Пример скрипта
С другими примерами универсальных скриптов можно ознакомиться в разделе "Примеры скриптов".
// данный скрипт можно применить к любому объекту
begin
if Sender is TM_Object then // проверяем, что Sender это объект
with Sender as TM_Object do // приводим Sender к типу "TM_Object"
if AsInt = 1 then // если значение переменной объекта равно 1, то
Color := clGreen // изменить цвет объекта на зеленый
else // иначе
Color := clRed; // изменить цвет объекта на красный
end.