Beenden meines Delphi Programms während einer For Schleife

[Hepheisto]

Ich habe folgendes problem, und zwar habe eine art pokersupporter geschrieben welcher eine for-schleife von 1-20 hoch zählt, sollte aber die pokerpartie während des zählens beednet worden sein (beispielsweise bei 12) und man eine neue beginnt, dann drück man auf den "start/neustart" button und somit startet die schleife erneut von 1 bis 20. Wird währenddessen der ende button gedrückt verschwindet zwar das programm dank meiner alphablendvalue - 5 schleife, aber das Programm beendet sich nicht und bleibt in der taskleiste drinne.
Gibt es eine procedur oder function um ein programm während einer for-schleife das programm zu beenden?