[roman]

Una versión 'simplificada':

Código Delphi [-]
function BinaryStr(B: Byte): String;
var
  I: Integer;

begin
  for I := 0 to 7 do
  begin
    Result := Chr(Byte(B and 1 <> 0) + Ord('0')) + Result;
    B := B shr 1;
  end;
end;

// Saludos