怎么用suipack里的suimessagedialog??(初级)

Question

如何实现如下语句
 if MessageDlg('是否真的删除该生档案',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
我写的代码
smd1.buttoncount:=2;
smd1.Caption := '系统提示';
smd1.Text:= '是否要真的删除此条记录吗！';
 smd2.ShowModal;
  ??这里不知道怎么写了
datamodule1.adoq_xs.delete;
 请帮助???

Answer 1

if smd2.ShowModal=MrOk then
   datamodule1.adoq_xs.delete;

Answer 2

smd1.buttoncount:=2;
smd1.Caption := '系统提示';
smd1.Text:= '是否要真的删除此条记录吗！';
if smd1.ShowModal=MrOk then
   datamodule1.adoq_xs.delete;