Como crear menu dinamico para ventanas creadas

[marcoev]

Ya habia visto el codigo que mencionas

Hola, la idea es ir creando objetos del tipo TMenuItem y modificando sus atributos.

Algo así:


Código Delphi:
var
i: integer;
NewItem: TMenuItem;
begin
MainMenu.Items.Clear;

for i := 1 to 4 do
begin
NewItem := TMenuItem.Create(MainMenu);
MainMenu.Items.Add(NewItem); // no se como se le indica la posición
// exacta, sólo lo hice con PopupMenu
case j of
1: begin
NewItem.Caption := 'aaaa';
NewItem.ImageIndex := 1;
NewItem.OnClick := EventoClick1;
end;
2: begin
NewItem.Caption := 'bbbbb';
NewItem.ImageIndex := 2;
NewItem.OnClick := EventoClick2;
end;
3: begin
NewItem.Caption := 'ccccc';
NewItem.ImageIndex := 3;
NewItem.OnClick := EventoClick3;
end;
4: begin
NewItem.Caption := 'ddddd';
NewItem.ImageIndex := 4;
NewItem.OnClick := EventoClick4;
end;
end;
end;
end;

pero, no veo como manejar los eventos, no me imagino como, un poco mas de ayuda por favor, y que sea mas dinamico, no que se base en un numero determinado de iteraciones, gracias!