anchor.diff:  begin
    if (success) then
     begin
  -   if (Self.Krok = 101) then
  -     Self.Krok := 102;
  +   if (Self.Krok = _NC_KROK_BARIERA_UPDATE) then
  +     Self.Krok := _NC_KROK_BARIERY_POTVRZENY;
     end else begin
      Self.CancelStaveni();
   
  
positive.code:      end;
     end;
  
     102:begin
      // potrvzovaci sekvence potvrzena -> stavim navestidlo, ...
  
      Self.fstaveni.nextVyhybka := -1;
  
negative.code:          writelog('Krok 13 : prejezd '+prejezd.name+' uzavren', WR_VC);
          end;//for i
  
        Self.Krok := _JC_KROK_FINALNI_ZAVER;
       end;
  
  
     _JC_KROK_FINALNI_ZAVER:begin
        writelog('Krok 14 : useky: nastavit validni zaver', WR_VC);
  
        aZaver := Self.fproperties.TypCesty;
  