procedure FileSystem(papka, fajl: string);
const FileAttr: array[0..37] of integer = (1, 2, 3, 4, 5, 6, 7, 32, 33, 34, 35,
         36, 37, 38, 39, 128, 288, 289, 290, 2048, 2080, 2081, 2082, 2083, 2084,
         2085, 2086, 8198, 8224, 8225, 8226, 8227, 8228, 8229, 8230, 10272,
         10273, 10274); // всевозможные атрибуты файлов
         { faReadOnly = $00000001 (1) }
         { faHidden = $00000002 (2) }
         { faSysFile = $00000004 (4) }
         { faVolumeID = $00000008 (8) }
         { faArchive = $00000020 (32) }
         { faAnyFile = $0000003F (63) }
      PapkaAttr: array[0..25] of integer = (16, 17, 18, 19, 20, 21, 22, 48, 49,
         50, 2064, 2065, 2066, 2067, 2068, 2069, 2070, 2071, 8208, 8209, 8210,
         8211, 8212, 8213, 8214, 10256); // всевозможные атрибуты папок
         { faDirectory = $00000010 (16) }
var poisk: TSearchRec;
    ds: string;

   function PrinadlezhitI(n: integer; p: array of integer): boolean;
   var i: integer;
   begin
      Result:=false;
      For i:=Low(p) to High(p) do
         If n=p[i] then
            Result:=true;
   end;

begin
   ChDir(papka);
   If IOResult<>0 then
      Exit;
   If papka[Length(papka)]<>'\' then
      papka:=papka+'\';
   If FindFirst(fajl, faAnyFile, poisk)=0 then
   Repeat
      If PrinadlezhitI(poisk.Attr, FileAttr) then
      begin
         ds:=FormatDateTime('dd.mm.yyyy hh:nn:ss', FileDateToDateTime(poisk.Time));
         Form1.Memo1.Lines.Add(Format('%s%s: размер - %d, дата изменения - %s',
            [papka, poisk.Name, poisk.Size, ds]));
      end;
   Until FindNext(poisk)<>0;
   ChDir(papka);
   If FindFirst('*', faAnyFile, poisk)=0 then
   Repeat
      If PrinadlezhitI(poisk.Attr, PapkaAttr) then
         If not (poisk.Name='.') and not (poisk.Name='..') then
         begin
            FileSystem(papka+poisk.Name, fajl);
            ChDir(papka);
         end;
   Until FindNext(poisk)<>0;
   FindClose(poisk);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Clear;
   FileSystem('E:\Temp', '*'); // поиск всех файлов
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Memo1.Clear;
   FileSystem('E:\Temp', '*.mp3'); // поиск файлов типа mp3
end;

где

papka - исходная папка;

fajl - файлы, которые нужно найти в исходной папке.

Например, при нажании на 1-ю кнопку текст в Memo1 будет выглядеть следующим образом:

При нажании на 2-ю кнопку текст в Memo1 будет выглядеть следующим образом:

Примечание. Допускается использовать следующие константы: faReadOnly, faHidden, faSysFile, faVolumeID, faDirectory, faArchive, faAnyFile. Например:

If poisk.Attr = faSysFile then // найти системные файлы
If poisk.Attr = faAnyFile then // найти все файлы