with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE PRODUCTOS');
SQL.Add('SET CANTIDAD_EXISTENTE = CANTIDAD_EXISTENTE + :VALOR');
SQL.Add('WHERE NOMBRE = :NOMBRE');
Parameters.ParamByName('VALOR').Value := IntToStr(EditValor.Txt);
Parameters.ParamByName('NOMBRE').Value:= EditNombre.Text;
ExecSQL;
end;