Пример
Данный пример выводит список всех файлов с расширением *.txt в каталоге 'C:\WINDOWS\'.
var
   F: TSearchRec;
begin
   if FindFirst('C:\WINDOWS\*.txt', faAnyFile, F)=0 then
     begin
     Memo1.Lines.Add(F.Name);
     while FindNext(F) = 0 do Memo1.Lines.Add( F.Name);
     end;
   FindClose(F);
end;