[ecfisa]

Hola DOS.

Entonces, y si no te entendí mál, podrías hacer algo parecido a:

Código Delphi [-]
var
  a: Double;
begin
  if not TryStrToFloat(Edit1.Text,a) then
    raise Exception.Create('El valor ingresado no es válido');
  if table3.Locate('CustNo',table1Cod_prod.Value,[loCaseInsensitive]) then
  begin
    table3.Edit;
    table3.FieldByName('Cantidad').AsFloat := table3.FieldByName('Cantidad').AsFloat + a;
    table3.Post;
  end;
end;

Saludos.