Аналог таймеру
Как ещё можно сделать задержку выполнения программы?
TimerEnable - глобальная переменная, показывает включён ли "таймер". var h:Thandle; begin h:=CreateEvent(nil,true,false,nil); while TimerEnable do begin //нужные действия whaitForSingleObject(h,1000); //1000 - интервал таймера end; end;
