Непонятная ошибка при работе программы

[Вампирёнок]

Люди добрые, помогите кто чем может! я не понимаю в чем ошибка! но знаю примерно где она. К сообщению приложу 4 скрина. Когда я нажимаю на "Вычислить"(рис.1) у меня выскакивает сообщение об ошибке (рис.2). Нажимаю на "ОК" выползает листинг проекта(рис. 3), а думаю,что ошибка там, где собственно текст программы для "Вычислить"(рис.4). Посмотрите,пожалуйста..

[Volt]

выкладывайте сам проект .

[mss]

Ты обнаглел.
Даже не спрашивай почему.

[Вампирёнок]

Вот сам проект

[Вампирёнок]

Я обнаглела или кто?Извините,пожалуйста, просто завтра экзамен, а я даже на такой просто задаче запоролась.. Ошибка то не пойму где..И никто мне помочь не может - нет в кругу знакомых программистов((( вот и думаю - а я то что поперлась на эту специальность?эх..

[Volt]

Ошибка вы обращаетесь к несуществующему элементу StringGrid (отсчет идет от нуля )

procedure TForm2.N4Click(Sender: TObject);
var
M:integer; N:integer; s:integer; i:integer;
begin
Diag1.Text:='0'; Diag2.Text:='0';
M:=0;
N:=0;
s:=Form1.MATR.RowCount;
for i:=1 to s do
Begin
      M:=M+StrToInt(Form1.MATR.Cells[i,i]);
      Diag1.Text:=IntToStr(M);
      N:=N+StrToInt(Form1.MATR.Cells[s-i+1,i]);
      Diag2.Text:=IntToStr(N);

End;
end;

[Вампирёнок]

СПАСИБО БОЛЬШОЕ ЗА ПОМОЩЬ!

[mss]

> я то что поперлась на эту специальность?

Так ведь обнаглела)
Ну или другой конец той же палки - совсем без мозгов.