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;