Получить родителя пунктов контекстного меню

Оформил: DeeCo

procedure TForm1.PopupMenu1Popup(Sender: TObject);
 begin
  Label1.Caption := PopupMenu1.PopupComponent.Name;
 end;