From 86148df684ea6e2dca149b858102b4d9b7ccb05f Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 2 Sep 2013 09:57:56 +0000
Subject: [PATCH] LCL: Clear also Images list for icons. Issue #24937, patch
 from ChrisF

git-svn-id: trunk@42555 -
---
 lcl/include/icon.inc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/include/icon.inc b/lcl/include/icon.inc
index b966189874..7915af9f87 100644
--- a/lcl/include/icon.inc
+++ b/lcl/include/icon.inc
@@ -164,6 +164,7 @@ var
 begin
   for n := 0 to FImages.Count - 1 do
     TObject(FImages[n]).Free;
+  FImages.Clear;
 end;
 
 function TSharedIcon.GetIndex(AFormat: TPixelFormat; AHeight, AWidth: Word): Integer;