新手有问题要问：incompatibe types

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  //询问是否退出
  if MessageDlg('欢迎使用本软件。确定退出吗？',
            mtConfirmation,[mbYes,mbNo],0) = mbYes then
  begin
    MessageDlg('退出本软件',mtInformation,[mbOK],0);
    Close;
  end;
end;end.
编译器提示在 if MessageDlg('欢迎使用本软件。确定退出吗？',
            mtConfirmation,[mbYes,mbNo],0) = mbYes then
有incompatible types的问题
请问要怎么解决

Answer 1

if MessageDlg('欢迎使用本软件。确定退出吗？',
  mtConfirmation,[mbYes,mbNo],0) = mrYes then