anchor.diff:      if (blk.typ <> btPrejezd) then
        begin
         Result.Insert(0, Self.JCBariera(_JCB_BLOK_NOT_TYP, blk, prjZaver.Prejezd));
  -      Exit;
  -     end;
  -
  -    // blok disabled
  -    if ((Blk as TBlkPrejezd).Stav.basicStav = TBlkPrjBasicStav.disabled) then
  -     begin
  -      Result.Add(Self.JCBariera(_JCB_BLOK_DISABLED, Blk, Blk.id));
         Exit;
        end;
   
  
positive.code:     Blky.GetBlkByID(vyhZaver.Blok, Blk);
      glob := Blk.GetGlobalSettings();
  
      // kontrola koncove polohy:
      if ((Integer((Blk as TBlkVyhybka).poloha) < 0) or (Integer((Blk as TBlkVyhybka).poloha) > 1)) then
        bariery.Add(Self.JCBariera(_JCB_VYHYBKA_KONC_POLOHA, Blk, Blk.id));
  
      // zaver nema smysl kontrolovat - zaver vyhybek je prakticky zaver useku
  
negative.code: 
     Blky.GetBlkByID(Self.fproperties.Vyhybky[Self.fstaveni.nextVyhybka].Blok, Blk);
     Inc(Self.fstaveni.nextVyhybka);
  
     if ((Blk as TBlkVyhybka).Poloha <> TVyhPoloha.disabled) then
      begin
       (Blk as TBlkVyhybka).SetPoloha(TVyhPoloha(Self.fproperties.Vyhybky[Self.fstaveni.nextVyhybka-1].Poloha),
                                      true, false, Self.VyhPrestavenaNC, Self.VyhNeprestavenaNC);
       break;
      end;
    end;
  
   while ((Self.fstaveni.nextVyhybka >= Self.fproperties.Vyhybky.Count) and
          (Self.fstaveni.nextVyhybka < Self.fproperties.Vyhybky.Count+Self.fproperties.Odvraty.Count)) do
    begin
     // nastaveni odvratu
     // Tady staci postavit jen jednu vyhybku, protoze jeji uzamceni opet zavola
     // tuto udalost.
  
     odvrat := Self.fstaveni.nextVyhybka - Self.fproperties.Vyhybky.Count;
  
     Blky.GetBlkByID(Self.fproperties.Odvraty[odvrat].Blok, Blk);
     Inc(Self.fstaveni.nextVyhybka);
  
     if ((Blk as TBlkVyhybka).Poloha <> TVyhPoloha.disabled) then
      begin
       TBlkVyhybka(Blk).SetPoloha(TVyhPoloha(Self.fproperties.Odvraty[odvrat].Poloha),
                                  true, false, Self.VyhPrestavenaNC, Self.VyhNeprestavenaNC);
       break;
      end;
    end;
  
    if (Self.fstaveni.nextVyhybka = Self.fproperties.Vyhybky.Count+Self.fproperties.Odvraty.Count) then
      Self.fstaveni.nextVyhybka := -1;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  