Eliminar Registro (Validar)

[ruina]

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.....