Есть модуль unit HTime; {hi-resolution timer} interface procedure InitHTimer; function HTimer:LongInt; {Таймер с разрешением 0.8383...
Имена участников (разделяйте запятой).