type
  TByteSet = set of Byte;

var
  First, Second, Third: TByteSet;
  IsEqual, IsIntersects, IsSubset: Boolean;
begin
  First := [1, 2];
  Second := [2, 1];
  Third := [1, 2, 3];

  IsEqual := First = Second;
  //isEqual is True

  IsIntersects := First * Third <> [];
  //isIntersects is True

  IsSubset := Third <= First;
  //isSubset is False

  WriteLn('isEqual is ', IsEqual);
  WriteLn('isIntersects is ', IsIntersects);
  WriteLn('isSubset is ', IsSubset);
  WriteLn('first <= third is ',
    First <= Third);
end.