form2:= Tform2.create;
form2.showmodal;
form2.free;