[fdelamo]

Yo cambiaría esta parte

Código Delphi [-]
  WITH TVentanaConfig.Create DO
  BEGIN
    ShowModal;
    WHILE NOT Acepta DO
      Application.ProcessMessages;
    GuardaConfiguracion;
    Free;
  END

por esto

Código Delphi [-]
  WITH TVentanaConfig.Create DO
  BEGIN
    if ShowModal = mrYes then
      GuardaConfiguracion;
    Free;
  END

al hacer el ShowModal ya se para la ejecución hasta que se haga el ModalResult del formulario