...
procedure TForm.FormCreate(Sender: TObject);
begin
DBNavigator1.ConfirmDelete:= False;
end;
procedure TForm.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
const
flags = MB_ICONQUESTION or MB_YESNO;
begin
if Button = nbDelete then
if MessageBox(Handle, '¿ Ud. sabe la barbaridad que va a hacer ?', '', flags) = IDNO then
Abort;
end;