HexToBit

[mrCloud]

Как перевести hex в массив Bit'ов?
Например число 256 в хексе 100 а в битах

0000 0000 1000

можно ли как нибудь конвертировать долго лазил по гуглу не нашел=(

[mrCloud]

Все нащел сам

function HexToBin(Hexadecimal: string): string;
const
  BCD: array [0..15] of string =
    ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',
    '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
var
  i: integer;
begin
//Length(Hexadecimal)
  for i := 32 downto 1 do
    Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result;
end;