anchor.diff:  procedure TBlkPrejezd.MenuSTITClick(SenderPnl:TIdContext; SenderOR:TObject);
   begin
    ORTCPServer.Stitek(SenderPnl, Self, Self.Stav.Stit);
  +end;
  +
  +procedure TBlkPrejezd.MenuAdminZAVRENOStartClick(SenderPnl:TIdContext; SenderOR:TObject);
  +begin
  + MTB.SetInput(Self.PrjSettings.MTB, Self.PrjSettings.MTBInputs.Zavreno, 1);
  +end;
  +
  +procedure TBlkPrejezd.MenuAdminZAVRENOStopClick(SenderPnl:TIdContext; SenderOR:TObject);
  +begin
  + MTB.SetInput(Self.PrjSettings.MTB, Self.PrjSettings.MTBInputs.Zavreno, 0);
   end;
   
   procedure TBlkPrejezd.MenuAdminNUZClick(SenderPnl:TIdContext; SenderOR:TObject);
  
positive.code:     procedure MenuZNOTClick(SenderPnl:TIdContext; SenderOR:TObject);
      procedure MenuSTITClick(SenderPnl:TIdContext; SenderOR:TObject);
  
      procedure MenuAdminNUZClick(SenderPnl:TIdContext; SenderOR:TObject);
  
    public
  
negative.code: begin
   if (Self.Stav.basicStav = TBlkPrjBasicStav.disabled) then Exit();
  
   if      (item = 'UZ')       then Self.MenuUZClick  (SenderPnl, SenderOR)
   else if (item = 'ZUZ')      then Self.MenuZUZClick (SenderPnl, SenderOR)
   else if (item = 'NOT>')     then Self.MenuNOTClick (SenderPnl, SenderOR)
   else if (item = 'NOT<')     then Self.MenuZNOTClick(SenderPnl, SenderOR)
   else if (item = 'STIT')     then Self.MenuSTITClick (SenderPnl, SenderOR)
   else if (item = 'NUZ>')     then Self.MenuAdminNUZClick(SenderPnl, SenderOR)
   else if (item = 'ZAVRENO>') then Self.MenuAdminZAVRENOStartClick(SenderPnl, SenderOR)
   else if (item = 'ZAVRENO<') then Self.MenuAdminZAVRENOStopClick(SenderPnl, SenderOR);
  end;//procedure
  
  ////////////////////////////////////////////////////////////////////////////////
  