如何將某檔案夾下的指定副檔名的所有檔案顯示出來

例如：
將c:/my music裡的所有mp3檔案的檔案名稱添加到listbox裡

procedure TForm1.Button1Click(Sender: TObject);
begin
    CreateDirTree('c:/my music/');
end;
procedure TForm1.CreateDirTree(path: string);
var
  SR:TSearchRec;
  found:integer;
begin
    found:=FindFirst(path+'*.*',faAnyFile,SR);
    while found=0 do
    begin
        strtmp:=LowerCase(sr.Name);
        if rightstr(strtmp,4)='.mp3' then
        begin
            Listbox1.Items.Add(path+sr.Name);
            CreateDirTree(path+SR.Name+'/');
        end;
      found:=FindNext(SR);
    end;
    FindClose(SR);
end;
//*****************************************************************
下面是另一種方法：

function findfile(path:string):string;
var
  rec:Tsearchrec;
  f:integer;
begin
  f:=findfirst(path+'/*.INI',rec);
  while f=0 do
  begin
     if rec.attr=16 then
         findfile(path+'/'+rec.name);//當檔案為目錄時遞迴調用
     else
     begin
         ... //為檔案時的處理 
     end;
     f:=findnext(rec);
  end;
  findclose(rec);
end;