anchor.diff:        seIterationsCount.Value := ReadInt;
   
         Len := ReadInt;
  -      SetLength(ExcludedPoints, Len);
  -      if (Len <> 0) then F.Read(pointer(ExcludedPoints)^, Len * SizeOf(TPoint));
  +      SetLength(FExcludedPoints, Len);
  +      if (Len <> 0) then F.Read(pointer(FExcludedPoints)^, Len * SizeOf(TPoint));
       finally
         F.Free;
       end;
  
positive.code:     Params.StartsCount := 1;
      Params.Finish := FinishPoint;
      Params.Weights := {$ifNdef USECPFDLL}TTileMapWeights{$endif}(Weights);
      Params.Excludes := PPoint(ExcludedPoints);
      Params.ExcludesCount := Length(ExcludedPoints);
  
      for i := 1 to Count do
        cpfFindPath(HMap, @Params, SectorTest, Caching){ExecutePathFinding(Show = False)};
    end;
    Time := GetTickCount - Time;
  
  
negative.code:     sbTile2.Position := Random(200);
      sbTile3.Position := Random(200);
      sbTile4.Position := Random(200);
      FStartPoint := RandomPoint;
      FFinishPoint := RandomPoint;
      FExcludedPoints := nil;
      for i := 0 to Random(20) do AddExcludedPoint(RandomPoint);
      cbUseWeights.Checked := RandomBool;
      FMapKind := TTileMapKind(Random(Byte(High(TTileMapKind)) + 1));
      cbSectorTest.Checked := RandomBool;
      seIterationsCount.Value := Random(100000) + 1;
    end;
  
    MapBitmap := BufMapBitmap;
    FTileMode := 1;
    FBarrierMode := 0;
    RecreateMap;
  end;
  
  