user should not be able to close form

│ Deutsch (de) │ English (en) │ français (fr) │

The procedure prevents the termination of the specific program, by the user.
Therefor the form event OnCloseQuery must to be adapted.

Beispiel:

uses
  Forms, ...;
  
  ...
  
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin 
  CanClose:=false; 
end;
  
  ...