Weil du in diesem Falle mit FileCreate eine Datei erstellst. Das war in deinem obigen Beispiel nicht der Fall.
Außerdem müsste eigentlich
FileCreate einen Rückgabewert vom Typ Integer haben. Damit du die Datei wieder freigeben kannst, muss dieses
Handle an die Funktion
FileClose übergeben werden.
Bsp.:
Delphi-Quellcode:
var
fs: Integer;
begin
if not FileExists(ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'liste.txt') then
fs := FileCreate(ExtractFilePath(ParamStr(0)) +'\Lehrer Liste\'+'liste.txt')
//An dieser Stelle mit der Datei arbeiten.
FileClose(fs); //Und wieder freigegeben.
Näheres dazu auch in der
OH..