Caused by 7861d4c8 Source commit: 92f018ea3bacd86894989c4f658123556619b62d
@@ -385,10 +385,12 @@ void __fastcall THierarchicalStorage::RecursiveDeleteSubKey(const UnicodeString
ClearValues();
}
+ // Only if all subkeys were successfully deleted in ClearSubKeys
+ bool Delete = CanWriteParent && !HasSubKeys();
+
CloseSubKey();
- // Only if all subkeys were successfully deleted in ClearSubKeys
- if (CanWriteParent && HasSubKeys())
+ if (Delete)
{
DoDeleteSubKey(Key);