我在启动窗体里添加了ProgressBar控件，想用它来延迟启动时间，可怎么编写延迟时间还是很短，怎样才能让延迟时间加长呢？具体代码如下：
program Project1;

uses
  Forms,
  qd in 'qd.pas' {fqd},
  main in 'main.pas' {fmain},
  login in 'login.pas' {flogin},
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {Form8},
  Unit9 in 'Unit9.pas' {Form9},
  Unit10 in 'Unit10.pas' {Form10};

{$R *.res}

begin
  Application.Initialize;
  fqd:=tfqd.Create(application);
  fqd.Show;
  fqd.Update;
  Application.Title:='学生考勤管理系统';
  // Application.CreateForm(Tfqd, fqd);
   Application.CreateForm(Tflogin, flogin);
     fqd.ProgressBar1.Position:=0;
  Application.CreateForm(Tfmain, fmain);
  fqd.ProgressBar1.Position:=1;
  Application.CreateForm(TForm1, Form1);
  fqd.ProgressBar1.Position:=2;
  Application.CreateForm(TForm2, Form2);
  fqd.ProgressBar1.Position:=3;
  Application.CreateForm(TForm3, Form3);
  fqd.ProgressBar1.Position:=5;
  Application.CreateForm(TForm4, Form4);
  fqd.ProgressBar1.Position:=10;
  Application.CreateForm(TForm5, Form5);
  fqd.ProgressBar1.Position:=20;
  Application.CreateForm(TForm6, Form6);
  fqd.ProgressBar1.Position:=30;
  Application.CreateForm(TForm7, Form7);
  fqd.ProgressBar1.Position:=40;
  Application.CreateForm(TForm8, Form8);
  fqd.ProgressBar1.Position:=50;
  Application.CreateForm(TForm9, Form9);
  fqd.ProgressBar1.Position:=100;
  Application.CreateForm(TForm10, Form10);  
  fqd.close;
   fqd.Free;
  Application.Run;
end.