SetOnBit

Функция SetOnBit() устанавливает указанный бит в "1".

SetOnBit(Value, Bit): Boolean
Value: Variant	Целочисленное значение
Bit: Integer	Номер бита(0-15)
Функция возвращает: True: успешная запись False: ошибка записи

Пример вызова:

{Pascal Script}
Var
     valueNumber, valueBit: Integer;

Begin
     valueNumber := 297;     // в двоичной системе счисления 297 = 100101001
     valueBit := 1;      // нумерация начинается с конца двоичного числа, с 0 по 15

     AddToDebugLog('Значение числа ДО: ' + intToStr(valueNumber));
     SetOnBit(valueNumber, valueBit);
     AddToDebugLog('Значение числа ПОСЛЕ: ' + intToStr(valueNumber));
end.

Подробную информацию об "Окне отладочной информации" можно почитать здесь.