В процессе решения некоторых задач возникает потребность задержки выполнения операций. Для этих целей нам подойдет функция Sleep(N), где N это число миллисекунд - длительность паузы.

Давайте вспомним пример, где мы разбирали метод Delphi ProcessMessages. Мы добавим "Начальное значение", которое без дополнительной задержки мы бы и не разглядели и саму задержку на полторы секунды, строка - Sleep(1500).

procedure TForm1.Button1Click(Sender: TObject);
var
   I : Integer;
begin
   Label1.Caption := 'Начальное значение';
   for I := 1 to 15 do
    begin
     Application.ProcessMessages;
     Label1.Caption := 'Значение равно ' +IntToStr(I);
     Sleep(1500);
    end;
end;

Итог: мы изучили функцию Sleep и как ее использовать в приложении.