From a35bc6dcd098d61c00d9d5c3fbbfa47ac16bfdee Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Sat, 24 Feb 2018 14:52:15 +0000
Subject: [PATCH] * Fix bug ID #33219

git-svn-id: trunk@57356 -
---
 components/fpreport/design/fpreportdesignobjectlist.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpreport/design/fpreportdesignobjectlist.pp b/components/fpreport/design/fpreportdesignobjectlist.pp
index a9685c88a9..3a742ec1bb 100644
--- a/components/fpreport/design/fpreportdesignobjectlist.pp
+++ b/components/fpreport/design/fpreportdesignobjectlist.pp
@@ -937,7 +937,7 @@ Var
     Y:=Y+DY+ABand.Layout.Height;
     L.Remove(Aband);
     // Recurse
-    AddBandToList(TMyBand(Aband).ChildBand);
+    AddBandToList(TFPReportCustomBand(TMyBand(Aband).ChildBand));
   end;
 
   // Find a band of given type, if it exists add it (remove it from the list)