diff --git a/components/fpexif/fpeiptcreadwrite.pas b/components/fpexif/fpeiptcreadwrite.pas
index 8053669d4..68ae3bed8 100644
--- a/components/fpexif/fpeiptcreadwrite.pas
+++ b/components/fpexif/fpeiptcreadwrite.pas
@@ -274,7 +274,7 @@ var
 begin
   FImgInfo.IptcData.Clear;
   if Length(ABuffer) = 0 then begin
-    Error(rsIptcDataExpected);
+    // IPTC block available but has zero length
     exit;
   end;