まずはソースから。
function IsExistsEx(SubStr,Str:string;aPos:integer=-1):boolean; var s:string; begin Result:=False; while SubStr<>'' do begin s:=NP_Trim(NP_CutFirst(SubStr,_SP)); if s='' then continue; //0 Start if aPos=-1 then Result:=(Str.IndexOf(s)<>-1) else Result:=(Str.IndexOf(s)=aPos); if Result then break; end; end;