CloseFile(F) schließt Datei nicht

[Luckie]

Neuer Versuch:

Delphi-Quellcode:

function RewriteBookmarkFile(sl: TStrings; Filename: string): Cardinal;
var
  Loop: Integer;
  Count: Cardinal;
  inF, outF: TextFile;
  s: String;
begin
  Count := 0;
{$I-}
  AssignFile(inF, Filename);
  Reset(inF);
  AssignFile(outF, Filename+'.html');
  Rewrite(outF);
  for Loop := 0 to sl.Count - 1 do
  begin
    while not EOF(inF) do
    begin
      Readln(inF, s);
      if pos(sl.Strings[Loop], s) = 0 then
        WriteLn(outF, s)
      else
        Inc(Count);
    end;
  end;
  CloseFile(inF);
  CloseFile(outF);
  DeleteFile(Filename);
  RaiseLastOSError();
{$I+}
  result := Count;
end;

RaiseLastError(); sagt mir:

Zitat:

---------------------------
Bookmark-Checker
---------------------------
Systemfehler. Code: 32.

Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird.
---------------------------
OK
---------------------------

Was darauf zurückzuführen ist, dass CloseFile(inF) die datei nicht richtig schließt. Also was tun?

Da vergeht einem die Lust am Programmieren.