Problem mit Abfrage zum beenden ohne speichern

[Aurelius]

Tjo, so hast du eine klass. endlosschleife programmiert (jedenfalls solange du "ja" wählst). Wenn du auf "Ja" drückst wird das OnClose ja wieder von vorne ausgeführt, eben so lange bis man auf "nein gedrückt hat

Delphi-Quellcode:

if not (gespeichert) then
 begin
  if  (MessageDlg('Wollen Sie das Programm beenden ohne zu speichern!?'
   ,mtWarning, [mbYes, mbNo], 0, mbYes) = mrNo) then
    //hier muss die variable Action überschrieben werden, so dass nicht geschlossen wird. Leider kenn ich grad den Wert dafür nicht^^
 end;