Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007
Form1.MDIChildCount

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

with Form1 do  
  For i := MDIChildCount-1 DownTo 0 Do
      if Assigned(MDIChildren[i]) then
      begin
        MDIChildren[i].Close;
      end;

Взято с https://delphiworld.narod.ru

Исправлено Bose

Взято с Vingrad.ru https://forum.vingrad.ru