anchor.diff:      procedure MenuPRESUNLokClick(SenderPnl:TIdContext; SenderOR:TObject; new_state:boolean);
       procedure MenuZastClick(SenderPnl:TIdContext; SenderOR:TObject; new_state:boolean);
   
  +    procedure PotvrDeleteLok(Sender:TIdContext; success:boolean);
  +
       procedure MenuObsazClick(SenderPnl:TIdContext; SenderOR:TObject);
       procedure MenuUvolClick(SenderPnl:TIdContext; SenderOR:TObject);
   
  
positive.code:  if (Self.frozen) then
     Self.last_zes_zkrat := state;
  
   if (state) then
    begin
     // do OR oznamime, ze nastal zkrat, pak se prehraje zvuk v klientech...
  
negative.code: 
   if (Self.frozen) then
    begin
     if (((TrkSystem.status <> Ttrk_status.TS_ON) or (not Self.ZesNapajeni) or (Now < TrkSystem.DCCGoTime+EncodeTime(0, 0, 1, 0))) and (Self.ZesZkrat)) then
      begin
       Self.UsekStav.zkrat := false;
       for i := 0 to Self.ORsRef.Cnt-1 do
         Self.ORsRef.ORs[i].ZKratBlkCnt := Self.ORsRef.ORs[i].ZKratBlkCnt - 1;
       Self.Change(true);
      end;
     if ((TrkSystem.status = Ttrk_status.TS_ON) and (not Self.ZesZkrat) and (Self.ZesNapajeni) and
         (Now > TrkSystem.DCCGoTime+EncodeTime(0, 0, 1, 0))) then Self.UnFreeze();
     Exit();
    end;
  
  