anchor.diff:  constructor TProject.Create(aSessionModel: TSessionModel; aConnection: TConnection;
     const aProjectID, aProjectName, aTilerFQDN, aTilerStatusURL: string; aDBConnection: TCustomConnection;
     aTimeSlider: Integer; aSelectionEnabled, aMeasuresEnabled, aMeasuresHistoryEnabled, aSimulationControlEnabled, aAddBasicLayers: Boolean;
  -  const aSimulationSetup: string; aMaxNearestObjectDistanceInMeters: Integer);
  +  const aSimulationSetup: string; aMaxNearestObjectDistanceInMeters: Integer; aMapView: TMapView;
  +  aProjectCurrentScenario, aProjectRefScenario: TScenario);
   begin
     inherited  Create;
  +  fMapView := aMapView;
     fGroups := TObjectDictionary<string, TGroup>.Create([doOwnsValues]);
     fTimeSlider := aTimeSlider;
     fSelectionEnabled := aSelectionEnabled;
  
positive.code:   FreeAndNil(fScenarios);
    FreeAndNil(fMeasures);
    inherited;
  //  if Assigned(fTilerEvent) then
  //  begin
  //    fTilerEvent.unPublish;
  //    fTilerEvent := nil;
  //  end;
    FreeAndNil(fDBConnection);
  end;
  
  
negative.code:   ltGeo = 'geo';
    ltSwitch = 'switch';
    ltEmpty  = '';
  
    // time slider options
    ts_Off = 0;
    ts_collapsed = 1;
    ts_expanded = 2;
  
  type
    TDistanceLatLon = record
  