Найти сумму элементов квадратной матрицы на главной и побочной диагоналях

procedure TForm1.FormCreate(Sender: TObject);
var
  A: array[1..5, 1..5] of integer;
   S, i, j: integer;
   str: String;
begin
Randomize;
for i := 1 to 5 do
       for j := 1 to 5 do
         begin
           StringGrid1.Cells[j, i] := IntToStr(RandomRange(0, 10));
         end;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
n =5;
var
A: array[1..n, 1..n] of integer;
   s, s1, i, j: integer;
   str: String;
begin
s:=0;
s1:=0;
for i:=1 to n -1 do
s:=s+strtoint(StringGrid1.Cells[i, i]);
s1:=s1 +strtoint(StringGrid1.Cells[i,n+1-i]); // думаю что проблема начинается здесь 
edit1.Text:= Floattostr(s) + ' ' + Floattostr(s1);
end;

ShowMessage(inttostr(n+1-i))

for i := 1 to 5 do
     for j := 1 to 5 do
         begin StringGrid1.Cells[j, i]

sg:=0;
sp:=0;
for i:=1 to n do
 begin
  sg:=sg+a[i,i];
  sp:=sp+a[i,n-i+1];
 end;