FindAllFiles

function FindAllFiles(

  const SearchPath: string;

  const SearchMask: string = '';

  SearchSubDirs: Boolean = True;

  DirAttr: Word = faDirectory;

  MaskSeparator: char = ';';

  PathSeparator: char = ';'

):TStringList; overload;

procedure FindAllFiles(

  AList: TStrings;

  const SearchPath: string;

  const SearchMask: string = '';

  SearchSubDirs: Boolean = True;

  DirAttr: Word = faDirectory;

  MaskSeparator: char = ';';

  PathSeparator: char = ';'

); overload;