Creo que el problema puede estar en esta línea:
Código Delphi
[-]
HTTP1.Request.CustomHeaders.Add('Authorization:Bearer '+ tok1+ tok2+ tok3+ tok4);
Prueba agregando una línea de código para limpiar la cabecera:
Código Delphi
[-]
HTTP1.Request.CustomHeaders.Clear;
HTTP1.Request.CustomHeaders.Add('Authorization:Bearer '+ tok1+ tok2+ tok3+ tok4);