sé que es una tonteria pero yo prefiero:
Código Delphi
[-]
if not (MessageDlg('¿Desea eliminar el cliente de la base de datos?',mtWarning,[mbYes,mbNo],0) = idYes) then abort;
así si algún otro procedimiento llama al borrado y luego hace mas cosas se parará la ejecución.
por ejemplo en un simple:
...
botonborrado.click
query1.open;
query1.close;
query.locate.....