procedure TForm1.Button1Click(Sender: TObject);
begin
   engine.ConfigPath := extractfilepath(application.ExeName);
   session.LoginUser := 'Administrator';
   session.LoginPassword := 'EDBDefault';

   try sql('drop database "database"', 'Configuration'); except end;
   try sql('drop database "memory"', 'Configuration'); except end;
   sql('create database "database" path '+quotedstr(extractfilepath(application.ExeName)), 'Configuration');
   sql('create database "memory" in memory', 'Configuration');
   sql('create table test (field1 integer, field2 integer, field3 integer)', 'database');
   sql('insert into test (field1, field2, field3) values (1,2,3)', 'database');
   sql('create table test as select * from database.test with data', 'memory');
   sql('update memory.test set field1=2', 'database');
   sql('insert into test select * from memory.test', 'database');
   sql('drop table test', 'memory');
end;

procedure TForm1.sql(stmt, db: String);
begin
   with query do begin
      DatabaseName := db;
      SQL.Text := stmt;
      memo1.Lines.Add(db+': '+stmt+#13#10);
      ExecSQL;
   end;
end;