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

[negrokau]

Empezado por Casimiro Notevi

Código Delphi [-]
While not (query1.Eof) Do
Begin
if cod_barra.text=query1.fieldvalues['cod_barra'] then
begin showmessage('el codigo ingresado ya existe');
cod_barra.setfocus;
end;
query1.Next
end else
guardar.click;
end;


¿y ese código de dónde viene?

el end else es del while... corre bien el bucle, encuentra si ya existe el codigo, pero si no existe tiene que
guardar, es por eso que quiero poner un else al while...