local procedure GetAuthToken(var Token: Text): Boolean
var
Client: HttpClient;
Request: HttpRequestMessage;
Response: HttpResponseMessage;
JsonResponse: JsonObject;
Content: Text;
Headers: HttpHeaders;
BearerToken: JsonToken;
begin
Request.SetRequestUri('http://xxx.xxx.xxx.x:8080/elicensing/token/auth-bearer');
Request.Method := 'POST';
Request.GetHeaders(Headers);
Headers.Add('Content-Type', 'application/json');
Request.Content().WriteFrom('{"username": "xxxx", "password": "55555"}');
Client.Send(Request, Response);
if not Response.IsSuccessStatusCode() then
exit(false);
Response.Content().ReadAs(Content);
JsonResponse.ReadFrom(Content);
if JsonResponse.Contains('bearerToken') then begin
JsonResponse.Get('bearerToken', BearerToken);
Token := BearerToken.AsValue().AsText();
end else
Token := '';
exit(Token <> '');
end;