Messagebox soll nur erscheinen, wenn datei gespeichert wurde

[m-werk]

Hallo,

ich hab schon wieder eine Frage zur Positionierung meiner Message Box.

Wenn ich den SaveDialog abbreche, kommt trotzdem meine Messagebox. Diese soll aber nur erscheinen, wenn ich die Datei gespeichert habe.

Code:

if SaveDialog1.Execute then
             theStringList.savetofile(SaveDialog1.Filename);
             MessageDlg('Die Kundendatenbank wurde erfolgreich exportiert!', mtInformation,
             [mbOK],0);
         end;