[NIch]

Во первых
Процитирую сам себя...

Так а что складывать???

Во вторых
Какую ошибку выдает?
В третьих
У меня тож заметил пару ошибочек
В четвертых
Я показал лишь пример, а не готовый код

Ну, раз я пропустил свои ошибки, то хочу загладить вину...
Попробуй так...

Код:

procedure TForm1.StringGrid1Click(Sender: TObject);
var
 i : integer;//цикл
 summ : real;//Книги
 summ1 : real;//Брошюры
 summ2 : real;//Каратыши
 summ3 : real;//Журналы
 summ4 : real;///Карандаши
begin
 summ := 0;
 summ1 := 0;
 summ2 := 0;
 summ3 := 0;
 summ4 := 0;
 //Заполнение  постоянных данных таблицы
 //Наименование строк
 StringGrid1.Cells[0,1]:='1';
 StringGrid1.Cells[0,2]:='2';
 StringGrid1.Cells[0,3]:='3';
 StringGrid1.Cells[0,4]:='4';
 StringGrid1.Cells[0,5]:='5';
 StringGrid1.Cells[0,6]:='6';
 StringGrid1.Cells[0,7]:='7';
 StringGrid1.Cells[0,8]:='8';
 StringGrid1.Cells[0,9]:='9';
 StringGrid1.Cells[0,10]:='10';
 StringGrid1.Cells[0,11]:='11';
 StringGrid1.Cells[0,12]:='12';
 StringGrid1.Cells[0,13]:='13';
 StringGrid1.Cells[0,14]:='14';
 StringGrid1.Cells[0,15]:='15';
 StringGrid1.Cells[0,16]:= '16';
 StringGrid1.Cells[0,17]:= '17';
 StringGrid1.Cells[0,18]:= '18';
 StringGrid1.Cells[0,19]:= '19';
 StringGrid1.Cells[0,20]:= '20';
 StringGrid1.Cells[0,21]:= '21';
 StringGrid1.Cells[0,22]:= '22';
 StringGrid1.Cells[0,23]:= '23';
 StringGrid1.Cells[0,24]:= '24';
 StringGrid1.Cells[0,25]:= '25';
 StringGrid1.Cells[0,26]:= '26';
 StringGrid1.Cells[0,27]:= '27';
 StringGrid1.Cells[0,28]:= '28' ;
 StringGrid1.Cells[0,29]:= '29';
 StringGrid1.Cells[0,30]:= '30';
 StringGrid1.Cells[0,31]:= '31';
 StringGrid1.Cells[0,32]:= 'Итого';
 //Наименование столбцов
 StringGrid1.Cells[0,0]:= 'Дата' ;
 StringGrid1.Cells[1,0]:= 'Книги';
 StringGrid1.Cells[2,0]:= 'Брошюры';
 StringGrid1.Cells[3,0]:= 'Каратыши';
 StringGrid1.Cells[4,0]:= 'Журналы';
 StringGrid1.Cells[5,0]:= 'Карандаши';  
 //Цикл подсчета сумм
 for i:= 1 to 31 do
 begin
  summ :=  summ + StrToFloat(StringGrid1.Cells[1,i]);
  summ1 := summ1 + StrToFloat(StringGrid1.Cells[2,i]);
  summ2 := summ2 + StrToFloat(StringGrid1.Cells[3,i]);
  summ3 := summ3 + StrToFloat(StringGrid1.Cells[4,i]);
  summ4 := summ4 + StrToFloat(StringGrid1.Cells[5,i]);
 end;
 //Заполнение переменных данных
 StringGrid1.Cells[1,32]:= FloatToStr(summ);
 StringGrid1.Cells[2,32]:= FloatToStr(summ1);
 StringGrid1.Cells[3,32]:= FloatToStr(summ2);
 StringGrid1.Cells[4,32]:= FloatToStr(summ3);
 StringGrid1.Cells[5,32]:= FloatToStr(summ4); 
end;

Если что пиши поправлю)))