[novato_erick]

Buenas Tardes un Saludos a Todos Feliz año y Felicitaciones en todo los eventos.

Me han informado por primera vez en mis años en programa un comportamiento que sucede únicamente en un formulario denominado Cotizaciones la cual tengo una variable pública de tipo Entero llamada "ModoConsultaCot" en la que el valor 1 es consulta, 2 es Actualización y 3 es Agregar en fin me han notificado los usuarios que dejan temporalmente abierto el formulario y al empezar a realizar el ingreso de una cotización sucede que pierde ese valor la variable en la que el botón y el programa simplemente no hace nada en el botón de Aceptar que tiene la funcion:

Código Delphi [-]
procedure TfrmCotizadorPricipal.btnEmiteCotClick(Sender: TObject);
begin
    case dmCotiza.ModoConsultaCot of
        3: //Insertamos
            begin
                if dbgProductos.DataSource.DataSet.isEmpty then
                begin
                    ShowMessage
                      ('Caramba no tenemos productos en la lista para cotizar');
                    lbleBuscaProducto.SetFocus;
                end
                else
                begin
                    if application.MessageBox
                      (pchar('¿Deseas Emitir esta Cotización?'),
                      pchar('Cotizaciones'), (MB_YESNO + MB_ICONQUESTION)) = IDYES
                    then
                    begin
                        IngresaCotDB;
                        ExitoCot := True;
                        if ExitoCot = True then
                        begin
                            ImprimeCotizacion;
                            Limpiamostodo;
                            dmCotiza.ModoConsultaCot := 3;
                            ShowMessage('Listo puedes Verificar la impresora');
                        end;
                    end
                    else
                    begin
                        // Limpiamostodo;
                        rbBuscaCodigo.Checked := True;
                        lbleBuscaProducto.SetFocus;
                    end;
                end;
            end;
        2: // Actualizamos
            begin
                if ActualizaCot = True then
                begin
                    ImprimeCotizacion;
                    Limpiamostodo;
                    ShowMessage('Actualización Correcta');

                end
                else
                begin
                    ShowMessage
                      ('Error en Actualización Favor Llame al Adminsitrador Sistema');
                end;
            end;
    end;
end;

Alguien conoce si es posible que por pura casualidad de la vida esa variable es posible ser modificada por algún otro programa que tenga ese mismo nombre de variable? tengo mis dudas en cuanto hilos de ejecución ahora con esto. vuelvo a repetir nunca en los años que tengo usando el programa me habian notificado ese comportamiento.

PD: el sistema operativo instalado es Windows 10


Saludos:

novato_erick