ファイル検索関数を作りましたが、どうも
非効率的な気がします。
Maskユニットを使いたくなかったので MatchesMask 関数を使わなくても
大丈夫なように少し工夫しました。

最初に、マスクを指定して FindFirst → ファイル一覧を得る

次に、マスクには * を指定して FindFirst → ディレクトリ一覧を得る
→ 再帰検索。

２回目で結局全てを検索しているので、1回目の検索は無くてもいいような
気もしますが、１回目で * マスク検索をすると、ディレクトリ以外だった場合に MatchesMask 関数でチェックをしないといけません。

高速化のために、よい知恵はありますか。

ソース↓
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1004653717&res=1