자체해결 내용입니다.
밑에 글이 안지워지네요..

procedure TMain_Base.Main_Sub_Menu_visible(pMenuItem : TMainMenu); // 권한을 설정한다.
var
  i, j, k, l, isub_VisCnt : Integer;
begin
  // -------------------------------------------------------------------------
  // 서브메뉴가 존재하지 않는 항목도 Tag = 10 을 기준으로 Visible 처리한다.
  // 단 admin 계정일시에는 메뉴숨김처리 하지 않는다.
  // -------------------------------------------------------------------------
  i := 0;
  j := 0;
  k := 0;
  for I := 0 to  pMenuItem.Items.Count -1 do
  begin
    for j := 0 to pMenuItem.items.Items[i].Count -1 do
    begin

      if pMenuItem.items.Items[i].Items[j].Tag = 10 then
      begin
        isub_VisCnt := 0;

        for k := 0 to pMenuItem.items.Items[i].Items[j].Count - 1 do
        begin
          if pMenuItem.items.items[i].Items[j].Visible then inc(isub_VisCnt);
        end;

        if isub_VisCnt > 0 then
        begin
          pMenuItem.items.items[i].Items[j].Visible := True;
          pMenuItem.items.items[i].Items[j].Enabled := True;
        end
        else
        begin
          pMenuItem.items.items[i].Items[j].Visible := False;
          pMenuItem.items.items[i].Items[j].Enabled := False;
        end;
      end;
    end;
  end;
end;







test 님이 쓰신 글 :
: 해당 컴포넌트에 서브메뉴를 생성해서 추가하였습니다.
:
:
: 예를들어
: 파일 / 문서 / 설정
: 라는 위에 메인메뉴 항목 아래에
:
:
: 파일 아래에
: 새로만들기
: 저장... > 다른이름으로 저장
:              현재화면 저장
:
: 위와같이 서브메뉴로 다른이름 저장/ 현재화면저장 등 기능을 넣을때.
: 옆에 서브메뉴가 존재하지 않을때 저 저장버튼을... 숨김처리하는방법이 알고싶습니다..
:          
:
: