TStrings in record = Problem

[Super_Chemiker]

Hi

Delphi-Quellcode:

  TSaven = record
    BRS: TStrings;
    PTr: TStrings;
  end;

Delphi-Quellcode:

var
  Form1: TForm1;
  Save: TSaven;
  Datei: TFileStream;

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     try
       Datei := TFileStream.Create('CalcyData.dat',fmCreate);
       Save.BRS := ZL.Items;
       save.PTr := form2.ListBox1.Items;
       Datei.Write(Save,SizeOf(Save));
       Datei.Free;
     except
     end;
     
end;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
     calc := 0;
     try
     Datei := TFileStream.Create('CalcyData.dat',fmOpenRead);
     Datei.Read(Save,SizeOf(Save));
     ZL.Items := save.BRS;
     form2.ListBox1.Items := save.PTr;
     except
     ZL.Items.Text := 'Bisherige Rechenschritte:';
     end;
     Datei.Free;
end;

zl und listbox1 sind listboxes

Problem: wenn ich das ding nutze, werden den listboxes items hinzugefügt, aber wenn ich es beende und wieder öffne sind die weg!!
wo liegt mein problem denn nun?
Grüße