procedure TForm1.Button1Click(Sender: TObject);

begin 

if  MessageDlg('Programdan çıkmak istiyormusunuz ?',

                           mtConfirmation,[mbYes,mbno],1)=mryes then

close;

end;
end.