RSP-21370: Header parameter in OnProgress event always empty in TZipFile.Read method

Author: ccy

System.Zip2.pas

@@ -1711,6 +1711,7 @@ procedure TZipFile.Read(Index: Integer; out Stream: TStream; out LocalHeader: TZ
     FStream.Read(LocalHeader.ExtraField, LocalHeader.ExtraFieldLength);
   end;
   // Create Decompression stream.
+  FCurrentHeader := LocalHeader;
   Stream := FCompressionHandler[TZipCompression(FFiles[Index].CompressionMethod)].Value(FStream, Self, LocalHeader);
   if Stream is TZDecompressionStream then
     (Stream as TZDecompressionStream).OnProgress := DoZLibProgress;