IdTCPServer hängt beim Schließen mit verbundenen Clients

[s.h.a.r.k]

hallo miteinander,

zuvor gleich mal gesagt: ich habe schon mal einen thread zu diesem thema eröffnet gehabt, werde in diesem aber nicht weiter fortfahren, da dieser schon recht alt ist und mein problem nicht löst.

zu meinem problem nun: ich habe eine anwendung für den server und einen für den client. beim server habe ich mir die funktion eingebaut, dass man einen client "kicken" kann, eben ein force-disconnect vom server aus. ich will hierbei ausdrücklich dem client keine nachricht zukommen lassen, dass dieser selbst disconnected, da dieser die nachricht evtl. ja nicht erhalten kann oder nicht verarbeitet, da dieser hängt. diese habe ich wie folgt realisiert:
aContext.Connection.Disconnect(); wenn dieser code ausgeführt wurde, dann ist der client wirklich disconnected, allerdings ist es wohl auch so, dass die folgende fehlermeldung kommt, die ich nicht verstehe. ich hoffe, ihr könnt mir hier weiter helfen.

Code:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt tcp_server.exe ist eine Exception der Klasse EIdNotConnected mit der Meldung 'Not Connected' aufgetreten.
---------------------------
Anhalten   Fortsetzen   Hilfe  
---------------------------

dies war an sich nur das vorgeplänkel, da das eigentliche problem auftritt, wenn ich den server schließen will. da ich mich nicht auf die nachricht und das selbstständige disconncet der clients verlassen will, will ich eben jeden client vom server kicken und diesen dann schließen. dies liegt daran, dass der server sich beim versuch alle yarns zu terminieren (ich habe alleine schon mal keine ahnung was yarns sind ) aufhängt. dies passiert aber eben nur, wenn mindestens ein client verbunden ist. ich verwende den folgenden code bisher, der allerdings keine abhilfe schafft und den server toll einfrieren lässt, eben in einer endlosschleife beim versuch die yarns zu terminieren - soweit habe ich das problem schon verfolgen können.

Delphi-Quellcode:

// in der FClientList stehen alle Clients
// vom Typ TIdContext, die ich manuel
// beim OnConnect speichere
for i := FClientList.Count - 1 downto 0 do
  TIdContext(FClientList[i]).Connection.Disconnect();
 
// TCP-Server deaktivieren
FTCPServer.Active := False;

ich hoffe, es findet sich jemand, der dieses problem auch hat(te) und eine lösung findet

mit freudlichen grüßen
pfäffle armin