我编的mdi程序怎么不对?我只有30分了(15分)

我想编一个最简单的mdi程序,主窗体上3个菜单项,
对应打开3个子窗口.
主窗体
uses childcl,childcx;
procedure Tmainform.createMDIChildcl(const name:string);
var
child:Tchild_cl;
begin
child:=Tchild_cl.create(application);
child.caption:=name;
end;

procedure Tmainform.culiClick(Sender: TObject);
begin
createMDIChildcl('数据处理');
end;

子窗口
uses main,childcx;
procedure Tchild_cl.formclose(Sender: TObject;var action:Tcloseaction);
begin
action:=cafree;
end;
procedure Tchild_cl.exitClick(Sender: TObject);
begin
close;
end;
procedure Tchild_cl.mapClick(Sender: TObject);
begin
mainform.mapClick(Sender);
end;
但运行时,点culi进入child_cl子窗口后关不了子窗口,并且也打不开其他子窗口.

uses childcl,childcx;
不懂

不懂

开心。你看的是哪本书？
哪里来的CHILDCL，没看到过。

开心。你看的是哪本书？
哪里来的CHILDCL，没看到过。

不好意思，我说得不清楚，名字是我取的。
childcl,childcx 是子窗口所在单元的名字main是主窗口所在单元的名字

接受答案了.