Как сделать повтор события?

[Пепел Феникса]

Sleep - количество ... таймера. Чем мощнее компьютер, тем быстрее будет работать такая программа.

нет, он зависит от системного таймера, а от мощности компа зависит его точность и не более.

Sleep напрочь останавливает выполнение программы...

поправлю, потока.
Если там организованы потоки А я всего лишь перевел с бусурманского. Там написано "Sleep pauses program executions"...

Если использовать крит секцию в sleep то программа дальше будет жить, а ход програмы продолжится когда sleep её отпустит

а зачем тут крит секция? поток итак будет продолжен когда слип кончится.

[hon]

Сообщение от Пепел Феникса

нет, он зависит от системного таймера, а от мощности компа зависит его точность и не более.
поправлю, потока.
Если там организованы потоки А я всего лишь перевел с бусурманского. Там написано "Sleep pauses program executions"...
а зачем тут крит секция? поток итак будет продолжен когда слип кончится.

Ну извините, ложная информация в инете

[Хамяг]

можно запихнуть sleep в отдельный поток... вот только через таймер тогда проще всё равно получается.

[tred]

procedure TForm1.TimePause(dwMilliseconds: int);
begin
  iStart := GetTickCount;
  repeat
    iStop := GetTickCount;
      Application.ProcessMessages;
  until (iStop - iStart) >= DWORD(dwMilliseconds);
end;

// выше код таймера

примерная схема цикла
pereat
-- ваш код
TimePause(s);// s - милисекунды, (10000)=10секунд
until -- условие выхода из цикла