anchor.diff:    query: TOraQuery;
     controlName, controlDescription: string;
     adjustedIDs: TDictionary<Integer, Integer>;
  -  adjustedID: Integer;
  +  adjustedID, i, j: Integer;
     publishEvent: TIMBEventEntry;
     publishEventName: string;
     table: TSubscribeObject;
  
positive.code:                         end;
                          if connectedRoads then
                          begin
                            query.SQL.Text := 'SELECT OBJECT_ID FROM ' + turncostTableName + ' WHERE NODE_A=:NODE_A AND NODE_B=:NODE_B AND NODE_C=:NODE_C';
                            query.ParamByName('NODE_A').Value := nodeA;
                            query.ParamByName('NODE_B').Value := nodeB;
  
negative.code: procedure TUSProject.HandleClientMeasureMessage(aProject: TProject;
    aClient: TClient; const aType: string; aPayload: TJSONObject);
  var
    layer: TLayerBase;
    basicLayer: TUSBasicLayer;
    obj: TLayerObject;
    geometry: TWDGeometry;
    applyObject: TJSONObject;
    selectCategories, selectedObjects: TJSONArray;
    jsonArrayItem, jsonProperty: TJSONValue;
    jsonProperties: TJSONArray;
    id, propID, propValue: string;
    point, point1, point2: TGIS_Point;
    lat, lon: Double;
    measure: TMeasureAction;
    propertyDictionary: TDictionary<string, string>;
  