How to close the help file when terminating the program

Problem/Question/Abstract:

How to close the help file when terminating the program

Answer:

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Winhelp(Handle, 'WinHelp.Hlp', HELP_QUIT, 0);
  Action := caFree;
end;