function SetProperty(x, i: integer): integer;
//x - текущее значение
//i - номер бита/свойства (сейчас только 1 или 2)
  begin
    case x of
      0: begin
        Result := i
      end;
      1: begin
        case i of
          1: Result := x;
          2: Result := x + 2;
        end;
      end;
      2: begin
        case i of
          1: Result := x + 1;
          2: Result := x;
        end;
      end;
      3: begin
        Result := x;
        end;
      end;
  end;