[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. Кто знает как?