uses
System.IOUtils ;
procedure TForm2.connectButtonClick(Sender: TObject);
begin
BD.Params.Values['Database'] := TPath.Combine(TPath.GetSharedDocumentsPath, 'BDVehiculo.db');
try begin
BD.Connected := true;
tbl_compras.Active:=True;
end;
except
on E: EDatabaseError do
ShowMessage('Error en la Conexion' + E.Message);
end;
assets\ en la memoria externa
assets\internal en la memoria interna