给变量赋值的问题

将数据库表的一个字段值赋给一个变量，变量v是double类型，字段是float型，如下
在数据模块的onCalcFields事件中写下：
var
  v ：double;
...
  v := qry1.FieldByName('fieldname').AsFloat;
  calcfield1:=(field1+field2)*v;
---------------------------------
这时算出v的值是0，该计算字段的值也为0，不知是为什么？