api rest do magento 2 pelo delphi.nao precisa de tudo isso ae não

TOKEN ADMIN

function TFrmPrincipal.Pega_Token_Admin_M2(URLBase, Usuario, Senha: 

String): String;
var
  VarRequisicao : TRESTRequest;
  VarClienteRequisicao : TRESTClient;
  VarRespostaRequisicao : TRESTResponse;
  JsonToken : TJSONObject;
begin

///////////////criando as variaveis rest resquest
  VarClienteRequisicao := TRESTClient.Create(Self);
  VarRequisicao := TRESTRequest.Create(Self);
  VarRespostaRequisicao := TRESTResponse.Create(Self);

  JsonToken := TJSONObject.Create;

///////////////configurando client
  VarClienteRequisicao.BaseURL := URLBase + '/rest/V1/integration/admin/token';

  VarClienteRequisicao.AutoCreateParams := True;

  //opcoes extras
  VarClienteRequisicao.AllowCookies := True;
  VarClienteRequisicao.FallbackCharsetEncoding := 'utf-8';
  VarClienteRequisicao.ReadTimeout := 10000;

////////////////configurando request
  VarRequisicao.Method := rmPOST;
  VarRequisicao.AutoCreateParams := True;
  VarRequisicao.Client := VarClienteRequisicao;
  VarRequisicao.Response := VarRespostaRequisicao;

  //opcoes extras
  VarRequisicao.ReadTimeout := 10000;
  VarRequisicao.Accept := 'application/json';
  VarRequisicao.AddParameter('username', Usuario, pkREQUESTBODY, [poDoNotEncode]);
  VarRequisicao.AddParameter('password', Senha, pkREQUESTBODY, [poDoNotEncode]);

  try
    VarRequisicao.Execute;
  except
    ShowMessage('Erro');
    exit;
  end;

  //pegar os dados do cabeçalho e jogar na memo

  Result := VarRespostaRequisicao.Content;

//descarregar as variaveis da memoria
  VarClienteRequisicao.Free;
  VarRequisicao.Free;
  VarRespostaRequisicao.Free;
end;