Cerrar todas las Ventanas MDIChild

[[gluglu]]

Hola a todos los compañeros del Foro.

Tanto cuanto cierro el formulario principal, como por ejemplo cuando hago un cambio de usuario, realizo la comprobación de si existen ventanas MDIChild abiertas y, en dicho caso, las cierro.

Pero mi problema se presenta cuando en alguna de las ventanas MDIChild necesito hacer una comprobación antes de cerrarla, por ejemplo si ha sido modificado algún dato, y pido al usuario si quiere grabar los datos modificados.

Si me confirma que sí, sigo con la operación de cierre, pero si opta por cancelar la operación de grabación, tengo que cancelar también la operación de cierre en el formulario principal (en la operación de cerrar), o para pedir un nuevo usuario.

Es aquí donde me surge la duda de como saber si la ventana MDIChild se ha cerrado correctamente o no.

He intentado :

Código Delphi [-]
procedure TMainform.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  i : Integer;
begin
  if MDIChildCount <> 0 then
    for I := 0 to MDIChildCount - 1 do begin
      MDIChildren[i].Close;
      Application.ProcessMessages;
      if Assigned(MDIChildren[i]) then begin
        CanClose := False;
        Exit;
      end;
    end;
end;

Para la primera ventana funciona bien. Pero si tengo más de un child abierto, pues no me funciona.

Si quito 'Application.ProcessMessages;' entonces Assigned(MDIChildren[i]) siempre es cierto.

Como tendría que hacerlo ?

Gracias por vuestra ayuda