anchor.diff:        VH: TBytes;
         Payload: TUTF8Text;
       begin
  -      FH := FixedHeader(TMQTTMessageType.UNSUBSCRIBE, 0, 0, 0);
  +      FH := FixedHeader(MQTT.UNSUBSCRIBE, 0, 0, 0);
         VH := VariableHeaderUnsubscribe;
         Result := (FMessageID - 1);
         SetLength(Payload, 0);
  
positive.code:       Result := False;
  
        SetLength(Data, 2);
        FH := FixedHeader(TMQTTMessageType.PINGREQ, 0, 0, 0);
        RL := 0;
        Data[0] := FH;
        Data[1] := RL;
  
negative.code:     begin
        Result := False;
  
        FH := FixedHeader(MQTT.PUBLISH, 0, 0, Ord(Retain));
        VH := VariableHeaderPublish(Topic);
        SetLength(Payload, 0);
        AppendArray(Payload, StrToBytes(sPayload, false));
  