先别急，咱们一步步来排查这个POST请求的问题——毕竟Delphi 6搭配老版本的Indy（大概率是Indy 9），确实容易踩一些细节上的坑。我给你列几个关键的排查点，你可以逐一验证：

1. 确认请求参数Params的构造是否正确 #

因为你设置了ContentType为application/x-www-form-urlencoded，所以Params必须是**TStringList类型**，且每个参数要以key=value的形式添加，同时注意特殊字符的URL编码（比如中文、空格、&等）。老版本Indy不会自动帮你编码，得手动处理：

var
  Params: TStringList;
begin
  Params := TStringList.Create;
  try
    // 示例：添加用户名和密码，注意用TIdURI.URLEncode编码特殊字符
    Params.Add('username=' + TIdURI.URLEncode(EditUsername.Text));
    Params.Add('password=' + TIdURI.URLEncode(EditPassword.Text));
    // 务必确认所有服务器要求的参数都已添加，且参数名拼写完全正确
    Http1.Post(URI, Params, Resp);
  finally
    Params.Free;
  end;
end;

另外要注意：Params不能是空的，否则服务器可能返回400错误。

2. 检查拼接后的URI是否合法 #

你用EdUri.Text+Edit5.Text拼接URL，很容易出现格式错误，比如重复的斜杠（比如http://xxx.com//token）。建议手动检查拼接后的完整URL，或者用TIdURI来规范路径：

var
  IdURI: TIdURI;
begin
  IdURI := TIdURI.Create(EdUri.Text);
  try
    IdURI.Path := IdURI.Path + Edit5.Text;
    URI := IdURI.URI;
  finally
    IdURI.Free;
  end;
end;

这样能自动处理路径拼接的斜杠问题。

3. 修正Request头的设置错误 #

你当前的Accept头设置成了application/x-www-form-urlencoded，这是不对的——Accept是告诉服务器你期望接收的响应格式，而你要的是JSON令牌，所以应该改成：

Http1.Request.Accept := 'application/json';

另外，不要提前设置Http1.Response.ContentType，这个属性是用来接收服务器返回的内容类型的，客户端不需要手动赋值，TIdHTTP会自动从响应中读取。

4. 捕获具体的错误信息 #

你只说POST出错，但没说具体是什么错误（是连接失败？HTTP 4xx/5xx状态码？还是抛出了异常？）。一定要加try-except块捕获异常，同时查看HTTP响应码：

try
  Http1.Post(URI, Params, Resp);
  // 打印响应码，确认是否成功
  ShowMessage('HTTP状态码: ' + IntToStr(Http1.Response.ResponseCode));
  ShowMessage('响应内容: ' + Resp.Text);
except
  on E: Exception do
    ShowMessage('请求异常: ' + E.Message);
end;

比如如果是400错误，大概率是参数不对；401是身份验证失败；500是服务器内部问题，这些信息能帮你快速定位方向。

5. 适配老版本Indy的特性 #

Delphi 6自带的Indy 9对HTTP/1.1的支持不够完善，你可以尝试降级HTTP协议版本：

Http1.ProtocolVersion := pvHTTP1_0;

另外，有些服务器会验证UserAgent头，你可以手动设置一个常用的UA：

Http1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/91.0.4472.124 Safari/537.36';

6. 用第三方工具验证请求有效性 #

先别着急改代码，用Postman或者curl先模拟这个POST请求，看看能不能拿到令牌：
比如curl命令：

curl -X POST -H "Content-Type: application/x-www-form-urlencoded" -d "username=你的用户名&password=你的密码" 你的完整URL

如果工具能成功拿到令牌，那问题肯定在你的Delphi代码里；如果工具也失败，那就是服务器端的问题（比如URL错误、参数错误、服务器未开放接口等）。

先按这些步骤排查，应该能找到问题所在。

内容的提问来源于stack exchange，提问作者Fred