diff --git a/ideintf/propedits.pp b/ideintf/propedits.pp
index d613f7c67a..e96900a13c 100644
--- a/ideintf/propedits.pp
+++ b/ideintf/propedits.pp
@@ -4051,6 +4051,7 @@ begin
   if LPersistents <> nil then
   begin
     GetPersistentProperties(LPersistents, tkAny, PropertyHook, Proc, nil);
+    LPersistents.Free;
   end;
 end;