MessageDlg schließen

[Smeivel]

Hallo erst mal an alle!
Ich habe zuerst mal ein Problem mit dem Message Dialog und zwar möchte ich den messageDlg beenden können wenn ich auf NEIN klicke, doch hab ich nirgendwo einen passenden quellcode gefunden der einen MessageDlg schließen kann. Wenn ich auf ja klicke soll das ganze Programm geschlossen werden, doch passiert das mit folgendem code wenn ich auf NEIN klicke , dies sollte doch normalerweise andersherum sein.

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Case MessageDlg('sicher?',mtconfirmation,[mbYes,mbNO,mbCancel],0) Of
       mrYes    : Form1.Close;
       mrNo     : //???;
   end;
end;