1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

function BinB(b: Byte): string; 
var 
  s: string; 
  i: word; 
begin 
  s := ''; 
  for i := 7 downto 0 do 
    if (b and (1 shl i)) > 0 then 
      s := s + '1' 
  else 
    s := s + '0'; 
  BinB := s; 
end; 

function BinW(w: Word): string; 
var 
  s: string; 
  i: word; 
begin 
  s := ''; 
  for i := 15 downto 0 do 
    if (w and (1 shl i)) > 0 then 
      s := s + '1' 
  else 
    s := s + '0'; 
  BinW := s; 
end; 

function BinL(l: Longint): string; 
var 
  HL: HiLo absolute l; 
begin 
  BinL := BinW(HL.HiWord) + BinW(HL.LoWord); 
end;                    

1:
2:
3:
4:
5:
6:

function IntToBin(iValue,iBits:INT64):STRING;
var I:INTEGER;
begin
  FOR I:=iBits TO DOWNTO 0 DO
    Result:=Result+CHR(48+((iValue SHR I) AND (2 SHL I)));
end;