Buttonname über popupmenü ändern

[Natcree]

Delphi-Quellcode:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
p:Tpoint;
begin
getcursorpos(p);//bekomme ich die Maus positon
if Button = mbright then popupmenu2.Popup(p.x,p.y);
//nun muss ich nur noch an den button namen rankommen
end;

Wie mache ich das???

[himitsu]

PopupMenu1.PopupComponent = die Komponente, welche das PopupMenu aufrief

oder man hangelt sich komplett durch die Besitzerstruktur
((Sender as TMenuItem).GetParentMenu as TPopupMenu).PopupComponent