var
  flags : TBits;         // Наша коллекция переменных Булевых значений
  i : Integer;
begin
  // Создание нашего объекта TBits
  flags := TBits.Create;

  // Добавление несколько элементов в нашу Boolean коллекцию флагов
  flags.Size := 5;

  // И установка нескольких значений
  flags[0] := true;
  flags[1] := true;
  flags[4] := true;

  // Теперь показываем содержимое коллекции
  // Обратите внимание, что начинается с 0
  for i := 0 to flags.Size-1 do
    if flags[i] = true
    then ShowMessageFmt('Bit %d - true',[i])
    else ShowMessageFmt('Bit %d - false',[i]);

  // TBits имеет один основной метод -
  // нахождение индекса первого ложного значения
  ShowMessageFmt('Index of the first false value is %d',[flags.OpenBit]);
end;