anchor.diff:      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 ((new = nil) or (new.GetGlobalSettings().typ <> _BLK_TU)) then continue;
      if (i = 0) then old := new;
   
      // dalsi blok obsazen -> predani soupravy do tohoto bloku
  
positive.code:  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
      Blk.Change();
    end;
  end;//procedure
  
negative.code: begin
   Self.Zaver  := false;
   Self.Zadost := false;
   Self.SprPredict := -1;
  end;//procedure
  
  ////////////////////////////////////////////////////////////////////////////////
  