W1050 WideChar reduced to byte char in set expressions. Что делать?

[SkAndrew]

Добрый день!

Получаю после компилирования проекта предупреждение "W1050 WideChar reduced to byte char in set expressions"

В проекте ссылаюсь на:

if not (ws[i] in StandardDelimiters) then
то то и то то ................................... ......

где ws : WideString; а StandardDelimiters:

type
TDelimiter = set of #32..#255;
{* Delimiters - список символов являющихся разделителями слов, например, такие как пробел, !, ? и т.д. *}
StandardDelimiters : TDelimiter = ['~', '!', '@', '#', '$', '%', '^', '&',
'*', '(', ')', '_', '+', ':', '"', '<',
'>', '?', '{', '}', '`', '-', '=', '\',
'|', '/', ';', ',', '.', '[', ']', '«',
'»', '№', '1', '2', '3', '4', '5', '6',
'7', '8', '9', '0', '''', #32];

Как можно записать выражение "if not (ws[i] in StandardDelimiters) then" иначе, чтобы снять предупреждение?
Мне нужна именно такая структора кода.
Спасибо всем!

[alexBlack]

Дополнительное сравнение и явное приведение:

if not ((ws[i] < #255) and (char(ws[i]) in StandardDelimiters))
then

[SkAndrew]

Спасибо за ответ Один небольшой дополнительный вопрос только:

А почему в первой части выражения "if not ((ws[i] < #255) and (char(ws[i]) in StandardDelimiters)) then" прописано "ws[i] < #255"? Ведь "ws[i]" может также равняться и "#255". Тогда может правильнее будет так: "if not ((ws[i] <= #255) and (char(ws[i]) in StandardDelimiters)) then". Если я не прав. пожалуйста, объясните почему. Спасибо за помощь!

[alexBlack]

Вы правы, но в данном случае это ничего не меняет, т.к. в StandardDelimiters нет символов с кодом 255