[axesys]

Yo uso el siguiente procedimiento pero no se si funcion con mdi

Código Delphi [-]
procedure TfrmMenu.CerrarVentanasAbiertas;
var
  i: integer;
begin
  for i:=0 to Screen.FormCount - 1 do
    if Screen.Forms[i].Name <> Name then
      Screen.Forms[i].Close;
end;