Datei in Benutzung

[SaFu]

Woran kann es liegen das mein Programm beim ersten Neutart den Fehler aus gibt das die Datei von einem anderen Prozess z.Zt in Benutzung ist sie wird am Anfang erzeugt wenn sie nicht da ist

Delphi-Quellcode:

{TxT Dateien erstellen}
procedure TForm1.listeerst;
begin
  if not FileExists(ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'liste.txt') then
    begin
      FileCreate(ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'liste.txt')
    end;
     begin
       if not FileExists(ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'alleLehrer.txt') then
         begin
           FileCreate(ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'alleLehrer.txt')
         end;
     end;
end;