关于form的一个小问题，但是很怪！

Question

Unit Form1
===========Implementation
uses Form2;Var fm2: Tform2;
try
fm2 := Tform2.create(self);fm2.showmodal;
finally
fm2.free;
end;
...

Answer 1

try
  form2 := Tform2.create(self);
  form2.showmodal;
finally
 form2.free;
end;

Answer 2

program Project1;
中的：  Application.Initialize;
  Form4:=TForm4.Create(Application);  //登录窗体
  Form4.Show;
  Form4.Update ;
  Application.Title := 'QcSix';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Form4.Hide ;
  Form4.Free;
  Application.Run;