[[eduarcol]]

Lo que sucede es que no estas colocando ningun conidcional

Código Delphi [-]
if MessageDlg('¿Desea eliminar el cliente de la base de datos?',mtWarning,[mbYes,mbNo],0) = idYes then
DM_BaseDatos.TblCliente.Delete;