在Agent中如何实现右键功能

Question

Try:procedure TForm1.Button1Click(Sender: TObject);
begin
  Genie.Commands.Add('1', 'Yes', '', True, True);
  Genie.Commands.Add('2', 'No', '', True, True);
end;procedure TForm1.Agent1Command(Sender: TObject;
  const UserInput: IDispatch);
begin
  if IAgentCtlUserInput(UserInput).Name = '1' then begin
    ShowMessage('Yes');
  end
  else if IAgentCtlUserInput(UserInput).Name = '2' then begin
    ShowMessage('No');
  end
end;