program Project1;uses
  Forms,
  SysUtils,
  main in 'main.pas' {frmmain},
  AdTSel_My in 'AdTSel_My.pas' {DeviceSelectionForm_My},
  UnitMain in 'UnitMain.pas' {FormMain},
  Unit1 in 'Unit1.pas' {SplashForm},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
  SplashForm:=TSplashForm.Create(Application);//创建快闪窗体 这是手动添加的代码
  SplashForm.Show;//显示快闪
  SplashForm.Update;
  //以下是延时处理
  sleep(3000);
  while SplashForm.Button1.Enabled do
   Application.processMessages;
   Application.CreateForm(Tfrmmain, frmmain);
  Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(TForm2, Form2);
  SplashForm.Hide;//隐藏
   Splashform.Free;//释
   Application.Run;end.