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: 
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  
  
negative.code: 
  procedure TBlkUsek.MenuNewLokClick(SenderPnl:TIdContext; SenderOR:TObject; itemindex:Integer);
  begin
   // nejdrive posleme aktualni seznam hnacich vozidel
   (SenderOR as TOR).PanelHVList(SenderPnl);
  
   // pak posleme pozadavek na editaci hnaciho vozidla
  