Source position: strutils.pp line 212
function ExtractSubstr(
const S: string;
var Pos: Integer;
const Delims: TSysCharSet
):string;