Eu estou tentando criar um JSON com valores que foram preenchido pelo usuário. Até agora eu tenho isso, mas não está funcionando
```
procedure TOAuth2TesterFrm.Button2Click(Sender: TObject);
  var
    nome_evento: String;
    inicio: String;
    fim: String;
    objeto: TJSONObject;
begin
    objeto.AddPair('nome',nome_evento);
    objeto.AddPair('data_inicio',inicio);
    objeto.AddPair('data_fim',fim);
    LogMem.Text:=TJSON.ObjectToJsonString(objeto);
```