REST обновить AccessToken google api

[grigandal1580]

С REST library знаком поверхностно

в OAuth2Authenticator-е получил Access и Refresh token-ы

пытаюсь обновить AccesToken так

procedure TForm1.Button4Click(Sender: TObject);
var
LToken :string;
begin
RESTClient1.BaseURL:='https://www.googleapis.com/oauth2/v4/token';
try
  RESTRequest1.Method := TRESTRequestMethod.rmPOST;
 
 
  RESTRequest1.AddAuthParameter('grant_type', 'refresh_token', TRESTRequestParameterKind.pkURLSEGMENT);
  RESTRequest1.AddAuthParameter('refresh_token', OAuth2Authenticator1.RefreshToken, TRESTRequestParameterKind.pkURLSEGMENT);
  RESTRequest1.AddAuthParameter('client_id',OAuth2Authenticator1.ClientID,TRESTRequestParameterKind.pkURLSEGMENT);
  RESTRequest1.AddAuthParameter('client_secret',OAuth2Authenticator1.ClientSecret,TRESTRequestParameterKind.pkURLSEGMENT);
 
  RESTRequest1.Execute;
 
 
  if RESTRequest1.Response.GetSimpleValue('access_token', LToken) then
  begin
    ShowMessage(LToken);
    OAuth2Authenticator1.AccessToken := LToken;
  end;
 
  if RESTRequest1.Response.GetSimpleValue('refresh_token', LToken) then
  begin
    OAuth2Authenticator1.RefreshToken := LToken;
  end;
 
finally
  RESTClient1.DisposeOf;
end;
end;

получаю исключение

ETHTTPProtocolException with message 'HTTP/1.1 404 not found'

Как правильно составить данный запрос?

[grigandal1580]

тема актуальна

[grigandal1580]

Получилось пока только с помощью IdHTTP

procedure TForm1.Button4Click(Sender: TObject);
var
  LToken, string;
  response: String;
   id: String;
   date:string;
   pos1: Integer;
   Info: TStringList;
begin


response := '';
     Info := TStringList.Create;
     Info.Add('grant_type=refresh_token');
     Info.Add('refresh_token='+OAuth2Authenticator1.RefreshToken);
     Info.Add('client_id=' + OAuth2Authenticator1.ClientID);
     Info.Add('client_secret=' + OAuth2Authenticator1.ClientSecret);
     response := idhttp1.Post('https://www.googleapis.com/oauth2/v4/token', Info);
     memo2.Lines.Add(response);
end;