[Neftali [Germán.Estévez]]

Éste código:

Código Delphi [-]
 var
   I: Integer;
 begin
   with Form1 do
     for I := MDIChildCount-1 downto 0 do
       MDIChildren[i].Close;
 end;
 
  o en su defecto éste
 
 var
   I: Integer;
 begin
   with Application.MainForm do
     for I := MDIChildCount-1 downto 0 do
       MDIChildren[i].Close;
 end;

te cerrará todos los forms MDI que tengas; Sólo falta que después visualices el que quieras.