Ungerade Anzahlen von Bits hab ich noch nie wirklich verwendet gesehen, die kleinste Einheit dürften Nibbles (4 bit) sein. Außerdem, wofür gibts Schleifen?
Delphi-Quellcode:
function ByteToBits(const ByteValue: byte): string;
var i: integer;
begin
Result := '';
for i := 7 downto 0
do if (ByteValue and (1 shl i))>0
then Result := Result + '1'
else Result := Result + '0';
end;