很简单的Delphi程序，可是不能运行，不知道错在哪里了

这是一个测试弹出对话框的小程序，用到了这个函数“function MessageDlg(const Msg: string; DlgType: TMsgDlgType;Buttons: MsgDlgButtons; HelpCtx: Longint): Integer;”可是在编译的时候却不能运行，Delphi报错： ':=' expected but '=' found。不知道该怎么改，麻烦大家看看：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg('你要离开系统吗？',mtconfirmation,[mbYes,mbNo],0)=mrYes then
begin
MessageDlg('系统关闭中',mtInformation,[mbOK],0)=mrOK then
Close;
end;

end.

很简单的Delphi程序，可是不能运行，不知道错在哪里了 delphi 程序的一个简单的问题 求Delphi的几个简单程序 帮忙看看这个很简单的pascal程序（Delphi下运行） 求助一个很简单的DELPHI计算小程序（送分）_ 求一使用delphi调用word的简单程序。 关于一个delphi程序，很简单，请帮忙！ delphi的问题，很简单，紧急！ delphi 的简单问题 delphi简单的加法