Listbox mit Lieder füllen funktioniert nicht

[Metallicwar]

Hallo, ich bin gerade dabei einen MP3 Player zu programmieren.
Ich wähle in einem BrowseDialog einen Musikordner aus:

Delphi-Quellcode:

procedure TForm1.btnOpenFolderClick(Sender: TObject);
var mp3Folder : string;
begin
 mp3Folder := BrowseDialog('Wähle einen Ordner mit Liedern aus:', BIF_RETURNONLYFSDIRS);
 if mp3Folder = '' then Exit;

 txtFolder.Caption := mp3Folder;

 MP3ListeFuellen(mp3Folder, mp3List.Items);
end;

zum Schluss wird die function MP3ListeFuellen aufgerufen...

Delphi-Quellcode:

procedure MP3ListeFuellen(Folder: string; sl: TStrings);
var
  Rec : TSearchRec;
  mp3List: TListBox;
begin
 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;
end;

er durchläuft die Schleife, füllt mir aber nicht die ListBox ..
Kann mir bitte jemand helfen?