Source position: cySysUtils.pas line 56
procedure GetSubDirs(
FromDirectory: string;
aList: TStrings
);