case Offer[I].Value.Kind of
  JVKWord:
  begin
    if Output.Words[Offer[I].Value.Index] = JWNull then
      S := 'null'
    else
      RaiseException('Unexpected PrivacyPolicyUrl value.');
  end;
  JVKString: S := Output.Strings[Offer[I].Value.Index];
  JVKNumber: S := FloatToStr(Output.Numbers[Offer[I].Value.Index]);
else
  RaiseException('Unexpected PrivacyPolicyUrl value type.');
end;