Source position: uPSC_strutils.pas line 178
function ExtractSubstr(
const S: string;
var Pos: Integer;
const Delims: TSysCharSet
):string;