DirectoryListBox + Carpetas ocultas

[Enan0]

Hola Muchachos, Buen dia, estoy necesitando hacer que en el Directory listbox se muestren las carpetas ocultas.
Saben como puedo modificar el

Código Delphi [-]
function TDirectoryListbox.ReadDirectoryNames(const ParentDirectory: string;
  DirectoryList: TStringList): Integer;

[Enan0]

Bueno simplemente edite esta linea y listo!!!!

Código Delphi [-]
Status := FindFirst(SlashSep(ParentDirectory, '*.*'),{faDirectory,} faAnyFile, SearchRec);