diff --git a/components/fpexif/fpemetadata.pas b/components/fpexif/fpemetadata.pas
index 923fdd507..8d2b20dd3 100644
--- a/components/fpexif/fpemetadata.pas
+++ b/components/fpexif/fpemetadata.pas
@@ -529,12 +529,12 @@ var
   sa: ansistring;
  {$ENDIF}
 begin
-  p := AStream.Position;
   streamsize := AStream.Size;
 
   if not ((ReadByte(AStream) = $FF) and (ReadByte(AStream) = M_SOI)) then
     exit;
 
+  p := AStream.Position;
   while p < streamsize do begin
     // The basic structure of the jpeg segments is
     //   $FF ..... identifier (sometimes repeated)