質問させてください。
ディレクトリ内のファイルを列挙するために
procedure Tekitou(DirPath:string);
var
SearchRec: TSearchRec;
begin
if 0=FindFirst(DirPath+'*.*', faAnyFile, SearchRec) then try
　　・
　　・
　　・
　finally
FindClose(SearchRec);
end;

でいままで列挙してたのですが、今日急に
"cardinalとTSearchRecには互換性がありません" >FindClose(SearchRec)

とでるようになりました　原因は何が考えれるでしょうか？