利用工程文件动态创建
begin
  Application.Initialize;
  splashform:=tsplashform.create(application);
  splashform.show;
  splashform.update;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  splashform.hide;
  splashform.free;
  Application.Run;
end.