Спасибо за подсказку в ответе по Таймеру (использовать Поток). Шаг по времени получается чуть более 1 мсек, но не стабильный, что, собственно, и следовало ожидать. Можете ли попробовать применить API функцию GetProcessTime (говорят, у нее шаг 0,1 мксек), а еще лучше попробуйте добраться (ведь в Паскале есть встроенный Ассемблер) до счетчика машинных тактов. В этом случае можно получить шаг 1/частота процессора, т. е. порядка десятка наносекунд!