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