anchor.diff:  end;//procedure
   
   procedure TBlkUsek.MenuDeleteLokClick(SenderPnl:TIdContext; SenderOR:TObject);
  +var menu:string;
   begin
    if (Self.Souprava > -1) then
  +   ORTCPServer.Potvr(SenderPnl, Self.PotvrDeleteLok, SenderOR as TOR, 'Smazn soupravy '+Soupravy.soupravy[Self.Souprava].nazev, TBlky.GetBlksList(Self), nil);
  +end;//procedure
  +
  +procedure TBlkUsek.PotvrDeleteLok(Sender:TIdContext; success:boolean);
  +begin
  + if ((success) and (Self.Souprava > -1)) then
     begin
      Self.UsekStav.VlakPresun := false;
      Soupravy.RemoveSpr(Self.Souprava);
  
positive.code:     procedure MenuPRESUNLokClick(SenderPnl:TIdContext; SenderOR:TObject; new_state:boolean);
      procedure MenuZastClick(SenderPnl:TIdContext; SenderOR:TObject; new_state:boolean);
  
      procedure MenuObsazClick(SenderPnl:TIdContext; SenderOR:TObject);
      procedure MenuUvolClick(SenderPnl:TIdContext; SenderOR:TObject);
  
  
negative.code:  if (Self.frozen) then
     Self.last_zes_zkrat := state;
  
   if ((state) and (not Self.frozen) and ((TrkSystem.status <> Ttrk_status.TS_ON) or (not Self.ZesNapajeni) or (Now < TrkSystem.DCCGoTime+EncodeTime(0, 0, 1, 0)))) then
    begin
     Self.Freeze();
     Exit();
    end;
  
   if (state) then
    begin
     // do OR oznamime, ze nastal zkrat, pak se prehraje zvuk v klientech...
  