[Мишка-90]

всем доброго времени суток.. помогите написать пожалуйста код.. нужно чтобы в ячейках стринггрида считались данные во всей таблице одновременно и выводило результат в некое "итого". которое находится под каждым считаемым столбцом грубо говоря.. я написал код, который может считать только по одному столбцу

Код:

var
d : array[0..300] of real;
i,j : integer;

d[1] := 0;
      for i:=6 to StringGrid1.RowCount-10 do d[1] := d[1] + StrToFloat(StringGrid1.Cells[2,i]);
        StringGrid1.Cells[2,30]:= FloatToStr(d[1]);

всего в нем 262 столбца.. как правильно сделать цикл для всего стринггрида?