if MessageDlg('是否要删除，确定吗？', mtInformation,[mbYes, mbNo, mbCancel],0)=mbYes then
      Delete;
错误信息:

TMsgDlgBtn Value    Corresponding return value

mbOK    mrOk
mbCancel    mrCancel
mbYes    mrYes
mbNo    mrNo
mbAbort    mrAbort
mbRetry    mrRetry
mbIgnore    mrIgnore
mbAll    mrAll
mbNoToAll    mrNoToAll
mbYesToAll    mrYesToAll

if MessageDlg('是否要删除，确定吗？', mtInformation,[mbYes, mbNo, mbCancel],0)=mrYes then
      Delete;