Application.messagebox造成死机

procedure TFormChangePassCode.btnOKClick(Sender: TObject);
begin
  NewPasscode := '';
  if trim(edNewPassCode.text) = trim(edConfirmPasscode.Text) then
    begin
    NewPasscode := trim(edNewPasscode.Text);
    end
  else
    begin
    Application.MessageBox('"新密码"与"确认密码"不相同，请重新输入！','修改密码',MB_ICONERROR+MB_OK);
    NewPasscode := '';
    edNewPasscode.Clear;
    edConfirmPasscode.Clear;
    edNewPasscode.SetFocus;
    ModalResult := mrNone;
    end;
end;当程序运行到Application.MessageBox('"新密码"与"确认密码"不相同，请重新输入！','修改密码',MB_ICONERROR+MB_OK);就出现死机.不知道原因,谢谢大家帮忙告知.