begin Application.CreateForm(TForm2,form2); //Form2:=TForm2.Create(Application); //Form2.Show; Form2.ShowModal; ShowMessage('close');