[Loviedo]

Imagino que está comprobando un Edit.text con el valor de un Campo.
Creamos una variable booleana (existe). Si lo encuentra sal del bucle.

Código Delphi [-]

existe := false;
 
query1.First;
While not query1.Eof Do
Begin
 if cod_barra.text=query1.fieldvalues['cod_barra'] then
 begin
  showmessage('el codigo ingresado ya existe');
  existe := true;
  cod_barra.setfocus;
  break;
 end;
 query1.Next;
end;

if not existe then
 guardar.click;

Otra opción es comprobar previamente con un select si existe el cod_barra.