Listbox mit Lieder füllen funktioniert nicht

[DeddyH]

Zitat von ConnorMcLeod:

Zitat von FrankJ28:

Ich gehe davon aus,

Stimmt schon, dass das logisch wäre, aber es steht nirgends. Also ...

Es steht im Ausgangspost.

[edit] Wie ist es denn so?

Delphi-Quellcode:

procedure MP3ListeFuellen(Folder: string; sl: TStrings);
var
  Rec : TSearchRec;
//  mp3List: TListBox;
begin
  Assert(Assigned(sl));
  sl.BeginUpdate;
  try
    Folder := IncludeTrailingPathDelimiter(Folder);
    sl.Clear;
    if SysUtils.FindFirst(Folder + '*.mp3', faAnyFile, Rec) = 0 then
      try
        repeat
          sl.Add(Rec.Name);
        until SysUtils.FindNext(Rec) <> 0;
      finally
        SysUtils.FindClose(Rec);
      end;
  finally
    sl.EndUpdate;
  end;
end;

[/edit]