Heres my process packet code:
DEFBLOCKSIZE = 16
var
Msg:TDefaultMessage;
Msg := DecodeMessage(Copy (BufferStr, 1, DEFBLOCKSIZE));
Body := DecodeString(Copy (BufferStr, DEFBLOCKSIZE+1, length(bufferstr)-DEFBLOCKSIZE));
RawBody:=Copy (BufferStr, DEFBLOCKSIZE+1, length(bufferstr)-DEFBLOCKSIZE)...