DATABASE IS LOCKED DELPHI MOBILE

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: