anchor.diff:      property ProjectDescription: string read fProjectDescription write setProjectDescription;
       property ProjectEvent: TEventEntry read fProjectEvent;
       property maxNearestObjectDistanceInMeters: Integer read fMaxNearestObjectDistanceInMeters;
  -    //property TilerEvent: TEventEntry read fTilerEvent;
       property tiler: TTiler read fTiler;
       property Timers: TTimerPool read fTimers;
       property scenarios: TObjectDictionary<string, TScenario> read fScenarios; // owns, lock with TMonitor
  
positive.code: 
  destructor TProject.Destroy;
  begin
    FreeAndNil(fDiffLayers);
    FreeAndNil(fTimers);
    FreeAndNil(fClients);
  
negative.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; aMapView: TMapView;
      aProjectCurrentScenario, aProjectRefScenario: TScenario);
    destructor Destroy; override;
    private
      fMapView: TMapView;
  