как найти младшие два байта из числа integer, например 12345678 delphi?

Question

как найти младшие два байта из числа integer например 12345678 delphi? 
младший байт могу найти ф-цией lo(x). Но как вытащить 2 младших байта?

Аленка Леонтьева · Accepted Answer

Решение "в лоб": x mod $ffff

Галина Мухамметова · Answer

как обычно 
x0 := X and 255; // первый байт 
x1 := (X div 256) and 255; // второй байт 
 
или 
x0 := X mod 256; // первый байт 
x1 := (X div 256) mod 256; // второй байт