Application.Terminate

[Christian18]

Hallo,

ich habe ein kleines Problem. Und zwar habe ich eine Application die ich mit Application.Terminate; schließen möchte und vorher soll eine kleine frage kommen. Möchten Sie das Programm wirklich beenden ? . das funktioniert auch schon alles soweit. aber denn ich auf den button nein klicke, dann schließt das programm auch. es soll ja nur schließen, wenn ich ja betätige. was habe ich falsch gemacht???

Delphi-Quellcode:

  if MessageDlg('Möchten Sie das Programm wirklich beenden ?',mtConfirmation,[mbYES,mbNO],0)=mrYes then
    Application.Terminate;