Создание чисел из битов

[Celestia]

Вот такая интересная задача встала

есть

    
Data1: Smallint ; // 16 bit
Data2: Byte;      // 8 bit

всего 24 бита выходит

надо из Data1 и Data2 получить два integer числа причём первый интегер берёт 20 бит а второй 4 бита. Как реализовать?

(ЗЫ: кому интересно зачем мне это- разбираю стимовский ID 64 битный)

[Аватар]

i1:=Word(Data1)+(Data2 and $0F) shl 16;
i2:=Data2 shr 4;

[Celestia]

Сообщение от Аватар

i1:=Word(Data1)+(Data2 and $0F) shl 16;
i2:=Data2 shr 4;

большое спасибо!