Мне больше по душе 2-й вариант, что я выше писал.
Допустим создано вычисляемое поле sum. В вашей таблице есть поле summa, в котором записано значение в рублях.
В событии OnCalCField компонента Table пишем.
Код:
if CheckBox1.Checked then
ADOTable1.FieldByName('sum').AsCurrency:=ADOTable1.FieldByName('summa').AsCurrency*25
else
ADOTable1.FieldByName('sum').AsCurrency:=ADOTable1.FieldByName('summa').AsCurrency;
В событии OnClick CheckBox пишем.
Код:
ADOTable1.Close;
ADOTable1.Open;