Insert Calendar e Events no Google Calendar API Delphi

Estou tentando integrar a aplicação Delphi com o Google Calendar, mas estou com dificuldade, alguém poderia me ajudar. Estou tentando de duas formas diferentes e nada parece funcionar....

Meu código Atual

var
i: Integer;
jsonObjEventResource,jsonObjStart,jsonObjEnd: TJSONObject;
begin
try
jsonObjEventResource:=TJSONObject.Create();
jsonObjStart:=TJSONObject.Create();
jsonObjEnd:=TJSONObject.Create();

jsonObjEventResource.AddPair(TJSONPair.Create('summary','test'));
jsonObjEventResource.AddPair(TJSONPair.Create('description','Testing'));
jsonObjEventResource.AddPair(TJSONPair.Create('id',LowerCase('06824945162F4204BFDC041AE1BBAE85')));

jsonObjStart.AddPair(TJSONPair.Create('date',FormatDateTime('yyyy-mm-dd',Now)));

jsonObjEventResource.AddPair(TJSONPair.Create('start',jsonObjStart));

jsonObjEnd.AddPair(TJSONPair.Create('date',FormatDateTime('yyyy-mm-dd',Now)));

jsonObjEventResource.AddPair(TJSONPair.Create('end',jsonObjEnd));

jsonObjEventResource.AddPair(TJSONPair.Create('guestsCanInviteOthers',TJSONBool. Create(false)));
jsonObjEventResource.AddPair(TJSONPair.Create('visibility','private'));

//mem_Test.Lines.Add(TJson.Format(jsonObjEventResource));
//mem_Test.Lines.Add(jsonObjEventResource.ToJSON);
RESTRequest.Method := TRESTRequestMethod.rmPOST;
RESTRequest.Body.ClearBody;
RESTRequest.AddBody(jsonObjEventResource);
RESTRequest.Execute;
finally
jsonObjEventResource.Free;
jsonObjStart.Free;
jsonObjEnd.Free;
end;

Outra forma de fazer que eu verifiquei nos exemplos do Delphi

procedure TOAuth2TesterFrm.Button1Click(Sender: TObject);
var
insertReq: TCalendarsInsertRequest; //SOS
begin
insertReq := GetService().Calendars.Insert(ACalendar); //Inseri um CALENDARIO na conta google
try
ACalendar := nil;

insertReq.Fields := AFields;

Result := insertReq.Execute();
finally
insertReq.Free();
end;
end;

Mas também não está funcionando, as duas caem em erros que são Exceptions 'Request has no client Component' and access violation read of address