begin Application.Initialize; Form2:=TForm2.Create(nil); Form2.Show; //背景窗体 Form3:=TForm3.Create(nil); Form3.ShowModal; //登陆窗体 if Form3.ModalResult=mrok then begin Form2.Free; Form3.Free; Application.CreateForm(TForm1, Form1); //主窗体 end; Application.Run;end.