FileStream und Record

[blackfoxx]

Hi Leute,
ich hab mich mal nen bissl hier umgesehen und nach einer Lösung für mein Problem gesucht. Da ich nichts gefunden habe, frag ich euch mal direkt.
Ich habe eine Datenstruktur aus Zahlen(byte) und Strings und die soll in einen FileStream. Zur Verdeutlichung mal mein Record:

Delphi-Quellcode:

type  fach   = Record
                Name:string[20];
                elf1:byte;
                elf1_einbringen:boolean;
              //...
               end;
      Punkte = Record
                Name:String[40];
                GebDatum:String[10];
                GebOrt:String[30];
                Wohnort:String[30];
                SK:String[5];
                SKL:string[40];
                Grundfach:array[1..11] of fach;
                Seminarfach:Semi;
               end;

var Leistungen:Punkte;

Der Stream wird folgendermaßen gespeichert:

Delphi-Quellcode:

procedure TForm1.Speichernunter1Click(Sender: TObject);
var Datei:TFileStream;
begin
 if Speichern.Execute then
 begin
  try
   datei:=TFileStream.Create(Pchar(speichern.FileName),fmCreate);
   Datei.WriteBuffer(Leistungen,Sizeof(Leistungen));
  finally
   freeandnil(Datei);
  end;
 end;
end;

Das Problem: Im Array "Grundfach" wird von der Variable "Name" nur der allererste Wert gespeichert. Alle folgenden bleiben leer!

Ich hoffe ihr habt einigermaßen verstanden, was ich vor habe und könnt mir weiter helfen.

Grüße Bf