Delphi-Help

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

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.