Llamar procedimiento CanClose desde un boton
 

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;

Pues muy sencillo, podrias guardar una flag booleana que el boton la pase a True cuando hacen click

Código Delphi [-]
type
  TForm1 = class(TForm)
  private
    FPuedeCerrar: Boolean;
  protected
    property PuedeCerrar: Boolean read FPuedeCerrar write FPuedeCerrar;
  end;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  PuedeCerrar := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PuedeCerrar := True;
end; 

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := PuedeCerrar;
end;