Pesan Sebelum Keluar Aplikasi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Ini adalah Coding untuk pesan keluar, jadi sebelum keluar dari Aplikasi akan muncul pesan dulu Apakah Yakin akan keluar Aplikasi atau tidak.

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if Application.MessageBox('Anda Yakin?',
'informasi',mb_okcancel or mb_iconquestion)=mrok then
Application.Terminate;
end;
end.