[Freeman]

Ассемблерная команда какая-то была... Забыл.
Посмотрел в справочнике:

Код:

function MostSignificantBit(Value: LongInt): LongInt;
asm
        BSR EAX, EAX
end;