[[coso]]

Código Delphi [-]
 else
        showmessage('NO existe'); //Esto solo para verificar que si ingresa al ciclo
        //SI NO existe cambio a modo INSERTAR NUEVO
        begin
          Append;
          accCuenta := 0;
          gblCuenta := 0;
          dstTotalesBASCULA.Value := StrToInt(strID);
        end;

en el else solo se ejecuta el showmessage . El bloque begin end se ejecuta siempre.