num1 := stream.ReadByte;
            num2 := 0;
            if ((num1 and $80) = 0) then
                num2 := num1
            else
                if ((num1 and $80) = $80) then
                    num2 := (((num1 and $3f) shl 8) + stream.ReadByte)
                else
                    num3 := (((((num1 and $1f) shl $18) + (stream.ReadByte shl $10)) + (stream.ReadByte shl 8)) + stream.ReadByte);