Вопрос по PopupMenu

[denis76560]

Здравствуйте, имею код

var
z,i:Integer;
lpRect : TRect;
wParam:Integer;
begin
  GetWindowRect(Button5.Handle, lpRect);
TrackPopupMenu(PluginsMenu, 0, lpRect.Right, lpRect.Top, 0, Handle, nil);

В нем получаю координаты Button5, потом вывожу PopupMenu (PluginsMenu)
Подскажите пожалуйста, как получить номер нажатого Item'а в PopupMenu.
PopupMenu заполняется динамически строками из файла
Прошу помочь решить вопрос с получением порядкового номера, выбранного в меню Item'a.
За любую помощь буду очень признателен.

[Gregor]

это не подойдет?
procedure TForm1.ItemClick(Sender: TObject);
var
Item: TMenuItem;
begin
Item := TMenuItem(Sender);
Caption := inttostr(PopupMenu1.Items.IndexOf(I tem));
end

[FaTaL]

Смотри Sender