Va bien , pero falla cuando no hay ningún MDIActive en el Form .
Cuando llega a esta linea
Código Delphi
[-]Self.ActiveMDIChild.Close
Da error sino encuentra otro ActiveMDIChild , habría que poner algo , un if ... then , pero no sé que poner para que si no hay ningún MDIChildForm de error .