anchor.diff:   ORTCPServer.Potvr(SenderPnl, Self.PanelPotvrSekvZAV, SenderOR as TOR, 'Zruen nouzovho zvru', TBlky.GetBlksList(Self), nil);
   end;//procedure
   
  -procedure TBlkUvazka.MenuBPOnClick(SenderPnl:TIdContext; SenderOR:TObject);
  -begin
  - (Self.parent as TBlkTrat).BP := true;
  -end;//procedure
  -
  -procedure TBlkUvazka.MenuBPOffClick(SenderPnl:TIdContext; SenderOR:TObject);
  -begin
  - ORTCPServer.Potvr(SenderPnl, Self.PanelPotvrSekvBPOff, SenderOR as TOR, 'Zruen blokov podmnky', TBlky.GetBlksList(Self), nil);
  -end;//procedure
   
   procedure TBlkUvazka.PanelPotvrSekvZAK(Sender:TIdContext; success:boolean);
   begin
  
positive.code:  if (item = 'RBP')  then Self.MenuRBPClick(SenderPnl, SenderOR);
   if (item = 'ZAV>') then Self.MenuZAVOnClick(SenderPnl, SenderOR);
   if (item = 'ZAV<') then Self.MenuZAVOffClick(SenderPnl, SenderOR);
   if (item = 'BP>')  then Self.MenuBPOnClick(SenderPnl, SenderOR);
   if (item = 'BP<')  then Self.MenuBPOffClick(SenderPnl, SenderOR);
  end;//procedure
  
  ///////////////////////////////////////////////////////////////////////////////
  
negative.code:            menu := menu + 'UTS,OTS,';
          end;
        end;// else IsFirstUvazka
       menu := menu + '-,';
      end;// case TTratZZ.souhlas
  
      TTratZZ.bezsouhas:begin
  