anchor.diff:  
   procedure TBlkPst.MenuZAVEnableClick(SenderPnl: TIdContext; SenderOR: TObject);
   begin
  +  if (Self.status = pstRefuging) then
  +  begin
  +    PanelServer.SendInfoMsg(SenderPnl, 'Blokováno prováděnou volbou!');
  +    Exit();
  +  end;
  +
  +  Self.emLock := true;
   end;
   
   procedure TBlkPst.MenuZAVDisableClick(SenderPnl: TIdContext; SenderOR: TObject);
   begin
  +  PanelServer.ConfirmationSequence(SenderPnl, Self.CSZavOffDone, (SenderOR as TArea), 'Zrušení nouzového závěru',
  +    TBlocks.GetBlksList(Self), nil);
  +end;
  +
  +procedure TBlkPst.CSZavOffDone(Sender: TIDContext; success: Boolean);
  +begin
  +  if (success) then
  +    Self.emLock := false;
   end;
   
   procedure TBlkPst.MenuHoukEnableClick(SenderPnl: TIdContext; SenderOR: TObject);
  
positive.code: 
  function TBlkPst.GetZaver(): Boolean;
  begin
  //  Result := (Self.m_state.zaver > 0);
  // TODO
    Result := false;
  end;
  
  
negative.code:     Inc(Self.m_state.emLock);
      if (Self.m_state.emLock = 1) then
      begin
        if (Self.status = pstTakeReady) then
          Self.status := pstOff;
        Self.Change();
      end;
    end else begin
      if (Self.m_state.emLock > 0) then
        Dec(Self.m_state.emLock);
      if (Self.m_state.emLock = 0) then
        Self.Change();
    end;
  end;
  
  