TULong = packed record
  case Byte of
    0: (B1: Byte;
        B2: Byte;
        B3: Byte;
        B4: Byte;);
    1: (W1: Word;
        W2: Word;);
    2: (L1: Longint;);
    3: (C1: Cardinal;);
end;