Логическая математика

Type
  TSvoistva = (nsSvoistvo1, nsSvoistvo2, nsSvoistvo3, nsSvoistvo4);
  TNaborSvoistv = Set Of TSvoistva;
 
Type
  TForm1 = Class(TForm)
    ...
  Private
    Svoistva: TNaborSvoistv;
  Public
  End;
 
...
 
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Svoistva := [nsSvoistvo1, nsSvoistvo3];
End;
 
Procedure TForm1.Button1Click(Sender: TObject);
Var
  Msg: String;
Begin
Msg := 'Поле "свойства" содержит:';
If (nsSvoistvo1 In Svoistva) Then
  Msg := Msg + #13#10' * свойство #1';
If (nsSvoistvo2 In Svoistva) Then
  Msg := Msg + #13#10' * свойство #2';
If (nsSvoistvo3 In Svoistva) Then
  Msg := Msg + #13#10' * свойство #3';
If (nsSvoistvo4 In Svoistva) Then
  Msg := Msg + #13#10' * свойство #4';
ShowMessage(Msg);
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
Include(Svoistva, nsSvoistvo1);
End;
 
Procedure TForm1.Button3Click(Sender: TObject);
Begin
Exclude(Svoistva, nsSvoistvo1);
End;
 
Procedure TForm1.Button4Click(Sender: TObject);
Begin
Svoistva := Svoistva + [nsSvoistvo2];
End;
 
Procedure TForm1.Button5Click(Sender: TObject);
Begin
Svoistva := Svoistva - [nsSvoistvo2];
End;

Procedure TForm1.Button6Click(Sender: TObject);
Begin
ShowMessage(IntToStr(Byte(Svoistva)));
End;

Type
  TSvoistva = (nsSvoistvo1, nsSvoistvo2, nsSvoistvo3, nsSvoistvo4);
  TNaborSvoistv = Set Of TSvoistva;
 
Type
  TSvoistva2 = (nsSvoistvo1, nsSvoistvo4, nsSvoistvo5); // Здесь будет ошибка из-за nsSvoistvo1 и nsSvoistvo4.
  TNaborSvoistv2 = Set Of TSvoistva2;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,n,p: byte;
begin
  n:= SpinEdit1.Value;   // число-набор параметров
 
  for i:= 0 to Pred(CheckListBox1.Count) do
  begin
    // i - порядковый номер свойства в списке, а также степень двойки
    p:= Trunc(Power(2,i));
    // определяем наличие параметра i в наборе параметров
    // (checkListBox - для визуализации)
    CheckListBox1.Checked[i]:= (p and n) <> 0;
  end;
end;

Procedure TForm1.Button1Click(Sender: TObject);
Type
  TSvoistvo     = (nsSvoistvo1, nsSvoistvo2, nsSvoistvo3, nsSvoistvo4);
  TNaborSvoistv = Set Of TSvoistvo;
Var
  i: Integer;
  Nabor: TNaborSvoistv;
Begin
Nabor := TNaborSvoistv(Byte(SpinEdit1.Value));
For i := 0 To Pred(CheckListBox1.Count) Do
  Begin
  CheckListBox1.Checked[i] := TSvoistvo(i) In Nabor;
  End;
End;