Работа с регистрами

[Сема]

А не проще просто Pack - Unpack, В библиотеке standart или Util есть, не помню.

[lazy]

byte_1 := WORD_TO_BYTE( word ); - младшие 8 бит
byte_2 := WORD_TO_BYTE( SHR( word, 8 ) ); - старшие 8 бит