Исключительная ситуация

procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
begin
  n:=StrToInt(Edit1.Text);
  With StringGrid1 do
    begin
      RowCount:=n+1;
      ColCount:=n+1;
      for i:=1 to RowCount do Cells[i,0]:=IntToStr(i);
      for i:=1 to RowCount do Cells[0,i]:=IntToStr(i);
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,n:integer;
    f:boolean;
begin
  n:=StrToInt(Edit1.Text);
   with StringGrid1 do
    begin
      f:=false;
      for i:=1 to n-1 do
      for j:=1 to n-i do
      if cells[i,j] <> cells[n-i+1,n-j+1] then
      f:=true;
      if f then ShowMessage('Íåññåìåòðè÷íî')
      else ShowMessage('Ñèìåòðè÷íî');
      end;
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
begin
  n:=StrToIntDef(Edit1.Text,0);
  With StringGrid1 do
    begin
      RowCount:=n+1;
      ColCount:=n+1;
      for i:=1 to ColCount - 1 do Cells[i,0]:=IntToStr(i);
      for i:=1 to RowCount - 1 do Cells[0,i]:=IntToStr(i);
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
    f:boolean;
begin
   with StringGrid1 do
    begin
      f:=false;
      for i:=1 to ColCount-1 do
      for j:=1 to RowCount-i do
      if cells[i,j] <> cells[ColCount-i+1,RowCoun-j+1] then f:= true;
      if f then ShowMessage('Нессеметрично')
      else ShowMessage('Симетрично');
      end;
end;
end.