How to display the Chinese dialog box when you click the delete button of dbnavigator

Write the following code in the beforaction event in dbnavigator:

Procedure tform1.dbnavigator1beforeaction (Sender: tobject;
Button: tnavigatebtn );
Begin
If Button = nbdelete then
Begin
If MessageBox (handle, 'Are you sure you want to delete it? ', 'System prompt', mb_yesno or mb_iconquestion) = id_no then
Abort
Else begin
Adoquery1.delete;
Abort;
End;
End;
End;

 

Procedure tform1.dbnavigator1beforeaction (Sender: tobject;
Button: tnavigatebtn );
}
Begin
Case button
Nbfirst: Do something;
Nbprior: Do something;
Nbnext: Do something;
Nblast: Do something;
Nbinsert: Do something;
Nbdelete: Do something;
Nbedit: Do something;
Nbpost: Do something;
Nbcancel: Do something;
Nbrefresh: Do something;
End;
End;