Как закрыть окно подсказки если пользователь закончил приложение?

procedure TMainForm.FormClose(Sender: TObject; 
          var Action: TCloseAction);

begin
  Winhelp(Handle, 'WINHELP.HLP', HELP_QUIT, 0);
  Action := caFree;
end;