anchor.diff:  ////////////////////////////////////////////////////////////////////////////////
   
   procedure TBlkUsek.RemoveSoupravy();
  -begin
  +var spr:Integer;
  +begin
  + for spr in Self.Soupravs do
  +   if (Soupravy[spr].IsPOdj(Self)) then
  +     Soupravy[spr].RemovePOdj(Self);
  +
    Self.UsekStav.soupravy.Clear();
    Self.UsekStav.vlakPresun := -1;
    Self.UsekStav.zpomalovani_ready := false;
  
positive.code:      Self.UsekStav.vlakPresun := -1;
  
     Self.UsekStav.soupravy.Remove(index);
     Self.Change();
    end else begin
     raise ESprNotExists.Create('Souprava ' + IntToStr(index) +
  
negative.code: end;//procedure
  
  procedure TBlkUsek.SetSprPredict(sprcesta:Integer);
  var old:Integer;
  begin
   old := Self.UsekStav.SprPredict;
   Self.UsekStav.SprPredict := sprcesta;
  
   if ((sprcesta = -1) and (old > -1)) then
    begin
     // odstranit predvidany odjezd mazane predpovidane soupravy
     if (Soupravy[old].IsPOdj(Self)) then
       Soupravy[old].RemovePOdj(Self);
    end;
  
   Self.Change();
  end;//procedure
  
  