Запись сложных записей в файл

Привет Я определил несколько записей в моем проекте, которые могут состоять из других записей, а также динамических массивов обычных типов данных и других записей, это пример типа записи

  Type1=record
    x:integer;
  end;
  Type2=record
    Y:array of X;
    str:string;
  end;

Когда я пытался сохранить одну из переменных этого типа записей в файл с помощью функции блочной записи, например:

var
  Temp1:Type2;
  begin
    setlength(temp1.y,100);
    blockwrite(MyFile,Temp1,sizeOf(Temp1);

, она просто записала столько, сколько размер чистой записи, но temp1 имеет динамические массивы с изменяемым размером, Не мог бы кто-нибудь сказать мне, как я могу записать сложную запись в файл, я имею в виду что-то вроде того, что используется в VB6. Спасибо