anchor.diff:    if (MapBitmap = nil) then Exit;
   
     Weights := HWeights;
  -  if (not UseWeights) then Weights := 0;
  +  if (not FUseWeights) then Weights := 0;
   
     Count := seIterationsCount.Value;
     Time := GetTickCount;
  
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: 
    // data initialization
    HWeights := cpfCreateWeights;
    FUseWeights := True;
    FSectorTest := True;
    FCaching := False;
    FTileMode := 1;
    FillChar(TILE_MAP, SizeOf(TILE_MAP), 1);
    sbTile1.Position := Round(1.0 * 20);
    sbTile2.Position := Round(1.5 * 20);
    sbTile3.Position := Round(2.5 * 20);
    sbTile4.Position := Round(6.0 * 20);
    FStartPoint := Point(5, 9);
    FFinishPoint := Point(24, 9);
    FMousePressed := mbMiddle; // neutral value initialization
  
    // loading last map state from local "SAVE.dat" file
    FileName := ProjectPath + 'SAVE.dat';
  