anchor.diff:             // prejezd neuzaviram -> pridam pozadavek na zavreni pri obsazeni do vsech aktivacnich useku
              for uzavBlok in prjZaver.uzaviraci do
               begin
  -             Blky.GetBlkByID(uzavBlok, Blk2);
  -             if (not TBlkUsek(Blk2).EventsOnObsaz.Contains(CreateChangeEvent(Self.UsekClosePrj, i))) then
  -               TBlkUsek(Blk2).AddChangeEvent((Blk2 as TBlkUsek).EventsOnObsaz, CreateChangeEvent(Self.UsekClosePrj, i));
  +             Blky.GetBlkByID(uzavBlok, TBlk(usek));
  +             if (not usek.EventsOnObsaz.Contains(CreateChangeEvent(Self.UsekClosePrj, i))) then
  +               usek.AddChangeEvent(usek.EventsOnObsaz, CreateChangeEvent(Self.UsekClosePrj, i));
               end;
   
  -           writelog('Krok 12 : prejezd '+Blk.name+' - zadny aktivacni usek neobsazen - nechavam otevreny', WR_VC);
  +           writelog('Krok 12 : prejezd '+prejezd.name+' - zadny aktivacni usek neobsazen - nechavam otevreny', WR_VC);
             end;
           end;//for i
   
  
positive.code: 
     13:begin
         // kontrola stavu prejezdu
         for i := 0 to Self.fproperties.Prejezdy.Count-1 do
          begin
           if (Self.fproperties.Prejezdy[i].uzaviraci.Count = 0) then
             continue;
  
           Blky.GetBlkByID(Self.fproperties.Prejezdy[i].Prejezd, Blk);
  
           if ((Blk as TBlkPrejezd).Stav.basicStav <> TBlkPrjBasicStav.uzavreno) then Exit();
           writelog('Krok 13 : prejezd '+Blk.name+' uzavren', WR_VC);
          end;//for i
  
        Self.Krok := 14;
  
negative.code:          if (Self.fproperties.TypCesty = TJCType.posun) then
            begin
             // posunova cesta:
             writelog('Krok 12 : prejezd '+prejezd.name+' - uzaviram', WR_VC);
  
             prejezd.Zaver := true;
  
             // pridani zruseni redukce, tim se prejezd automaticky otevre po zruseni zaveru bloku pod nim
             Blky.GetBlkByID(prjZaver.oteviraci, TBlk(usek));
             usek.AddChangeEvent(usek.EventsOnZaverReleaseOrAB,
               CreateChangeEvent(ceCaller.NullPrejezdZaver, prjZaver.Prejezd));
  
             uzavren := true;
  