[Vavrenyuk]

Здраствуйте уважаемые программисты. Помогите пожалуйста исправить ошибку (если это можно ею назвать): я хочу поставить на кнопку выход (сделанную мной) чтобы "высовывалось" сообщение. Так вот я его сделал. Но при нажатии кнопки (выхода) всё идет нормально. А вот при нажимании на кнопку "Да" в это окне у меня повторно это сообщение "высовывается" и только при повторном подтверждении закрывается программа. Подскажите как это исправить пожалуйста. При нажимании на "Нет" всё нормально. Вот код кнопки выхода :

Код:

 if Application.MessageBox(PChar('Вы действительно хотите выйти из  программы ?'), 'Внимание !',
  MB_YesNo)=id_Yes then
  Form1.Close;