procedure Tform1.button1click(sender: Tobject);begin Application.Createform(Tform2,form2); form2.showmodal;end;