Hola, en principio podrias ejecutar la consulta talcual pero con
Código Delphi
[-]
strToInt ( strToInt(Codigo_Prod.Text)+1)
strToInt ( strToInt(Codigo_Prod.Text)-1)
En todo caso se podrias ver el ID del seleccionado y luego hacer la busqueda con el + - Id (esto por si los codigos no tienen nada que ver entre si)
ej: id-1 cod 145658 / id-2 cod 000448.
De esta manera vas recorriendo el siguiente codigo no el siguente numero del codigo ingresado.
Saludos
Nicolas Perichon