Source position: compactutils.pas line 466
function IndexOfChar(
const S: String;
Chr: Char
):Integer;