Destrucción de Formas MDIChild

[jhonny]

Así, ¿Te funciona?:

Código Delphi [-]
  if Application.MainForm.MDIChildCount = 1 then
  begin
    Application.MainForm.MDIChildren[0].Close;
  end;

Aunque realmente podrias ser:

Código Delphi [-]
  if Application.MainForm.MDIChildCount = 2 then
  begin
    Application.MainForm.MDIChildren[0].Close;
  end;

Ya que no estoy seguro de que cuando se este creando dicho TForm nuevo, el ChildCount sea igual a 1 o 2.

//Edito: Ese codigo es asi, siempre y cuando el formulario principal de tu aplicación sea el formulario MDI "padre". De lo contrario, no debe ir MainForm si no, el nombre de dicho formulario MDI "padre".