我是这样做

IDTCPServer1.Active:=True;
....
IDTCPClient1.Connect; //此时Server.OnConnection事件发生
....
IDTCPClient1.DisConnect; //此时Server.OnDisConnection事件发生
....
IDTCPServer1.Active:=False;
...

===以上是第一次做，下面再做一次，就发现很怪的情况，====

IDTCPServer1.Active:=True;
....
IDTCPClient1.Connect;
//我进入调试模式，看到IDTCPClient1.Connect;已正常执行了，
只是Server.OnConnection事件却没有发生,,,晕
....
[以上程序是简化写法，我只是做个测试程序，OnExecute事件非常简单。]
哪位大哥有遇到这种情况？

有試過在 TCPServer 的 OnDisconnect 的地方加入

AContext.Connection.Disconnect; (Indy 10 的語法)