anchor.diff:      function GetPoint(aIndex: Integer): TKMPoint; inline;
       procedure SetPoint(aIndex: Integer; const aValue: TKMPoint); inline; //1..Count
       function GetLast: TKMPoint;
  +    function GetLen: Single;
     public
       constructor Create;
   
  
positive.code: procedure TKMPointList.SetPoint(aIndex: Integer; const aValue: TKMPoint);
  begin
    fItems[aIndex] := aValue;
  end;
  
  
  
negative.code:     property Items[aIndex: Integer]: TKMPoint read GetPoint write SetPoint; default;
      property Last: TKMPoint read GetLast;
      function IsEmpty: Boolean;
      property Len: Single read GetLen;
  
      procedure Clear; virtual;
      procedure Copy(aSrc: TKMPointList);
  