[Dead_Gigabit]

Всем привет...
Не могу понять что не так:
хочу подсчитать сумму значений выделенных ячеек DBGridEh

Код:

var
i:integer;
sum:real;
begin
sum:=0;
  for i := 0 to DBG.SelectedRows.Count-1 do begin
       sum:=sum + dbg.SelectedRows.DataSet.FieldByName('SUMMA').AsFloat;
       DBG.SelectedRows.DataSet.Next;
  end ;
  ShowMessage(FloatToStr(sum));
end;

где DBG - DBGridEh1
глянте свежим взглядом может кто увидит косяк....

Программа считает ,но почемуто такую охинею выдаёт в резульат аж жуть....