anchor.diff:   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
   
   ///////////////////////////////////////////////////////////////////////////////
  
positive.code:            menu := menu + 'UTS,OTS,';
          end;
        end;// else IsFirstUvazka
      end;// case TTratZZ.souhlas
  
      TTratZZ.bezsouhas:begin
  
negative.code:  ORTCPServer.Potvr(SenderPnl, Self.PanelPotvrSekvZAV, SenderOR as TOR, 'Zruen nouzovho zvru', TBlky.GetBlksList(Self), nil);
  end;//procedure
  
  
  procedure TBlkUvazka.PanelPotvrSekvZAK(Sender:TIdContext; success:boolean);
  begin
  