anchor.diff:  end;//procedure
   
   procedure TBlkUsek.SetSprPredict(sprcesta:Integer);
  -begin
  +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
   
  
positive.code:      Self.UsekStav.vlakPresun := -1;
  
     Self.UsekStav.soupravy.Remove(index);
     Self.Change();
    end else begin
     raise ESprNotExists.Create('Souprava ' + IntToStr(index) +
  
negative.code:    Exit();
    end;
  
   Soupravy[sprId].AddOrUpdatePOdj(Self, podj);
  
   Self.Change();
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  