//Пример кода : Набор символов 
var
  Alphabet  : Set of 'A'..'z';     // Набор букв

begin
  Alphabet  := ['A'..'z'];         // Заполнение всех значений

  // Проверяем значения против набора алфавита
  if 'Z' in Alphabet
  then ShowMessage('Z в Alphabet')
  else ShowMessage('Z не в Alphabet');

  if 'd' in Alphabet
  then ShowMessage('d в Alphabet')
  else ShowMessage('d не в Alphabet');

  if '1' in Alphabet
  then ShowMessage('1 в Alphabet')
  else ShowMessage('1 не в Alphabet');
end;

//Пример кода : Наборы положительных чисел 
var
  SmallNums : Set of 0..55;        // Набор первых 56 членов набора
  LargeNums : Set of 200..255;     // Набор последних 56 членов набора
  FullNums  : Set of 0..255;       // Набор всех 256 членов набора

begin
  // Мы имеем диапазон значений от 0 до 55, которые мы можем установить
  // Обратите внимание на большую гибкость, которую мы имеем в установке значений
  // Мы можем определить множественные диапазоны, и индивидуальных членов
  SmallNums := [3..12,23,30..32];  // Заполнение значениями только некоторых из членов

  // Показ памяти, занятой этими наборами
  // Каждый член набора занимает один бит одного байта из 32 возможных байтов.
  ShowMessage('SmallNums занимают : '+IntToStr(SizeOf(SmallNums))+' байт');
  ShowMessage('LargeNums занимают : '+IntToStr(SizeOf(LargeNums))+' байт');
  ShowMessage('AllNums   занимают : '+IntToStr(SizeOf(FullNums))+' байт');

  // Проверяем значения против маленького набора чисел
  if 12 in SmallNums
  then ShowMessage('12 в SmallNums')
  else ShowMessage('12 не в SmallNums');

  if 13 in SmallNums
  then ShowMessage('13 в SmallNums')
  else ShowMessage('13 не в SmallNums');

  if 30 in SmallNums
  then ShowMessage('30 в SmallNums')
  else ShowMessage('30 не в SmallNums');
end;

//Пример кода : Наборы перечисляемых значений определяемых пользователем 
type
  TNumber   = (Ace, One, Two, Three, Four, Five, Siz, Seven, Eight, 
  Nine, Ten, Jack, Queen, King);

var
  CourtCards: Set of TNumber;      // Масти карт
  CardNumbers : array[1..4] of TNumber;
  i : Integer;

begin
  // Устанавливаем числа карт, чтобы позволить только карты с изображением
  CourtCards := [Ace, Jack, Queen, King];

  // определение нескольких карт
  CardNumbers[1] := Ace;
  CardNumbers[2] := Four;
  CardNumbers[3] := Jack;
  CardNumbers[4] := Seven;

  // Показываем карты с изображением, которые мы имеем
  for i := 1 to 4 do
    if CardNumbers[i] in CourtCards 
    then ShowMessage('Card '+IntToStr(i)+' масть карт');
end;