Динамический Set

Nums = [0,2,6]

var
  Nums : set of Byte;
...
begin
  Nums := [0, 2, 6];
...

myset := [];
for i := 0 to 2 do
  myset := myset + (i * i + i); // [0, 2, 6]

myset := [];
for i := 0 to 2 do
  Include(myset, i * i + i); // [0, 2, 6]

  myset := myset + [i * i + i];

Cyr = ['А'..'я'];

const
  Lett: set of WideChar = ['А'..'я'];

procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
var
  Ch : AnsiChar;
begin
  Ch := Key;
  if Ch in [...] then begin
    ...
  end;
end;

procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
var
  SAnsi : AnsiString;
begin
  SAnsi := Key;
  if SAnsi[1] in [...] then begin
    ...
  end;
end;

function CharToAnsiChar(Value: Char): AnsiChar;
var
  tmp: AnsiString;
begin
  tmp:= Value;
  Result:= tmp[1];
end;

function inset(var _set; value: LongInt): boolean; //Проверка принадлежности элемента множеству
asm
bt  [eax],edx
sbb eax,eax
end;
 
procedure include(var _set; value: LongInt);       //Добавляет элемент в множество
asm
bts  [eax],edx
end;
 
procedure exclude(var _set; value: LongInt);       //Исключает элемент из множества
asm
btr  [eax],edx
end;

var
_set: array[0..1 shl (sizeof(WideChar)*8)-1] of byte;
i:    WideChar;
begin
  for i:='А' to 'я' do    //заполнение множества буквами от 'А' до 'я' просто для примера
    include(_set,ord(i)); //на практике лучше инициализировать переменную в блоке var 
end.