* change Decode(const inBuf: TBufferLink; pvContext: TObject): TObject;