B4 := ((gNumber shr 8) and $FF) + 22;
Bueno, si mal no recuerdo, eso significa que al número gnumber, en binario, lo 'rota' hacia la derecha (shr) 8 posiciones (desplaza los bits).
Luego hace un 'and' con 255 en binario (FF en hexa) (1 and 1=1, 0 and 0=0, etc.)
Al resultado, finalmente, se le suma 22
|