anchor.diff:      function GetReady():boolean;                                                // jestli je usek pripraveny na vjeti soupravy
   
       function IsZastavka(): Boolean;
  +    function IsZastavkaLichy(): Boolean;
  +    function IsZastavkaSudy(): Boolean;
   
       procedure SetPoruchaBP(state:boolean);                                      // nastavi stav poruchy blokove podminky
       procedure AddSouprava(spr:Integer);
  
positive.code:  Result := (Self.TUSettings.zastavka <> nil);
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  constructor TBlkTUZastavka.Create();
  
negative.code:     property ready:boolean read GetReady;
      property poruchaBP:boolean read fTUStav.poruchaBP write SetPoruchaBP;
      property zastavka:boolean read IsZastavka;
      property zastavkaLichy: Boolean read IsZastavkaLichy;
      property zastavkaSudy: Boolean read IsZastavkaSudy;
  
   end;//TBlkUsek
  
  