[BoRoV]

Ну для твоего случая достаточно такого:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, n: integer;
begin
  n := 0;
  for i := 0 to StringGrid1.ColCount - 1 do
  begin
    try
      n := n + StrToInt(StringGrid1.Cells[i, 1]);
    except
    end;
  end;
  ShowMessage('Сумма = ' + IntToStr(n));
end;