Access violation at address in module read of address 00000

function TOAuth2TesterFrm.TCalendarsInsertRequest: TCalendar;
var
  request, response,campos: string;
  params: THttpRequestParameterList;
  objeto: TService;
  AInitializer: TServiceInitializer;
begin
     params := THttpRequestParameterList.Create();
   //  AInitializer:=TServiceInitializer.Create();
     objeto:=TService.CreatE(AInitializer);
     campos:=''summary,kind,id,TimeZone'';

  try
    params.Add(''fields'', campos);                                                            // Adiciona uma string usando o método ADD, que utiliza uma string chave, e uma string valor, semelhante a um JSON
                                                                                            //request := objeto.Initializer.JsonSerializer.ObjectToJson(calendario); //Monta uma request que é um objeto JSON convertido em String
    request:=''{"kind":"calendar#calendar","summary":"Agenda","timeZone":"Brasil"}'';
    response := objeto.Initializer.HttpClient.Post(''https://www.googleapis.com/calendar/v3/calendars'',params,request); //Inicializa a Request
    Result := TCalendar(objeto.Initializer.JsonSerializer.JsonToObject(TCalendar, response));
  finally
    params.Free();
  end;
end;
end.