te pregunto que si el error te lo da en esta línea:
Código Delphi
[-]
stock:=((table1.fieldbyname('stockini').AsFloat)
+(entrada.fieldbyname('entradas').AsFloat)) - salida.fieldbyname('salidas').AsFloat;
o en esta otra(que es donde la
asignas al campo):
Código Delphi
[-]
table1.FieldByName('stockact').AsFloat:=stock;