[negrokau]

Empezado por Casimiro Notevi

Debes explicar primero EXACTAMENTE qué quiéres hacer, porque ese while, aparentemente, no sirve para nada, como ya han comentado.

Lo que quiero que haga exactamente es que busque si el codigo ingresado ya existe, si ya existe me salte el mensage y que el focus se posiciones en cod_barra para cambiar el codigo:

Código Delphi [-]
if cod_barra.text=query1.fieldvalues['cod_barra'] then
showmessage('el codigo ingresado ya existe');
cod_barra.setfocus;

si no existe el codigo que guarde:

Código Delphi [-]
guardar.click;

se entiende ahora lo que quiero hacer?