procedure TForm1.Button2Click(Sender: TObject);

   function WordGeneratorExists(ModuleName: String): Boolean;
   var
      Q : TEDBQuery;
   begin
      Q := TEDBQuery.Create(nil);
      Q.SessionName := EDBSession1.SessionName;
      Q.DatabaseName := EDBDatabase1.DatabaseName;
      Q.DisableControls;
      Q.SQL.Text := 'select * from configuration.wordgenerators where name = :ModuleName';
      Q.ParamByName('ModuleName').AsString := ModuleName;
      Result := False;
   try
      Q.Open;
      Result := Q.RecordCount > 0;
      Q.Close;
   except
   end;
      Q.Free;
   end;

begin
   EDBSession1.Execute( Format('DROP DATABASE "%s"', ['MemDB']) );
   EDBSession1.Execute( Format('CREATE DATABASE "%s" IN MEMORY', ['MemDB']) );
   EDBSession1.Open;
   if WordGeneratorExists('SomeName') then Caption := '';
   EDBSession1.Close;
end;