[[cHackAll]]

Lo de Mick es es la idea, pero les dejo una funcion un poco mas útil para estos casos:

Código Delphi [-]
function IntToBin(Value, Digits: Cardinal): string;
var Bit: Cardinal;
begin
 Bit := 1;
 while Digits <> 0 do
  begin
   Result := Char(Byte((Value and Bit) <> 0) + Ord('0')) + Result;
   Bit := Bit shl 1;
   Dec(Digits);
  end;
end;

El modo de empleo es identico al de la funcion IntToHex de la unidad SysUtils, y para obtenerlo de un char, simplemente haces algo como ésto:

Código Delphi [-]
 Caption := IntToBin(Byte('@'), 8);

Espero les sirva, saludos!