Подскажите, пожалуйста что не так с кодом

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    StringGrid1: TStringGrid;
    Label5: TLabel;
    StringGrid2: TStringGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  N,M:integer;
implementation
 
 {$R *.dfm}
 
 procedure TForm1.Create(Sender:TObject);
 begin
 Label1.Caption:='Размерность матрицы';
 N:=4;
 M:=4;
 Edit1.Text:='4';
 Edit2.Text:='4';
 
 Label4.Caption:='Исходная матрица';
 Label5.Caption:='Преобразованная матрица';
 Label4.Visible:=false;
 Label5.Visible:=false;
 
 StringGrid1.Height:=125;
 StringGrid2.Height:=125;
 StringGrid1.Width:=190;
 StringGrid2.Width:=190;
 
 StringGrid1.RowCount:=N+1;
 StringGrid1.ColCount:=M+1;
 StringGrid2.RowCount:=N+1;
 StringGrid2.ColCount:=M+1;
 
 StringGrid1.DefaultRowHeight:=30;
 StringGrid1.DefaultColWidth:=40;
 StringGrid2.DefaultRowHeight:=30;
 StringGrid2.DefaultColWidth:=40;
 
 StringGrid1.Visible:=false;
 StringGrid2.Visible:=false;
 
 Button1.Caption:='Ввод';
 Button2.Caption:='Очистить';
 BitBtn1.Kind:=bkOK;
 BitBtn2.Kind:=bkCansel;
 
 BitBtn1.Visible:=false;
 BitBtn2.Visible:=false;
 end;
 
 
 procedure TFormBitBtn1Click(Sender:TObject);
 Var i,j: byte;
     kod:integer;
     A:array[1..10,1..10] of integer;
 begin
  For i:=1 to n do
   For j:=1 to m do begin
    Val(StringGrid1.Cells[i,j],A[i,j],kod);
    if kod<>0 then break;
    end;
   If kod=0 then begin
    StringGrid2.Visible:=True;
    Label5.Visible:=True;
     with StringGrid2 do begin
      for i:=1 to ColCount do Cells[i,0]:=IntToStr(i);
      for i:=1 to RowCount do Cells[0,i]:=IntToStr(i);
     end;
     For i:=1 to m do
      For j:=1 to n do
       StringGrid2.Cells[i,j]:=IntToStr(A[i,j]);
    end
    else NessageDlg('Ошибка ввода матрицы!', mtInformation,[mbOk],0);
  end;
 
 
procedure TForm1.BitBtn2Click(Sender: TObject);
 begin
 Close;
 end;
 
procedure TForm1.FormCreate(Sender: TObject);
 Var i:byte; kod_n,kod_m,kod:integer;
 begin
   Val(Edit1.Text,N,kod_n);
   Val(Edit2.Text,N,kod_m);
 
   If (kod_n=0) and (kod_m=0) then begin
    Label4.Visible:=True;
    BitBtn1.Visible:=True;
    BitBtn2.Visible:=True;
 
    StringGrid1.RowCount:=N+1;
    StringGrid1.ColCount:=M+1;
    StringGrid2.RowCount:=N+1;
    StringGrid2.ColCount:=M+1;
 
    with StringGrid2 do begin
      for i:=1 to ColCount do Cells[i,0]:=IntToStr(i);
      for i:=1 to RowCount do Cells[0,i]:=IntToStr(i);
     end;
    end
    else begin
    MessageDlg('Размеры матрицы введены некорректно!', mtInformation[mbOk],0);
    N:=4; M:=4;
    Edit1.Text:='4';
    Edit2.Text:='4';
    end;
   end;
 
procedure TForm1.Button2Click(Sender: TObject);
 Var i,j:byte;
 begin
 Edit1.Text:='4';
 Edit2.Text:='4';
 With StringGrid1 do
  for i:=1 to ColCount do
  for j:=1 to RowCount do
  Cells[i,j]:=' ';
 
 Label4.Visible:=false;
 Label5.Visible:=false;
 StringGrid1.Visible:=false;
 StringGrid2.Visible:=false;
 BitBtn1.Visible:=false;
 BitBtn2.Visible:=false;
 end;
end.

procedure TForm1.Create(Sender:TObject);