Не могу понять в чем дело,выдает ошибку [Warning] Unit1.pas(90): For loop control variable must be simple local variable

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 const
  Nmax=10;
Type
Mas2 = array[1..Nmax,1..Nmax] of extended;   // Îáúÿâëåíèå òèïà
                                             //äâóõìåðíîãî ìàññèâà ðàçìåðíîñòüþ Nmax
Mas1 = array[1..Nmax] of extended;          // Îáúÿâëåíèå òèïà
                                           //îäíîìåðíîãî ìàññèâà ðàçìåðíîñòüþ Nmax
 
var
  Form1: TForm1;
   A : Mas2;            // Îáúÿâëåíèå äâóõìåðíîãî ìàññèâà
  B, Y : Mas1;          // Îáúÿâëåíèå îäíîìåðíûõ ìàññèâîâ
  N, M, i, j : byte;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 N:=3;       // ×èñëî ñòðîê â ìàññèâå
 M:=3;       // ×èñëî ñòîëáöîâ â ìàññèâå
      Edit1.Text:=FloatToStr(N);
      Edit2.Text:=FloatToStr(M);
 {Çàäàíèå ÷èñëà ñòðîê è ñòîëáöîâ â òàáëèöàõ}
   StringGrid1.RowCount:=N+1;
   StringGrid1.ColCount:=M+1;
   StringGrid2.RowCount:=N+1;
      StringGrid3.RowCount:=N+1;
    {Ââîä â ëåâóþ âåðõíþþ ÿ÷åéêó òàáëèöû íàçâàíèÿ ìàññèâà}
   StringGrid1.Cells[0,0]:='Ìàññèâ A:';
   StringGrid2.Cells[0,0]:='Ìàññèâ B:';
   StringGrid3.Cells[0,0]:='Ìàññèâ Y:';
    {Çàïîëíåíèå âåðõíåãî è ëåâîãî ñòîëáöîâ ïîÿñíÿþùèìè ïîäïèñÿìè}
   for i:=1 to N do begin
    StringGrid1.Cells[0,i]:=' i= '+IntToStr(i);
    StringGrid1.Cells[i,0]:=' j= '+IntToStr(i);
                    end;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    N:=StrToInt(Edit1.Text);
    M:=StrToInt(Edit2.Text);
 {Çàäàíèå ÷èñëà ñòðîê è ñòîëáöîâ â òàáëèöàõ}
   StringGrid1.RowCount:=N+1;
   StringGrid1.ColCount:=M+1;
   StringGrid2.RowCount:=N+1;
   StringGrid3.RowCount:=N+1;
 {Çàïîëíåíèå âåðõíåãî è ëåâîãî ñòîëáöîâ ïîÿñíÿþùèìè ïîäïèñÿìè}
   for i:=1 to N do StringGrid1.Cells[0,i]:=' i= '+IntToStr(i);
   for i:=1 to M do StringGrid1.Cells[i,0]:=' j= '+IntToStr(i);
end;
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
     try
  {Çàïîëíåíèå ìàññèâà À ýëåìåíòàìè èç òàáëèöû StringGrid1}
  for i:=1 to N do
   for j:=1 to M do
     A[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);
  {Çàïîëíåíèå ìàññèâà B ýëåìåíòàìè èç òàáëèöû StringGrid2}
  for i:=1 to N do
     B[i]:=StrToFloat(StringGrid2.Cells[0,i]);
 
     except
      on ERangeError do begin ShowMessage('Âûõîä çà ïðåäåëû
ìàññèâà. Óìåíüøèòå ðàçìåð ìàññèâà'); Exit; end;
      on EConvertError do begin ShowMessage(' ÿ÷åéêå îòñóòñòâóåò
çíà÷åíèå, ëèáî ÷èñëî ââåäåíî íå ïðàâèëüíî'); Exit; end;
      else begin ShowMessage('Âîçíèêëà íåèçâåñòíàÿ 
èñêëþ÷èòåëüíàÿ ñèòóàöèÿ!'); Exit; end;
     end;
 
      try
     {Óìíîæåíèå ìàññèâà À íà ìàññèâ Â}
  for i:=1 to N do begin
      Y[i]:=0;
   for j:=1 to M do Y[i]:=Y[i]+A[i,j]*B[j];
                   end;
       except
        on EInvalidOp do begin MessageDlg('Íåïðàâèëüíàÿ îïåðàöèÿ ñ ïëàâàþùåé òî÷êîé',mtError,[mbCancel],0);Exit; end;
        on EOverFlow do begin MessageDlg('Ïåðåïîëíåíèå ïðè âûïîëíå-íèè îïåðàöèè ñ ïëàâàþùåé òî÷êîé',mtError,[mbCancel],0); Exit; end;
         else begin MessageDlg('Âîçíèêëà íåèçâåñòíàÿ èñêëþ÷èòåëüíàÿ ñèòóàöèÿ! ',mtError,[mbCancel],0); Exit; end;
       end;
      {Âûâîä ðåçóëüòàòà â òàáëèöó StringGrid3}
   for i:=1 to N do StringGrid3.Cells[0,i]:=FloatToStrf(y[i],fffixed,6,0);
end;
 
 
End.[QUOTE][DELPHI][DELPHI][DELPHI]