anchor.diff:    fTiler.onTilerStatus := handleTilerStatus;
   
     //Set Sesmi controls
  +  SetControl('timeslider', '1');
     SetControl(dateFormControl, '{"data":' + aDateFormData + '}');
     fLinks := TDictionary<TGUID, TWDGeometry>.Create;
     fPubEvent := aConnection.eventEntry('geometry_roads').publish;
  
positive.code: 
  destructor TSesmiTrackLayer.Destroy;
  begin
    FreeAndNil(fLastLons);
    FreeAndNil(fLastLats);
    inherited;
  end;
  
  
negative.code: 
    scenarios.Add(aScenarioID, scenario);
    }
    // **** scenario.GoLive(True);
    scenario.GoDB('',Double.NegativeInfinity, Double.PositiveInfinity);
    Result := scenario;
  end;
  
  