DbNAvigator -->Confirm delete

  case Button of
    nbDelete : 
    //Confirm delete и код удаления 
  end;

procedure TfrmMain.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
case Button of
    nbDelete :
    if (MessageDlg('Вы действительно хотите удалить запись?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
    table1.delete; // к примеру. короче, ваш код удаления.
  end;
end;

var exb:word;
begin
ExB:=MessageBox(Form1.handle,pchar('Удаляется пользователь '+adoUsers['UserName']+#13+'Подтвердите удаление'),pchar('Удаление пользователя'),36);

var exb:integer;
begin
ExB:=MessageBox(Form1.handle,pchar('Удаляется пользователь '+adoUsers['UserName']+#13+'Подтвердите удаление'),pchar('Удаление пользователя'),36);
  if Exb=IDYES then
          adoUsers.Delete;
end;

var exb:integer;
begin
ExB:=MessageBox(Form1.handle,pchar('Удаляется пользователь. Подтвердите удаление'),pchar('Удаление пользователя'),36);
  if Exb=IDYES then
          adoUsers.Delete;
end;

var
  Familiya:string;
begin
Familiya:= adoUsers['UserName'];
ExB:=MessageBox(Form1.handle,pchar('Удаляется пользователь '+ Familiya + #13 +'Потвердите удаление'),pchar('Удаление пользователя'),36);