Переменная цикла в процедуре

...
procedure ppp(const ii:integer);
begin
...
end;
...
begin
for i:=1 to 10 do
  ppp(i);
end.

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
Program Math;
Uses System, System.Windows.Forms, System.Drawing;
Var AForm : Array [1..14] of Form;
       SS, TS : Integer;
       Mg : Array [1..15] of Button;
       Mv : Array [2..15] of Button;
       SaveK : Array [1..14] of String;
       SaveA : Array [1..14] of String;
       W : Array [1..14,1..14] of TextBox;
       ANextButton : Button;
       
Procedure ANext(sender: System.Object; e: System.EventArgs);
Begin
  ((sender as Button).Parent as Form).Close;
End;
       
Begin
  Readln(TS);
  For var i := 1 to TS do Readln(SaveA[i]);
  Writeln('--------------------------');
  Readln(SS);
  For var i := 1 to SS do Readln(SaveK[i]);
  For var i := 1 to SS do
  Begin
    AForm[i] := new Form;
    AForm[i].Text := '';
    AForm[i].ShowIcon := false;
    AForm[i].MaximizeBox := false;
    AForm[i].ClientSize  := New System.Drawing.Size(44 * (TS + 1),(44 * (TS + 1)) + 22);
    AForm[i].StartPosition := System.Windows.Forms.FormStartPosition.CenterScreen;
    For var i1 := 1 to TS+1 do 
    Begin
      Mg[i1] := new Button;
      Mg[i1].Width := 44;
      Mg[i1].Height := 44;
      Mg[i1].Left := 44 * (i1 - 1);
      Mg[i1].Top := 0;
      Mg[i1].BackColor := System.Drawing.SystemColors.GradientActiveCaption;
      Mg[1].Text := SaveK[i];
      If i1 > 1 then Mg[i1].Text := SaveA[i1 - 1];
      AForm[i].Controls.Add(Mg[i1]);
    End;
    For var i1 := 2 to TS+1 do 
    Begin
      Mv[i1] := new Button;
      Mv[i1].Width := 44;
      Mv[i1].Height := 44;
      Mv[i1].Left := 0;
      Mv[i1].Top := 44 * (i1 - 1);
      Mv[i1].BackColor := System.Drawing.SystemColors.GradientActiveCaption;
      Mv[i1].Text := SaveA[i1-1];
      AForm[i].Controls.Add(Mv[i1]);
    End;
    For var i1 := 1 to TS do For var i2 := 1 to TS do
    Begin
      W[i1,i2] := new TextBox;
      W[i1,i2].Font := new System.Drawing.Font('Times New Roman', 24, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(204)));
      W[i1,i2].Width := 44;
      W[i1,i2].Height := 44;
      If i1 = i2 then W[i1,i2].Text := '1';
      W[i1,i2].Top := 44 * i1;
      W[i1,i2].Left := 44 * i2;
      W[i1,i2].TextAlign := System.Windows.Forms.HorizontalAlignment.Center;
      AForm[i].Controls.Add(W[i1,i2]);
    End;
    ANextButton := new Button;
    ANextButton.Width := 44 * (TS + 1);
    ANextButton.Left := 0;
    ANextButton.Top := 44 * (TS + 1);
    ANextButton.Font := New System.Drawing.Font('Times New Roman', 11, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((byte)(204)));
    ANextButton.Text := 'Продолжить';
    ANextButton.Click += ANext;
    AForm[i].Controls.Add(ANextButton);
    Application.Run(AForm[i]);
  End;
End.

For var i1 := 1 to TS do For var i2 := 1 to TS do Ach[i,i1,i2] := W[i1,i2].Text;