with Form1 do
  for I := 0 to MDIChildCount-1 do
    MDIChildren[I].Close;