form2.bonus.sql.text := 'update segchasis set importebruto = cast(bonusfiat as float) + cast(bonusmotriz as float)'; form2.bonus.ExecSQL;