Процедура Delay

Приостанавливает выполнение программы на заданное число миллисекунд (пауза, задержка).

Объявление:

Procedure Delay(MS : Word);

Режим:

Real, Protected

Замечание:

Параметр MS - число миллисекунд.

Время, на которое процедура Delay задерживает выполнение программы является приближенным значением параметра MS, так что задержка не будет длиться ровно MS миллисекунд.

Например, Delay(1000) не будет задерживать программу ровно на 1 секунду.

Пример:

Uses Crt;
Var i,j:Integer;

Begin
 For i:=1 to 10 do
  Begin
    ClrScr;
    Write('LOADING');
    For j:=1 to 5 do
     Begin
       Write('.');
       Delay(50000);
     End;
    Delay(30000);
  End;
 ClrScr;
 WriteLn('Press any key to exit');
 Repeat Until KeyPressed
End.