anchor.diff:      procedure UPONSMinusClick(Sender:TObject);
   
       procedure MenuAdminREDUKClick(SenderPnl:TIdContext; SenderOR:TObject);
  +    procedure MenuAdminPolPlusCLick(SenderPnl:TIdContext; SenderOR:TObject);
  +    procedure MenuAdminPolMinusCLick(SenderPnl:TIdContext; SenderOR:TObject);
  +    procedure MenuAdminNepolCLick(SenderPnl:TIdContext; SenderOR:TObject);
   
       procedure PanelPotvrSekvNSPlus(Sender:TIdContext; success:boolean);
       procedure PanelPotvrSekvNSMinus(Sender:TIdContext; success:boolean);
  
positive.code:  else if (item = 'VYL')  then Self.MenuVylClick(SenderPnl, SenderOR)
   else if (item = 'ZAV>') then Self.MenuZAVEnableClick(SenderPnl, SenderOR)
   else if (item = 'ZAV<') then Self.MenuZAVDisableClick(SenderPnl, SenderOR)
   else if (item = 'ZRUŠ REDUKCI') then Self.MenuAdminREDUKClick(SenderPnl, SenderOR);
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
negative.code:    Result := Result + '-,';
     if (Self.intentionalLocked) then Result := Result + '*ZRUŠ REDUKCI,';
    end;
  
   if (RCSi.simulation) then
    begin
     Result := Result + '-,';
     if (Self.Poloha <> TVyhPoloha.plus) then
       Result := Result + '*POL+,';
     if (Self.Poloha <> TVyhPoloha.minus) then
       Result := Result + '*POL-,';
     if (Self.Poloha <> TVyhPoloha.none) then
       Result := Result + '*NEPOL,';
    end;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  