Fechando TForm MDIChild em um TForm MDIForm

No evento OnClose do TForm MDIChild digite

Action := CaFree;