Значение отдельного бита целого числа в логическую переменную

[-MagicAlex-]

Стоит следующая задача...
Есть беззнаковое целое число (типа Cardinal). Нужно значение отдельного бита этого числа записать в переменную типа Boolean. Первое, что пришло на ум - конвертация числа в двоичное представление в виде строки, в строке анализируем соответствующий биту символ, если он "1" - в переменную пишем TRUE, если "0" - FALSE, соответственно.
Но мне почему-то кажется есть более простое и элегантное решение этой задачи. Если кто сталкивался - подскажите. Заранее спасибо!

[-MagicAlex-]

Все, уже сам допёр ))
Может кому пригодиться...

function DefineBit(Value: Cardinal; Number: Integer): Boolean
begin
  if Value and (1 shl Number) <> 0 then Result := TRUE else Result := FALSE;
end;

[Serge_Bliznykov]

можно проще

function DefineBit(Value: Cardinal; Number: Integer): Boolean
begin
  Result := ( Value and (1 shl Number)) <> 0;
end;