Delphi zmienna typu bit i konwersja na byte

Z glowy.
Na byte:
byte:=bitzkomorki1*2^7+bitzkomorki2*2^6+bitzkomorki3*2^5+bitzkomorki4*2^4+...+bitzkomorki8*2^0

Na bit:

bitzkomorki8:=byte and 1
bitzkomorki7:=(byte shr 1) and 1
bitzkomorki6:=(byte shr 2) and 1
bitzkomorki5:=(byte shr 3) and 1
...
bitzkomorki1:=(byte shr 7)

To wszystko ubrac w pentelki i nie powinno byc problemu