VarInt32Pair Record

type
 VarInt32Pair = packed record
 case Integer of
 0 : (DataWord8s : array[0..7] of Byte);
 1 : (DataWord16s : array[0..3] of Word);
 2 : (DataWord32s : array[0..1] of Word32);
 3 : (DataInt8s : array[0..7] of ShortInt);
 4 : (DataInt16s : array[0..3] of SmallInt);
 5 : (DataInt32s : array[0..1] of Int32);
 end;