Else anwenden in Delphi(MessageDlg)

[Black-Rider]

Hey,
herzlichen dank.
Die Räsel Lösung ist ganz einfach, wenn man´s weiß:

Delphi-Quellcode:

procedure THauptForm.Btn_exitClick(Sender: TObject);
begin      //Btn_exitClick
   if MessageDlg('Wollen Sie das Programm wirklich beenden???',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    MessageDlg('Das Programm wird nun beendet.', mtInformation,
      [mbOk], 0);
    Close;
   end else
begin
   MessageDlg('Das Programm wird nicht beendet.', mtInformation,
      [mbOk], 0);
  end;

Herzlichen Danke!

Mit freundlichen Gruß
Black-Rider