como criar um botão para fechar o aplicativo com mensagem

[capetado 0]

como criar um botão para fechar o aplicativo com mensagem?

[Eisenheim 67]

Olá amigos.

 

Experimente isso:

 

if ( Application.MessageBox('Deseja fechar o aplicativo?', 'Atenção!', mb_yesno or mb_iconconfirmation or mb_deffbutton2 ) = idYes ) then

Application.Terminate;