关于TIdTCPServer断开所有连接引发的问题（很急，请大家进来帮帮我）

Question

服务端TIdTCPServer断开所有连接
但是客户端TIdTCPClient的OnDisconnected事件并不触发
请帮我分析一下原因 ，具体代码如下//服务器断开所有连接代码
procedure TForm1.TCPServerDisAll;
var i: Integer;
begin
  IdTCPServer1.Threads.LockList;
  for i := IdTCPServer1.Threads.LockList.Count - 1 downto 0 do
    TIdPeerThread(IdTCPServer1.Threads.LockList.Ite[i]).Connection.Disconnect;
  IdTCPServer1.Threads.UnlockList;
end;
//客户端断开连接触发事件
procedure TForm1.IdTCPClient1Disconnected(Sender: TObject);
begin
  Label3.Caption := '连接断开';
end;

Answer 1

哪个版本的TIdTCPClient的有OnDisconnected事件？