程序不能运行

魔舞飞扬

procedure TForm1.Button1Click(Sender: TObject);
begin
if messagedlg('Hello',mtconfirmation,[mbyes,mbno],0)=mbyes then
begin
if messagedlg('关闭系统中',mtinformation,[mbok],0)=mbok then
close;
end;
end;

我的这段程序为什么不能运行啊,错误的提示是:
[Error] Unit1.pas(28): Incompatible types
[Error] Unit1.pas(30): Incompatible types
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

林妹妹

鉴定完毕！

文文

好贴就是好贴。。。