Authentification REST de type Basic et login d’un utilisateur REST:authentification REST

Le point d’entrée de cette action est l’appui sur le bouton Connexion de l’IHM comme dans la capture d’écran ci-dessous :

L’implémentation de la méthode appelée dans le cas de l’appui sur le bouton Connexion est présentée ci-dessous :

procedure THeaderFooterwithNavigation.btnLoginClick (Sender: TObject); 
begin 
 FClientControler.LoginUser(edtLogin.Text,edtPassword.Text); end; 

procedure TClientControler.LoginUser(login, password: string); 
var Authent:THTTPBasicAuthenticator; 
    aResult :TJsonResult; 
begin 
 FCurrentAction := twmLogin; 
 aResult := TJsonResult.Create(errSuccess); 
 HTTPBasicAuthenticator.Username := login; 
 HTTPBasicAuthenticator.Password := password; 
 RESTClient.Authenticator := HTTPBasicAuthenticator; 
 RESTClient.BaseURL := c_BaseURL+'delphi/tokens'; 
 RESTRequest.Method := rmPost; 
 RESTRequest.ClearBody; 
 RESTRequest.ExecuteAsync( 
   procedure 
   begin 
     FCurrentStatusCode := RESTResponse.StatusCode; 
     FreeAndNil(FLogguedUser); 
   ...