Source position: GPCStrings.pas line 371
function PosCharInStr32(
theCh: Char;
const theStr: Str32
):Integer;