Выводит список найденных файлов в ListBox1. Так что необходимо выложить компонент TListBox на форму.

Procedure FindFileInFolder(path, ext: string);
Var SR : TSearchRec;
    Res : Integer;
begin
  Res := FindFirst(path+ext, faAnyFile, SR);
  while Res = 0 do
  begin
   Form1.ListBox1.Items.Add(path+Sr.Name);
   Res := FindNext(SR);
  end;
  FindClose(SR);
end;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
  FindFileInFolder('D:\Music\', '*.mp3');
end;