No termina ejecución Programa principal al usar un Thread

[[gluglu]]

Lo tengo previsto de esa manera, antes de cerrar la aplicación, terminar el Thread.

Pero al no funcionarme, lo hice para que pudiera comprobar el proceso con dos botones, uno para comenzar el Thread, y otro para terminarlo. Ni siquiera así parece ser que lo hace correctamente, ya que al intentar salir de la aplicación principal, después de haber pulsado el boton que me termina el Thread, se queda 'colgada' la aplicación principal y en modo debug del Delphi tengo que pulsar el 'Reset' para terminar la aplicación principal.