Here it is...
HttpWebRequestMgt.Initialize(STRSUBSTNO('apiservices.gtglobal.eu/.../access_token'));
HttpWebRequestMgt.SetMethod('POST');
HttpWebRequestMgt.AddBodyAsText(
STRSUBSTNO('grant_type=password&username=*****&password=*****'));//hided on purpose to post the code here
ltempBlob.INIT;
ltempBlob.Blob.CREATEINSTREAM(lResponseInStrem);
HttpWebResponse := HttpWebResponse.HttpWebResponse;
StatusCode := HttpWebResponse.StatusCode;
lResponseHeaders := HttpWebResponse.Headers;
HttpWebRequestMgt.GetResponse(lResponseInStrem,StatusCode,lResponseHeaders);
lResponseInStrem.READTEXT(ltxt);
lTokenAccess := COPYSTR(ltxt,18);
lTokenAccess := COPYSTR(lTokenAccess, 1, STRPOS(lTokenAccess, '"')-1);