How to jump directly to the WinHelp search dialog

Problem/Question/Abstract:

How to jump directly to the WinHelp search dialog

Answer:

procedure TForm1.HelpSearch(Sender: TObject);
var
  HelpMacro: pchar;
begin
  HelpMacro := 'Search()';
  with Application do
  begin
    Application.HelpContext(1);
    HelpCommand(HELP_COMMAND, longint(HelpMacro));
  end;
end;