K210.ORG

procedure MenuItemToRight(MainMenu: TMainMenu; MenuItem: TMenuItem);

begin

  ModifyMenu(MainMenu.Handle,MenuItem.MenuIndex,

    mf_ByPosition or mf_Popup or mf_Help,

    MenuItem.Handle,PChar(MenuItem.Caption))

end;