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

[tflb]

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

[delphi0302]

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

[delphi0302]

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