К примеру:
perem_word : word;
kn1, kn2, kn3, kn4, kn5 : bool;

perem_word.1:=kn1;
perem_word.2:=kn5;
...

Ну или почитать документацию... например узнать, что есть библиотека Util.lib в которой есть блоки Pack и Unpack