Fehler bei REWRITE

[turboPASCAL]

Nur mal so:

Delphi-Quellcode:

function GetIOResultErrString(Error: Integer): String;
begin
  case Error of
      2: Result:= 'Datei nicht gefunden';
      3: Result:= 'Ungültiger Dateiname';
      5: Result:= 'Zugriff verweigert';
     32: Result:= 'Verletzung bei der gemeinsamen Benutzung / kein Filesharing';

    100: Result:= 'EOF / Fehler beim Lesen vom Datenträger';
    101: Result:= 'Festplatte voll / Fehler beim Schreiben auf Datenträger';
    102: Result:= 'Dateivariable nicht zugewiesen';
    103: Result:= 'Datei nicht geöffnet';
    104: Result:= 'Datei nicht für Leseoperationen geöffnet';
    105: Result:= 'Datei nicht für Schreiboperationen geöffnet';
    106: Result:= 'Ungültige Eingabe / Ungültiges numerisches Format';
    107: Result:= 'Datei ist bereits geöffnet';
  end;
end;

procedure TForm.ButtonClick...
var
  fDatei: TextFile;
  FileName: String;
  Err: Integer;
begin
  FileName := 'Eintraege.txt';

  AssignFile(fDatei, FileName);

  {$I-}
  Append(fDatei);
  {$I+}
  Err := IOResult;
  if Err <> 0 then
  begin
    {$I-}
    rewrite(fDatei);
    {$I+}
    Err := IOResult;
  end;

  if Err = 0 then
  begin
    writeln(fDatei, edit1.text + ' ' + edit2.text);
    CloseFile(fDatei);
  end else
  begin
    ShowMessage('Fehler beim öffnen oder schreiben der Datei: "' +
      FileName + '"' + #13#10 +
      '(Fehler #' + IntTostr(Err) + ' - ' + GetIOResultErrString(Err) + ')');
  end;
end;