[*Caro*]

Hola, opino lo mismo que el amiguito coso. el problema esta en el else, el else solo ejecutara el Showmessage y como el begin y end quedan sueltos eso se ejecutara siempre, pon el showmessage dentro tu bloque begin.

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

Saluditos