[Dead_Gigabit]

тьфу не дописал вот так:

Код:

var
i:integer;
sum:real;
begin
sum:=0; dbg.SelectedRows.DataSet.First;
//for I:=1  to dbg.SelectedRows.Count-1 do begin
  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;

Вот так видно в копи пасте не попало....
Даже с этим результт сумирования неправильный 700+200=900 прога вадает 784..