diff --git a/lcl/include/customtrayicon.inc b/lcl/include/customtrayicon.inc
index a4957332d0..17c870359c 100644
--- a/lcl/include/customtrayicon.inc
+++ b/lcl/include/customtrayicon.inc
@@ -182,6 +182,11 @@ begin
     FIcons.GetBitmap(FCurAnimationStep, lBitmap);
     FIcon.Assign(lBitmap);
     InternalUpdate();
+
+    // Code to iterate throw the icons
+    Inc(FCurAnimationStep);
+    if FCurAnimationStep >= FIcons.Count then
+      FCurAnimationStep := 0;
   finally
     lBitmap.Free;
   end;