DATABASE IS LOCKED DELPHI MOBILE

[vinihhylian0103 0]

Estou fazendo um projeto de Delphi escola e nele tenho que gravar dados no SQLITE. Estou usando o seguinte código:

 

unit UClube;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base,
  FMX.StdCtrls, FMX.ListView, FMX.DateTimeCtrls, FMX.Edit,
  FMX.Controls.Presentation, FMX.TabControl, FireDAC.Stan.Intf,
  FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf,
  FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys,
  FireDAC.Phys.SQLite, FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs,
  FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt,
  FireDAC.FMXUI.Wait, System.Rtti, System.Bindings.Outputs, Fmx.Bind.Editors,
  Data.Bind.EngExt, Fmx.Bind.DBEngExt, Data.DB, FireDAC.Comp.DataSet,
  Data.Bind.Components, Data.Bind.DBScope, FireDAC.Comp.UI, FireDAC.Comp.Client, System.IOUtils;

type
  TForm1 = class(TForm)
    TabControl1: TTabControl;
    TabItem2: TTabItem;
    tb1: TTabItem;
    lvSocio: TListView;
    btnSalvar: TButton;
    btnCancelar: TButton;
    btnEditar: TButton;
    btnExcluirr: TButton;
    Panel1: TPanel;
    edtDataNasc: TDateEdit;
    edtCod: TEdit;
    edtNome: TEdit;
    edtRg: TEdit;
    edtCPF: TEdit;
    edtEndereco: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    labwl: TLabel;
    NOME: TLabel;
    Button5: TButton;
    Panel2: TPanel;
    edtDataA: TDateEdit;
    edtCodSocio: TEdit;
    Label6: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    rdbSocio: TRadioButton;
    edtNomeA: TEdit;
    btnNovoA: TButton;
    edtHoraIA: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    edtHoraFA: TLabel;
    edtDescricaoA: TEdit;
    Label9: TLabel;
    edtValorA: TEdit;
    btnCancelarA: TButton;
    btnEditarA: TButton;
    btnExcluirA: TButton;
    btnSalvarA: TButton;
    lvAgendamento: TListView;
    FDConnPrincipal: TFDConnection;
    qrSocio: TFDQuery;
    qrAgendamento: TFDQuery;
    FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink;
    FDGUIxWaitCursor1: TFDGUIxWaitCursor;
    BindSourceDB1: TBindSourceDB;
    BindingsList1: TBindingsList;
    LinkListControlToField1: TLinkListControlToField;
    LinkControlToField1: TLinkControlToField;
    LinkControlToField2: TLinkControlToField;
    LinkControlToField3: TLinkControlToField;
    LinkControlToField4: TLinkControlToField;
    LinkControlToField5: TLinkControlToField;
    LinkControlToField6: TLinkControlToField;
    qrSocioID: TFDAutoIncField;
    qrSocioNOME: TStringField;
    qrSocioRG: TStringField;
    qrSocioCPF: TStringField;
    qrSocioENDERECO: TStringField;
    qrSocioDATA_NASC: TDateField;
    qrSocioCODIGO: TIntegerField;
    qrAgendamentoID: TFDAutoIncField;
    qrAgendamentoNOME: TStringField;
    qrAgendamentoCODIGO: TIntegerField;
    qrAgendamentoDESCRICAO: TWideMemoField;
    qrAgendamentoDATA: TDateField;
    qrAgendamentoHORA_INICIO: TStringField;
    qrAgendamentoHORARIO_FIM: TStringField;
    qrAgendamentoVALOR: TLargeintField;
    qrAgendamentoSOCIO: TStringField;
    procedure rdbSocioChange(Sender: TObject);
    procedure btnSalvarClick(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure btnCancelarClick(Sender: TObject);
    procedure btnEditarClick(Sender: TObject);
    procedure btnExcluirrClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.btnCancelarClick(Sender: TObject);
begin
qrSocio.Cancel;
Panel1.Enabled := False;
end;

procedure TForm1.btnEditarClick(Sender: TObject);
begin
if qrSocio.RecordCount > 0 then
begin
  qrSocio.Edit;
  Panel1.Enabled := True;
  edtNome.SetFocus;
end;
end;

procedure TForm1.btnExcluirrClick(Sender: TObject);
begin
if qrSocio.RecordCount = 0 then
abort;
qrSocio.Delete;
ShowMessage('Dados excluídos!');
end;

procedure TForm1.btnSalvarClick(Sender: TObject);
begin
if edtNome.Text = '' then
begin
ShowMessage('O nome não pode estar vázio!');
edtNome.SetFocus;
abort;
end;
qrSocio.Post;
qrSocio.Refresh;
Panel1.Enabled := False;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Panel1.Enabled := True;
edtNome.SetFocus;
qrSocio.Append;
end;

procedure TForm1.FormShow(Sender: TObject);
  begin
  FDConnPrincipal.Connected := True;
  try
 {$IF DEFINED (IOS) or DEFINED (ANDROID)}
  FDConnPrincipal.Params.Values['DATABASE'] := TPath.Combine(TPath.GetDocumentsPath, 'BD_CLUBE.s3db');
  {$ENDIF}
  except on E: Exception do
  ShowMessage(e.Message);
  end;
  qrSocio.Open();
end;

procedure TForm1.rdbSocioChange(Sender: TObject);
begin
 if rdbSocio.IsChecked = true then
 begin
 edtCodSocio.Enabled := true;
 edtCodSocio.SetFocus;
 end;
end;

end.

E recebo o seguinte erro: