[padavanLS1000]

Код:

procedure TForm1.StringGrid1Click(Sender: TObject);
var
a:real;
begin


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]:= 'Коратышей';


 end;
end.

Как сложить помогите?