Dateien erstellen, schreiben, Lesen (E/A-Fehler 32 & 103)

[Bounser]

Hallo ersteinmal.
Ich hoffe das ich hier im richtigen Bereich bin. Ich hab schon alles versucht, aber irgendwie finde ich den Fehler nicht:

Also ich möchte eine Datei bearbeiten:

Delphi-Quellcode:

var
  textf: TextFile;

procedure textOpen(Datei: string);
begin
  AssignFile(textf,Datei);
  Rewrite(textf); // an dieser Stelle gibt er E/A-Fehler 32 aus
end;

procedure TForm1.einfacherRechner1Click(Sender: TObject);
begin
        try
        textOpen('Einstellungen.txt');
        WriteLn(textf, '0');
        finally
        CloseFile(textf);
        end;
end;

procedure TForm1.wissenschaftlicherRechner1Click(Sender: TObject);
begin
        try
        textOpen('Einstellungen.txt');
        WriteLn(textf, '1');
        finally
        CloseFile(textf);// an dieser Stelle gibt er E/A-Fehler 103 aus
        end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var settings: String;
begin
  try
  AssignFile(textf,'Einstellungen.txt');
  Reset(textf);
  Readln(textf,settings);
  case Strtoint(settings) of
    0: einfacherRechner1Click(Sender);
    1: wissenschaftlicherRechner1Click(Sender)
  else
        close;
  end;
  finally
  CloseFile(textf);// an dieser Stelle gibt er E/A-Fehler 103 aus
  end;

Woran kann das liegen ? Ich weiß wirklich nicht. E/A-Fehler heißt doch, dass die Datei nicht geöffnet wird, aber wird das nicht mit Rewrite() ?
Ich hoffe ihr könnt mir helfen. Vielen Dank schonmal für die Antworten: