Delphi функция timer

Вопрос ,как реализовать что при нажатие на клавишу button акивириволся прогрес бар и когда он дошел до конца открылася форм 2 с мну +

 

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
if ProgressBar1.Position=ProgressBar1.max then
form2.Show;
end;

end.


как нибудь так

 

примерно так: в онклике буттона пропиши

Code:

ProgressBar1.max := 100;
ProgressBar1.Position := 100;
Timer1.enable := true;

настрой таймер на нужную частоту и пропиши код
в онтаймер таймера

Code:

 ProgressBar1.Position := ProgressBar1.Position + 1;
 if ProgressBar1.Position = ProgressBar1.max then
 begin
   Timer1.Enable := false;
   Form2.Show();
 end;

 

огромное спасибо) ток одно но нет своиства enable есть
enabled

 

ну я это и имел в виду когда писал код. Ачат еще пока не научился проверять введенный в окно код на правильность.