messagedlg问题

Question

我想利用messagedlg操作，当选择ok,显示1；选择no，则显示。
 if messagedlg('是否确认删除',mtinformation,[mbyes,mbno],0,mbyes)=mbyes then
    edit1.text:='1';
 else
    edit1.text:='2';但是总编译执行不过去，说 if messagedlg('是否确认删除',mtinformation,[mbyes,mbno],0,mbyes)=mbyes then 有错误
请各位帮帮忙，谢谢!

Answer 1

if messagedlg('是否确认删除',mtinformation,[mbyes,mbno],0)=mryes then
    edit1.text:='1'
 else
    edit1.text:='2';

Answer 2

谢谢
我是参照《delphi7.0编程实战导航》写得。
里面给我得参数就是如上，就是运行不了，在网上查了半天没有相关资料，郁闷，现在这书印刷质量太次了。

Answer 3

if (MessageDlg('是否确认删除',mtinformation,[mbyes,mbno],0)=6) then    edit1.text:='1'
 else
    edit1.text:='2';

Answer 4

if messagedlg('是否确认删除',mtinformation,[mbyes,mbno],0,mbyes)=mbyes then
    edit1.text:='1'
 else
    edit1.text:='2';注意多了一个分号；