[marcoszorrilla]

Haz los cambios que vespunto y coma en rojo, quitar).

Código Delphi [-]
WHILE NOT mddevolucion.eof do
  begin
  if mddevolucioncodipro.Value:=query2codipro.Value
    then showmessage('Producto ya existe');
  else
begin
    mddevolucion.Append;
    mddevolucioncodipro.Value:=query2codipro.Value;
    mddevolucioncantidad.Value:=query2cantidad.Value;
    mddevolucionconcepto.Value:=query2concepto.Value;
    mddevolucionprecio.Value:=query2precio.Value;
    mddevolucionprecioneto.Value:=query2precioneto.Value;
    mddevolucion.Next;
end;

  end;

end.

Un Saludo.