Delphi xe10, 如何用右键菜单，得到控件的名字？

Question

右键菜单程序：

var s:string;

showmessage(self.PopupMenu1.PopupComponent.name);//可以执行
s:=(self.PopupMenu1.PopupComponent.name);//错误,为什么？怎么办？
s:=((self.PopupMenu1.PopupComponent) as Tedit).name;//错误
//为什么？
//我希望得到类似s:='edit1'之类的效果，该怎么办？

Answer 1

s:=self.PopupMenu1.PopupComponent.GetNamePath;