FindAllDirectories

function FindAllDirectories(

  const SearchPath: string;

  SearchSubDirs: Boolean = True

):TStringList; overload;

procedure FindAllDirectories(

  AList: TStrings;

  const SearchPath: string;

  SearchSubDirs: Boolean = True

); overload;