关于MDIchild窗体的两个问题!

Question

form1 为 fsMDIForm
form2 为 fsMDIChild
form3 为 fsMDIChildprocedure TForm1.Button1Click(Sender: TObject);
begin
  form2 := Tform2.Create(Application);
  form2.show;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
 form2.Close
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  form3 := Tform3.Create(Application);
  form3.show;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
 form3.close
end;请问：
NO.1 如何让MDIchild窗体唯一呢？就是当窗口FORM2或FORM3在已经打开时让焦点停在上边？
NO.2 如果在不点BUTTON1或BUTTON2时点BUTTON3、4，就会出错，请问这是为什么？如果写CODE怎么来避免出错呢？

Answer 1

if Assigned(form2) then
        form2.Close;

Answer 2

for i:=0 to form1.childcount-1 do
  Form1.childForm[i].Close;
if not Assigned(form2) then
   form2:=TForm2.show;