[ecfisa]

Hola PaulaGV.

Agregando algo a lo que correctamente te han sugerido, noté que mencionas que vas a usar la última columna de cada fila para poner el resultado de la sumatoria de sus columnas, es decir que deberías impedir que se pueda escribir en ColCount - 1:

Código Delphi [-]
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
   CanSelect := ACol <> StringGrid1.ColCount - 1;
end;

Otra opción que sumaría los valores enteros, sin provocar una excepcion ante posibles valores alfanuméricos, es usando la función TryStrToInt:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  c ,f ,v, suma: integer;
begin
  with StringGrid1 do
  begin
    for f:= FixedRows to RowCount - 1 do
    begin
      suma:= 0;
      for c:= FixedCols to ColCount - 2 do
        if TryStrToInt(Trim(Cells[c,f]), v) then
          suma:= suma + v;
      Cells[ColCount-1, f]:= IntToStr(suma)
    end
  end
end;

Saludos.