怎样用delphi做快显窗口？？？

Question

我先做个个窗体，然后存盘，为splash，窗体名：splashform ，然后，又建了个应用程序，在这个程序里，我添加了这个窗体，然后调用它，程序如下：
beginapplication.createform(Tsplashform,splashform);
splashform.show;
splashform.update;
application.initialize;
application.createform(Tform1,form1);
splashform.close;
application.run;end;
结果，当运行的时候，当关闭窗体时，整个程序时都关了。请各位大哥指教。

Answer 1

在工程文件的最前面添加如下的代码，记住是工程文件哦，不是窗体文件var
  fmSplash: TForm2;
begin
  fmSplash:= TForm2.Create(Application);
  fmSplash.Show;
  fmSplash.Repaint;
  sleep(1000);
  fmSplash.Free;
end;

Answer 2

在菜单Project\Options中，将Main Form指定为Form1

Answer 3

可能把fmflash当成了主窗体了
可以在form1的formcreate事件中调用让fmflash显示然后再free掉

Answer 4

代码修改如下：
Var
splashform ;
begin
splashform  := Tsplashform.Create(self)
try
splashform.show;
splashform.update;
application.initialize;
application.createform(Tform1,form1);
finally
 splashform.close;
end;
application.run;
end;

Answer 5

谢谢各位，我的问题已经解决，我是这样做的。呵呵，我觉的还是不对，不过已经能实现了，我把父窗体设为了mdi  又增加了个子窗体，form2也是mdi 
我把form1设为了主窗体。
谢谢各位了！！！！看看还能使下面的程序更完善吗？begin
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(Tsplashform, splashform);
  form1.Hide;
  splashform.show;
  splashform.Update ;
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  splashform.Close;
  form1.Show;
  Application.Run;
end.