Можно конечно и компонентом FileSearch воспользоваться, но я
думал покомпактнее получится.
А что косается увеличения кода, FileSearch+DirTools=DirTools + новая точка