Duvidas com TJson.objectToJsonString()

Bom dia pessoal, peço ajuda com uma dúvida, estou criando um Json da seguinte forma:

tenho uma classe:
Tprest = class
private
FCNPJ: String;
FCPF: String;
public
property CNPJ: String read FCNPJ write FCNPJ;
property CPF: String read FCPF write FCPF;
end;

onde no processo declaro ela como: DadosPrestador: Tprest;

imputo as informações:
DadosPrestador.CNPJ := ''12345678910123'';
DadosPrestador.CPF := '''';

Quando passo para converter em string utilizando o método TJson.objectToJsonString(DadosPrestador) a string é formada da seguinte forma: ''{"cNPJ":"07210221000133","cPF":""}'' observem que a primeira letra saem minúsculas "cNPJ" e "cPF" e precisava que saíssem todas maiúsculas sabem me dizer pq acontece isso e como faço para que elas fiquem todas maiúsculas?

Desde já agradeço aatenção de todos