如何实现删除提示对话框出现两次？
我要用delphi来实现这个功能，该怎么编写代码呢？

[解决办法]
if messagebox() then
if messagebox() then
delete...

[解决办法]
if Application.MessageBox( '确定要删除吗? ', '提示 ',MB_YESNO+MB_ICONQUESTION)=6 then
if Application.MessageBox( '真的确定要删除吗? ', '提示 ',MB_YESNO+MB_ICONQUESTION)=6 then
showmessage( '删除 ');
[解决办法]
if Application.MessageBox( '确定要删除吗? ', '提示 ',MB_YESNO+MB_ICONQUESTION)=6 then
if Application.MessageBox( '真的确定要删除吗? ', '提示 ',MB_YESNO+MB_ICONQUESTION)=6 then
showmessage( '删除 ');

[解决办法]
if not Application.MessageBox( '确定要删除吗? ', '提示 ',MB_YESNO+MB_ICONQUESTION)= mryes then Exit;
if not Application.MessageBox( '确定要删除吗? ', '提示 ',MB_YESNO+MB_ICONQUESTION)= mryes then Exit;

//以下自己写删除内容