anchor.diff:    TFileEntryType = (etFile, etDir);
     TFileListSortOrder = (soNone, soFileName, soCSFileName, soFileExt, soSize, soTime);
     TFileModeString = string[9];
  +  TfpgSearchMode = (smAny, smFiles, smDirs);
   
   
     // A simple data object
  
positive.code:     // Reported to FPC as bug 9440 in Mantis.
      if fpgFindFirst(FDirectoryName + AllFilesMask, faAnyFile or $00000080, SearchRec) = 0 then
      begin
        AddEntry(SearchRec);
        while fpgFindNext(SearchRec) = 0 do
        begin
          AddEntry(SearchRec);
        end;
      end;
      Result:=True;
    finally
  
negative.code:     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;
  