Динамический PopUp и ActionList

[TOJluK]

Динамически создаю PopUp элементами из базы:

 While not IB_Concern_obj.Eof do
  begin
  NewItem:=TMenuItem.Create(self);
  NewItem.Action:=Action1;
  NewItem.Caption:=IB_Concern_obj.FieldByName('Name').AsString;
  PopupMenu_concern.Items.Add(NewItem);
  IB_Concern_obj.Next;
  end;

Заранее кол- во эл- ов не известно. Всем присваиваю один Action. Необходимо в обработчике Action1Execute выхватить Caption элемента меню PopUp, которое я нажал.
т.е. тут:

procedure TDataModule_main.Action1Execute(Sender: TObject);
begin
// Edit1.Text:=название пункта меню, которое вызвало событие
end;

Кто знает как?

[Скандербег]

 While not IB_Concern_obj.Eof do
  begin
  NewItem:=TMenuItem.Create(self);
  NewItem.Action:=Action1;
  NewItem.Caption:=IB_Concern_obj.FieldByName('Name').AsString;
  NewItem.Tag := PopupMenu_concern.Items.Count; //в каждом пункте cвойству Tag присваиваем уникальное значение
  PopupMenu_concern.Items.Add(NewItem);
  IB_Concern_obj.Next;
  end;

По значению свойства Tag определяем какой пункт вызван.

procedure TDataModule_main.Action1Execute(Sender: TObject);
begin
  if (TAction(Sender).ActionComponent <> nil) and (TAction(Sender).ActionComponent is TMenuItem) then
    Edit1.Text := PopupMenu_concern.Items[TMenuItem(TAction(Sender).ActionComponent).Tag].Caption;
end;