Conectar mi Bd SQLite

[[kurono]]

Código Delphi [-]
uses
  System.IOUtils ;

procedure TForm2.connectButtonClick(Sender: TObject);
begin
 BD.Params.Values['Database'] := TPath.Combine(TPath.GetSharedDocumentsPath, 'BDVehiculo.db');
  try       //Conexion a la base de datos
   begin
    BD.Connected := true;
    tbl_compras.Active:=True;
    end;
   except
    on E: EDatabaseError do
       ShowMessage('Error en la Conexion' + E.Message);
  end;


// TPath.Combine(TPath.GetSharedDocumentsPath, 'test.db'); //para memoria externa

// TPath.Combine(TPath.GetdDocumentsPath, 'test.db'); //para memoria interna



// dar de alta a Base de datos

     assets\             en la memoria externa
     assets\internal     en la memoria interna