Взаимодействие ListView с другими объектами. Передача

[Turbine]

Доброго времени.
Существует некий объект и ListView ( оба принадлежат Form1), содержащий указатель на листвью
В начале идет присвоение:

tGlobal_.pListview:=@ListView1;

Обработчик ListView.onMouseDown вызывает метод объекта tGlobal_., в котором пытается определить номер выбранного элемента или выдать значение -1 (если не выбрано ничего).

    function tGlobal_.Selected:integer;
    begin
    selected:=-1;
    if Assigned(prListview^.Selected) then
    selected:=prListview^.Selected.Index+1;
    end;

Но как я ни крутился вылезает "Stack overflow"

Существует ли другой способ взаимодействия?

Вот, например, большинству компонентов может "приписан" Popup (Менюшка по правой кнопке). Как правильно это реализовывается обычно в самих компонентах, чтобы можно было присвоить простым :=popup1?