Schön, wieso läuft es dann hier ?
Delphi-Quellcode:
procedure TForm1.Label13Click(Sender: TObject);
var mp3Folder : string;
begin
mp3Folder := BrowseDialog('Choose a folder with mp3 files', BIF_RETURNONLYFSDIRS);
if mp3Folder = '' then Exit;
txtFolder.Caption := mp3Folder;
//fill the list box with mp3 files
FillMP3FileList(mp3Folder, playlist.Items);
end;