procedure TForm1.HelpContents1Execute(Sender: TObject);
begin
//，怎么获得当前点击事件条目的标题名称？
//actionmanager1.ActionBars.Items[1]
 showmessage('help  content')
end;    

 
procedure TForm1.HelpContents1Execute(Sender: TObject);
var
  str: string;
begin
  showmessage(sender.ClassName);
  if Sender is TAction then
  begin
    str := TAction(sender).Caption;
  end;
  showmessage(str)
end;