anchor.diff:  end;
   
   
  -procedure TKMPointList.Delete(aIndex:Integer);
  +procedure TKMPointList.Delete(aIndex: Integer);
   begin
     if not InRange(aIndex, 0, Count-1) then Exit;
     if (aIndex <> fCount - 1) then
  
positive.code:     procedure Copy(aSrc: TKMPointList);
      procedure Add(aLoc: TKMPoint);
      function  Remove(aLoc: TKMPoint): Integer; virtual;
      procedure Delete(aIndex: Integer);
      procedure Insert(ID: Integer; aLoc: TKMPoint);
      function  GetRandom(out Point: TKMPoint): Boolean;
      function  GetClosest(aLoc: TKMPoint; out Point: TKMPoint): Boolean;
  
negative.code:     function IndexOf(const aLoc: TKMPoint; aTag: Cardinal; aTag2: Cardinal): Integer;
      procedure SortByTag;
      function Remove(aLoc: TKMPoint): Integer; override;
      procedure Delete(aIndex: Integer); override;
      procedure SaveToStream(SaveStream: TKMemoryStream); override;
      procedure LoadFromStream(LoadStream: TKMemoryStream); override;
    end;
  