[ecfisa]

Hola.

Fijate si te sirve así:

Código Delphi [-]
// (ColNo basado en índice cero)
function SumOfColumn(SG: TStringGrid; const ColNo: Integer): Extended;
var
  r: Integer;

begin
  Result := 0;
  for r := SG.FixedRows to SG.RowCount-1 do
    Result := Result + StrToFloatDef(
      StringReplace(SG.Cells[ColNo, r], ',', '', [rfReplaceAll]), 0);
end;

Ejemplo de uso:

Código Delphi [-]
...
begin
  ShowMessageFmt('%8.2f',[SumOfColumn(StringGrid1, 1)]);  // (segunda columna) 
  ...

Saludos