delphi xe TIdTCPServer 处理多个请求

Delphi XE 中的 TIdTCPServer 组件可以处理多个客户端连接请求。当有新的客户端连接请求到来时，TIdTCPServer 会触发 OnConnect 事件，你可以在该事件中编写相应的处理代码。

以下是一个简单的示例：

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
begin
  Memo1.Lines.Add('New client connected: ' + AContext.Binding.PeerIP);
end;

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  Data: string;
begin
  // 读取客户端发送过来的数据
  Data := AContext.Connection.IOHandler.ReadLn;
  
  // 处理数据
  // ...
  
  // 向客户端发送响应数据
  AContext.Connection.IOHandler.WriteLn('Response');
end;

在上述代码中，当有新的客户端连接时，会触发 OnConnect 事件，并在 Memo1 控件中输出客户端 IP 地址。在 Execute 事件中，可以通过 AContext 对象获取客户端连接信息，读取客户端发送过来的数据并进行处理，然后向客户端发送响应数据。

在处理多个客户端连接时，建议使用线程或者异步方式处理客户端请求，以避免阻塞主线程。