多个控件共用快捷菜单的问题

Question

假设快捷菜单是popupmenu1,首先把B1和B2控件的POPUPMENU属性都设置为popupmenu1，然后在N1的事件里写 if PopupMenu1.PopupComponent=B1 then
  begin
    //改变B1标题的代码
  end;
if PopupMenu1.PopupComponent=B2 then
   begin
     //改变B2标题的代码
   end;

Answer 1

假设快捷菜单是popupmenu1,首先把B1和B2控件的POPUPMENU属性都设置为popupmenu1，然后在N1的事件里写 
procedure TForm1.N1Click(Sender: TObject);
begin   if PopupMenu1.PopupComponent=B1 then
      begin
         B1.Caption:='B1';
      end;
   if PopupMenu1.PopupComponent=B2 then
      begin
         B1.Caption:='B1';
      end;end;

Answer 2

笔误
假设快捷菜单是popupmenu1,首先把B1和B2控件的POPUPMENU属性都设置为popupmenu1，然后在N1的事件里写 
procedure TForm1.N1Click(Sender: TObject);
begin  if PopupMenu1.PopupComponent=B1 then
      begin
        B1.Caption:='B1';
      end;
  if PopupMenu1.PopupComponent=B2 then
      begin
        B2.Caption:='B2';
      end;end;