diff --git a/ideintf/packageintf.pas b/ideintf/packageintf.pas
index f43a28e840..8d7b052949 100644
--- a/ideintf/packageintf.pas
+++ b/ideintf/packageintf.pas
@@ -218,6 +218,7 @@ type
                             const AMethod: TMethod);
     procedure DoCallNotifyHandler(HandlerType: TPkgIntfHandlerType; Sender: TObject);
   public
+    destructor Destroy; override;
     function DoOpenPackageWithName(const APackageName: string;
                          Flags: TPkgOpenFlags;
                          ShowAbort: boolean): TModalResult; virtual; abstract;
@@ -676,6 +677,15 @@ begin
   FHandlers[HandlerType].CallNotifyEvents(Sender);
 end;
 
+destructor TPackageEditingInterface.Destroy;
+var
+  h: TPkgIntfHandlerType;
+begin
+  for h:=Low(FHandlers) to high(FHandlers) do
+    FreeAndNil(FHandlers[h]);
+  inherited Destroy;
+end;
+
 procedure TPackageEditingInterface.RemoveAllHandlersOfObject(AnObject: TObject);
 var
   HandlerType: TPkgIntfHandlerType;