Copy one directory tree to another
Source position: tiUtils.pas line 221
procedure tiXCopy(
const ASource: string;
const ATarget: string
);