Hola de nuevo,
Se me han pasado por alto un par de cuestiones. Primeramente darte la bienvenida a estos Foros y recomendarte (si me lo permites) la lectura de su
guía de estilo. En segundo lugar te propongo una prueba. A la siguiente línea:
Código Delphi
[-]
th := tmythread.create(false);
Añade esta otra:
Código Delphi
[-]
th.Priority := tpHighest;
De tal forma que "la cosa" quede en:
Código Delphi
[-]
th := tmythread.create(false); th.Priority := tpHighest;
Si tienes un ordenador/computador más o menos como el mío podrás ver cómo ahora no es el hilo principal el que inutiliza al hilo que tú creas, sino al contrario: es el hilo que tú creas el que inutiliza al hilo principal... cosas de los Hilos.