diff --git a/components/ideintf/componentreg.pas b/components/ideintf/componentreg.pas
index 60fcaad1a2..c335c69b4c 100644
--- a/components/ideintf/componentreg.pas
+++ b/components/ideintf/componentreg.pas
@@ -610,9 +610,13 @@ begin
 end;
 
 destructor TBaseComponentPalette.Destroy;
+var
+  HandlerType: TComponentPaletteHandlerType;
 begin
   Clear;
   FItems.Free;
+  for HandlerType:=Low(HandlerType) to High(HandlerType) do
+    FHandlers[HandlerType].Free;
   inherited Destroy;
 end;