Danke, aber das CloseGracefully hat nicht funktioniert.
So klappt es:
Delphi-Quellcode:
TIdContext(Active_Client.AContext).Connection.IOHandler.CloseGracefully;
TIdContext(Active_Client.AContext).Connection.IOHandler.DiscardAll;
Also erst Verbindung trennen und dann die Daten per DiscardAll Verwerfen.
Es wird dann ganz normal die OnDisconnect aufgerufen und der Server lässt sich beenden.
Ob's jedoch ganz richtig ist?