anchor.diff:  begin
     inherited Create;
   
  -  fStream := aStream;
  +  fStreamCompressed := aStream;
     fTick := aTick;
   end;
   
   
   destructor TKMSavePoint.Destroy;
   begin
  -  fStream.Free;
  +  fStreamCompressed.Free;
   
     inherited;
   end;
  
positive.code:   Lock;
    try
      if fSavePoints.TryGetValue(aTick, savePoint) then
        Result := savePoint.Stream;
    finally
      Unlock;
    end;
  
negative.code:       aSaveStream.PlaceMarker('SavePoint');
        aSaveStream.Write(key);
        savePoint := fSavePoints.Items[key];
        aSaveStream.Write(Cardinal(savePoint.fStreamCompressed.Size));
        aSaveStream.CopyFrom(savePoint.fStreamCompressed, 0);
      end;
    finally
      Unlock;
  