Source position: tiUtils.pas line 243
function tiExtractDirToLevel(
const AFileName: TFileName;
ALevel: Byte
):TFileName;