修复上报提示ID有误

Units/UtilMethods.pas

@@ -178,7 +178,7 @@ end;
 
 function QuestMessageYesNo(const AMsg: string): Boolean;
 begin
-  Result := MessageBox(Application.Handle, PChar(AMsg), PChar('ѯÎÊ'), MB_YESNO or MB_ICONQUESTION) = IDOK;
+  Result := MessageBox(Application.Handle, PChar(AMsg), PChar('ѯÎÊ'), MB_YESNO or MB_ICONQUESTION) = IDYes;
   Application.ProcessMessages;
 end;