diff --git a/components/ideintf/propedits.pp b/components/ideintf/propedits.pp
index 1159db108d..6f62f7d210 100644
--- a/components/ideintf/propedits.pp
+++ b/components/ideintf/propedits.pp
@@ -2615,6 +2615,9 @@ end;
 destructor TPropInfoList.Destroy;
 begin
   if FList<>nil then FreeMem(FList);
+  {$IFDEF HasExtRtti}
+  if FListExt<>nil then FreeMem(FListExt);
+  {$ENDIF HasExtRtti}
 end;
 
 function TPropInfoList.Contains(P:PPropInfo):Boolean;