Fehler beim Speichern

[SaFu]

Jetzt habe ich den E/A Fehler 123

Delphi-Quellcode:

procedure TForm7.FormCreate(Sender: TObject); // Zellenbeschriftung
var i: integer;
    f: TextFile;
    s: String;
begin
   begin
AssignFile(f, ExtractFilePath(ParamStr(0)) +'C:\Datei\Lehrereinträge.txt');

Reset(f);    // Hier ist jetzt der FEHLER

while EOF(f) = False do
  begin
   {s:=} Readln(f,s);    
   Combobox3.Items.Add(s);
  end;

Closefile(f);
 end;


  for i:=0 to ComponentCount-1 do // XP Anzeige
  if Components[i] is TPanel then (Components[i] as TPanel).ParentBackground:= False;
  Label1.Caption := 'An Koll. ';
  Label2.Caption:= DateToStr(Date);
  Label3.Caption := 'VERTRETUNGSPLAN für Koll. ';
  Label8.Caption:= 'Kalenderwoche: ';
  Label14.Caption:= 'Woche ';
  StringGrid1.Cells[0,0]:= 'Wochentag';
  StringGrid1.Cells[0,1]:= 'Montag';
  StringGrid1.Cells[0,5]:= 'Dienstag';
  StringGrid1.Cells[0,9]:= 'Mittwoch';
  StringGrid1.Cells[0,13]:= 'Donnerstag';
  StringGrid1.Cells[0,17]:= 'Freitag';
  StringGrid1.Cells[0,21]:= 'Samstag';
  StringGrid1.Cells[1,0]:= 'Klasse';
  StringGrid1.Cells[2,0]:= '1';
  StringGrid1.Cells[3,0]:= '2';
  StringGrid1.Cells[4,0]:= '3';
  StringGrid1.Cells[5,0]:= '4';
  StringGrid1.Cells[6,0]:= '5';
  StringGrid1.Cells[7,0]:= '6';
  StringGrid1.Cells[8,0]:= ' ';
  StringGrid1.Cells[9,0]:= '7';
  StringGrid1.Cells[10,0]:= '8';
end;