Access Violation при обращении к переменной-члену класса

В общем, так. Класс представляет собой матрицу.
Вот объявление класса:

Код (Text):

1. TMatrix = class
2.     Element: array of array of integer;
3.     high: integer;
4.     width: integer;
5.     constructor Create(NewHigh: integer; NewWidth: integer);
6.     function GetElement(i,j: integer): integer;
7.     procedure SetElement(i,j: integer;Value: integer);
8.     function GetHigh: integer;
9.     procedure SetHigh(NewHigh: integer);
10.     function GetWidth: integer;
11.     procedure SetWidth(NewWidth: integer);
12.     function Mult(var SecondMatrix: TMatrix): boolean; overload;
13.     procedure Mult(Number: integer); overload;
14.     function AddMatrix(var SecondMatrix: TMatrix): boolean;
15.   end;

Вот реализация конструктора:
constructor TMatrix.Create(NewHigh: integer;NewWidth: integer);
var
i,j: integer;
begin
SetLength(A.Element,NewWidth); // выделяем память под строку матрицы
for i:=0 to NewWidth-1 do
SetLength(A.Element,NewHigh); // поэлементно выделяем память под столбец матрицы
randomize;
for i:=0 to NewWidth-1 do
for j:=0 to NewHigh-1 do
Element[i,j] := Random(NewWidth+NewHigh+1); // и случайным образом заполняем массив
end;
Компилятор выдает Access Violation при трассировке мест, выделенных жирным шрифтом. Спрашивается:
1) Почему?
2) Что можно сделать, сохраняя структуру Element (динамический массив-матрица)?

 

1. класс как создаёте?
2. на Delphi желательно использовать конструкции with;
3. до второго SetLength() как добрались, если первый не выделил память?

 

что-то я не понял а что такое А?

 

не в тему: высота - height

 

Army
Убери из жирных строчек "A."