Помогите с скриптом на delphi! Подробно открой...

Привет. Мне надо сделать так что бы при не правильном вводе ключа (3 раза) выключалась программа. Помогите пожалуйста!