程序初始化，窗体创建的问题！

Question

var
  STime,VTime:int64;
{$R *.res}begin
  Application.Initialize;
  Application.Title := '江阳电业局工程项目管理系统';  STime:=GetTickCount;
  frmFirst:=tfrmFirst.Create(application);
  frmFirst.Show;
  //frmFirst.Update;  Application.CreateForm(TdCustomer, dCustomer);  frmDenglu:=TfrmDenglu.Create(application);  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmHetong, frmHetong);
  Application.CreateForm(TfrmCailiao, frmCailiao);
  Application.CreateForm(TfrmLingyong, frmLingyong);
  Application.CreateForm(TfrmCailiaoFind, frmCailiaoFind);
  Application.CreateForm(TfrmLyCailiaoAdd, frmLyCailiaoAdd);
  Application.CreateForm(TfrmHtGuanlian, frmHtGuanlian);
  Application.CreateForm(TfrmSysSet, frmSysSet);
  Application.CreateForm(TfrmReport, frmReport);
  Application.CreateForm(TfrmHTFind, frmHTFind);  VTime:=3000-(GetTickCount-STime);
  if VTime>0 then
    Sleep(VTime);  frmFirst.Free;
  frmDenglu.ShowModal;  Application.Run;
想实现：
  闪现窗体frmFrist出现的同时，系统初始化其他窗体。 frmFrist销毁失的时候frmDenglu（登录窗体）出来。登录窗体销毁的时候frmMain主窗体出来！
  
作为delphi初学者，有点糊涂。请各位指点下！

Answer 1

frmFirst:=tfrmFirst.Create(application);
  --frmFirst.Show;   闪现窗体frmFrist出现
Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmHetong, frmHetong);
  Application.CreateForm(TfrmCailiao, frmCailiao);
  Application.CreateForm(TfrmLingyong, frmLingyong);
  Application.CreateForm(TfrmCailiaoFind, frmCailiaoFind);
  Application.CreateForm(TfrmLyCailiaoAdd, frmLyCailiaoAdd);
  Application.CreateForm(TfrmHtGuanlian, frmHtGuanlian);
  Application.CreateForm(TfrmSysSet, frmSysSet);
  Application.CreateForm(TfrmReport, frmReport);
  Application.CreateForm(TfrmHTFind, frmHTFind);--系统初始化其他窗体
frmFirst.Free;           --frmFrist销毁失
frmDenglu.ShowModal;     --frmDenglu（登录窗体）出来,ShowModal打开模态窗体,就是窗体不返回一个值的话就一直停留在这句,返回一般有mrOK,mrCancel;
Application.Run          --如果frmDenglu.ShowModal返回值了,就执行这一部,打开主程序

Answer 2

Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmHetong, frmHetong);
  Application.CreateForm(TfrmCailiao, frmCailiao);
  Application.CreateForm(TfrmLingyong, frmLingyong);
  Application.CreateForm(TfrmCailiaoFind, frmCailiaoFind);
  Application.CreateForm(TfrmLyCailiaoAdd, frmLyCailiaoAdd);
  Application.CreateForm(TfrmHtGuanlian, frmHtGuanlian);
  Application.CreateForm(TfrmSysSet, frmSysSet);
  Application.CreateForm(TfrmReport, frmReport);
  Application.CreateForm(TfrmHTFind, frmHTFind);全部改成
frmMain := TfrmMain.Create(Application);
这种形式

Answer 3

我在这边执行不会你说的全部窗体都SHOW出来的情况啊!