anchor.diff:      stavim:Cardinal;
       bariery:TList<TJCBariera>;
       bariera:TJCBariera;
  +    nextVyhybka:Integer;
    begin
     if (not Self.Staveni) then Exit;
   
  
positive.code:                                   true, false, Self.VyhPrestavenaNC, Self.VyhNeprestavenaNC);
         if ((Blk as TBlkVyhybka).Poloha <> TVyhPoloha(Self.fproperties.Odvraty[i].Poloha)) then
          begin
           Inc(Self.fstaveni.nextVyhybka);
           Exit();
          end;
        end;
  
negative.code:                                       true, false, Self.VyhPrestavenaNC, Self.VyhNeprestavenaNC);
         if ((Blk as TBlkVyhybka).Poloha <> TVyhPoloha(Self.fproperties.Vyhybky[i].Poloha)) then
          begin
           Self.fstaveni.nextVyhybka := i+1;
           Exit();
          end;
        end;
  