Узнать index динамического компонента.

[NebesaBag]

Здравствуйте, не знаю как можно получить индекс у динамически созданного подпункта в MainMenu.

begin
  for i := 0 to ComboBox1.Items.Count - 1 do
  begin
    NewItem := TMenuItem.Create(Self);
    NewItem.Caption := ComboBox1.Items[i];
    MainMenu1.Items[0].Items[0].Add(NewItem);
    NewItem.onClick:=NclickM;
  end;
end;

Создавал так подпункты.
Возникла необходимость брать капчи у этих подпунктов но не знаю как определить индекс компонента на котором клик был.

procedure TForm1.NClickM(Sender: TObject);
begin
showmessage(MainMenu1.Items[0].Items[0].Items[i].Caption);
end;

Вот какие действия необходимо проделать, чтобы получить индекс я не знаю.

[VeTaL_UA]

ибо надо было не так создавать

begin
  for i := 0 to ComboBox1.Items.Count - 1 do
  begin
    NewItem := TMenuItem.Create(Self);
    NewItem.Caption := ComboBox1.Items[i];
    MainMenu1.Items[0].Items[0].Add(NewItem);
    NewItem.Tag := i;
    NewItem.onClick:=NclickM;
  end;
end;

и так выводить:

procedure TForm1.NClickM(Sender: TObject);
begin
  ShowMessage(IntToStr((Sender as TMenuItem).Tag));
end;

[NebesaBag]

Благодарю.
Сделал так

showmessage
(MainMenu1.Items[0].Items[0].Items[(Sender as TMenuItem).Tag].Caption);

Подскажите почему при выводе текста нужного подменю подчеркивается снизу буква которая по счету равна индексу этого подменю?
Вот примерно если так идёт:
Текст
Текст
Текст
...

Добавлено через 1 час 49 минут
Что-то сразу не додумался, проблема была не велика и вполне решаема стринг реплэйсом)

procedure TForm1.NClickM(Sender: TObject);
var before,after:string;
begin
before:=MainMenu1.Items[0].Items[0].Items[(Sender as TMenuItem).Tag].Caption;
after:=StringReplace(before, '&', '',[rfReplaceAll, rfIgnoreCase]);
end;