динамический массив в record. последовательное расположение в памяти

[error404ru]

Приветствую всех!
Есть одна проблема. Подключаю стороннюю библиотеку (написана была на СИ-подобном) и в функцию передаю структуру как параметр

если делаю вот так, то все работает.

  TLevel = record
    iValue1: Integer;
    iValue2: Integer;
    iValue3: Integer;
  end;

  TMainLevels = record
    iSize: Integer;
    iReserved: Integer;
    aLevels: array[0..2] of TLevel;

Функция отрабатывает нормально.

Но суть в том что aLevels должен быть динамическим массивом

  TLevel = record
    iValue1: Integer;
    iValue2: Integer;
    iValue3: Integer;
  end;

  TMainLevels = record
    iSize: Integer;
    iReserved: Integer;
    aLevels: array of TLevel;

Но так ничего не работает.



Как мне правильно объявить такой динамический массив? или что-то еще надо сделать? чтобы в памяти он располагался последовательно без использования указателя.

[Slym]

procedure TForm1.Button1Click(Sender: TObject);
const MaxLevels=1023;
type
  TLevel = packed record
    iValue1,iValue2,iValue3: Integer;
  end;

  PMainLevels=^TMainLevels;
  TMainLevels = packed record
    iSize,iReserved: Integer;
    aLevels: array[0..MaxLevels] of TLevel;
  end;
var
  Size:integer;
  MainLevels:PMainLevels;
begin
  Size:=10;
  GetMem(MainLevels,SizeOf(Integer)*2+SizeOf(TLevel)*Size);
  MainLevels.iSize:=Size;
  MainLevels.aLevels[0].iValue1:=1;
//Работа
  FreeMem(MainLevels);
end;