Problem mit speichern einer Stringliste

[Luckie]

Delphi-Quellcode:

function RewriteBookmarkFile(sl: TStrings; Filename: string): Cardinal;
var
  slBookmarkFile: TStringList;
  outerLoop, innerLoop: Cardinal;
  Count: Cardinal;
begin
  Count := 0;
  slBookmarkFile := TStringList.Create;
  try
    slBookmarkFile.LoadFromFile(Filename);
    for outerLoop := 0 to sl.Count - 1 do
    begin
      for innerLoop := slBookmarkFile.Count - 1 downto 0 do
      begin
        if pos(sl.Strings[outerLoop], slBookmarkFile.Strings[innerLoop]) > 0
          then
        begin
          slBookmarkFile.Delete(innerLoop);
          Inc(Count);
        end;
      end;
    end;
    slBookmarkFile.SaveToFile(Filename);
  finally
    FreeAndNil(slBookmarkFile);
  end;
  result := Count;
end;

Warum bekomme ich hier immer zum Schluss den Fehler, dass die Datei nicht erstellt werden könnte?