Abfrage ob Pogramm geschlossen werden soll.

[Sudrow]

Hallo Leute, ich bin gerade leicht am verzweifeln.
Ich wollte bei meinem Programm eine Abfrage machen, wenn man das Programm schließen will, ob man sich sicher ist oder nicht.
Wenn man es nicht will sol ldas Programm nicht zugehen, ansonsten schon.

Ich habs mit dem Quellcode probiert

Delphi-Quellcode:

if MessageDlg('Programm schließen?', mtConfirmation, [mbyes, mbno], 0) = mrYes then
  close

Aber das will irgendwie nicht so ganz.

Wenn ich auf Nein klicke schließt sich das Programm, bei Ja kommt der Dialog erneut und so weiter.
Hoffe mir kann jemand helfen.

mfg Sudrow