EInOutError mit Write

[TheReaper]

Guten Morgen!

Ich hab seit neuestem ein Problem mit dem Code:

Delphi-Quellcode:

...

for i:=delete to (filesize(f1)-1) do
begin
   seek(f1,i);
   read(f1,liste);
   seek(f1,i-1);
   Write(f1,liste); //<-- Hier ist der Fehler
end;
seek(f1,filesize(f1)-1);
truncate(f1);

...

Es kommt ein EInOutError mit Fehlercode 2 (Dateizugriff verweigert). Ich hab allerdings keinen blassen schimmer warum. Die Prozedur ging früher ohne Probleme. Hab auch seid Wochen nichts mehr dran geändert. Der war auf einmal von heute auf morgen da. Den Code der später ins Programm dazu kam, hat damit nichts zu tun. Also kanns daran nicht liegen. Hat jemand ne Ahnung?
Keine Ahnung ob es wichtig ist aber das ist ne untypisierte Datei.