Массив без ограничения типа и размера

Code:

//к примеру опишем свой тип

type

 MyType = record

   zap1: longword;

   zap2: char;

   zap3: string[10];

end;

 //опишем НЕОГРАНИЧЕННЫЙ массив переменный типа MyType

//хотя, может использоваться абсолютно любой

var

m: arrayof MyType;

 ....

 procedure TForm1.Button1Click(Sender: TObject);

var i: byte;

begin

for i := 0to9do// нумерация элементов начинается с нуля!

    begin

     SetLength(m, Length(m) + 1); // увеличение длины массива на 1

     m[i].zap1 := i; //  присвоение

     m[i].zap2 := chr(i); //          полям

     m[i].zap3 := inttostr(i); //              значений

   end;

end;

 ....

 SetLength(m, 0); // освобождение памяти

end.