cancelar el cierre de ventana

[Max_E.]

hola a todos de nuevo:

cual es el codigo que me muestre un cuadro de dialogo con botones aceptar y calcelar, y como ago para identificar que boton se preciono ?
mas o memos esto quiero hacer

Código Delphi [-]
showmessageokcancel('seguro de cerrar') 
if showmessageokcancel=ok then
close;
if showmessageokcancel=cancel then
label1.caption:='modificar';

gracias por la ayuda.