anchor.diff:    savePoint: TKMSavePoint;
     stream: TKMemoryStream;
   begin
  +  if Self = nil then Exit;
  +
     Lock;
     try
       fSavePoints.Clear;
  
positive.code: 
  function TKMSavePointCollection.GetCount(): Integer;
  begin
    Lock;
    try
      Result := fSavePoints.Count;
  
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;
  