Сумма всех строк в одном столбце StringGrid (Delphi)

[Саюри]

В StringGrid 6 столбцов, любое количество строк (пользователь сам определяет их количество после запуска программы). Надо посчитать сумму по 6 столбцу, по всем строкам (кроме первой, она с названиями), и вывести результат в этом же столбце, но под данными. Т.е. допустим надо посчитать сумму по 2-5 строкам 6 столбца, ответ должен быть в 6 строке 6 столбца.
Смотрела в разных местах как это делать, вроде сделала, но считает почему-то неправильно.
Подскажите пожалуйста, где ошибка в коде.

begin
for i:=1 to SG1_ZhDO.RowCount-1 do
Sum5:=Sum5+StrToFloat(StringGrid.Cells[5,i]);
SG1_ZhDO.Cells[5,StringGrid.RowCount-1]:=FloatToStr(Sum5);
end;

[Stilet]

Надо посчитать сумму по 6 столбцу

With StringGrid.Rows[5] do begin
 for i:=0 to Count-1 do
  Sum5:=Sum5+StrToFloatDef(Strings[i],0);
end;