Difficulty creating threads

I was able to solve With the code below, I do not know why but I had to transfer the code that was loading an image from the file and recorded it in a SQlite table for the Synchronize.

However, another problem has arisen: When I leave my app running in the background to use another app and I go back to my app it is locked

var
  a, Qtde:integer;
begin
  with FormPrincipal do
  begin
  ButtonComp_Voltar.Enabled       := False;
  ButtonComp_SalvArq.Enabled      := False;
  ButtonComp_Agora.Enabled        := False;
  TabControlForm.TabIndex         := 4;
  ProgressBarComp.Min             := 0;
  ProgressBarComp.Max             := ListView_Pessoas_Lista.Items.Count ;
  LabelComp_TituloStatus.Text     := '...Aguarde...';
  LabelComp_StatusProgresso.Text  := '...Iniciando...';
  CDS.Close;
  CDS.CreateDataSet;
  CDS.Open;
 // PessoasTable.First;
  TThread.CreateAnonymousThread(procedure ()
  var
    I: Integer;
    Total: Integer;
   begin
    Total := 1;
    while not PessoasTable.Eof do
      begin
        CDS.Insert;
        CDS.FieldByName('Nome').AsString      := PessoasTable.FieldByName('Nome').AsString;
        CDS.FieldByName('Apelido').AsString   := PessoasTable.FieldByName('Apelido').AsString;
        CDS.FieldByName('Endereco').AsString  := PessoasTable.FieldByName('Endereco').AsString;
        CDS.FieldByName('Cidade').AsString    := PessoasTable.FieldByName('Extra1').AsString;
        CDS.FieldByName('Data').AsString      := PessoasTable.FieldByName('Data').AsString;
        CDS.FieldByName('Data_Nascimento').AsString := PessoasTable.FieldByName('Data_Nascimento').AsString;
        CDS.FieldByName('Idade').AsString     := PessoasTable.FieldByName('Idade').AsString;
        CDS.FieldByName('Ocorrencia').AsString:= PessoasTable.FieldByName('Ocorrencia').AsString;
        CDS.FieldByName('Nome_Pai').AsString  := PessoasTable.FieldByName('Filiacao_pai').AsString;
        CDS.FieldByName('Nome_Mae').AsString  := PessoasTable.FieldByName('Filiacao_mae').AsString;
        CDS.FieldByName('Documento').AsString := PessoasTable.FieldByName('Documento').AsString;
        TThread.Synchronize (TThread.CurrentThread,      {Durante o Loop}
          procedure ()
          begin
             LabelComp_StatusProgresso.Text        := 'Total: '+Total.ToString+
                          ', Adicionando Registro: '+PessoasTable.FieldByName('Registro').AsString;
             ProgressBarComp.Value := ListView_Pessoas_Lista.ItemIndex;
             if FileExists(PessoasTable.FieldByName('Foto_Caminho').AsString) then
               CDS.FieldByName('Foto1').Assign(
                CarregaImagemArquivo(PessoasTable.FieldByName('Foto_Caminho').AsString)
                 );
          end);
        CDS.Post;
        Total := Total+1;
        PessoasTable.Next;
      end;

    TThread.Synchronize (TThread.CurrentThread,
      procedure ()
      begin  {Final}
        ProgressBarComp.Max             := ProgressBarComp.Max;
        LabelComp_StatusProgresso.Text  := '...Salvando Arquivo...';
        CDS.SaveToFile('mnt/sdcard/BancodeImagens/Enviar/'+GeraNumeroRegistro+'.XML');
        LabelComp_StatusProgresso.Text  := 'Terminado';
        LabelComp_TituloStatus.Text     := 'O Que Deseja Fazer Com O Arquivo?';
        CDS.Close;
        ButtonComp_Voltar.Enabled       := True;
        ButtonComp_SalvArq.Enabled      := True;
        ButtonComp_Agora.Enabled        := True;
      end);
   end).Start;

    if not DirectoryExists('mnt/sdcard/BancodeImagens/Enviar') then
      try
        ForceDirectories('mnt/sdcard/BancodeImagens/Enviar');
      except
        on e: exception do
          ShowMessage('Não foi possível criar o diretório mnt/sdcard/BancodeImagens/Enviar. Erro: '+
                       e.Message);
      end;
  end;
end;