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".