╩αΩ ταΩ≡√≥ⁿ εΩφε ∩εΣ±ΩατΩΦ σ±δΦ ∩εδⁿτεΓα≥σδⁿ ταΩεφ≈Φδ ∩≡ΦδεµσφΦσ?

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

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