diff --git a/packager/pkglinksdlg.pas b/packager/pkglinksdlg.pas
index 2e017f1d96..61f695a5ff 100644
--- a/packager/pkglinksdlg.pas
+++ b/packager/pkglinksdlg.pas
@@ -73,7 +73,7 @@ type
     procedure ClearLinks;
     procedure IteratePackages(APackage: TLazPackageID);
   public
-    { public declarations }
+    destructor Destroy; override;
   end; 
 
 function ShowPackageLinks: TModalResult;
@@ -192,6 +192,12 @@ begin
   FLinks.Add(NewLink);
 end;
 
+destructor TPackageLinksDialog.Destroy;
+begin
+  ClearLinks;
+  inherited Destroy;
+end;
+
 { TPkgLinkInfo }
 
 procedure TPkgLinkInfo.Assign(Source: TLazPackageID);