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);