Регистрация | Вход
while true dobegin if Trigger1 then Do1; if Trigger2 then Do2; if Trigger3 then Do3; <...>end;
repeat for F in Functions do if F.Triggered then F.Invoke; // вызываем функции RebuildFunctions(Functions); // по необходимости переделываем SortByType(Functions); // сортируем: всех чтецов наверх!until false;