Datei öffnen

[divBy0]

Hallo zusammen!

Ich bin neu hier im Forum und versuche mich gerade wieder intensiver in Delphi einzuarbeiten.

Ich habe folgendes kleines Problem. Ein ganz simples Programm fragt die DVDNummer und den Filmtitel ab,
das ganze soll jetzt in eine Textdatei geschrieben werden. Funktioniert soweit auch ganz gut, aber leider geht das ganze auch nur ein einziges Mal, dann gibts einen EInOutError mit Code 105.
So sieht der Code aus:

Delphi-Quellcode:

var
  Form1: TForm1;
  DVDNummer : String;
  Filmtitel, s : String;
  datei : TextFile;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  DVDNummer := Edit1.Text;
  Filmtitel := Edit2.Text;

  AssignFile(datei, 'Filme.txt');
  FileMode := fmOpenWrite;
  

  // Prüfen ob die Datei besteht, ansonsten wird die Datei angelegt.
  if not FileExists('Filme.txt') then
  begin
    Rewrite(datei);
    ShowMessage('Datei war nicht vorhanden, wurde aber erstellt...');
  end
  else
  begin
    Reset(datei);
  end;

  writeln(datei, DVDNummer + ',' + Filmtitel);
  CloseFile(datei);
  Edit1.Clear;
  Edit2.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  try
    AssignFile(datei, 'Filme.txt');
    Reset(datei);
    while not EOF(datei) do
    begin
      Readln(datei, s);
      ListBox1.Items.Add(s);
    end;
    CloseFile(datei);
  except
    on e: EInOutError do
    ShowMessage('#' + IntToStr(e.errorcode));
  end;

Die Datei wird richtig angelegt, wenn sie nicht existiert und es werden die beiden Abfragen auch korrekt eingetragen. Soll dann z.B. ein weiterer Eintrag gemacht werden, bricht es mit E/A Code 105 ab.

Danke schon mal im Voraus...