Задержка

[Syred]

Как сделать задержку в цикле с помощью таймера?

[Terran]

На мой взгляд задержку можно сделать без таймера, будет проще чем с таймером).

Procedure Delay(Ms : Longint);
Var
TheTime : LongInt;
Begin
TheTime := GetTickCount + Ms;
While GetTickCount < TheTime Do
Application.ProcessMessages;
End;

...
Delay(5000);
...

[SERG1980]

sleep(1000)- в милисекундах