cerrar todos las ventanas hijas

[mjjj]

Estimados, tengo la siguiente situación.
Una aplicación MDI, en la ventana hija en el evento ONClose lo siguiente.

Código Delphi [-]
procedure Tnueva_ocform.FormClose(Sender: TObject; var Action: TCloseAction);
var res: integer;
begin
res :=  (application.MessageBox(('¿Deséa guardar la orden de compra actual?'),'Atención',MB_YESNOcancel));
case res of
2: action:= canone; // cancelar
7: Action := caFree; // NO
6: begin             // SI
   action:= cafree;
   showmessage('guardar');
   end;
end
end;

Ahora bien, necesito un procedimiento en el formulario principal para cerrar todos las ventanas hijas, y que me entregue (puede ser un una variable de tipo boolean), si es que se cerraron todas las ventanas, ya que si se fijan en el evento OnClose, está la opción de cancelar el cierre de la ventana.

El codigo del procedimiento para cerrar todas las ventas está así, pero necesito saber si se cerrar todas antes de continuar

Código Delphi [-]
var i: integer;
begin
For i:=MDIChildCount-1 downto 0 do
begin
MDIChildren[i].Close;
end;

// codigo en caso de cerrar todas las ventanas hijas

end;

Alguna idea?

Gracias