anchor.diff:                                        true, false, Self.VyhPrestavenaNC, Self.VyhNeprestavenaNC);
          if ((Blk as TBlkVyhybka).Poloha <> TVyhPoloha(Self.fproperties.Vyhybky[i].Poloha)) then
           begin
  -         Inc(Self.fstaveni.nextVyhybka);
  +         Self.fstaveni.nextVyhybka := i+1;
            Exit();
           end;
         end;
  
positive.code:     stavim:Cardinal;
      bariery:TList<TJCBariera>;
      bariera:TJCBariera;
   begin
    if (not Self.Staveni) then Exit;
  
  
negative.code:       writelog('Krok 10 : vyhybky: zamykam do pozadovanych poloh', WR_VC);
        Self.fstaveni.nextVyhybka := -1;
        stavim := 0;
        nextVyhybka := -1;
        for i := 0 to Self.fproperties.Vyhybky.Count-1 do
         begin
          Blky.GetBlkByID(Self.fproperties.Vyhybky[i].Blok, Blk);
          if ((Blk as TBlkVyhybka).Poloha <> TVyhPoloha(Self.fproperties.Vyhybky[i].Poloha)) then
           begin
            if (stavim >= _JC_MAX_VYH_STAVENI) then
             begin
              if (nextVyhybka = -1) then
                nextVyhybka := i;
              continue;
             end;
            Inc(stavim);
           end;
  
          writelog('Stavim ' + Blk.name, WR_VC);
          (Blk as TBlkVyhybka).SetPoloha(TVyhPoloha(Self.fproperties.Vyhybky[i].Poloha),
                                         true, false, Self.VyhPrestavenaJCPC, Self.VyhNeprestavenaJCPC);
         end;
  