Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Byte > Bin

01.01.2007
function ByteToBinStr(a_bByte: byte): string;
var
 i
: integer;
begin
 
SetLength(Result, 8);
 
for i := 8 downto 1 do
 
begin
   
Result[i] := chr($30 + (a_bByte and 1));
   a_bByte
:= a_bByte shr 1;
 
end;
end;

https://delphiworld.narod.ru/

DelphiWorld 6.0