delphi mdichild 窗体互相调用

delphi 设计

两个 mdichild 子窗体的调用问题

    Form1(mdichild) 上面的一个按钮，click 后，要出现 Form2(mdichild) ，可是 Form2 出现后， Form1 就不见了。

    急，不知道该怎么弄才可以了。

    请帮助！！！

---

procedure TForm1.bitbtn1Click(sender:object);
begin
F_Main.Z70Click(nil); //执行这句后，Form1 就不见了，只有 Form2 了
end;

F_Main 是 MDI 父窗体 ,在父窗体中执行下面的代码没有问题。

procedure TF_Main.Z70Click(Sender: TObject);
begin
  if CreateForm(Form2)=false then
    begin
      Form2:=TForm2.Create(Application);
      Form2.Show ;
    end
  else
    Form2.Show ;
end;

CreateForm 是个函数如下：
function TF_Main.CreateForm(CForm: TForm):boolean;
var
  No:integer;
  FormExist:boolean;
begin
  FormExist:=False;
  if (CForm=Nil) then //判断 CForm 是否为空
    begin
      CreateForm := False; //函数返回值赋 false
      exit;              // 退出本函数
    end;
  for No := 0 to Screen.FormCount  - 1 do //判断窗体是否已经被建立起来
    begin
      if screen.