Delphi TIdTcpServer get POST参数由浏览器发送

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  Request: string;
  Params: TStringList;
begin
  Request := AContext.Connection.IOHandler.ReadLn;
  
  if Pos('POST', Request) = 1 then
  begin
    Params := TStringList.Create;
    try
      AContext.Connection.IOHandler.ReadBytes(Params, AContext.Connection.IOHandler.InputBuffer.Size);
      
      // 处理POST参数
      // 可以使用Params对象来获取POST参数的键值对
      
      // 示例：输出POST参数
      Memo1.Lines.Add('POST参数：');
      Memo1.Lines.AddStrings(Params);
    finally
      Params.Free;
    end;
  end;
  
  AContext.Connection.Disconnect;
end;