Code:

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

type

MyType = record

   zap1: longword;

   zap2: char;

   zap3: string[10];

end;

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

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

var

m: array of MyType;

....

procedure TForm1.Button1Click(Sender: TObject);

var i: byte;

begin

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

   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.