//====================일반폼 유닛===============
procedure TT105fm.FormCreate(Sender: TObject);
begin
   ..
   ..  
   Set_Power(Self);  //======>공동평션 프로시져 호촐
end;

//====================공동유닛===============
unit PublicFUNC;

interface
uses
  Menus;
  
  Procedure Set_Power(TR_form :Tform); //권한설정프로시져

implementation

Procedure Set_Power(TR_form : TForm); //권한설정프로시져
var i : integer;
    TR_main : TMainmenu;
begin
   //showmessage(TR_form.Name);  
   //TR_main := TR_Form.menu;   ==>이것도 메뉴를 잘 찾네요..
   TR_main := TR_Form.FindComponent('MainMenu1') as TMainmenu;
   if TR_main <> nil then begin
      //여기서 DB를 읽어야 겠네...
      for i := 1 to TR_main.Items.Count - 1 do begin
         if TR_main.Items[i].Name = 'J1' then
            TR_main.Items[i].Enabled := false;
         if TR_main.Items[i].Name = 'M1' then
            TR_main.Items[i].Enabled := false;
      end;
   end;
end;

여러 고수님들의 도움으로 해결을 하게 된것 같습니다.
위소스로 이제 각폼마다 에는 Set_Power(Self); 이넘 한줄로 처리 할 수 있게 되었습니다.
하수는 일주일을 싸매도 안되고 고수는 잠간 생각해보면 안다...헐헐헐...
정말 감사합니다.

제 생각에는 TMainMenu.Create를 사용하면 될것 같은데요...

Procedure Set_Power(TR_form : TForm); //권한설정프로시져
var i : integer;
    TR_main : TMainmenu;
    AForm : TForm;  //변수
begin
   //showmessage(TR_form.Name);

   Aform := Tform.Create(TR_form);  
   TR_main := Aform.Menu.Create(Aform);===>Acceass에러...
   try
     for i := 1 to TR_main.Items.Count - 1 do begin
         if TR_main.Items[i].Name = 'J1' then
            TR_main.Items[i].Enabled := false;
     end;
   Finally
     TR_main.Free;
     Aform.Free;
   end;
end;

허접스럽게 폼을 생성하고, 메뉴를 생성했드랬습니다.
컴파일은 되는데 실행하니 접근에러를 냅니다.
통 뭐가 뭔애긴지...쩝...