Apresentando mensagem de confirmação para deleção de registro

//No evento BeforeDelete do componente TTable digite

if MessageDlg('Confirma a exclusão ?', mtConfirmation, [mbYes,mbNo], 0)<>mrYes then
Abort;