anchor.diff:      procedure Copy(aSrc: TKMPointList);
       procedure Add(aLoc: TKMPoint);
       function  Remove(aLoc: TKMPoint): Integer; virtual;
  -    procedure Delete(aIndex: Integer);
  +    procedure Delete(aIndex: Integer); virtual;
       procedure Insert(ID: Integer; aLoc: TKMPoint);
       function  GetRandom(out Point: TKMPoint): Boolean;
       function  GetClosest(aLoc: TKMPoint; out Point: TKMPoint): Boolean;
  
positive.code: end;
  
  
  procedure TKMPointList.Delete(aIndex:Integer);
  begin
    if not InRange(aIndex, 0, Count-1) then Exit;
    if (aIndex <> fCount - 1) then
  
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;
  