anchor.diff:  
    Result := Result + 'STIT,';
   
  + // pokud mame knihovnu simulator, muzeme ridit stav useku
  + //  DEBUG nastroj
  + if (MTB.lib = 2) then
  +  begin
  +   Result := Result + '-,';
  +   if ((Self.Stav.basicStav = TBlkPrjBasicStav.uzavreno) or (Self.Stav.basicStav = TBlkPrjBasicStav.vystraha)) then
  +     Result := Result + '*ZAVRENO<'
  +   else
  +     Result := Result + '*ZAVRENO>';
  +  end;//if MTB.lib = 2
  +
    if (rights >= TORControlRights.superuser) then
     begin
      Result := Result + '-,';
  
positive.code:     procedure MenuZNOTClick(SenderPnl:TIdContext; SenderOR:TObject);
      procedure MenuSTITClick(SenderPnl:TIdContext; SenderOR:TObject);
  
      procedure MenuAdminNUZClick(SenderPnl:TIdContext; SenderOR:TObject);
  
    public
  
negative.code: 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);
  