Não entendo muito de Delphi (só tive uma breve experiencia com Object Pascal, o que talvez hoje deva ser um pouco diferente de ambos), mas me parece que isto:
StringList.Add('consumer_key = abcdefg');
StringList.Add('&consumer_secret = hijklmn');
StringList.Add('&code = opqrstuvxz');
Deveria ser isto:
StringList.Add('consumer_key=abcdefg');
StringList.Add('consumer_secret=hijklmn');
StringList.Add('code=opqrstuvxz');
Se o &
e sem espaços separando o =
da chave e do valor. Isto conforme todos exemplos que encontrei e um pouco da documentação.
Seguindo os exemplos que encontrei e o seu código em PHP me parece que esta executando coisas desnecessárias:
lHTTP.Request.CustomHeaders.Clear; # Não parece necessário
lHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
lHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; # Não parece necessário (não estou certo)
lHTTP.Request.CharSet:= 'utf-8'; # Não parece necessário
lHTTP.HandleRedirects := True;
lHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/60.0.3112.113 Safari/537.36'; # Não parece necessário
lHTTP.Request.Method:='POST'; # Não parece necessário
Result:= lHTTP.Post(Url, StringStream);
Talvez apenas isto já resolva (já que a API parece que funcionou corretamente com PHP):
lHTTP:= TIdHTTP.Create(nil);
IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
StringList := TStringList.Create;
StringList.Add('consumer_key=abcdefg');
StringList.Add('consumer_secret=hijklmn');
StringList.Add('code=opqrstuvxz');
lResult := lHTTP.Post(Url, StringList);
Creio que o StringStream
seja apenas necessário se realmente esta buscando converter para UTF8 (isto se os dados vierem de outras fontes), se o seu .dpr
estiver salvo como UTF-8 então talvez nem precise disso.
O que provavelmente você deve fazer em scripts futuros é codificar os parametros passados (não tenho certeza se para o TIdHTTP.Create
isso é realmente necessário, é mais "especulação" minha), pelo que vi os métodos padrões para o uso disto são:
uses
IdURI;
...
TIdURI.URLEncode(valor);
Deve ficar algo como:
StringList.Add(TIdURI.URLEncode(chave) + '=' + TIdURI.URLEncode(valor));
Note que
HTTPApp.URLEncode
esta em desuso, prefiraSystem.NetEncoding.TURLEncoding