el problema era en esta linea
Código Delphi
[-]
+','+FLOATTOSTR(Q_Ainventarios.FieldBYNAME('PRECIOU').Value)+','+FLOATTOSTR(Q_Ainventarios.FieldBYNA ME('COSTO').Value)+','+Q_Ainventarios.FieldBYNAME('almacen').Value
la solucion fue esta...
Código Delphi
[-]
+','+FLOATTOSTR(Q_Ainventarios.FieldBYNAME('PRECIOU').Value)+','+FLOATTOSTR(Q_Ainventarios.FieldBYNA ME('COSTO').Value)+','+Q_Ainventarios.FieldBYNAME('almacen').text