关于软件封面的启动问题!!!(100分)

关于软件封面的启动问题!!!
问题现象:
我做了一个软件,软件主窗体大于软件封面,当软件封面启动时主窗体同时出现在封面后面,特向大虾求助,如何实现主窗体在封面启动时间结束后再出现.

修改项目文件(*.dpr)：

begin
Application.Initialize;
fmSplash := TfmSplash.Create(Application);
fmSplash.Show;
fmSplash.Update;
Application.Title := '我的应用程序';
Application.CreateForm(TfmMain, fmMain);
Application.CreateForm(TDM, DM);
fmSplash.Hide;
fmSplash.Update;
fmSplash.Close;
Application.Run;
end.

主窗体不能hide吗？
不能的话试试看用visible不可见吧
注意一定要使用update刷新
同意楼上的做法。看看我的代码
...
form2:=tform2.create(application);
form2.Show;
form2.Update;
Application.CreateForm(TForm1, Form1);
form2.hide;
form2.free;//这是为了释放启动画面占用的资源。
Application.Run;
...
没有测试过，不知道可不可以。

在启动封面上放置一个TTimer控件， 设置好时间， 然后在程序的项目文件中先显示启动封面， 然后通过一个定时器来进行延时，具体代码如下：(记住是在项目文件中）
begin
Application.Initialize;
SplashFrm:=TSplashFrm.Create(Application);
SplashFrm.show;
//启动封面显示
下面通过定时器TTimer来延时
while SplashFrm.Timer1.Enableddo

Application.ProcessMessage;
下面隐去启动封面，显示主界面
Application.CreateForm(TMainFrm.MainFrm);
SplashFrm.Hide;
SplashFrm.Free;
Applicatiom.Run;
end.

to : xhlight
自己感觉上这个不是很好。通过定时器timer的话要用掉更多的系统资源（原话不是我说的，不过确有其事）。

修改项目文件(*.dpr)：

begin
Application.Initialize;
fmSplash := TfmSplash.Create(Application);
fmSplash.Show;
fmSplash.Update;
Application.Title := '我的应用程序';
Application.CreateForm(TfmMain, fmMain);
Application.CreateForm(TDM, DM);
fmSplash.Hide;
fmSplash.Update;
fmSplash.Close;
Application.Run;
end.

我测试了一下，为不可取的，第2贴
...
form2:=tform2.create(application);
form2.Show;
form2.Update;
Application.CreateForm(TForm1, Form1);
form2.hide;
form2.free;//这是为了释放启动画面占用的资源。
Application.Run;
...
这个贴可以达到封面的效果，可取
第3贴，
在启动封面上放置一个TTimer控件， 设置好时间， 然后在程序的项目文件中先显示启动封面， 然后通过一个定时器来进行延时，具体代码如下：(记住是在项目文件中）
begin
Application.Initialize;
SplashFrm:=TSplashFrm.Create(Application);
SplashFrm.show;
//启动封面显示
下面通过定时器TTimer来延时
while SplashFrm.Timer1.Enableddo

Application.ProcessMessage;
下面隐去启动封面，显示主界面
Application.CreateForm(TMainFrm.MainFrm);
SplashFrm.Hide;
SplashFrm.Free;
Applicatiom.Run;
end.
这个贴最为合适，我感觉不错

多人接受答案了。

我很希望与各位交个朋友，请教delphi，大家能留下QQ，我的QQ20895，谢谢!!