case MessageDlg('数据已存在,是否覆盖?',<br> mtConfirmation, [mbYes, mbYesToAll, mbNo, mbCancel], 0, mbNo) of<br> mrYes: ...<br> mrYesToAll: ...<br> mrNo: ...<br> mrCancel: ...<br> end;