Один PopupMenu на два ListView

[Shouldercannon]

Хочу привязать один PopupMenu к двум ListView

Код: (Delphi)

procedure TForm4.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  OpenPopupMenu(ListView1, Button, X, Y);
end;

procedure TForm4.ListView2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  OpenPopupMenu(ListView2, Button, X, Y);
end;

procedure TForm4.OpenPopupMenu(LV: TListView; Button: TMouseButton; X, Y: Integer);
var
  I: Integer;
  P: TPoint;
begin
  if mbLeft = Button then Exit;
  if LV.GetItemAt(X, Y) = nil then Exit;

  I := LV.GetItemAt(X, Y).Index;
  // Если курсор на одной из строк
  if I >= 0 then
  begin
    LV.ItemIndex := I;
    // И ручной вызов меню
    P := LV.ClientToScreen(Point(X, Y));
    PopupMenu1.Popup(P.X, P.Y);
  end;
end;

procedure TForm4.NCopyClick(Sender: TObject);
begin
  {if ListView1.Items[ListView1.ItemIndex].SubItems[0] = '' then Exit;
  Clipboard.AsText := ListView1.Selected.SubItems[0];}
  // За что тут зацепиться?
end;

Проблема в том, что не за что зацепиться в NCopyClick. Как указать, что именно нужно копировать?

[zubr]

ListView1.Items [ListView1.GetItemAt ScreenToClient PopupMenu1.PopupPoint  ]

[Shouldercannon]

Код: (Delphi)

procedure TForm4.NCopyClick(Sender: TObject);

Не знает из какого ListView из двух имеющихся что копировать. Получается нужно куда-то запомнить ListView из которого было вызвано OpenPopupMenu и дальше с этим что-то работать как с ListView

[zubr]

У компонентов Delphi есть очень хорошее свойство Tag:

Код:

procedure TForm4.OpenPopupMenu(LV: TListView; Button: TMouseButton; X, Y: Integer);
var
  I: Integer;
  P: TPoint;
begin
  PopupMenu1.Tag := Integer(LV);
  ...

procedure TForm4.NCopyClick(Sender: TObject);
var
  LV: TListView;
begin
  LV := TListView(PopupMenu1.Tag);
  ...

[Shouldercannon]

Просто фантастишь Благодарю