anchor.diff:    ltGeo = 'geo';
     ltSwitch = 'switch';
     ltEmpty  = '';
  +
  +  // time slider options
  +  ts_Off = 0;
  +  ts_collapsed = 1;
  +  ts_expanded = 2;
   
   type
     TDistanceLatLon = record
  
positive.code:   constructor 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);
    destructor Destroy; override;
    private
      fMapView: TMapView;
  
negative.code: 
  destructor TProject.Destroy;
  begin
    if Assigned(fProjectEvent) then
    begin
      fProjectEvent.unPublish;
      fProjectEvent.unSubscribe;
    end;
    FreeAndNil(fDiffLayers);
    FreeAndNil(fTimers);
    FreeAndNil(fClients);
  