anchor.diff:  
           writelog('JC '+Self.nazev+': smazana souprava '+Soupravy.GetSprNameByIndex(spri)+
             ' z bloku '+Usek.name, WR_SPRPREDAT, 0);
  -        (Usek as TBlkUsek).RemoveSoupravy();
  +        Usek.RemoveSoupravy();
          end;
        end;
      end;
  
positive.code:   begin
     if (i < 0) then continue;    // i = -1 kdyz se kontroluje blok pred navestidlem, -2 pokud je navestidlo na STUJ, nebo zamkle
  
     Blky.GetBlkByID(Self.fproperties.Useky[i], Usek);
  
     // druha cast podminky je tu pro pripad, kdy by byl na konci posunove cesty obsazeny usek
     if (((Usek as TBlkUsek).Obsazeno = obsazeno) and ((i < Self.fproperties.Useky.Count-1) or (Self.RozpadBlok > Self.fproperties.Useky.Count-2) or (Self.fproperties.TypCesty <> TJCType.posun))) then
      begin
       if (i = Self.RozpadBlok) then
        begin
         //pokud se tento usek rovna RozpadBloku
         (Usek as TBlkUsek).Zaver := TZaver.nouz;
  
         if (Self.fproperties.TypCesty = TJCType.vlak) then
          begin
  
negative.code:      end;
     end;
  
    Usek := Nav.UsekPred as TBlkUsek;
    if ((Self.RozpadBlok = 0) and (Self.RozpadRuseniBlok = -1) and
        (TBlkUsek(Usek).Obsazeno <> TUsekStav.obsazeno)) then
     begin
  