Programm schließt sich nicht

[DieDolly]

Nach einer langen Suche habe ich den Verdächtigen gefunden.
Beim Programmstart starte ich einen TTask der eine while-Schleife abarbeitet. Im Prinzip wartet er nur ein bisschen (etwa 2 Sekunden).
Die Schleife prüft die Variable i gegen eine feste Zahl. Beispielsweise 10000. In der While-Schleife steht Sleep(1) und Inc(i).

Das Problem war, dass die Variable i außerhalb von TTask deklariert war.