[тупица(]

Я никак не понимаю, почему не запускается именно с того места, где объявляются переменные I,J.
Я может быть вообще что-то не так сделала:

Код:

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
 StringGrid1.Cols[0].Text:='Январь' ;
StringGrid1.Cols[1].Text:='Февраль' ;
StringGrid1.Cols[2].Text:='Март'  ;
StringGrid1.Cols[3].Text:='Апрель';
StringGrid1.Cols[4].Text:='Май' ;
StringGrid1.Cols[5].Text:='Июнь';
StringGrid1.Cols[6].Text:='Июль' ;
StringGrid1.Cols[7].Text:='Август';
StringGrid1.Cols[8].Text:='Сентябрь' ;
StringGrid1.Cols[9].Text:='Октябрь';
StringGrid1.Cols[10].Text:='Ноябрь';
StringGrid1.Cols[11].Text:='Декабрь' ;
StringGrid1.Cells[0,1]:='12000';
StringGrid1.Cells[1,1]:='14500';
StringGrid1.Cells[2,1]:='15800';
StringGrid1.Cells[3,1]:='13700';
StringGrid1.Cells[4,1]:='19900';
StringGrid1.Cells[5,1]:='17400';
StringGrid1.Cells[6,1]:='16200';
StringGrid1.Cells[7,1]:='11700';
StringGrid1.Cells[8,1]:='18700';
StringGrid1.Cells[9,1]:='14200';
StringGrid1.Cells[10,1]:='12800';
StringGrid1.Cells[11,1]:='17600';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 var I, J : Integer;
  S : Integer;
begin
  S := 0;
  For j := 0 To StringGrid1.RowCount-1 Do
    For I := 0 To StringGrid1.ColCount-1 Do
       Try
          S := S + StrToInt(StringGrid1.Cells[I,J]);
        Except
          // do nothing
        End;
  ShowMessage('Сумма = ' + IntToStr(S));
end;
Edit1.Text:=s;
end;

Admin: Пользуемся тегами для оформления кода!

Что нужно изменить? (Я уже на грани нервного срыва)