anchor.diff:  procedure TBlkUvazka.PanelPotvrSekvZAV(Sender:TIdContext; success:boolean);
   begin
    if (success) then Self.nouzZaver := false;
  -end;//procedure
  -
  -procedure TBlkUvazka.PanelPotvrSekvBPOff(Sender:TIdContext; success:boolean);
  -begin
  - (Self.parent as TBlkTrat).BP := false;
   end;//procedure
   
   ////////////////////////////////////////////////////////////////////////////////
  
positive.code:   if ((not (Self.parent as TBlkTrat).ZAK) and (not (Self.parent as TBlkTrat).Zaver) and (not (Self.parent as TBlkTrat).Obsazeno)) then
     menu := menu + 'ZAK>,';
  
   if ((not (Self.parent as TBlkTrat).Zaver) and (not (Self.parent as TBlkTrat).Obsazeno) and (not (Self.parent as TBlkTrat).Zaver)) then
    begin
     if ((Self.parent as TBlkTrat).IsFirstUvazka(Self)) then
      begin
       if (((Self.parent as TBlkTrat).Smer = TTratSmer.AtoB) or ((Self.parent as TBlkTrat).Smer = TTratSmer.zadny)) then
        begin
         if ((Self.parent as TBlkTrat).BP) then
          menu := menu + '!BP<,'
         else
          menu := menu + 'BP>,';
        end;
      end else begin
       if (((Self.parent as TBlkTrat).Smer = TTratSmer.BtoA) or ((Self.parent as TBlkTrat).Smer = TTratSmer.zadny)) then
         if ((Self.parent as TBlkTrat).BP) then
          menu := menu + '!BP<,'
         else
          menu := menu + 'BP>,';
      end;// else isFirstUvazka
    end;
  
  
   menu := menu + 'STIT,';
  
   ORTCPServer.Menu(SenderPnl, Self, SenderOR as TOR, menu);
  
negative.code:            menu := menu + 'UTS,OTS,';
          end;
        end;// else IsFirstUvazka
       menu := menu + '-,';
      end;// case TTratZZ.souhlas
  
      TTratZZ.bezsouhas:begin
  