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

[Casimiro Noteví]

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?