Pascal/Delphi Como fazer uma requisição POST em Delphi usando componentes REST

[Iago Petini Morelli]

Bom dia devs e amigos de T.I. 
Estou com um problema na minha request, minha intenção é Inserir um calendário na API do Google Calendar usando uma request cm método POST, no conteúdo dessa request deve ir o JSON. O grande problema é que eu já preenchi as informações necessárias pra API funcionar e o request está me retornando 401 Não autorizado.

Não sei exatamente no que estou errando por isso vim aqui no fórum, estou a dias emapacado nisso.

Meu código está aqui pra vocês darem uma olhada, talvez seja algo simples que estou esquecendo. Li em alguns lugares que o Header da request deve conter o token de acesso e por isso não estaria funcionando, mas mesmo depois de adicionar o token a request continua retornando 401.

Muito obrigado desde já, e espero que alguém possa ajudar um dev junior que está sofrendo.

procedure TOAuth2TesterFrm.incluir_btnClick(Sender: TObject);
var
json,token: String;
begin
token:=AccessTokenEdt.Text;
json:=(
'{"kind": "calendar#calendarListEntry", "etag": "0", "id": "[email protected]", ' +
'"summary": "Calendario Outro", "description": "Descrição do evento", '   +
'{"date": "2020 August 11", "dateTime": "2020-08-11T17:35:36+03:00"}'+
'"timeZone": "Brasília-DF", "colorId": "15", "backgroundColor": "#9fc6e7", "foregroundColor": "#000000", ' +
'"selected": true, "accessRole": "owner", "primary": true, '+
 '"defaultReminders": [{"method": "popup", "minutes": 30}, {"method": "email", "minutes": 10}], '  +
'"notificationSettings": {"notifications": [{"method": "email", "type": "eventCreation"}, ' +
'{"method": "email", "type": "eventChange"}, {"method": "email", "type": "eventCancellation"}, ' +
'{"method": "email", "type": "eventResponse"}]}}');
try
    client.ResetToDefaults;
    request.ResetToDefaults;
    response.ResetToDefaults;
    client.BaseURL:='https://www.googleapis.com/calendar/v3/';
    response.ContentType := 'application/json';
    request.Method := TRESTRequestMethod.rmPOST;
    request.Body.ClearBody;
    client.AcceptEncoding:='UTF-8';
    client.ContentType:='text/html';
    request.Resource := 'calendars';
    client.Params.AddHeader('Authorization','Bearer'+token);
    request.AddBody(json);
    request.Execute;
    ShowMessage(request.Response.StatusCode.ToString);
finally

end;
  end;