diff --git a/components/fpexif/fpemetadata.pas b/components/fpexif/fpemetadata.pas
index 83fde901b..cae2dd30c 100644
--- a/components/fpexif/fpemetadata.pas
+++ b/components/fpexif/fpemetadata.pas
@@ -223,9 +223,8 @@ begin
 
   // From the current stream position (at the end) and the position where
   // the segment size must be written, we calculate the size of the segment
-  startPos := ASegmentStartPos + SizeOf(word);
+  startPos := ASegmentStartPos + SizeOf(word);  // skip 2 marker bytes
   segmentSize := AStream.Position - startPos;
-  segmentSize := segmentSize - 2;  // skip two marker bytes
 
   // Move the stream to where the segment size must be written...
   AStream.Position := startPos;