如何释放动态库中创建的子窗口？

Question

在主程序中，通过调用动态库子程序，创建子窗口（fsMDIChild),可是在关闭主窗口的时候，报错，不知何故？
在子窗口的OnClose中加了代码action:=caFree;也不行

Answer 1

procedure ClsMDIChildWindow(MainForm:TForm;exFmName:Pchar);
var
  I:integer;
begin
  for i:=MainForm.MDIChildCount-1 downto 0 do
  if UpperCase(MainForm.MDIChildren[i].Name)<>UpperCase(String(exFmName))then
   MainForm.MDIChildren[i].Close;
end;
在退出的时候调用
ClsMDIChildWindow(fmMain,''); //fmMain为主窗口

Answer 2

procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;