labels abspeichern

[tabl]

ich will ne menge labels abspeichern übern 2 arrays.
aber irgenwie will er die labels wenn er sie geladen hat nicht akktualisren bzw überschreiben. warum?
zuständiger quelltext ausschnitt:

Delphi-Quellcode:

procedure TForm2.saveClick(Sender: TObject);
var
  datei : file of tlabel;
  i :integer;
begin
  try
   if savedialog.Execute then
  begin
    assignfile(datei,savedialog.FileName);
    rewrite(datei);
    for i := 0 to 12 do
      write(datei,mainunit.lblarray[i]);
    for i := 0 to 19 do
      write(datei,mo1);

  end;
  finally
  closefile(datei);end;
end;

procedure TForm2.LadenClick(Sender: TObject);
var datei : file of tlabel;
    i : integer;
begin
  try
  if opendialog.Execute then
  begin
    assignfile(datei,opendialog.FileName);
    reset(datei);
    for i:=0 to 12 do
      read(datei,lblarray[i]);
    for i := 0 to 19 do
      read(datei,mo1);
  end;
  finally
  closefile(datei);
  end;
end;