uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
with TForm2.Create(nil) do//预启动界面
begin
Show;
Application.CreateForm(TForm1, Form1);
form2.Free;//释放预启动界面
end;
Application.CreateForm(TForm2, Form2);
Application.Run;
end.