delphi - termina todos los hilos (TThread) en la aplicación de cierre

Mi aplicación es un servidor TCP / IP, con el hilo principal creado solo una vez y escuchando todo el tiempo. Cuando el nuevo cliente se conecta, el hilo principal crea el nuevo hilo deTClientThread tipo. Sin embargo, no hay una lista de subprocesos en ejecución del Cliente, ya que eso complicaría un poco mi aplicación ... ¿hay alguna forma de ejecutar el método "terminar" en todos los subprocesos, incluso si el subproceso está ocupado (en mi caso, "ocupado" significa que está esperando los datos, donde el tiempo de espera establecido es de unos 30 segundos ... así que tengo que eliminarlo de todos modos, sin esperar.)? La aplicación de cierre simple parece no ejecutar el método "terminar" en los subprocesos, que termina con pérdidas de memoria reportadas por FastMM ...

Respuestas a la pregunta(3)

Su respuesta a la pregunta