anchor.diff:  
   ////////////////////////////////////////////////////////////////////////////////
   
  +// vraci true prave tehdy, kdyz lze vlozit soupravu na pozici index
  +// kontroluje, zda-li se nenazime vlozit pred soupravu v pohybu
  +function TBlkUsek.CanSprSpeedInsert(index:Integer):boolean;
  +begin
  + Result := not ((Self.Soupravs.Count > 0) and
  +                (((index = 0) and (Soupravy[Self.Soupravs[index]].rychlost > 0) and (Soupravy[Self.Soupravs[index]].smer = THVStanoviste.sudy)) or
  +                 ((index = Self.Soupravs.Count) and (Soupravy[Self.Soupravs[index-1]].rychlost > 0) and (Soupravy[Self.Soupravs[index-1]].smer = THVStanoviste.lichy))));
  +end;
  +
  +////////////////////////////////////////////////////////////////////////////////
  +
   end.//unit
   
  
positive.code: 
  procedure TBlkUsek.MenuNewLokClick(SenderPnl:TIdContext; SenderOR:TObject; itemindex:Integer);
  begin
   // nejdrive posleme aktualni senam hnacich vozidel
   (SenderOR as TOR).PanelHVList(SenderPnl);
  
   // pak posleme pozadavek na editaci hnaciho vozidla
  
negative.code:  ESprNotExists = class(Exception);
   EMultipleSprs = class(Exception);
   EDuplicitSprs = class(Exception);
   ERunningSpr   = class(Exception);
  
   //technologicka nastaveni useku (delka, MTB, ...)
   TBlkUsekSettings = record
  