Source position: compactutils.pas line 450
function StrScanLen(
Str: PChar;
Chr: Char;
Len: Integer
):PChar;