Почему процедура Delay() на разных машинах генерирует разные временные задержки?

Модуль CRT криво написан. Если достаточна точность в 1 тик (1/18 доля секунды), то можно использовать такую процедуру:

procedure Delay(x:longint); {пауза на Х тиков} var l:longint; begin   l := MemL[Seg0040:$6c];   while MemL[Seg0040:$6c] < l+x do; {задержка на X тиков} end;