TSysCharSet и функция удаления специфических символов из строки.

[DrAndriy]

Добрый день!

Есть код с функцией удаления специфических символов из строки:

type
  TSysCharSet = set of AnsiChar;

const
    StandardDelimiters : TSysCharSet = ['~', '!', '@', '#', '$', '%', '^', '&',
                                     '*', '(', ')', '_', '+', ':', '"', '<',
                                     '>', '?', '{', '}', '`', '-', '=', '\',
                                     '|', '/', ';', ',', '.', '[', ']', '«',
                                     '»', '№', '1', '2', '3', '4', '5', '6',
                                     '7', '8', '9', '0', '''', #32];
.........................

function RemoveSeparateSyms(ws : WideString): WideString;
     var i, Len : Integer;
begin
  SetLength(Result, 0);
  Len := Length(ws);
  for i := 1 to Len do
    if not (CharInSet(WideChar(ws[i]), StandardDelimiters)) then
      Result := Result + ws[i];
end;

Вопрос: правильно ли записан код и будет ли в таком случае восприниматься мой набор символов или TSysCharSet имеет свой специфический набор символов.

Спасибо.