Fórum Trabalhando com componentes criados em tempo de execução #215997

1) Voce Deve Criar Um Um Procedimente Para Evitar Duplicidade Na    
       Lista 
2) Deve Também Criar Um Procedimento Para Que Somente Novas 
    Empresas Sejam Adicionadas Aos Novos Items De Menu
3) Por Fim Fazer Um Processo De Exclusão Caso o Usuário Exclua Uma 
    Empresa Da Lista

1)  Crie a Nivel De Projeto(Este Passo Também Pode Ser Feito a Nível De 
    Execução) Um Item De Menu Com Caption Definido Por "Empresas" e 
    Consequentemente Sua Propriedade Name Será : "Empresas1"....
2) Na Secção Private Do Formulário Defina Um Procedure Onde Voce Vai 
    Conhecer o Caption Selecionado: Secção Private Do Form Onde Se 
    Encontra o Componente MainMenu:
   procedure CaptionEmpresa(Sender: TObject);
3) Aperte <Control+Shift+C> Simultaneamente Para Acionar o Class 
    Completion, Para Incluir Um Manipulador De Eventos No Seu 
    Aplicativo... Ou Faça Isto Manualmente
  procedure TForm1.SizeItemClick(Sender: TObject);
    begin
      ShowMessage(TMenuItem(Sender).Caption);
      TMenuItem(Sender).Checked := True;//Opção Para Marcar a 
                                                              //Empresa "Clicada"
    end;
Obs:Observe Que Voce Não Vai Fazer Nada Com Esta Mensagem, So 
       Coloquei Esta Instrução Para Voce Ter Uma Idéia De Como Pode 
       Aproveitar e Tirar O Caption Que Voce Quer Da Empresa 
       Selecionada Pelo Click Do Botão
4)Agora Por Fim as Instruções Que Irão Criar Dinamicamente Em Tempo 
   De Execução Os Item De Menu.... Adicione No Evento Que Lhe For 
   Conveniente as Instruçõe Abaixo
  Var
i:Integer;
Item: TMenuItem;
begin
i:=0;
  while I <= (ListBox1.Items.Count-1) do
  begin
    //cria os novos items
    Item := TMenuItem.Create (Self);
    //Adiciona Uma Empreas Ao Caption Do Item Do Menu
    Item.Caption :=ListBox1.Items[i];
    //Definindo Assim Fica Fácil Fazer Referência
    Item.ComponentIndex:=I;
    //Marca a Empresa Clicada..InsTrucoes Opcional
    Item.GroupIndex := 1;
    Item.RadioItem := True;
    //Insere o Evento Clic
    Item.OnClick := SizeItemClick;
    Empresas1.Insert (Empresas1.Count, Item);
    I := I + 1;
  end;