[dec]

Hola,

Llevas razón Keyboy.

Código Delphi [-]
var
  btnName: string;
begin
  btnName := EmpyStr;
  if (Sender is TPopupMenu) then
  begin
    if (TPopupMenu(Sender).PopupComponent is TButton) then
    begin
      btnName := TPopupMenu(Sender).PopupComponent.Name;
    end;
  end;
end;