Fórum Criar um item dentro de um menu... #230046

bom dia..
estou gerando um menu automatico mas nao estou conseguindo adicionar items a acada item principal..
alguem ai saberia como fazer isto

Arquivo/Sair
como inserir o sair dentro do menu arquivo???

para criar o menu arquivo uso o seguinte codigo
procedure TForm1.FormCreate(Sender: TObject);
var
menu: tmenuitem;
begin

with mainMenu1 do begin
Items.Clear;
menu := TMenuItem.Create(nil);
menu.Caption :=´Arquivo´;
menu.Name := ´Marquivo´;
// menu.OnClick := Button1Click;
Items.Add(Menu);
end;

end;

alguem saberia como adicionar o item ´sair´????


obrigado