弹出菜单来源,该怎么处理

弹出菜单来源
我有10个按钮   popupmenu   属性   都设置为   pop1(弹出菜单的名字)  
            我要怎么才能知道当前的菜单是点击了那个按钮弹出来的  


[解决办法]
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
showmessage(PopupMenu1.PopupComponent.Name);
end;