Array als Datei speichern

[Mr_Anderson]

Delphi-Quellcode:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
  fs: TFileStream;
  m: Integer;
  begin
   if opendialog1.execute then begin
     fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);{ExtractFilePath(ParamStr(0))+'HighScore.hs'}
     try
        try
          // erstmal wieder leeren
          for m := 0 to length(testr) - 1 do
            begin
              testr[m].bzeit := '';
              testr[m].name  := '';
              testr[m].versuch := 0;
          end;
        // aus Datei einlesen
        fs.ReadBuffer(testr, sizeof(testr));
        except
        // Lesefehler aufgetreten
          on E: EReadError do
          ShowMessage(E.Message);
        end;
     finally
      // fs wieder freigeben
      FreeAndNil(fs);
    end;
  end;
end;

Beim zweiten Mal stürzt das Programm ebenfalls ab. Angeblich wieder wegen einer Zugriffsverletzung ( Habe strings auf 10 Zeichen begrenzt!)
Wenn ich es ohne OpenDialog mache klappt es wunderbar. Dafür schon mal ein großes Dankeschön

MfG