delphi findfirst 怎么判断文件的隐藏属性

delphi findfirst 如何判断文件的隐藏属性
if FindFirst(SourPath + SourFile,faAnyfile,subFileRec) = 0 then
repeat
  if ((subFileRec.Attr and faDirectory) = 0) then 
  begin
  if ((subFileRec.Attr And faHidden) = faHidden) then
  begin
  memo1.lines.add(Sourpath + subFileRec.Name); 
  end;
  end;
end;
until FindNext(subFileRec) <> 0;
FindClose(subFileRec);

为什么我找出来的不是隐藏的文件，而是全部的文件都显示？


------解决方案--------------------
if (subFileRec.Attr And faHidden) = faHidden then

就是这樣判断隐藏文件的，看一下文件，属性是不是隐藏的？