Abfragemenü

[Dunkelbunt27]

Wie kann ich es machen, dass wenn ich erst auf JA klicke (also ich möchte speichern)
und dann im Speicherdialog abbreche, sich das Programm nicht schließt?

ich hab es jetzt so:

Delphi-Quellcode:

  case MR of
    mrYes   : begin
               CanClose := False;
               if not FileExists(Filename) then
               begin
                 SpeicherDialog := TSaveDialog.Create(self);
                 Speichern_mit_Dialog;
                  //if SpeicherDialog.Execute = False  //Falsch, da so der Dialog erneut aufgerufen wird.
                  //   CanClose := False;
               end
               else
                begin
                  Speichern(Filename);
                  CanClose := True;
                  Exit;
                end;
              end;
    mrNo    : begin
              //leer
              end;
    mrCancel: begin
               CanClose := False;
               exit;
              end;
  end;

<Edit> Doppelpost -.- </Edit>