Function ReadCByte:Byte(Stream:TStream)
    Local result:Byte = ReadByte(Stream)
    Stream.Seek(Ceil(StreamPos(Stream) / 4) * 4)
    Return result
EndFunction

Function ReadCShort:Short(Stream:TStream)
    Local result:Short = ReadShort(Stream)
    Stream.Seek(Ceil(StreamPos(Stream) / 4) * 4)
    Return result
EndFunction

Function ReadCInt:Int(Stream:TStream)
    Return ReadInt(Stream)
EndFunction

Function ReadCFloat:Int(Stream:TStream)
    Return ReadFloat(Stream)
EndFunction

Function ReadCByteArray:Byte[] (Stream:TStream, Length:Int)
    Local result:Byte[Length]
    For Local i:Int = 0 Until result.Length
         result[i] = ReadByte(Stream)
    Next
    Stream.Seek(Ceil(StreamPos(Stream) / 4) * 4)
    Return result
EndFunction