constructor TDBInstance.Create(Root: string);
begin
  aModel := DataModel(Root);
  inherited Create(aModel, SQLITE_MEMORY_DATABASE_NAME);

  Self.AcquireExecutionMode[execORMGet] := amBackgroundORMSharedThread;
  Self.AcquireExecutionMode[execORMWrite] := amBackgroundORMSharedThread;
  Self.DB.Synchronous := smOff;
  Self.DB.LockingMode := lmExclusive;
  Self.CreateMissingTables;
end;