anchor.diff:  end;
   
   
  +function TKMSavePointCollection.GetLastTick: Cardinal;
  +begin
  +  if Self = nil then Exit(0);
  +
  +  Result := fLastTick;
  +end;
  +
  +
  +procedure TKMSavePointCollection.SetLastTick(const aLastTick: Cardinal);
  +begin
  +  if Self = nil then Exit;
  +
  +  fLastTick := aLastTick;
  +end;
  +
  +
   procedure TKMSavePointCollection.Clear;
   var
     savePoint: TKMSavePoint;
   begin
  +  if Self = nil then Exit;
  +
     Lock;
     try
       for savePoint in fSavePoints.Values do
  
positive.code: end;
  
  
  { TKMSavedReplay }
  constructor TKMSavePoint.Create(aStream: TKMemoryStream; aTick: Cardinal);
  begin
    inherited Create;
  
negative.code:     function GetCount(): Integer;
      function GetSavePoint(aTick: Cardinal): TKMSavePoint;
      function GetStream(aTick: Cardinal): TKMemoryStream;
      function GetLastTick: Cardinal;
      procedure SetLastTick(const aLastTick: Cardinal);
    public
      constructor Create();
      destructor Destroy; override;
  
      property LastTick: Cardinal read GetLastTick write SetLastTick;
      procedure Clear;
  
      procedure Lock;
  