Comprobar en un while not eof si tiene stock un producto

[[Caral]]

Hola

Código Delphi [-]
WHILE NOT mddevolucion.eof do
  begin
  if mddevolucioncodipro.Value  =  query2codipro.Value then
     showmessage('Producto ya existe');
  end
  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.

Saludos