Problem beim auflisten von dateien in verzeichnissen

[NicNacMan]

also bei mir funzts!
aber wieso einfach wenns auch kompliziert geht

Delphi-Quellcode:

uses
  FileCtrl;

{...}

procedure ScanDirectory(mask : String);
var
  search    : TSearchRec;
  verz, such: String;
begin
  such := ExtractFileName(mask);
  verz := ExtractFilePath(mask);
  if verz[length(verz)] <> '\' then
    verz := verz + '\';
  if (FindFirst(mask, faAnyFile, search) = 0) then
    repeat
      Form1.ListBox1.Items.Add(verz + search.Name);
    until (FindNext(search) <> 0);
  if (FindFirst(verz + '*.*',fadirectory,search) = 0) then
    begin
      repeat
        if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') then
          ScanDirectory(verz + search.Name + '\' + such);
      until (FindNext(search) <> 0);
      FindClose(search);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  path: String;
begin
  if SelectDirectory('Ordner wählen', '', path) then
    ScanDirectory(path+'*.mp3');
end;