a := $F3DCB230;
b := a shr 24; // сдвинем "вправо" на 3 "байтоместа", будет $000000F3
a := a shl 8; // сдвинем а на 1 "байтоместо" "влево", получится $DCB23000
a := a or b; // сложим а и б поразрядно, получим искомое