From 0bf3e3af550b820ee3ccd258d8af69a2dc690f14 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Thu, 3 Sep 2009 11:07:10 +0000
Subject: [PATCH] lcl: fix TCustomImageList.AddImages (fixes bug #0014289)

git-svn-id: trunk@21554 -
---
 lcl/include/imglist.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/include/imglist.inc b/lcl/include/imglist.inc
index c3a80396c1..2f8bc36a89 100644
--- a/lcl/include/imglist.inc
+++ b/lcl/include/imglist.inc
@@ -108,10 +108,10 @@ begin
     if HandleAllocated
     then begin
       p := @FData[OldCount];
-      for n := OldCount to FCount - AValue.FCount - 1 do
+      for n := OldCount to FCount - 1 do
       begin
         TWSCustomImageListClass(WidgetSetClass).Insert(Self, n, p);
-        Inc(p, DataSize);
+        Inc(PByte(p), DataSize);
       end;
     end;
   end