[san-46]

Код:

function TForm1.CalcSumm: Extended;
var
  I : Integer;
  E : Extended;
begin
  Result := 0;
  for I := 1 to StringGrid1.RowCount-1 do //c 1, если есть заголовок
    if TryStrToFloat(StringGrid1.Cells[4, I], E) then //индекс "4" - пятая колонка
      Result := Result + E;
end;

Преобразовать полученный результат, чтобы его отобразить можно функцией FloatToStr или FloatToStrF.