Podrías utilizar las siguientes sentencias:
1.- Para obtener el siguiente registro:
select MIN(NumRegistro) from Entrada
where NumRegistro>IntToStr(NReg)
2.- Para obtener el anterior:
select Max(NumRegistro) from Entrada
where numRegistro<IntToStr(NReg)
No lo he probado, pero creo que funcionará.
Espero que te ayude.
|