Delphi Can

iyi günler cxgrid de  tutar kolonunun toplamını almak istiyorum ama resimdeki hatayı veriyor.

yaptığın araştırmada string alan toplamaya çalıştığım için aldığım bilgisi var.

aşağıdaki kodda görüldüğü üzere  tutar alanını real tanımladın grid de ilgili kolonda değer görünüyor

kendim toplam aldığımda alıyor ama footer toplamında hata veriyor.
Kod :

var
satirno : integer;
tutar:real;
//////////////////////////////////////

while not (sarf_toplam_sorgu.Eof) do
   begin
    sarf_top_view.datacontroller.AppendRecord;
    satirno := sarf_top_view.datacontroller.RecordCount - 1;
    sarf_top_view.datacontroller.values[satirno,0] := inttostr(satirno + 1);
    sarf_top_view.datacontroller.values[satirno,1] := trim(sarf_toplam_sorgu.FieldByName('S_BAYI_ADI').AsString);
    sarf_top_view.datacontroller.values[satirno,2] := trim(sarf_toplam_sorgu.FieldByName('SU_ACIKLAMA').AsString);
    sarf_top_view.datacontroller.values[satirno,3] := sarf_toplam_sorgu.FieldByName('toplam').AsFloat;
    sarf_top_view.datacontroller.values[satirno,4] := trim(sarf_toplam_sorgu.FieldByName('SU_BIRIM').AsString);
    sarf_top_view.datacontroller.values[satirno,5] := sarf_toplam_sorgu.FieldByName('SU_FIYAT').AsFloat;
    tutar:= sarf_top_view.datacontroller.values[satirno,3]*sarf_top_view.datacontroller.values[satirno,5];
    sarf_top_view.datacontroller.values[satirno,6] := tutar;
    edit_kdvsiz.AsFloat:=edit_kdvsiz.AsFloat+sarf_top_view.datacontroller.values[satirno,6];
    sarf_toplam_sorgu.Next;
    end;

Grid Customize ayarlarında field  secili iken properties ayarlarında CurrencyEdit secili olması sorunu düzeltmedi.
Grid Customize ayarlarında field  secili iken  databindig ayarlarında string tanımlı burayı float veya CurrencyEdit seçilince sorun düzeldi.