anchor.diff:      procedure MenuStitClick(SenderPnl: TIdContext; SenderOR: TObject);
       procedure MenuAktivOnClick(SenderPnl: TIdContext; SenderOR: TObject);
       procedure MenuAktivOffClick(SenderPnl: TIdContext; SenderOR: TObject);
  +
  +    procedure MenuAdminRadOnClick(SenderPnl: TIDContext; SenderOR: TObject);
  +    procedure MenuAdminRadOffClick(SenderPnl: TIDContext; SenderOR: TObject);
   
       function IsActive(): Boolean;
       function IsActiveByController(): Boolean;
  
positive.code:   Self.state := TBlkDiscBasicState.inactive;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  function TBlkDisconnector.IsActive(): Boolean;
  
negative.code:       Result := Result + 'AKTIV>,';
    end;
    Result := Result + 'STIT,';
  
    if ((RCSi.simulation) and (Self.m_settings.rcsController.enabled)) then
    begin
      try
        if (RCSi.GetInput(Self.m_settings.rcsController.addr) = isOn) then
          Result := Result + '-,*RAD<,'
        else
          Result := Result + '-,*RAD>,';
      except
        on E: RCSException do begin end;
        on E: Exception do raise;
      end;
    end;
  end;
  
  procedure TBlkDisconnector.PanelMenuClick(SenderPnl: TIdContext; SenderOR: TObject; item: string; itemindex: Integer);
  begin
    if (item = 'STIT') then
      Self.MenuStitClick(SenderPnl, SenderOR)
    else if (item = 'RAD>') then
      Self.MenuAdminRadOnClick(SenderPnl, SenderOR)
    else if (item = 'RAD<') then
      Self.MenuAdminRadOffClick(SenderPnl, SenderOR);
  
    if (Self.IsActiveByController()) then
      Exit();
  