这段代码在D5下可以，到了D6下就不正常了

创建一个新的应用程序工程，并且新添加一个窗体Form2，不需要Time控件。修改工程文件如下：
. . .
u s e s
F o r m s ,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *. R E S }
begin
Form2:=TForm2.Create(Application); // 创建F o r m 2
Form2.Show; // 显示F o r m 2
Form2.Update; // 更新F o r m 2
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Form2.Free; // 删除F o r m 2
然后在主窗体Form1OnCreate事件的处理过程中添加初始化过程。下面的代码中以延迟5秒钟的时间来代替：
procedure TForm1.FormCreate(Sender: TO b j e c t ) ;
var
CurTime:LongWord;
DelayTime:LongWord;
begin
// 设置延迟时间为5秒
DelayTime:=5000;
CurTime:=GetTickCount;
while (GetTickCount < (CurTime+DelayTime)) do ;
// 在这儿可以加上应用程序的初始化过程
end;
一旦初始化工作做完，主窗体就立即显示出来了。