anchor.diff:     Exit(true);
     end;
   
  + if (not Self.CanSprSpeedInsert(sprLocalIndex)) then
  +  begin
  +   ORTCPServer.SendInfoMsg(SenderPnl, 'Nelze vloit soupravu ped jedouc soupravu!');
  +   Exit(true);
  +  end;
  +
    spri := TBlkUsek(Blk).Soupravs[TBlkUsek(Blk).VlakPresun];
   
    if (Blk = Self) then
  
positive.code:  ESprNotExists = class(Exception);
   EMultipleSprs = class(Exception);
   EDuplicitSprs = class(Exception);
  
   //technologicka nastaveni useku (delka, MTB, ...)
   TBlkUsekSettings = record
  
negative.code:     function GetSprMenu(SenderPnl:TIdContext; SenderOR:TObject; sprLocalI:Integer):string;
      procedure ShowProperMenu(SenderPnl:TIdContext; SenderOR:TObject; rights:TORControlRights; params:string);
  
      function CanSprSpeedInsert(index:Integer):boolean;
  
    protected
     UsekSettings:TBlkUsekSettings;
  
  