Битовая маска

[Yegor]

VAR
    mask1, mask2, mask3, mask4: BYTE;
    mask: DWORD;
END_VAR

mask :=
    SHL(mask1 + DWORD#0, 24) OR
    SHL(mask2 + DWORD#0, 16) OR
    SHL(mask3 + DWORD#0, 8) OR
    mask4;

или как вариант

mask := 0;
mask :=

    SHL(mask1 + mask, 24) OR
    SHL(mask2 + mask, 16) OR
    SHL(mask3 + mask, 8) OR
    mask4;

или так

mask :=
    mask1 * 16#1000000 +
    mask2 * 16#10000 +
    mask3 * 16#100 +
    mask4;