delphi xe ClientSocket 超时

Delphi XE 中的 ClientSocket 组件有一个属性叫做 `ConnectTimeout`，它表示连接超时的时间（以毫秒为单位）。如果在连接超时时间内无法连接到目标主机，则会引发一个异常。

如果你想要在连接超时后自定义处理逻辑，可以在 `OnConnect` 事件中加入代码来判断连接是否成功。如果连接失败，可以通过设置 `Socket.Active` 属性为 `False` 来关闭连接。

以下是一个示例代码：

procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
  if not Socket.Connected then
  begin
    ShowMessage('连接超时');
    Socket.Active := False;
  end;
end;

你也可以使用 `OnError` 事件来处理连接超时的情况，该事件会在连接过程中发生任何错误时触发。以下是一个示例代码：

procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  if ErrorEvent = eeConnectTimeout then
  begin
    ShowMessage('连接超时');
    Socket.Active := False;
  end;
end;

希望这些信息能够帮助到你！