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???