Thanks.

Pls, can you check and correct the script below for exit application.  Form1_Button7_click  ( action again for this project )
Thanks in advance, Carlo

//MessageDlg(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer
//ShowMessage(Msg: Variant)
// mbYes is 6
// mbNo is 7
// mbCancel is 2
////if 6 = MessageDlg('Really?', mtConfirmation, mbYes + mbNo + mbCancel, 0) then
////   ShowMessage('Yes')
////  else ShowMessage('No');

//procedure Form1_Button7_Click (Sender: TObject);

//begin
        //  MessageDlg(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer
//  if 6 = MessageDlg('Welcome to my Delphi application.  Exit now?',
  //  mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
// begin
//   Dialogs.MessageDlg('Exiting the Delphi application.', mtInformation,
//     [mbOk], 0, mbOk);
  //  Close;
//  end;
//end;

Thanks