Bug 密码验证中，点击取消后，依然通过了密码验证。

Units/ProjectData.pas

@@ -1175,10 +1175,14 @@ var
 begin
   if ProjProperties.UnlockInfoPassword = '' then
     Result := True
-  else if InputPassword(sPassword) then
+  else
   begin
-    Result := sPassword = ProjProperties.UnlockInfoPassword;
-    if not Result then ErrorMessage('您输入的密码不正确！');
+    Result := InputPassword(sPassword);
+    if Result then
+    begin
+      Result := sPassword = ProjProperties.UnlockInfoPassword;
+      if not Result then ErrorMessage('您输入的密码不正确！');
+    end;
   end;
 end;