TCP-Chat-Client hängt sich auf ..

[ThreadMgr]

Eine kleine Lösung, die zwar noch eine Compilermeldung aber keinen Laufzeitfehler mehr bringt:

procedure TMain.Ende(Sender: TObject);
var
i:Integer;
tx:TList;
begin
tx:=IdTCPServer.Threads.LockList;
for i:=0 to tx.count-1 do
TIdPeerThread(tx[i]).Connection.DisconnectSocket;
IdTCPServer.Threads.UnlockList;
IdTCPServer.active:=false;
end;

Achtung: Mit "Disconnect" funktioniert es (bei mir) nicht.