Леонид писал(а):
правда в этом случае он тоже начнёт грузить процессор циклом "а не прошло-ли установленное время?"если сделать по, то уму грузить ничего не будет. Примерно так:
#pas
s := _prop_delay;
repeat
sleep(s);
t := GetTickCount();
// ...event...
s := max(_prop_delay - (GetTickCount() - s), 0);
until ...;