[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;

[cotseec]

вариант обсуждения

[Hunter US]

Спасибо большое!!! Узнал, сделал , работает!

[Hunter US]

Извините что немного не по теме, но еще подскажыте пожалуйста:

Что нужно сделать с формой чтобы нельзя было изменить ее размер когда програма запущена???

[angvelem]

Выставить Single или Dialog.

[Hunter US]

А где эти параметры?

[cotseec]

BorderStyle

[PS11011010]

И кнопку РАЗВЕРНУТЬ отключи.

[cotseec]

заранее....
в BorderIcons

[Hunter US]

Спасибо большое!! Очень помогли.