如何将 DBGRIDEH 的FOOTER 显示为货币形

我将要统计的数字在数据库中定义MONRY合计时就显示货币型,但现在遇到的问题是我要对DBGRIDEH中指定某几行的金额进行合计,于是我先求出合计金额SUM
var sum:Currency;
while  not cds_Data.Eof do begin
  if pos('合计科目',cds_Data.FieldByName('strname').AsString)>0 then
  sum:=sum+cds_Data.FieldByName('fare').AsCurrency;
  cds_Data.Next;
  end;  cds_Data.Next;Footer.ValueType :=fvtStaticText;
   Footer.Value:=CurrToStr(sum);