如何区分文件和文件夹?

var
  FindResult: integer;
  FSearchRec, DSearchRec: TSearchRec;
  APath : String;
  i : Integer;
  AFiles : TStrings;
begin
  AFiles := TStringList.Create;
  APath := Path;
  if APath[Length(APath)] <> '\' then
    APath := APath + '\';FindResult := FindFirst(APath+'*.*', faDirectory , FSearchRec); //在根目录中查找指定文件  try
    while FindResult = 0 do
    begin
      if (FSearchRec.Name = '.') or (FSearchRec.Name = '..') then Continue;
      Files.Add(FSearchRec.Name);
      FindResult := FindNext(FSearchRec); // 查找下一个指定文件
    end;
  finally
    FindClose(FSearchRec);
  end;
这个是用来查文件夹的,同样也想查文件,就是分开查,不要看隐藏的!
我是想分开查,但是最后查出来的文件夹和文件都乱的,不知怎么回事?
FindFirst()中选择的类型是这几个,不知每个是做什么的,请帮忙!
  faReadOnly  = $00000001 platform;
  faHidden    = $00000002 platform;
  faSysFile   = $00000004 platform;
  faVolumeID  = $00000008 platform;
  faDirectory = $00000010;
  faArchive   = $00000020 platform;
  faSymLink   = $00000040 platform;
  faAnyFile   = $0000003F;