form1.hide ; form2:=Tform2.Create(Self); form2.showmodal;
Application.ShowMainForm := false; form2:=Tform2.Create(Self); form2.showmodal;