Set the value for key parameter as TJSONValue
class procedure setValue(key: string; Value: TJSONValue)