Сколько открыто дочерних окон?

Form1.MDIChildCount


Закрыть все окна:

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