anchor.diff:      sbTile2.Position := Round(1.5 * 20);
       sbTile3.Position := Round(2.5 * 20);
       sbTile4.Position := Round(6.0 * 20);
  -    StartPoint := Point(5, 9);
  -    FinishPoint := Point(24, 9);
  -    ExcludedPoints := nil;
  +    FStartPoint := Point(5, 9);
  +    FFinishPoint := Point(24, 9);
  +    FExcludedPoints := nil;
       cbUseWeights.Checked := True;
       cbCaching.Checked := False;
  -    MapKind := mkSimple;
  +    FMapKind := mkSimple;
       cbSectorTest.Checked := True;
       seIterationsCount.Value := 1000;
     end;
   
     MapBitmap := BufMapBitmap;
  -  TileMode := 1;
  -  BarrierMode := 0;
  +  FTileMode := 1;
  +  FBarrierMode := 0;
     RecreateMap;
   end;
   
  
positive.code:     procedure rgMapKindClick(Sender: TObject);
    private
      // internal data
      UseWeights: Boolean;
      SectorTest: Boolean;
      Caching: Boolean;
      ExcludedPoints: array of TPoint;
      FStartPoint: TPoint;
      FFinishPoint: TPoint;
      CursorPoint: TPoint;
      MousePressed: TMouseButton;
      FTileMode: Byte;
      FBarrierMode: Byte;
      FMapKind: TTileMapKind;
  
negative.code:   if (MapBitmap = nil) then Exit;
  
    // todo
    TTileMap(HMap).SectorTest := FSectorTest;
    TTileMap(HMap).Caching := FCaching;
  
    // find path
   (* Weights := HWeights;
  