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:     FEntries: TList;
      FDirectoryName: TfpgString;
      FFileMask: TfpgString;
      FShowHidden: boolean;
      FCurrentSpecialDir: integer;
      procedure   AddEntry(sr: TSearchRec);
  
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;
  