Source position: line 0
procedure GetSubDirs(
Dir: String;
const wildcard: String;
var result: TDirNames
); overload;procedure GetSubDirs(
); overload;