如何实现选择的代码

Question

就是执行一段代码时先跳出来一个提示窗口如果选择是－－－－执行代码
如果选择否－－－－跳出返回，不执行下面代码
谁能帮解决一下

Answer 1

if application.MessageBox('注意','是否继续？',mb_okcancel)=idcancel then exit;
//代码

Answer 2

var
  result: smallint;
begin
  result := Application.MessageBox('您是否要退出系统?', '提示', MB_OKCANCEL + MB_DEFBUTTON2 + MB_ICONQUESTION);
  case result of
    IDOK:
      begin
//退出
      end;
    IDCANCEL:
      begin
//不退
      end;
  end;
end;