[Страдалецъ]

Вот вам функция:

function IntToBin(Value: Byte): String;
var
i: Integer;
begin
Result := '';
for i := SizeOf(Value) * 8 downto 1
do if Value and (1 shl i-1) <> 0
then Result := Result + '1'
else Result := Result + '0';
end;