在FORM1中声明一个函数: unit unit1 use ......... function ShowForm1:boolean;//这是增加的函数,在工程代码里调用的。 ...... var form1:Tform1; //以下这段是增加的。 function ShowForm1:boolean; begin try form1:=Tform1.Create(Application); Form1.ShowModal; result:=True;//或者False; end; ...... ...... end. 然后在工程源码中: project project1 use ........ .... begin Application.Initialize; Application.CreateForm(TForm2, Form2); //这里一调用Showform1就可以显示form1,当form1关闭后,才显示form2. if Showform1 then Application.Run else Application.Terminate; ...... end;