anchor.diff:   for i := 0 to Self.TratSettings.Useky.Count-1 do
     begin
      Blky.GetBlkByID(Self.TratSettings.Useky[i], Blk);
  -   if ((Blk <> nil) and (Blk.GetGlobalSettings().typ = _BLK_USEK)) then
  +   if ((Blk <> nil) and (Blk.GetGlobalSettings().typ = _BLK_TU)) then
       Blk.Change();
     end;
   end;//procedure
  
positive.code:     TTratSmer.BtoA: Blky.GetBlkByID(Self.TratSettings.Useky[Self.TratSettings.Useky.Count-i-1], new);
     end;//case
  
     if ((new = nil) or (new.GetGlobalSettings().typ <> _BLK_USEK)) then continue;
     if (i = 0) then old := new;
  
     // dalsi blok obsazen -> predani soupravy do tohoto bloku
  
negative.code:   begin
     Blky.GetBlkByID(Self.TratSettings.Useky[i], Blk);
     if (Blk = nil) then continue;
     if (Blk.GetGlobalSettings().typ <> _BLK_TU) then continue;
     if ((Blk as TBlkTU).Obsazeno = TUsekStav.obsazeno) then
      begin
       JCDb.RusJC(Self);
  