[Hunter US]

Доброго времени суток уважаемые кодеры.
Помогите пожалуйста: незнаю как поставить задержку выполнения кода програмы в 5 секунд. Заранее спасибо.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,x:integer;
begin
  label1.Font.Color:=clgreen;
 x:=600000;
 for i:=0 to x do
  begin
   ProgressBar1.Position:=round(100*i/x);
  end;
  if Edit1.Text='123' then
   Begin
ModalResult:=mrOk;
MainForm.show;
     end
       else
   begin
    label1.Font.Color:=clred;
    label1.Caption:='Невірний пароль!';
//Как поставить задержку выполнения????
    ProgressBar1.Position:=0;
   end;