{ Abfrage zum Speichern, danach Programm schließen}
procedure TfrmMain.showDialogSaveXMLFileAndClose;
begin
  if not IsXMLFileSaved then begin
    if Trim(XMLfile)='' then begin
      case MessageDlg('Möchten Sie die Änderungen speichern?', mtConfirmation, [mbYes, mbNo, mbCancel], 0) of
        { kein Dateiname angegeben und sichern }
        mrYes: begin
          if dlgSave.Execute then begin
            XMLfile := dlgSave.FileName;
            XMLDoc.save(XMLfile);
            IsXMLFileSaved := True;
            Close;
          end;
        end;
        { kein Dateiname angegeben und ohne zu sichern fortfahren }
        mrNo: begin
          Close;
        end;
        { Dialog abbrechen }
        mrCancel: begin
          exit;
        end;
      end;
    end else begin
      case MessageDlg('Möchten Sie die Änderungen in '+ XMLfile
        +' speichern?', mtConfirmation, [mbYes, mbNo, mbCancel], 0) of
        { Dateiname angegeben und sichern }
        mrYes: begin
          XMLDoc.save(XMLfile);
          IsXMLFileSaved := True;
          Close
        end;
        { Dateiname angegeben und ohne zu sichern fortfahren }
        mrNo: begin
          Close;
        end;
        { Dialog abbrechen }
        mrCancel: begin
          exit;
        end;
      end;
    end;
  end else begin
    close;
  end;
end;