Как пять бит перевести в строку и обратно?

type
  TFiveBools = record
  public
    function GetString: string;
    procedure SetString(S: string);
    case Integer of
      0  (b1, b2, b3, b4, b5: Boolean);
      1: (B: array[0..4] of Boolean);
  end;
  
function TFiveBools.GetString: string;
var
  x: Boolean;
begin
  Result:= '';
  for x in B do
    if x
      then Result:= '1' + Result
      else Result:= '0' + Result;
end;
 
procedure TFiveBools.SetString(S: string);
var
  idx: Integer; // для разнообразия :)
begin
  for idx:= 1 to Length(S) do
    if idx - 1 < High(B)
      then B[idx - 1]:= Result <> '0'
      else Break;
end;

procedure TForm1.Button1Click(Sender: TObject);
var K: Integer; // само число
    n: Byte;    // номер бита, который ставим в 1
begin
  K := 0;
 
  n := 1;
  K := K or (1 shl (n - 1));
 
  n := 2;
  K := K or (1 shl (n - 1));
 
  n := 5;
  K := K or (1 shl (n - 1));
 
  n := 7;
  K := K or (1 shl (n - 1));
 
  ShowMessage(IntToStr(K));
end;

procedure TForm1.Button1Click(Sender: TObject);
var K: Integer; // само число
    n: Byte;    // номер бита, который ставим в 1
    i: Integer;
    S: String;
begin
  K := 0;
 
  // установка n'го бита
  n := 1;
  K := K or (1 shl (n - 1)); // так устанавливается бит в n позиции
 
  n := 2;
  K := K or (1 shl (n - 1));
 
  n := 5;
  K := K or (1 shl (n - 1));
 
  n := 7;
  K := K or (1 shl (n - 1));
 
  // вывод результата
  ShowMessage(IntToStr(K));
 
  // сбор его числа в виде отдельных битов в строку
  for i := 7 downto 0 do
    begin
      if (K and (1 shl i)) <> 0 then  // так проверяется бит в n позиции
        S := S + '1'
      else
        S := S + '0'
    end;
 
  ShowMessage(S);
end;

then B[idx - 1]:= S[Index] <> '0'