[Kailon]

Код:

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

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