From d62467de689c96f0ef51e6cf3e6e3c22b41b50b0 Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Mon, 24 Sep 2018 08:53:19 +0000
Subject: [PATCH] * Free searchitems stringlist

git-svn-id: trunk@59154 -
---
 components/idespotter/frmspotter.lfm | 1 +
 components/idespotter/frmspotter.pas | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/components/idespotter/frmspotter.lfm b/components/idespotter/frmspotter.lfm
index 3fcb7ffd92..e2e93d579c 100644
--- a/components/idespotter/frmspotter.lfm
+++ b/components/idespotter/frmspotter.lfm
@@ -12,6 +12,7 @@ object SpotterForm: TSpotterForm
   OnActivate = FormActivate
   OnClose = FormClose
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   OnShow = FormShow
   Position = poDefaultSizeOnly
   ShowInTaskBar = stNever
diff --git a/components/idespotter/frmspotter.pas b/components/idespotter/frmspotter.pas
index f3a24ca9b5..213f6f70c0 100644
--- a/components/idespotter/frmspotter.pas
+++ b/components/idespotter/frmspotter.pas
@@ -71,6 +71,7 @@ type
     procedure FormActivate(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure LBMatchesClick(Sender: TObject);
     procedure LBMatchesDrawItem(Control: TWinControl; Index: Integer;
@@ -316,6 +317,11 @@ begin
   FOrgCaption:=Caption;
 end;
 
+procedure TSpotterForm.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(FSearchItems);
+end;
+
 procedure TSpotterForm.FormShow(Sender: TObject);
 Var
   MF : TForm;