怎么判断fsMDIChild已经创建好了

Question

MDI窗体的问题，每点击一次按钮就创建一个窗体，我只想创建一个窗体，不能重复，怎么判断窗体已体创建
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
end;

Answer 1

if not assigned(Form2) then
  Form2 := TForm2.Create(Application);

Answer 2

if Assinged(Form2) then ShowMessage('sdfjalfja');

Answer 3

if not assigned(Form2) then

Answer 4

if not assigned(form2) then application.createform(Tform2,form2);
form2.show;

Answer 5

还有一点问题
procedure TForm1.Button1Click(Sender: TObject);
begin
if not assigned(form2) then
begin
Form2 := TForm2.Create(Application);
end;
end;
end.
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;当关闭FORM2后，怎么打不开了啊