anchor.diff:  
   destructor TNavMeshPathFinding.Destroy;
   begin
  -  Flush();
  +  Flush(true);
     fHeap.Free;
     inherited;
   end;
  
positive.code: end;
  
  
  function TNavMeshPathFinding.ReturnRoute(out aRoutePointArray: TKMPointArray): TKMWordArray;
  const
    USED_PENALIZATION = 40;
  var
    Count, POM: Word;
    N: TNavMeshNode;
    Output: TKMWordArray;
  begin
  
negative.code:   DX := Abs(SPoint.X - EPoint.X);
    DY := Abs(SPoint.Y - EPoint.Y);
    if (DX > DY) then
      Output := (DX shl 3) + (DY shl 2)
    else
      Output := (DY shl 3) + (DX shl 2);
    Result := Output;
  end;
  
  