Source position: strutils.pp line 203
function ExtractWord(
N: Integer;
const S: string;
const WordDelims: TSysCharSet
):string;