[angvelem]

Но если стльно хочется, можно описать самому.

Код:

function  CharInSet(C : AnsiChar; const CharSet : TSysCharSet) : Boolean; overload;
function  CharInSet(C : WideChar; const CharSet : TSysCharSet) : Boolean; overload;
...
function CharInSet(C : AnsiChar; const CharSet : TSysCharSet) : Boolean;
begin
  Result := C in CharSet;
end;

function CharInSet(C : WideChar; const CharSet : TSysCharSet) : Boolean;
begin
  Result := (C < #$0100) and (AnsiChar(C) in CharSet);
end;