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

На форме есть контекстное меню (PopupMenu1) с одним пунктом, клик по которому обрабатывается в процедуре формы TForma.D1Click.

Во время выполнения на форме динамически размещаются визуальные компоненты (конкретно TImage), свойству PopupMenu каждого из которых присваивается ссылка на один и тот же компонент PopupMenu1 размещенный на форме.

Затем на одном из созданных компонентов TImage вызваем контекстное меню и кликаем по его пункту.

Вопрос.

Каким образом в процедуре TForma.D1Click(Sender: TObject) можно определить из какого компонента было вызвано меню?

Объект

Sender

в процедуре - это тот самый пункт меню, но не компонент из которого меню было вызвано.