想在程序启动时显示一个form，启动完毕之后关闭该form，如何实现？谢谢

Question

请提供关键代码

Answer 1

program prjMailClient;uses
  Forms,
  Windows,
  frmMakeMail in 'frmMakeMail.pas' {FormMakeMail},  //主界面
  frmStart in 'frmStart.pas' {FormLogin};  //启动界面{$R *.RES}
begin
  Application.Initialize;
  FormStart := TFormStart.Create(Application);
  FormStart.Show;
  FormStart.lblInfo.Caption := '正在提取参数信息，请稍候．．．';
  FormStart.Refresh;
  FormStart.lblInfo.Caption := '正在进行数据库连接，请稍候．．．';
  FormStart.Refresh;
  FormStart.lblInfo.Caption := '正在创建主界面信息，请稍候．．．';
  Application.CreateForm(TFormMakeMail, FormMakeMail);
  FormStart.Refresh;
  FormStart.Free;
  Application.Run;
end.

Answer 2

启动速度太快，提示窗口一闪就过去了。
用ｓｌｅｅｐ函数，会有停顿，但窗口没有显示出来
即使在ｓｌｅｅｐ下面加上Application.ProcessMessages;
也没有用，如何实现让提示窗口显示３秒后进入主ｆｏｒｍ
谢谢

Answer 3

在程序中加入一个空循环，比如
for i:=0 to 2000000 do 
数字大小你看着办

Answer 4

把Form1设置成主窗口，Form2是显示窗口
在Form2的OnActivate事件加入
  Form2.Refresh;
  sleep(3000);
  close;在Close事件加入
Action:=cafree;
  Form2:=nil;在主窗口Form1的OnShow事件加入
  Form2:=TForm2.Create(self);
  Form2.Show;

Answer 5

在dpr文件中  Application.Initialize;
  FormStart := TFormStart.Create(Application);
  ...
  FormStart.update;
  Application.CreateForm(TFormMakeMail, FormMakeMail);
  Sleep(3000);
  FormStart.Free;
  Application.Run;

Answer 6

begin
  Application.Initialize;
  try
    Flogo:=TFlogo.Create(application);
    Flogo.Show;
  Flogo.Update ;
  sleep(2000); 休眠2秒
  Application.CreateForm(TFmainform, Fmainform);
    finally
    Flogo.Free;
  end;
  Application.Run;

Answer 7

新建两个Form
Form1做主窗体
然后将Form2由自动创建改为手动创建
Unit1
....
implementation
  uses unit2;
Form1 OnShow
begin
   with TForm2.Create(Form2) do
     begin
         Show;
         Sleep(2000);
         Free;
     end;
end;