Kotak dialog saat form di close / keluar aplikasi pada delphi

fungsi source code di bawah ini adalah untuk menampilkan kotak dialog keluar aplikasi dengan pilihan yes dan no, jika di pilih no aplikasi tidak jadi di close dan muncul pesan tidak jadi

jika tombol yes yang di tekan maka aplikasi akan di tutup / close


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if messagedlg('keluar?',mtconfirmation,[mbyes,mbno],0)=mrno then
begin
abort;
showmessage ('tidak jadi');
end;
end; KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI