Problem mit Schleife im OnClose Event

[MasterC]

Hi,

Delphi-Quellcode:

//Ungespeicherte Dateien abfragen

  For i:=0 to tabber1.PageCount-1 do begin
    If tabber1.Pages[i] <> Help then begin //Help Seite ausschließen
      If changede[tabber1.Pages[i].PageIndex] = true then begin //Gespeicherte Dateien ausschließen
        checkcaption:=tabber1.Pages[i].Caption;
        tabber1.Pages[i].Show;
        Wert := 0;
        Wert := MessageDlg('Soll die Datei "'+checkcaption+'" vor dem Beenden gespeichert werden?', mtConfirmation, [mbYes, mbNo, mbnotoall, mbCancel], 0);
        If Wert = mrcancel then begin Action:=caNone; break; end;
        If Wert = mrYes then mainform.Save.Execute;
        If wert = mrnotoall then break;
      end;
    end;
  end;

Bei der ersten Abfrage klappt alles wunderbar. Obwohl noch mehrere ungespeicherte Dateien geöffnet sind werden keine mehr abgefragt, sondern das Programm wird beendet.