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