关于程序启动时闪屏的解决方案!(50分)

各位:
我做的程序的启动闪屏(也就是徽标)都是用的时钟控件进行延时,但是我总觉得这样不是
很好,因为在程序要初始化很多东西.那位大侠知道怎样在程序先闪屏,在初始化完毕后闪屏结束.怎么控制比较好,请各位不吝赐教

在project的Source中添加

for i:= 0 to 500000 do
Application.ProcessMessages;

项目文件处理如下：
program Project1;

uses ....

begin
SplashForm:=TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Refresh;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TDataModuleForm, DataModuleForm);
Application.CreateForm(TChildForm, ChildForm);
SplashForm.Hide;
splashForm.Free;
Application.Run;
end.

建议用线程。