Source position: unixutils.pp line 107
procedure GetSubdirectories(
const Dir: string;
List: TStrings
);