[lmikle]

Непонятна задача в части "составить".
Выделить значение - наложить маску.

Код:

const
  cBit = 1; // 00000001
var
  I : Integer;
  B : Byte;
  Bt : Byte;
begin
  B := 117; // 01110101
  For I := 0 To 7 Do
    begin
      Bt := B and cBit; // значение правого бита текущего значения, I - его номер 0..7
      B := B shr 1; // сдвигаем на 1 вправо
    end;