массивы чтение из edit2 ошибка

[t10yj]

Здравствуйте! Как реализовать, чтобы программа считывала значение из Edit2.

Исходное состояние массива
0123456789

задание на массивы. значение массива берется из Edit2

procedure TForm1.Button1Click(Sender: TObject);
var
S : String;
M:=StrToInt(Edit2.Text);
Arr : array[1..M] of Integer;
i, j, N, L ,d : Integer;
//Количество элементов в массиве.
begin
//Читаем значение сдвига.
n := StrToInt(Edit1.Text);

if n < 0 then
begin
ShowMessage('Сдвиг должен быть задан целым неотрицательным числом. Действие отменено.');
Exit;
end;

[t10yj]

procedure TForm1.Button1Click(Sender: TObject);
const
  M = 10; //Количество элементов в массиве.
var
 Arr : array[1..M] of Integer;
  n: integer;
   S : String;
   i, j, N, d : Integer;
...