anchor.diff:          if ((Blk as TBlkVyhybka).Poloha <> TVyhPoloha(Self.fproperties.Odvraty[i].Poloha)) then
            begin
             if (stavim >= _JC_MAX_VYH_STAVENI) then
  +           begin
  +            if (nextVyhybka = -1) then
  +              nextVyhybka := i;
               continue;
  +           end;
             Inc(stavim);
            end;
   
  
positive.code: 
  procedure TJC.VyhPrestavenaNC(Sender:TObject);
  var Navestidlo, spojka:TBlk;
      i:Integer;
      Blk:TBlk;
      odvrat:Integer;
  begin
  
negative.code:           Inc(stavim);
           end;
  
          (Blk as TBlkVyhybka).SetPoloha(TVyhPoloha(Self.fproperties.Vyhybky[i].Poloha),
                                         true, false, Self.VyhPrestavenaJCPC, Self.VyhNeprestavenaJCPC);
         end;
  