精度问题

var
ROW_SUM: Double;
begin
ROW_SUM :=
CENRETU_SUGGEST_DM.Detail.fieldByName('qty').AsFloat*CENRETU_SUGGEST_DM.Detail.fieldByName('price').AsFloat;
with CENRETU_SUGGEST_DM.Master do
begin
  Edit;
  FieldByName('RETU_ITEMSUM').AsFloat :=FieldByName('RETU_ITEMSUM').AsFloat - ROW_SUM;
  ApplyUpdates;
  CommitUpdates;
end;
删除一条明细数据时，计算明细列qty×price的值，然后将总表的RETU_ITEMSUM值减去明细qty×price的值,得到当前金额合计，但是删除几次后数据家出现问题，精度变了，有很多小数为，而且在DBLABEL显示出来的值不正确，如何解决？我想是精度的问题，不知道如何控制