Llamar procedimiento CanClose desde un boton

[Morofoft_Tuto]

MI problema seria que tengo un formulario donde no se puede salir sin Activar canclose;
Yo lo tengo asi.Pero quiero que cuando precione un boton se active

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender:TOBJECT;var CanClose: Boolean);
begin
CanClose := False;
end;

Pero quiero que cuando precione un boton se active

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender:TOBJECT;var CanClose: Boolean);
begin
CanClose := True;
end;