SCharIs

function SCharIs(

  const S: string;

  Index: Integer;

  C: char

):Boolean; overload;

function SCharIs(

  const S: string;

  Index: Integer;

  const Chars: TCharSet

):Boolean; overload;