程序初始化，窗体创建的问题！
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初学者，有点糊涂。请各位指点下！

[解决办法]
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返回值了,就执行这一部,打开主程序