Source position: strutils.pp line 207
function ExtractWordPos(
N: Integer;
const S: string;
const WordDelims: TSysCharSet;
out Pos: Integer
):string;