[san-46]

Код:

function TForm1.CalcSumm: Extended;
var
  I, K : Integer;
  E : Extended;
  FS : TFormatSettings;
  S : String;
begin
  Result := 0;
  GetLocaleFormatSettings(0, FS);
  FS.DecimalSeparator := '.';
  for I := 1 to StringGrid1.RowCount-1 do begin
    S := StringGrid1.Cells[4, I];
    K := Pos(',', S);  
    if K > 0 then S[K] := '.';
    if TryStrToFloat(S, E, FS) then
      Result := Result + E;
  end;
end;

Такая модификация позволит ставить при вводе числа либо точку, либо запятую.