Whitelist ':memory:' special SQLite database

Author: EricGrange

Libraries/DatabaseLib/dwsSynSQLiteDatabase.pas

@@ -294,7 +294,7 @@ constructor TdwsSynSQLiteDataBase.Create(const parameters : array of String; con
    FFileSystem := fileSystem;
    if Length(parameters) > 0 then begin
       dbName := TdwsDataBase.ApplyPathVariables(parameters[0]);
-      if Assigned(fileSystem) then begin
+      if (dbName <> ':memory:') and Assigned(fileSystem) then begin
          validatedDBName := fileSystem.ValidateFileName(dbName);
          if validatedDBName = '' then
             raise ESQLite3Exception.CreateFmt('Database location not allowed "%s"', [ dbName ])