[NIch]

Надо:
Type
TMyRec = record
...
end;
TMyRec1 = record
..
end;
Нужно еще и так
Var
Arr : array of TMyRec;
Arr1 : array of TMyRec1;

Так и сделал, только вне класса...не хочу сломать мозг...и вообще от класса отказался...посмотрим, что получится...

Не забудьте только задать размер массива SetLength(Arr, 10);

Про динамический массив я знаю)))