Установка отдельного бита (0-31) в единицу
function SetBit(const Value, Pos: Integer): Integer;
asm
and EDX,31
bts EAX,EDX
end;
Использование ассемблера в Дельфи
function SetBit(const Value, Pos: Integer): Integer;
asm
and EDX,31
bts EAX,EDX
end;