anchor.diff:   Self.UsekSettings.houkEvL := TList<THoukEv>.Create();
    Self.UsekSettings.houkEvS := TList<THoukEv>.Create();
   
  + Self.UsekSettings.maxSpr := _DEFAULT_MAX_SPR;
  +
    Self.UsekStav.neprofilJCcheck := TList<Integer>.Create();
   end;//ctor
   
  
positive.code:     currentHoukEv : -1;
     );
  
    private
     UsekStav:TBlkUsekStav;
     last_zes_zkrat:TBoosterSignal;  //poziva se na pamatovani posledniho stavu zkratu zesilovace pri vypnuti DCC
  
negative.code:   Zesil:string;           //id zesilovace
    houkEvL:TList<THoukEv>;  //seznam houkacich udalosti pro lichy smer
    houkEvS:TList<THoukEv>;  //seznam houkacich udalosti pro sudy smer
    maxSpr:Cardinal;        // maximalni pocet souprav v bloku
   end;
  
   TUsekStavAr = array[0..3] of TUsekStav;
  