Se puede hacer un else en un While not query1.eof Do?

[negrokau]

Código Delphi [-]
if cod_barra.text<>null then
begin
query1.close;
query1.params[0].value:=dm.stock.fieldvalues['cod_barra'];
query1.open;
query1.First;
While not (query1.Eof) Do
Begin

 if cod_barra.text=query1.fieldvalues['cod_barra'] then
 
 showmessage('el codigo ingresado ya existe');
 cod_barra.setfocus;
 query1.Next;
 
end;

guardar.click;
end;

Ya tengo claro que el while no lleva else.
Ahora el problema que tengo es que al encontrar un mismo codigo tendria que el focus posicionarse en cod_barra, pero igual recorre todo el algoritmo y guarda..., como le hago para que no guarde si encuentra un mismo codigo y que el focus se situe en cod_barra...