程序不能运行

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'