Описать функцию, подсчитывающую сумму чисел в столбце сетки строк TStringGrid

Pascal, Delphi, Lazarus Delphi
#1

Описать функцию, подсчитывающую сумму чисел в столбце сетки строк TStringGrid.

#2

если метод формы, то примерно так можно просуммировать

function TForm1.SumColumn ( ColumnForSum : integer ) : Double;
var sum : Double;
  i : integer;
begin
   sum := 0.0;
   for i := StringGrid1.FixedRows to StringGrid1.RowCount-1 do
         sum := sum + StrToFloatDef( StringGrid1.Cells[ ColumnForSum , i], 0);
  SumColumn := sum
end;

это набросок, идея. Подкорректируете под себя.