Code:

Form1.MDIChildCount

Code:

with Form1 do

For i := MDIChildCount-1 DownTo 0 Do

     if Assigned(MDIChildren[i]) then

     begin

       MDIChildren[i].Close;

     end;