Problem mit speichern einer Stringliste

[Luckie]

Hmpf. Der Fehler muss wo anders liegen.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  sl: TStringList;
  Count: Cardinal;
begin
  sl := TStringList.Create;
  try
    sl.Add('2');
    sl.Add('6');
    sl.Add('4');
    sl.Add('7');
    Count := RewriteBookmarkFile(sl, ExtractFilepath(ParamStr(0))+'test.txt');
  finally
    FreeAndNil(sl);
  end;
end;

Mit diesem Aufruf geht es tadellos.

Aber hier nicht:

Delphi-Quellcode:

procedure TForm1.btnNextClick(Sender: TObject);
var
  AllowChange: Boolean;
  sl: TStringList;
  Loop: Cardinal;
  pidl: PItemIDList;
  FavPath: array[0..MAX_PATH] of Char;
  Count: Cardinal;
  s: String;
resourcestring
  strEndMessage1 = 'Es wurde(n) %d Link(s) aus den Favoriten gelöscht';
begin
  if LastPage then
  begin
    sl := TStringList.Create;
    try
      Count := 0;
      DeadLinks(sl);
      // User selected links in the listview
      if sl.Count > 0 then
      begin
        if ... then
        begin
        // Bookmark-File
        else
        begin
          Count := RewriteBookmarkFile(sl, edtFilename.Text);
        end;
      end;
    finally
      FreeAndNil(sl);
    end;
  // some more code
end;

Aber ich sehe keinen Unterschied.