anchor.diff:      property    Entry[i: integer]: TFileEntry read GetEntry;
       property    FileMask: TfpgString read FFileMask write FFileMask;
       property    HasFileMode: boolean read FHasFileMode;
  +    property    SearchMode: TfpgSearchMode read FSearchMode write FSearchMode;
       property    ShowHidden: boolean read FShowHidden write FShowHidden;
       property    SpecialDirs: TStringList read FSpecialDirs;
     end;
  
positive.code:   TFileEntryType = (etFile, etDir);
    TFileListSortOrder = (soNone, soFileName, soCSFileName, soFileExt, soSize, soTime);
    TFileModeString = string[9];
  
  
    // A simple data object
  
negative.code:     // Reported to FPC as bug 9440 in Mantis.
      if fpgFindFirst(FDirectoryName + AllFilesMask, faAnyFile or $00000080, SearchRec) = 0 then
      begin
        repeat
          if (FSearchMode=smAny) or
             ((FSearchMode=smFiles) and (not HasAttrib(SearchRec.Attr, faDirectory))) or
             ((FSearchMode=smDirs) and HasAttrib(SearchRec.Attr, faDirectory))
          then
            AddEntry(SearchRec);
        until fpgFindNext(SearchRec) <> 0;
      end;
      Result:=True;
    finally
  