PopupMenu и динамически созданые компоненты

[mastersoftna]

Создаю динамически Image:

hva[x]:=TImage.Create(GroupBox2);
hva[x].Parent:=GroupBox2;
hva[x].Height:=50;
hva[x].Width:=50;
hva[x].Top:=50*i;
hva[x].Left:=20+50*(j-1);
hva[x].Picture.LoadFromFile('C:\Documents and Settings\Admin\Мои документы\Мои рисунки\1.bmp');
hva[x].PopupMenu:=PopupMenu1;

Надо привязать к каждому PopupMenu, что-бы иметь возможность совершать некоторые преобразования каждого Image-a.
Как прикрепить процедуру обработки PopupMenu ни как не могу понять?

[mihali4]

Свойство PopupComponent...

[MalexG]

Вы все делаете правильно.
Привожу пример: при выборе одного из пунктов PopupMenu ширина Image, на котором произошел щелчок, уменьшится в 2 раза.

(PopupMenu1.PopupComponent as TImage).Width := (PopupMenu1.PopupComponent as TImage).Width div 2