[roman]

¿Algo como esto?

Código Delphi [-]
function BinaryStr(B: Byte): String;
const
  BinChars: array[Boolean] of Char = ('0', '1');

var
  Pot2, I: Integer;

begin
  Pot2 := 1;
  for I := 0 to 7 do
  begin
    Result := BinChars[B and Pot2 <> 0] + Result;
    Pot2 := 2*Pot2;
  end;
end;

// Saludos