[DOS]

Seguramente lo que solicito es algo tan simple como el titulo, pero me canse de googlear y probar opciones y no encuentro al solución, asi que vamos al punto.
Tengo dos tablas creadas en Paradox, producto y stocK(tomese como cantidad total de un producto)

productos:
Cod_prod
Cod // este lo pone el cliente, solo para identificarlo
Descripcion
importecompra
importeventa

stock:
Cod-stock
Cod_proucto //relacionada con producto
Cantidad //cantidad total del producto en almacén

En Delphi7, tengo un formulario con ambas tablas, un DBGrid donde muestro todos los datos mas un campo relacionado donde se ve la cantidad de cada producto. tambien tengo un Query.

En el formulario puse un Edit y un boton, para que cargue, lo que se pone en el Edit osea seria incrementar la cantidad del stock de un producto en particular.
Hasta ahora intente cosas como estas

Código Delphi [-]
procedure TForm5.Button6Click(Sender: TObject);
var
a:real;
begin
Table3.First;
  while table3.Eof <> true do
    begin
    a:=StrToFloat(Edit1.Text);
    if table3Cod_producto.Value = Table1Cod_prod.Value then
     begin
      table3.Edit;
      table3.FieldByName('Cantidad').AsFloat:= table3.FieldByName('cantidad').AsFloat+a;
      table3.Post;
      table3.Next;
      end;
     end;
end;
end.

o

Código Delphi [-]
var
    a:real;
begin
    a:=StrToFloat(Edit1.Text);
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add ('Select(sum(stock.Cantidad) + a)');
Query1.SQL.Add('From stock');
Query1.SQL.Add(' where stock.Cod_producto = producto.Cod_prod');  
Query1.Active:=true;
Query1.Open;

Despues hare un formulario para cuando venda un producto descontarlo, pero seria lo mismo pero inverso.
Gracias de antemano.