Memberikan MessageBox untuk Tombol Keluar pada Delphi

Agar aplikasi yang kita buat menjadi lebih dinamis, lebih nyaman dan lebih user friendly / ramah terhadap user tentunya kita harapkan aplikasi yang kita buat tersebut seolah-olah dapat berkomunikasi langsung dengan user. Sebagai contoh berikut adalah penggunaan messageBox untuk tombol keluar pada aplikasi delphi yang akan menanyakan kepada user untuk tetap keluar aplikasi atau tidak jika ditekan tombol keluar.
Berikut ini adalah kode program untuk membuat messageBox pada tombol keluar:
if messagedlg(‘Anda Ingin Keluar Aplikasi ini?’,mtconfirmation,[mbYes,mbNo],0)=mrYes then
begin
application.Terminate;
end;