Получение значения бита в двойном слове

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение значения бита в двойном слове
 
Функция возвращает значение бита с номером Index в двойном слове Value
 
Зависимости: нет
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        21 мая 2002 г.
***************************************************** }
 
function Bit(Value, Index: Integer): Boolean;
asm
   bt eax, edx
   setc al
   and eax, 0FFh
end;