TFileStream mit dynamischen Array

[Fischli80]

Habe folgenden Sachverhalt:

Delphi-Quellcode:

type x = record

          x1 : string [255];
     x2 : string [40];
          x3 : string [80];
          x4 : string [50];
          x5 : string [4];
     x6 : byte;

    end;

     y = record

          y1 : string [255];
     y2 : string [80];
     y3 : string [40];
     y4 : string [20];
     y5 : byte;
     y6 : byte;
     y7 : byte;
     y8 : byte;


    end;

     z = record
   
     z1 : x;
     z2 : array of y;

    end;

var myZ : z;

procedure saveZToFile;

var zf : TFileStream;

begin

  fz := TFileStream.Create ('test.dat', fmCreate);
  fz.WriteBuffer (myZ, SizeOf(myZ));
  fz.free;

end;


procedure loadZFromFile;

var zf : TFileStream;
 
begin

  fz := TFileStream.Create ('test.dat', fmOpenRead);
  fz.ReadBuffer (myZ, SizeOf(myZ));
  fz.free;

end;

Mein Problem ist nun, dass der aktuelle Datensatz nicht richtig gespeichert wird, wobei
anscheinend die SizeOf Methode nicht die richtige Größe ermittelt. Durch testen ist mir
aufgefallen, dass es damit zusammenhängt, dass das Array dynamisch ist bzw. wenn Strings
nicht in der Länge terminiert sind.

Aber zur Laufzeit ist myZ genau bestimmt und das Array mittels SetLength auch begrenzt auf
wenige Datensätze.

Wie kann ich nun dieses Konstrukt speichern und laden???
Was hab ich missverstanden? Die entstehende Datei beim speichern ist 440 Byte groß also
ca die Größe von x.

Hoffe Ihr könnt mir helfen