Così dovrebbe andare...

codice:
for each lform in forms
  unload lform
next
Controlla se chiude anche la MDI..... altrimenti metti un controllo