＞if 0=FindFirst(DirPath+'*.*', faAnyFile, SearchRec) then try
「0=FindFirst」？
「0=FindFirst」？？？