Вот код для трех стандартных пунктов меню "Help":
procedureTForm1.Contents1Click(Sender: TObject); begin
Application.HelpCommand(HELP_CONTENTS, 0); end
; procedure
TForm1.SearchforHelpOn1Click(Sender: TObject); begin
Application.HelpCommand(HELP_PARTIALKEY, 0); end
; procedure
TForm1.HowtoUseHelp1Click(Sender: TObject); begin
Application.HelpCommand(HELP_HELPONHELP, 0); end
;