Нагрузка процессора 100%

[ADEX]

Мне нужно приостанавливать выполнение программы каждые 10 секунд. Написал такой таймер:

Код: Выделить всё

oldTime:=Time;
repeat
   begin
   newTime:=Time;
   x:=newTime-oldTime;
   if x<0 then x:=10;
   end;
until x>=10;

Time - это функция, возвращающая системное время.

После компиляции в Freepascal программа нагружает процессор на 100%, а если компилировать в Borland Pascal 5.5, то около 20%. Borland Pascal не годится из-за другой причины (win32).
Посоветуйте, пожалуйсто, как оргнизовать таймер.

Спасибо!

[ushakov]

Есть такая функция, Sleep(<кол-во миллисекунд>)

[Dmitry]

1. Используй процедуру Delay() из модуля Crt.
2. Используй процедуру Sleep() из модуля SysUtils.

[Sniper]

или GetTickCount() из windows

[ev]

2 ADEX
твой пример не является таймером
он не переводит компьютер в ожидание, а постоянно производит вычисления (получает время и сравнивает)