value out of bounds

[tcp_ip_es]

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;