diff --git a/packages/fcl-report/src/fpreport.pp b/packages/fcl-report/src/fpreport.pp
index ac9fdab174..c784b66086 100644
--- a/packages/fcl-report/src/fpreport.pp
+++ b/packages/fcl-report/src/fpreport.pp
@@ -11110,6 +11110,8 @@ end;
 
 procedure TFPReportLayouter.ShowDataHeaderBand;
 begin
+  if Not assigned(CurrentLoop.FDataHeader) then
+    exit;
   if CurrentLoop.FDataHeaderPrinted then
     Exit; // nothing further to do
   if ShowBandWithChilds(CurrentLoop.FDataHeader) then