Программа не считает сумму элементов первого столбца в StringGrid

[AB96]

Здравствуйте! Я должен написать такую программу: Дан список футбольных команд и очки, которые они заработали в каждой из шести игр соревнования. Подсчитать суммарное количество очков каждой команды и определить победителя. Сделать с использованием трёх форм: первая - заставка по таймеру, вторая - заставка с паролем, а третья должна содержать всё для решения задачи (решать с использованием StringGrid!.

В общем, для начала я решил подсчитать сумму очков ОДНОЙ команды (то есть сумму элементов первого столбца). Но программа сумму вообще не считает.

Помогите, пожалуйста, разобраться: почему программа не считает сумму элементов первого столбца в StringGrid?

Ссылка на программу: https://cloud.mail.ru/public/D3B7/DTkczSaxG

Заранее спасибо!

[Stilet]

программа сумму вообще не считает.

Т.е. ShowMessage не показывается?
Этот обработчик?:

procedure TForm3.Button2Click(Sender: TObject);
 var A: array [1..10] of integer;
                Sum,k1,i,code: integer;
 begin
    sum:= 0;
    for i:=0 to StringGrid1.RowCount-1 do
      sum:=sum+StrToIntDef(StringGrid1.Cells[0,i],0);
         ShowMessage('Сумма элементов первого столбца: '+IntToStr(Sum));

 end;

[AB96]

Этот обработчик показывается, но сумму всегда выдаёт нулевую.

[Alekseyh]

procedure TForm3.Button2Click(Sender: TObject);
 var A: array [1..10] of integer;
                Sum,k1,i,code: integer;
 begin
    sum:= 0;
    for i:=1 to StringGrid1.RowCount-1 do
      sum:=sum+StrToInt(StringGrid1.Cells[1,i]);
         ShowMessage('Сумма элементов первого столбца: '+IntToStr(Sum));

 end;

Ты пытался с нулевой строки и столбца суммировать