diff --git a/source/HTMLSubs.pas b/source/HTMLSubs.pas
index 23d2b948..740751b8 100644
--- a/source/HTMLSubs.pas
+++ b/source/HTMLSubs.pas
@@ -11852,7 +11852,8 @@ function TSection.AddImage(L: TAttributeList; ACell: TCellBasic; Index: Integer;
 begin
   Result := TImageObj.Create(ACell, Len, L, Prop);
   Images.Add(Result);
-  AddChar(ImgPan, Index); {marker for image}
+  if Result.Display <> pdNone then
+    AddChar(ImgPan, Index); {marker for image}
 end;
 
 function TSection.AddPanel(L: TAttributeList; ACell: TCellBasic; Index: Integer; Prop: TProperties): TPanelObj;