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)