anchor.diff:       Self.UsekStav.vlakPresun := -1;
   
      Self.UsekStav.soupravy.Remove(index);
  +
  +   // odstranit predvidany odjezd z aktualniho useku
  +   if (Soupravy[index].IsPOdj(Self)) then
  +     Soupravy[index].RemovePOdj(Self);
  +
      Self.Change();
     end else begin
      raise ESprNotExists.Create('Souprava ' + IntToStr(index) +
  
positive.code: end;//procedure
  
  procedure TBlkUsek.SetSprPredict(sprcesta:Integer);
  begin
   Self.UsekStav.SprPredict := sprcesta;
   Self.Change();
  end;//procedure
  
  
negative.code:    Exit();
    end;
  
   Soupravy[sprId].AddOrUpdatePOdj(Self, podj);
  
   Self.Change();
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  