[lmikle]

Код:

uses masks;
...
const
  M : Array [0..1] Of String = ('*.doc', '*.xls');

procedure findFiles(Path : String);
var
  h, I : Integer;
  F : TSearchRec;
begin
  h := FindFirst(Path + '*.*', faAnyfile,F);
  While h = 0 Do
    Begin
       If (F.Attr And faDirectory) <> 0 
         Then FindFiles(PAth + F.Name + '\') // Рекурсия по подкаталогам
         Else
           For I := Low(M) To High(M) Do
             If MatchesMask(M[i],F.Name) Then // не помню порядок параметров - проверь по справке
               Begin
                 // Файл найден. Делаем что нужно
                Break;
               End;

       h := FindNext(F);
    End;
  FindClose(F);
end;